anchor.diff:       (:separator "Sep1")
        (:toolitem "Logo"))))
   
  -(define-simple-dialog create-ui-manager (dialog "UI Manager")
  +(define-toplevel create-ui-manager (window "UI Manager")
     (let ((actions 
   	 (make-instance 'action-group 
   	  :name "Actions"
  
positive.code: 		  :label (format nil "button (~D,~D)~%" i j))))
  	    (table-attach table button i (1+ i) j (1+ j)))))
        (widget-show-all scrolled-window)))
  
  
  ;;; Shapes
  
negative.code: 			      (if (widget-visible-p button+1)
  				  (widget-hide button+1)
  				(widget-show button+1))))
  	  (table-attach table button column (1+ column) row (1+ row)
  			:options '(:expand :fill)))))
      (widget-show-all table)))
  
  
  