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