[gsharp-cvs] CVS gsharp

thenriksen thenriksen at common-lisp.net
Wed Jan 30 09:59:25 UTC 2008


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




More information about the Gsharp-cvs mailing list