anchor.diff:    (dialog-add-button dialog "gtk-cancel" #'widget-destroy :object t)
     (dialog-add-button dialog "gtk-ok" 
      #'(lambda ()
  -       (if (slot-boundp dialog 'filename)
  +       (if (slot-boundp dialog 'filename)	   
   	   (format t "Selected file: ~A~%" (file-chooser-filename dialog))
   	 (write-line "No files selected"))
          (widget-destroy dialog))))
  
positive.code: 
  ;;; Toolbar test
  
  (define-toplevel create-toolbar (window "Toolbar test" :resizable nil)
    (make-instance 'toolbar 
     :show-tooltips t :show-arrow nil :parent window
  
     ;; Insert a stock item
     :child (make-instance 'tool-button 
  
negative.code:  	    ("enxpander" create-expander)
   	    ("file chooser" create-file-chooser)
  ;; 	    ("font selection")
   	    ("handle box" create-handle-box)
   	    ("image" create-image)
   	    ("labels" create-labels)
   	    ("layout" create-layout)
  