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