anchor.diff:  				:max-width 400 :max-height 400
   				:min-width tw :min-height th)))))
   
  +(defmethod draw-label ((pane labelled-gadget) (label string) x y)
  +  (draw-text* pane label
  +	      x y
  +	      :align-x (gadget-label-align-x pane)
  +	      :align-y (gadget-label-align-y pane)
  +	      :text-style (gadget-label-text-style pane)))
  +
   (defclass labelled-gadget-mixin (labelled-gadget)
     ;; Try to be compatible with Lispworks' CLIM.
     ())
  
positive.code: (defclass text-editor-pane (text-editor)
    ((width :type integer
  	  :initarg :width
  	  :reader text-editor-width)
     (height :type integer
  	   :initarg :height
  	   :reader text-editor-height)))
  
  (defmethod compose-space ((pane text-editor-pane))
    (make-space-requirement :width 300 :max-width 300 :min-width 300
  			  :height 300 :max-height 300 :min-height 300))
  
  
  ;;
  
negative.code: 		 (draw-rectangle* pane 0 0 w h
  				  :ink (gadget-normal-color pane)
  				  :filled t)))
  	  (draw-label pane (gadget-label pane) (round w 2) (round h 2)))))))
  
  
  ;;
  