Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv12180 Modified Files: gui.lisp Log Message: First cut at getting M-x extended commands to work. Covers Quit and Find File. Date: Wed Dec 29 05:55:20 2004 Author: abridgewater Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.23 climacs/gui.lisp:1.24 --- climacs/gui.lisp:1.23 Tue Dec 28 18:32:18 2004 +++ climacs/gui.lisp Wed Dec 29 05:55:20 2004 @@ -137,7 +137,7 @@ (t nil)))) (redisplay-frame-panes frame)))) -(define-command com-quit () +(define-command (com-quit :name "Quit" :command-table climacs) () (frame-exit *application-frame*)) (define-command com-self-insert () @@ -193,7 +193,9 @@ 'default))) (define-command com-extended-command () - (accept 'command :prompt "Extended Command")) + (let ((item (accept 'command :prompt "Extended Command"))) + (window-clear *standard-input*) + (execute-frame-command *application-frame* item))) (defclass weird () () (:documentation "An open ended class.")) @@ -286,7 +288,7 @@ (concatenate 'string (pathname-name pathname) "." (pathname-type pathname)))) -(define-command com-find-file () +(define-command (com-find-file :name "Find File" :command-table climacs) () (let ((filename (accept 'completable-pathname :prompt "Find File"))) (with-slots (buffer point syntax) (win *application-frame*)