[climacs-cvs] CVS update: climacs/gui.lisp

[Alastair Bridgewater]

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