anchor.diff:     (port :initarg :port)
      (frame :initarg :frame :initform *application-frame* :reader pane-frame)
      (enabledp :initform nil :initarg :enabledp :accessor pane-enabledp)
  -   (sr-width :initform nil :initarg :width)
  -   (sr-height :initform nil :initarg :height)
  -   (sr-max-width :initform nil :initarg :max-width)
  -   (sr-max-height :initform nil :initarg :max-height)
  -   (sr-min-width :initform nil :initarg :min-width)
  -   (sr-min-height :initform nil :initarg :min-height)
      (space-requirement :initform nil :accessor pane-space-requirement)
      ;; New sizes, for allocating protocol
      (new-width :initform nil)
  
positive.code: 	(dispatch-repaint hscrollbar (sheet-region hscrollbar))))))
  
  (defmethod scroll-extent ((pane basic-pane) x y)
    (when (is-in-scroller-pane pane)
      (move-sheet pane (round (- x)) (round (- y)));xxx
      #+NIL(update-scroll-bars pane (sheet-region pane) x y)
      #+NIL(dispatch-repaint pane (sheet-region pane))))
  
  ;;; LABEL PANE
  
  
negative.code: 	    (untransform-position transform dx dy)
  	  (copy-area pane  srcx srcy (- x2 x1) (- y2 y1) destx desty))))))
  
  (defmethod stream-set-input-focus ((stream clim-stream-pane))
    (with-slots (port) stream
      (prog1
  