anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.113 2003/03/16 17:21:29 gilbert Exp $
  +;;; $Id: panes.lisp,v 1.114 2003/03/19 02:53:35 gilbert Exp $
   
   (in-package :CLIM-INTERNALS)
   
  
positive.code: 		     :initarg :display-function
  		     :accessor pane-display-function)
     ; Should inherit from label-pane for this one ??
     (label :type string :initform nil
  	  :initarg :label
  	  :reader pane-label)
     (text-margin :initarg :text-margin
  
negative.code:     :initarg  :width
      :initform nil
      :reader   pane-user-width
      :type     (or null spacing-value))
     (user-min-width 
      :initarg :min-width
      :initform nil
      :reader   pane-user-min-width
      :type     (or null spacing-value))
     (user-max-width
      :initarg :max-width
      :initform nil
      :reader   pane-user-max-width
      :type     (or null spacing-value))
     (user-height
      :initarg :height
      :initform nil
      :reader   pane-user-height
      :type     (or null spacing-value))
     (user-min-height
      :initarg :min-height
      :initform nil
      :reader   pane-user-min-height
      :type     (or null spacing-value))
     (user-max-height
      :initarg :max-height
      :initform nil
      :reader   pane-user-max-height
      :type     (or null spacing-value))
     (x-spacing
      :initarg :x-spacing
      :initform 0
      :reader   pane-x-spacing
      :type     (or null spacing-value))
     (y-spacing
      :initarg :y-spacing
      :initform 0
      :reader   pane-y-spacing
      :type     (or null spacing-value))
    (:documentation
     "Mixin class for panes which offer the standard user space requirements options."))
  
  