anchor.diff:  
   (defun create-substructure (sub-menu client)
     (let* ((frame *application-frame*)
  -	 (manager (frame-manager frame))
  -	 (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)))
  -	 (raised (make-pane-1 manager frame 'raised-pane :border-width 2 :background +gray80+ :contents (list rack))))
  -    (with-slots (bottomp) sub-menu
  -      (multiple-value-bind (xmin ymin xmax ymax)
  -	  (bounding-rectangle* (sheet-region sub-menu))
  -	(multiple-value-bind (x y)
  -	    (transform-position (sheet-delta-transformation sub-menu nil)
  -				(if bottomp xmin xmax)
  -				(if bottomp ymax ymin))
  -	  (with-slots (frame-manager submenu-frame) sub-menu
  -	    (setf frame-manager manager
  -		  submenu-frame (make-menu-frame raised :left x :top y))
  -	    (adopt-frame manager submenu-frame)))))))
  +	 (manager (frame-manager frame)))
  +    (with-look-and-feel-realization (manager frame)
  +      (let* ((frame *application-frame*)
  +	     (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)))
  +	     (raised (make-pane-1 manager frame 'raised-pane :border-width 2 :background +gray80+ :contents (list rack))))
  +      (with-slots (bottomp) sub-menu
  +        (multiple-value-bind (xmin ymin xmax ymax)
  +	    (bounding-rectangle* (sheet-region sub-menu))
  +	  (multiple-value-bind (x y)
  +	      (transform-position (sheet-delta-transformation sub-menu nil)
  +				  (if bottomp xmin xmax)
  +				  (if bottomp ymax ymin))
  +	    (with-slots (frame-manager submenu-frame) sub-menu
  +	      (setf frame-manager manager
  +		    submenu-frame (make-menu-frame raised :left x :top y))
  +	      (adopt-frame manager submenu-frame)))))))))
   
   (defmethod destroy-substructure ((sub-menu menu-button-submenu-pane))
     (with-slots (frame-manager submenu-frame) sub-menu
  
positive.code: ;;; menu-button-submenu-pane
  
  (defclass menu-button-submenu-pane (menu-button-pane)
    ((frame-manager :initform nil :initarg :frame-manager)
     (submenu-frame :initform nil)
     (bottomp :initform nil :initarg :bottomp)
     (command-table :initform nil :initarg :command-table)))
  
  (defmethod menu-children ((submenu menu-button-submenu-pane))
    (with-slots (submenu-frame) submenu
  
negative.code:                                          :modifier-state 0
                                           :button +pointer-left-button+))))
  	(make-pane-1 manager frame 'menu-button-submenu-pane
  		     :name name
  		     :label name
  		     :client client
  		     :frame-manager manager
  