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

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

Insert Measure Bar -> Insert Barline

--- /project/gsharp/cvsroot/gsharp/gui.lisp 2006/08/02 01:53:51 1.70 +++ /project/gsharp/cvsroot/gsharp/gui.lisp 2006/08/02 02:14:44 1.71 @@ -1117,7 +1117,7 @@ (define-gsharp-command com-lower () (decf (last-note (input-state *application-frame*)) 7))

-(define-gsharp-command com-insert-measure-bar () +(define-gsharp-command com-insert-barline () (let ((cursor (current-cursor)) (elements '())) (loop until (end-of-bar-p cursor) --- /project/gsharp/cvsroot/gsharp/modes.lisp 2006/06/19 17:40:34 1.19 +++ /project/gsharp/cvsroot/gsharp/modes.lisp 2006/08/02 02:14:44 1.20 @@ -10,7 +10,7 @@ (set-key `(com-delete-element ,*numeric-argument-marker*) 'global-gsharp-table '((#\d :control))) (set-key `(com-erase-element ,*numeric-argument-marker*) 'global-gsharp-table '((#\h :control)))

-(set-key 'com-insert-measure-bar 'global-gsharp-table '(#|)) +(set-key 'com-insert-barline 'global-gsharp-table '(#|))

(set-key 'com-end-of-score 'global-gsharp-table '((#> :shift :meta))) (set-key 'com-beginning-of-score 'global-gsharp-table '((#< :shift :meta)))