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))
