Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv11274

Modified Files: panes.lisp graph-formatting.lisp table-formatting.lisp Log Message: Fit space requirements to output history bounding rectangle automatically after redisplay and drawing of graphs/tables.

--- /project/mcclim/cvsroot/mcclim/panes.lisp 2008/08/21 22:34:29 1.191 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2008/11/09 19:58:26 1.192 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.

-;;; $Id: panes.lisp,v 1.191 2008/08/21 22:34:29 ahefner Exp $ +;;; $Id: panes.lisp,v 1.192 2008/11/09 19:58:26 ahefner Exp $

(in-package :clim-internals)

@@ -2472,7 +2472,8 @@ (pane pane-display-mixin) &key force-p) (declare (ignore force-p)) - (invoke-display-function frame pane)) + (invoke-display-function frame pane) + (fit-pane-to-output pane))

(defgeneric pane-double-buffering (pane))

@@ -2965,3 +2966,15 @@ (warn "Are you sure you want to use schedule-timer-event? It probably doesn't work.") (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))

+(defgeneric fit-pane-to-output (pane) + (:method (pane) (declare (ignore pane)))) + +(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)))) \ No newline at end of file --- /project/mcclim/cvsroot/mcclim/graph-formatting.lisp 2007/09/17 19:20:49 1.22 +++ /project/mcclim/cvsroot/mcclim/graph-formatting.lisp 2008/11/09 19:58:26 1.23 @@ -3,7 +3,7 @@ ;;; Title: Graph Formatting ;;; Created: 2002-08-13 ;;; License: LGPL (See file COPYING for details). -;;; $Id: graph-formatting.lisp,v 1.22 2007/09/17 19:20:49 crhodes Exp $ +;;; $Id: graph-formatting.lisp,v 1.23 2008/11/09 19:58:26 ahefner Exp $ ;;; ---------------------------------------------------------------------------

;;; (c) copyright 2002 by Gilbert Baumann @@ -188,6 +188,7 @@ (setf (stream-cursor-position stream) (values (bounding-rectangle-max-x graph-output-record) (bounding-rectangle-max-y graph-output-record)))) + (fit-pane-to-output stream) graph-output-record))))

;;;; Graph Output Records --- /project/mcclim/cvsroot/mcclim/table-formatting.lisp 2007/07/21 14:17:15 1.40 +++ /project/mcclim/cvsroot/mcclim/table-formatting.lisp 2008/11/09 19:58:26 1.41 @@ -336,7 +336,8 @@ (values (bounding-rectangle-max-x table) (bounding-rectangle-max-y table))) (setf (stream-cursor-position stream) - (values cursor-old-x cursor-old-y)))))) + (values cursor-old-x cursor-old-y))))) + (fit-pane-to-output stream))

;;; Think about rewriting this using a common superclass for row and ;;; column records.