[gsharp-cvs] CVS gsharp

[rstrandh]

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