From afuchs at common-lisp.net  Wed Sep  5 22:27:53 2007
From: afuchs at common-lisp.net (afuchs)
Date: Wed,  5 Sep 2007 18:27:53 -0400 (EDT)
Subject: [beirc-cvs] CVS beirc
Message-ID: <20070905222753.C711A1C0C5@common-lisp.net>

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv3831

Modified Files:
	application.lisp 
Log Message:
Remove the "scroll fix" from 1.91: broke for empty output histories.

Also, remove the allocate-space hack; it seems to have no effect and can
lead to horrible recursions if CLIM should decide to call allocate-space
from redisplay.


--- /project/beirc/cvsroot/beirc/application.lisp	2007/08/20 18:39:09	1.91
+++ /project/beirc/cvsroot/beirc/application.lisp	2007/09/05 22:27:53	1.92
@@ -70,7 +70,7 @@
     ((frame redisplay-frame-mixin) (pane application-pane) &key force-p)
   (declare (ignore force-p))
   (change-space-requirements
-   pane :height (bounding-rectangle-height (car (output-record-children (stream-output-history pane))))))
+   pane :height (bounding-rectangle-height (stream-output-history pane))))
 
 (define-application-frame beirc (redisplay-frame-mixin
                                  standard-application-frame)
@@ -1146,12 +1146,6 @@
 						      :command "Connnection closed"
 						      :source (irc:server-name connection)))))))
 
-;;; Hack:
-
-(defmethod allocate-space :after ((pane climi::viewport-pane) w h)
-  (let ((pane (first (sheet-children pane))))
-    (redisplay-frame-pane (pane-frame pane) pane)))
-
 ;;; proposed addition to auto-connect to servers in the
 ;;; *auto-connect-list* [2006/03/21:rpg]
 (defmethod adopt-frame :after (frame-manager (frame beirc))