Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv31373
Modified Files: gui.lisp Log Message: Added the ESA menus the Gsharp menu.
--- /project/gsharp/cvsroot/gsharp/gui.lisp 2007/12/19 11:06:03 1.92 +++ /project/gsharp/cvsroot/gsharp/gui.lisp 2008/01/30 09:59:25 1.93 @@ -268,7 +268,8 @@ (make-command-table 'menubar-command-table :errorp nil - :menu '(("File" :menu file-command-table) + :menu '(("File" :menu esa-io-menu-table) + ("Macros" :menu keyboard-macro-menu-table) ("Buffer" :menu buffer-command-table) ("Stuff" :menu segment-command-table) ("Segment" :menu segment-command-table) @@ -277,19 +278,8 @@ ("Measure" :menu measure-command-table) ("Modes" :menu modes-command-table) ("Staves" :menu staves-command-table) - ("Play" :menu play-command-table))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; -;;; file menu - -(make-command-table - 'file-command-table - :errorp nil - :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))) + ("Play" :menu play-command-table) + ("Help" :menu help-menu-table)))
(define-gsharp-command (com-new-buffer :name t) () (let* ((buffer (make-instance 'buffer))