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