anchor.diff:  				(if bottomp ymax ymin))
   	  (with-slots (frame-manager submenu-frame) sub-menu
   	    (setf frame-manager manager
  -		  submenu-frame (make-menu-frame rack :left x :top y))
  +		  submenu-frame (make-menu-frame raised :left x :top y))
   	    (adopt-frame manager submenu-frame)))))))
   
   (defmethod destroy-substructure ((sub-menu menu-button-submenu-pane))
  
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: 
  (in-package :CLIM-INTERNALS)
  
  (defmethod menu-root ((button menu-button-pane))
    (menu-root (gadget-client button)))
  
  