[gsharp-cvs] CVS update: gsharp/gui.lisp

[Christophe Rhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv15560

Modified Files:
	gui.lisp 
Log Message:
Make the cursor be drawn in the right place.  Dunno why we need to 
negate y-offset.

Date: Fri Oct 28 19:20:19 2005
Author: crhodes

Index: gsharp/gui.lisp
diff -u gsharp/gui.lisp:1.25 gsharp/gui.lisp:1.26
--- gsharp/gui.lisp:1.25	Fri Oct 28 18:22:01 2005
+++ gsharp/gui.lisp	Fri Oct 28 19:20:19 2005
@@ -106,7 +106,8 @@
 (defun draw-the-cursor (pane x)
   (let* ((state (input-state *application-frame*))
 	 (staff (car (staves (layer (cursor *application-frame*)))))
-	 (yoffset (gsharp-drawing::staff-yoffset staff)))
+         ;; Why (- STAFF-YOFFSET)?  dunno.  -- CSR, 2005-10-28
+	 (yoffset (- (gsharp-drawing::staff-yoffset staff))))
     (if (typep staff 'fiveline-staff)
 	(let* ((clef (clef staff))
 	       (bottom-line (- (ecase (name clef) (:treble 32) (:bass 24) (:c 35))