anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.192 2008/11/09 19:58:26 ahefner Exp $
  +;;; $Id: panes.lisp,v 1.193 2008/11/30 22:22:29 ahefner Exp $
   
   (in-package :clim-internals)
   
  
positive.code: (defmethod fit-pane-to-output ((stream clim-stream-pane))
    (when (sheet-mirror stream)
      (let* ((output (stream-output-history stream))
             (width  (bounding-rectangle-max-x  output))
             (height (bounding-rectangle-max-y output)))
        (change-space-requirements stream
                                   :min-width width :min-height height
                                   ;;:max-width width :max-height height
                                   :width width :height height))))
negative.code:                                       &key resize-frame &allow-other-keys)
    (declare (ignore space-req-keys))
    (cond (*changing-space-requirements*
           ;; Record changed space requirements.
           ;; What happens if we change the requirements successively
           ;; with different values? Only the first takes effect?
           ;; -Hefner
           (unless (find pane *changed-space-requirements* :key #'second)
             (push (list (pane-frame pane) pane resize-frame)
                   *changed-space-requirements*)))
  