anchor.diff:  	   :initarg :height
   	   :reader text-editor-height)))
   
  -(defmethod compute-space ((pane text-editor-pane))
  -  (setf (pane-space-requirement pane)
  -	(make-space-requirement :width (text-editor-width pane)
  -				:height (text-editor-height pane))))
  +(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))
   
   
   ;;
  
positive.code: ;; PUSH-BUTTON gadget
  ;;
  
  (defclass push-button (action-gadget labelled-gadget-mixin) ())
    
  (defclass push-button-pane  (push-button)
    ((show-as-default-p :type (member '(t nil))
  
negative.code:   (window-clear pane)
    (dispatch-repaint pane (sheet-region pane)))
  
  (defmethod compose-space ((pane text-field-pane))
    (with-sheet-medium (medium pane)
      (multiple-value-bind (width height)
  	(text-size medium (gadget-value pane))
        (make-space-requirement :width width :height height
  			      :max-width width :max-height height
  			      :min-width width :min-height height))))
  
  ;;
  ;; TEXT-EDITOR gadget
  ;;
  