anchor.diff:  
   (in-package :CLIM-INTERNALS)
   
  -(defmethod compose-space ((button menu-button-pane))
  -  (pane-space-requirement button))
  -
  -(defmethod pane-space-requirement ((button menu-button-pane))
  -  (or (slot-value button 'space-requirement)
  -      (with-sheet-medium (medium button)
  -	(multiple-value-bind (width height) (text-size medium (gadget-label button))
  -	  (setf width (round (* 1.3 width))
  -		height (round (* 2.5 height)))
  -	  (make-space-requirement :width width :height height)))))
  -
   (defmethod menu-root ((button menu-button-pane))
     (menu-root (gadget-client button)))
   
  
positive.code: (defmethod menu-children ((submenu menu-button-submenu-pane))
    (with-slots (submenu-frame) submenu
      (if submenu-frame
  	(sheet-children (frame-pane submenu-frame))
  	'())))
  
  (defun create-substructure (sub-menu client)
  
negative.code:   object)
  
  (defmethod destroy-substructure ((object menu-bar))
    (loop for child in (menu-children object)
  	do (progn (destroy-substructure child)
  		  (dispatch-repaint child (sheet-region child))))
    (setf (slot-value object 'armed) nil))
  