anchor.diff:  ;;; Menu creation from command tables
   
   (defun make-menu-button-from-menu-item (item client
  -					&key (bottomp nil)
  +                                        &key (bottomp nil)
                                           (vertical nil)
  -					command-table
  -					(presentation-type 'menu-item))
  +                                        command-table
  +                                        (presentation-type 'menu-item))
     (declare (ignore command-table))
  -  (let ((name (command-menu-item-name item))
  -	(type (command-menu-item-type item))
  -	(value (command-menu-item-value item))
  -	(frame *application-frame*)
  -	(manager (frame-manager *application-frame*)))
  +  (let* ((name (command-menu-item-name item))
  +         (type (command-menu-item-type item))
  +         (value (command-menu-item-value item))
  +         (frame (pane-frame client))
  +         (manager (frame-manager frame)))
       (case type
         (:command
          (let ((command-name (if (consp value) (car value) value)))
  
positive.code: (defmethod disarm-menu ((object menu-bar))
    (setf (slot-value object 'armed) nil))
  
  (defun %make-menu-contents (command-table)
    (with-slots (menu) (find-command-table command-table)
      (append
       (loop for item in menu
  	collect
  	  (make-menu-button-from-menu-item
  	   item nil
  	   :bottomp t
  	   :vertical nil
  	   :command-table command-table))
       (list +fill+))))
  
  (defun make-menu-bar (command-table
  		      &key width height
  		           (max-width +fill+) max-height
  			   min-width min-height)
    (with-slots (menu) (find-command-table command-table)
      (make-pane-1 *pane-realizer* *application-frame*
  		 'menu-bar
  		 :background *3d-normal-color*
  		 :width width :height height
  		 :max-width max-width :max-height max-height
  		 :min-width min-width :min-height min-height
  		 :contents (%make-menu-contents command-table))))
  
  (defun update-menu-bar (menu-bar-pane command-table)
    (when command-table
      (setf (%pane-contents menu-bar-pane)
  	  (%make-menu-contents command-table)))
    (change-space-requirements menu-bar-pane))
  
  (defmethod handle-repaint ((pane menu-bar) region)
  
negative.code: 
  (defmethod (setf %pane-contents) :after (contents (pane menu-bar))
    (declare (ignore contents))
    (setf (slot-value pane 'items) (copy-list (sheet-children pane))))
  
  (defmethod menu-children ((menu-bar menu-bar))
    (slot-value menu-bar 'items))
  