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

Modified Files: drawing.lisp Log Message: Behave a bit better by calling DRAW-TEXT with a string, not a sequence of codepoints. (The previous code worked with the regular CLX backend but not with the freetype backend; however, the clim spec says DRAW-TEXT takes a character-or-string)

Date: Fri Sep 2 11:01:26 2005 Author: crhodes

Index: gsharp/drawing.lisp diff -u gsharp/drawing.lisp:1.9 gsharp/drawing.lisp:1.10 --- gsharp/drawing.lisp:1.9 Mon Aug 1 01:36:56 2005 +++ gsharp/drawing.lisp Fri Sep 2 11:01:25 2005 @@ -643,4 +643,5 @@ (defmethod draw-element (pane (element lyrics-element) x &optional (flags t)) (declare (ignore flags)) (score-pane:with-vertical-score-position (pane (staff-yoffset (staff element))) - (draw-text* pane (text element) x 0 :align-x :center))) + (draw-text* pane (map 'string 'code-char (text element)) + x 0 :align-x :center)))