new accessors

2008-08-31 16:18:02 -05:00 · 2008-08-31 16:18:02 -05:00 · 39c5b13b50
parent 31c5e57ab2
commit 39c5b13b50
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/freetype/freetype.factor
+++ b/basis/ui/freetype/freetype.factor
@ -184,7 +184,7 @@ M: freetype-renderer string-height ( open-font string -- h )
 : draw-char ( open-font sprites char loc -- )
    GL_MODELVIEW [
        0 0 glTranslated
-        char-sprite sprite-dlist glCallList
+        char-sprite dlist>> glCallList
    ] do-matrix ;

 : char-widths ( open-font string -- widths )