[mcclim-cvs] CVS mcclim/Apps/Inspector

[ahefner]

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

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



--- /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp	2008/02/11 22:51:42	1.44
+++ /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp	2008/11/09 19:58:26	1.45
@@ -71,14 +71,6 @@
                           (- (bounding-rectangle-height scrollable-pane)
                              (bounding-rectangle-height viewport)))))))
 
-(defmethod redisplay-frame-pane :after ((frame inspector)
-					(pane application-pane)
-					&key force-p)
-  (declare (ignore force-p))
-  (change-space-requirements
-   pane
-   :height (bounding-rectangle-height (stream-output-history pane))))
-
 (defun inspector (obj &key (new-process nil))
   (flet ((run ()
 	   (let ((*print-length* 10)