anchor.diff:      (merge-user-specified-options pane sr)))
   
   ;;
  -
  -(defclass layout-protocol-mixin ()
  -  ((space-requirement :accessor pane-space-requirement
  -                      :initform nil)
  -   (current-width     :accessor pane-current-width
  -                      :initform nil)
  -   (current-height    :accessor pane-current-height
  -                      :initform nil) ))
   
   (defmethod allocate-space :around ((pane layout-protocol-mixin) width height)
     (unless (and (eql (pane-current-width pane) width)
  
positive.code:   `(space-requirement-min-width (pane-space-requirement ,pane)))
  (defmacro sr-min-height (pane)
    `(space-requirement-min-height (pane-space-requirement ,pane)))
  
  (defclass pane (standard-sheet-input-mixin
  		;;temporary-medium-sheet-output-mixin
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.62 2002/02/25 05:50:39 strandh Exp $
  
  (in-package :CLIM-INTERNALS)
  
  