anchor.diff:  ;; ;  	    ("dnd")
    	    ("entry" create-entry)
   ;; 	    ("event watcher")
  + 	    ("enxpander" create-expander)
    	    ("file chooser" create-file-chooser)
   ;; 	    ("font selection")
   ;; 	    ("handle box" create-handle-box)
  
positive.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: testgtk.lisp,v 1.8 2004-12-04 18:41:31 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  
negative.code: 	(create-check-button "Sensitive" 'sensitive)))
      (widget-show-all main)))
  
  
  ;; Expander
  
  (define-simple-dialog create-expander (dialog "Expander" :resizable nil)
    (make-instance 'v-box
     :parent dialog :spacing 5 :border-width 5 :show-all t
     :child (create-label "Expander demo. Click on the triangle for details.")
     :child (make-instance 'expander
  	   :label "Details"
  	   :child (create-label "Details can be shown or hidden."))))
  
  
  ;; File chooser dialog
  