[gsharp-cvs] CVS update: gsharp/gui.lisp

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv16937

Modified Files:
	gui.lisp 
Log Message:
Fixed prompt bug in com-delete-staff-from-layer.
(thanks to Robert J. Macomber)

Date: Mon Nov 14 21:26:34 2005
Author: rstrandh

Index: gsharp/gui.lisp
diff -u gsharp/gui.lisp:1.42 gsharp/gui.lisp:1.43
--- gsharp/gui.lisp:1.42	Mon Nov 14 15:27:32 2005
+++ gsharp/gui.lisp	Mon Nov 14 21:26:14 2005
@@ -1072,7 +1072,7 @@
 
 ;;; FIXME restrict to staves that are actually in the layer. 
 (define-gsharp-command (com-delete-staff-from-layer :name t) ()
-  (let ((staff (accept 'score-pane:staff :prompt "Add staff to layer"))
+  (let ((staff (accept 'score-pane:staff :prompt "Delete staff from layer"))
 	(layer (layer (cursor *application-frame*))))
     (remove-staff-from-layer staff layer)))