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