anchor.diff:  
   (defun make-menu-bar (command-table)
     (with-slots (menu) (find-command-table command-table)
  -    (make-pane 'menu-bar
  -	       :contents
  -	       (mapcar #'(lambda (item)
  -			   (make-menu-button-from-menu-item item nil :bottomp t))
  -		       menu))))
  +    (raising (:border-width 1) 
  +	     (make-pane 'menu-bar
  +			:contents
  +			(mapcar #'(lambda (item)
  +				    (make-menu-button-from-menu-item item nil :bottomp t))
  +				menu)))))
  
positive.code:   object)
  
  (defmethod destroy-substructure ((object menu-bar))
    (loop for child in (sheet-children object)
  	do (progn (destroy-substructure child)
  		  (dispatch-repaint child (sheet-region child))))
    (setf (slot-value object 'armed) nil))
  
negative.code: (defmethod menu-children ((submenu menu-button-submenu-pane))
    (with-slots (submenu-frame) submenu
      (if submenu-frame
  	(sheet-children (first (sheet-children (frame-pane submenu-frame))))
  	'())))
  
  (defun create-substructure (sub-menu client)
  