anchor.diff:    (declare (ignore args))
     (setf (pane-display-time application) :command-loop
   	(pane-scroll-bars application) t))
  -	
  +
   
   ;;; COMMAND-MENU PANE
   
  
positive.code:         (declare (ignorable iright itop ileft ibottom))
          (multiple-value-bind (tx ty)
              (values (ecase (pane-align-x pane)
                        (:left (+ x1 m0 (if (slot-value pane 'contents) 
                                            (+ a m0 m0 d)
                                          0)))
                        (:right (- x2 m0 (if (slot-value pane 'contents) 
                                             (+ a m0 m0 d)
                                           0)
                                   tw))
  
negative.code: 	      (draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+)
  	      (stream-replay pane (sheet-region pane))))))))))
  
  ;;; INTERACTOR PANES
  
  (defclass interactor-pane (clim-stream-pane)
    ())
  