[gsharp-cvs] CVS gsharp

[crhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv9606

Modified Files:
	gui.lisp 
Log Message:
Make the File menu basically work.  I couldn't find a way of graying out 
or invalidating commands, but that's not a big deal really yet.


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2006/05/23 10:55:26	1.62
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2006/05/23 11:43:29	1.63
@@ -99,7 +99,7 @@
    (default
      (vertically ()
        (horizontally ()
-	 score
+         score
 	 (vertically ()
 		     (scrolling (:width 80 :height 200) state)
 		     (scrolling (:width 80 :height 300
@@ -248,9 +248,9 @@
 (make-command-table
  'file-command-table
  :errorp nil
- :menu '(("Find" :command com-find-file)
-	 ("Save" :command com-save-buffer)
-	 ("Save as" :command com-write-buffer)
+ :menu `(("Find" :command (esa-io::com-find-file ,esa::*unsupplied-argument-marker*))
+	 ("Save" :command esa-io::com-save-buffer)
+	 ("Save as" :command (esa-io::com-write-buffer ,esa::*unsupplied-argument-marker*))
 	 ("Quit" :command com-quit)))
 
 (define-gsharp-command (com-new-buffer :name t) ()