[beirc-cvs] CVS update: beirc/beirc.lisp

[Andreas Fuchs]

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)