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