anchor.diff:  								    (let ((source (getf (cdr (selected-page showcase)) :source)))
   								      (file-string source))))))))))
   
  -(define-component about-cl-xul-component ()
  -  ()
  -  (:render (comp)
  -	   (<:hbox
  +(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")))
  
positive.code: 			       (<:accesskey= "h")
  			       (<:menu-popup
  				 (<:menu-item (<:label= "About")
  					      (on-command=* (show-help-about showcase)))))))
  		   (<:hbox (<:flex= 1)
  			   (<:list-box
  			     (<:style= "width:10em")
  
negative.code: 	       (<:a (<:href= "https://github.com/mmontone/cl-xul")
  		    ;(<:target= "_blank")
  		    "https://github.com/mmontone/cl-xul")
  	       (<:p "Author: Mariano Montone"))))))
  
  (defparameter *showcase-pages*
    (flet ((source (filename)
  