release
slava 2006-03-18 23:33:00 +00:00
parent 59531bc2ae
commit 100a036342
1 changed files with 1 additions and 1 deletions

View File

@ -85,7 +85,7 @@ M: font = eq? ;
C: font ( handle -- font )
[ set-font-handle ] keep dup init-font
V{ } clone over set-font-widths- ;
V{ } clone over set-font-widths ;
: open-font ( { font style ptsize } -- font )
#! Open a font and set the point size of the font.