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