Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv4035 Modified Files: application.lisp Log Message: add an :around method to read-frame-command. This innocent-sounding summary line enables clicking on presentations without having to enter / first. WOO YAY! Date: Sun Sep 25 17:09:01 2005 Author: afuchs Index: beirc/application.lisp diff -u beirc/application.lisp:1.1 beirc/application.lisp:1.2 --- beirc/application.lisp:1.1 Sun Sep 25 14:43:52 2005 +++ beirc/application.lisp Sun Sep 25 17:09:01 2005 @@ -507,6 +507,14 @@ (list 'com-say (read-line stream)))))) (window-clear stream))) +(defmethod read-frame-command :around ((frame beirc) + &key (stream *standard-input*)) + (with-input-context ('command) (object) + (call-next-method) + (command + (window-clear stream) + object))) + (defun restart-beirc () (clim-sys:destroy-process *gui-process*) (setf *beirc-frame* nil)