anchor.diff:  
   (defun menu-draw-highlighted (gadget)
     (with-slots (label) gadget
  -    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region gadget))
  +    (multiple-value-bind (x1 y1 x2 y2) 
  +	(bounding-rectangle* (sheet-region gadget))
         (let ((w (- x2 x1))
   	    (h (- y2 y1)))
  -	(draw-rectangle* gadget -1 -1 x2 y2 :ink (gadget-highlighted-color gadget) :filled t)
  -	(draw-edges-lines* gadget 1 1 (1- w) (1- h))
  +	(draw-rectangle* gadget -1 -1 x2 y2
  +			 :ink (gadget-highlighted-color gadget)
  +			 :filled t)
  +	(draw-edges-lines* gadget 1 1 (- w 2) (- h 2))
   	(draw-text* gadget label (round w 2) (round h 2)
   		    :align-x :center :align-y :center)))))
   
   (defun menu-draw-unhighlighted (gadget)
     (with-slots (label) gadget
  -    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region gadget))
  +    (multiple-value-bind (x1 y1 x2 y2)
  +	(bounding-rectangle* (sheet-region gadget))
         (let ((w (- x2 x1))
   	    (h (- y2 y1)))
  -	(draw-rectangle* gadget -1 -1 x2 y2 :ink (gadget-normal-color gadget) :filled t)
  +	(draw-rectangle* gadget -1 -1 x2 y2
  +			 :ink (gadget-normal-color gadget)
  +			 :filled t)
   	(draw-text* gadget label (round w 2) (round h 2)
   		    :align-x :center :align-y :center)))))
   
  
positive.code: (defmethod disarm-menu ((object menu-bar))
    (setf (slot-value object 'armed) nil))
  
  
  (defun make-menu-bar (command-table)
    (with-slots (menu) (find-command-table command-table)
      (raising (:border-width 1) 
  	     (make-pane 'menu-bar
  			:contents
  			(mapcar #'(lambda (item)
  				    (make-menu-button-from-menu-item item nil :bottomp t))
  				menu)))))
  
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
  			    :background +grey80+ :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)
  