anchor.diff:      (arm-menu button)))
   
   (defmethod destroy-substructure ((button menu-button-leaf-pane))
  -  (with-slots (armed) button
  -      (setf armed nil)))
  +  (disarm-gadget button))
   
   (defmethod handle-event ((pane menu-button-leaf-pane) (event pointer-button-release-event))
     (with-slots (armed label client id) pane
  
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:             (draw-rectangle* gadget -1 -1 x2 y2
                               :ink (gadget-highlighted-color gadget)
                               :filled t)
              (draw-edges-lines* gadget 0 0 (1- w) (1- h)) ;(- w 2) (- h 2)
              (draw-label* gadget x1 y1 x2 y2)))))))
  
  (defun menu-draw-unhighlighted (gadget)
  