anchor.diff:        (let ((bottom (- y1 7))
   	    (left   (- left 4 (if enabled 2 0)))
   	    (right  (+ right 4 (if enabled 2 0)))
  -	    (top    (- top 2 #+NIL (if enabled 2 0))))
  +	    (top    (- top 2)))
   	(draw-rectangle* stream left top right (+ bottom (if enabled 2 1))
   			 :filled t :ink background)
   	(draw-line* stream (1+ left) (1- top) (- right 1) (1- top) :ink +white+)
  
positive.code:   (with-special-choices (pane)
      (let* ((region (sheet-region pane))
             (frame (polygon-points (bounding-rectangle region))))
        #+NIL      (draw-polygon pane frame :ink +Blue+ :filled t)
        (draw-bordered-polygon pane frame :style :outset :border-width 1))))
  
  (define-pixie-gadget menu-button pixie-menu-button-pane)
  
negative.code:                   (not vertical))
                (values *pixie-menubar-item-left-margin* *pixie-menubar-item-right-margin*)
                (values *pixie-menu-button-left-margin* *pixie-menu-button-right-margin*)))))
  
  (defmethod compose-space ((gadget pixie-menu-button-pane) &key width height)
    (declare (ignore width height))
  