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