anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.196 2009-08-01 21:27:13 gbaumann Exp $
  +;;; $Id: panes.lisp,v 1.197 2009-08-01 22:11:06 gbaumann Exp $
   
   (in-package :clim-internals)
   
  
positive.code:                     (ecase vertical-scroll-bar-position
                        (:left vsbar-width)
                        (:right 0))
                      (- height *scrollbar-thickness*))
          (allocate-space hscrollbar
                          (- width vsbar-width)
                          hsbar-height))
  
negative.code:   (scroll-extent pane x y)
    (values x y))
  
  (defmethod stream-set-input-focus ((stream clim-stream-pane))
    (with-slots (port) stream
      (prog1 (port-keyboard-input-focus port)
  