anchor.diff:  ;;; INTERACTOR PANES
   
   (defclass interactor-pane (clim-stream-pane)
  -  ())
  -
  -(defmethod initialize-instance :before ((interactor interactor-pane) &rest args)
  -  (declare (ignore args))
  -  (setf (pane-scroll-bars interactor) :vertical))
  +  ()
  +  (:default-initargs :display-time nil
  +                     :scroll-bars :vertical))
   
   (defmethod initialize-instance :after ((pane interactor-pane) &rest args)
     (declare (ignore args))
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.91 2002-07-12 06:30:50 adejneka Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code: ;;; APPLICATION PANES
  
  (defclass application-pane (clim-stream-pane)
    ()
    (:default-initargs :display-time :command-loop
                       :scroll-bars t))
  
  ;;; COMMAND-MENU PANE
  
  (defclass command-menu-pane (clim-stream-pane)
    ()
    (:default-initargs :display-time :command-loop
                       :incremental-redisplay t
                       :scroll-bars t
                       :display-function 'display-command-menu))
  
  ;;; TITLE PANE
  
  (defclass title-pane (clim-stream-pane)
    ()
    (:default-initargs :display-time t
                       :scroll-bars nil
                       :display-function 'display-title))
  
  ;;; POINTER DOCUMENTATION PANE
  
  (defclass pointer-documentation-pane (clim-stream-pane)
    ()
    (:default-initargs :display-time nil
                       :scroll-bars nil))
  
  
  ;;; CONSTRUCTORS
  