[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