Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv28251

Modified Files: beirc.lisp Log Message: add a KLUDGE-y workaround for mcclim bug "Application pane vertical scrolling does not work with table formatting" (from Tim Moore)

Date: Sat Sep 17 22:41:43 2005 Author: afuchs

Index: beirc/beirc.lisp diff -u beirc/beirc.lisp:1.8 beirc/beirc.lisp:1.9 --- beirc/beirc.lisp:1.8 Sat Sep 17 21:23:14 2005 +++ beirc/beirc.lisp Sat Sep 17 22:41:42 2005 @@ -198,7 +198,20 @@ (eql receiver pane-receiver)))) (sheet-children (find-pane-named frame 'query))))

-(define-application-frame beirc () +;;; KLUDGE: workaround for mcclim bug "Application pane vertical +;;; scrolling does not work with table formatting" + +(defclass redisplay-frame-mixin () + ()) + +(defmethod redisplay-frame-pane :after + ((frame redisplay-frame-mixin) (pane application-pane) &key force-p) + (declare (ignore force-p)) + (change-space-requirements + pane :height (bounding-rectangle-height (stream-output-history pane)))) + +(define-application-frame beirc (redisplay-frame-mixin + standard-application-frame) ((current-receiver :initform nil :accessor current-receiver) (connection :initform nil) (nick :initform nil)