anchor.diff:    object)
   
   (defmethod destroy-substructure ((object menu-bar))
  -  (loop for child in (sheet-children object)
  +  (loop for child in (menu-children object)
   	do (progn (destroy-substructure child)
   		  (dispatch-repaint child (sheet-region child))))
     (setf (slot-value object 'armed) nil))
  
positive.code: 			 (declare (ignore gadget val))
  			 (funcall value)))
  	(make-pane-1 manager frame 'menu-button-submenu-pane
  		     :space-requirement nil
  		     :label name
  		     :client client
  		     :frame-manager manager
  
negative.code: 	 (items (mapcar #'(lambda (item)
  			    (make-menu-button-from-menu-item item client))
  			(slot-value (find-command-table (slot-value sub-menu 'command-table)) 'menu)))
  	 (rack (make-pane-1 manager frame 'vrack-pane :contents items))
  	 (raised (make-pane-1 manager frame 'raised-pane :contents (list rack))))
      (with-slots (bottomp) sub-menu
        (multiple-value-bind (xmin ymin xmax ymax)
  	  (bounding-rectangle* (sheet-region sub-menu))
  