anchor.diff:            (let ((w (- x2 x1))
                   (h (- y2 y1)))
               (draw-rectangle* gadget -1 -1 w h ;-1 -1 x2 y2
  -                             :ink (gadget-normal-color gadget)
  +                             :ink +background-ink+
                                :filled t)
               (draw-label* gadget x1 y1 x2 y2)))))))
   
  
positive.code: 		           (max-width +fill+) max-height
  			   min-width min-height)
    (with-slots (menu) (find-command-table command-table)
      (progn ;;raising () ;; XXX temporary medicine as RAISED is borken --GB
        (make-pane-1 *pane-realizer* *application-frame*
            'menu-bar
  	  :background +grey80+						
  	  :width width :height height
  	  :max-width max-width :max-height max-height
  	  :min-width min-width :min-height min-height
  	  :contents
  	  (loop for item in menu
  		collect 
  		  (make-menu-button-from-menu-item item nil :bottomp t))))))
  
negative.code: (defmethod handle-event ((pane menu-button-leaf-pane) (event pointer-ungrab-event))
    (destroy-substructure (menu-root pane)))
  
  ;;; menu-button-submenu-pane
  
  (defclass menu-button-submenu-pane (menu-button-pane)
    ((frame-manager :initform nil :initarg :frame-manager)
     (submenu-frame :initform nil)
     (bottomp :initform nil :initarg :bottomp)
     (command-table :initform nil :initarg :command-table)))
  
  (defmethod menu-children ((submenu menu-button-submenu-pane))
    (with-slots (submenu-frame) submenu
  