Fix Uniscribe font size

db4
U-SLAVA-DFB8FF805\Slava 2009-04-02 13:24:34 -05:00
parent 745a435475
commit b357812589
1 changed files with 2 additions and 2 deletions

View File

@ -1,4 +1,4 @@
USING: assocs memoize locals kernel accessors init fonts
USING: assocs memoize locals kernel accessors init fonts math
combinators windows windows.types windows.gdi32 ;
IN: windows.fonts
@ -10,7 +10,7 @@ IN: windows.fonts
} at-default ;
MEMO:: (cache-font) ( font -- HFONT )
font size>> ! nHeight
font size>> neg ! nHeight
0 0 0 ! nWidth, nEscapement, nOrientation
font bold?>> FW_BOLD FW_NORMAL ? ! fnWeight
font italic?>> TRUE FALSE ? ! fdwItalic