[beirc-cvs] CVS beirc

[afuchs]

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

Modified Files:
	application.lisp 
Log Message:
I forgot to mention: the "previous/next page" bindings are derived from a function by Thomas Persson.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 20:32:05	1.61
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 20:33:36	1.62
@@ -438,6 +438,7 @@
           if (<= prev (bounding-rectangle-min-y (pane-viewport-region pane)) this)
             do (return this))
     bottom)
+
   (define-scroller-command (com-previous-page (:prior)) (top bottom)
     (let* ((pane (actual-application-pane (pane (current-receiver *application-frame*))))
            (pane-min-y (rectangle-min-y (pane-viewport-region pane)))