anchor.diff:  			       (<:accesskey= "h")
   			       (<:menu-popup
   				 (<:menu-item (<:label= "About")
  -					      (on-command=* (show-help-about showcase)))))))
  +					      (<:on-command= (show-help-about)))))))
   		   (<:hbox (<:flex= 1)
   			   (<:list-box
   			     (<:style= "width:10em")
  
positive.code: 	       (<:a (<:href= "https://github.com/mmontone/cl-xul")
  		    ;(<:target= "_blank")
  		    "https://github.com/mmontone/cl-xul")
  	       (<:p "Author: Mariano Montone")))))
  
  (defun show-help-about (showcase)
    (add-component showcase 'child
  		 (make-instance 'about-cl-xul-component)))		 
  
  (defparameter *showcase-pages*
    (flet ((source (filename)
  
negative.code: 								    (let ((source (getf (cdr (selected-page showcase)) :source)))
  								      (file-string source))))))))))
  
  (defun show-help-about ()
    (xul::with-open-dialog
        ("About"
         '(:modal "yes"
  	 :resizable "no"))
      (<:dialog
        (<:id= "about")
        (<:title= "About")
        (<:buttons= "accept")
        (<:hbox
  	     (<:image (src= (asdf:system-relative-pathname
  			     :cl-xul-test
  			     "test/showcase/images/lisplogo_warning2_256.png")))
  