anchor.diff:                                           :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
  
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: 	(manager (frame-manager *application-frame*)))
      (if (eq type :command)
  	(make-pane-1 manager frame 'menu-button-leaf-pane
  		     :name name
  		     :label name
  		     :client client
  		     :value-changed-callback
  