anchor.diff:  			      (if (widget-visible-p button+1)
   				  (widget-hide button+1)
   				(widget-show button+1))))
  -	  (table-attach table button column (1+ column) row (1+ row)))))
  +	  (table-attach table button column (1+ column) row (1+ row)
  +			:options '(:expand :fill)))))
       (widget-show-all table)))
   
   
  
positive.code: 	  :action (create-action "ShapeMenu" nil "_Shape")
  	  :action (create-action "HelpMenu" nil "_Help")
  	  :action (create-action "New" "gtk-new" "_New" "<control>N" "Create a new file")
  	  :action (create-action "Open" "gtk-open" "_Open" "<control>O" "Open a file")
  	  :action (create-action "Save" "gtk-save" "_Save" "<control>S" "Save current file")
  	  :action (create-action "SaveAs" "gtk-save" "Save _As..." "" "Save to a file")
  	  :action (create-action "Quit" "gtk-quit" "_Quit" "<control>Q" "Quit")
  	  :action (create-action "About" nil "_About" "<control>A" "About")
  	  :action (create-action "Logo" "demo-gtk-logo" "" nil "GTK+")
  	  :action (create-toggle-action "Bold" "gtk-bold" "_Bold" "<control>B" "Bold" t)
  
negative.code:  	    ("rulers" create-rulers)
  ;; 	    ("saved position")
   	    ("scrolled windows" create-scrolled-windows)
  	    ("size group" create-size-group)
  ;; 	    ("shapes" create-shapes)
   	    ("spinbutton" create-spins)
   	    ("statusbar" create-statusbar)
  