[gsharp-cvs] CVS gsharp

rstrandh rstrandh at common-lisp.net
Wed Aug 2 01:53:51 UTC 2006


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

Modified Files:
	gui.lisp 
Log Message:
Implemented the name change suggested by Magnus Johansson:

   Insert Staff After -> Insert Staff Below
   Insert Staff Before -> Insert Staff Above



--- /project/gsharp/cvsroot/gsharp/gui.lisp	2006/06/19 17:40:34	1.69
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2006/08/02 01:53:51	1.70
@@ -1242,13 +1242,13 @@
 		   (make-fiveline-staff :name name :clef clef)))
       (:lyrics (make-lyrics-staff :name name)))))
 
-(define-gsharp-command (com-insert-staff-before :name t) ()
-  (add-staff-before-staff (accept 'score-pane:staff :prompt "Insert staff before staff")
+(define-gsharp-command (com-insert-staff-above :name t) ()
+  (add-staff-before-staff (accept 'score-pane:staff :prompt "Insert staff above staff")
 			  (acquire-new-staff)
 			  (current-buffer *application-frame*)))
 
-(define-gsharp-command (com-insert-staff-after :name t) ()
-  (add-staff-after-staff (accept 'score-pane:staff :prompt "Insert staff after staff")
+(define-gsharp-command (com-insert-staff-below :name t) ()
+  (add-staff-after-staff (accept 'score-pane:staff :prompt "Insert staff below staff")
 			 (acquire-new-staff)
 			 (current-buffer *application-frame*)))
 




More information about the Gsharp-cvs mailing list