[gsharp-cvs] CVS gsharp

[crhodes]

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

Modified Files:
	cursor.lisp 
Log Message:
Fix a minor UI annoyance: when switching layers, prefer the end of a bar 
rather than the start to put the cursor, so that the common case of 
parallel editing puts the cursor at a sensible insertion point.


--- /project/gsharp/cvsroot/gsharp/cursor.lisp	2007/07/18 07:51:54	1.5
+++ /project/gsharp/cvsroot/gsharp/cursor.lisp	2007/07/27 22:28:05	1.6
@@ -341,7 +341,7 @@
 	 (newbarno (min (1- (nb-bars newslice)) oldbarno))
 	 (newbar (barno newslice newbarno)))
     (unset-cursor cursor)
-    (set-cursor cursor newbar 0)))
+    (set-cursor cursor newbar (nb-elements newbar))))
 
 (defcclass clayer layer
   ())