move windows error handling to windows.errors and update usages.

[factor.git] / basis / windows / fonts / fonts.factor

diff --git a/basis/windows/fonts/fonts.factor b/basis/windows/fonts/fonts.factor
index b9fb48d8402a9a951b85c035726bab318ae373de..1753ff1ce1f13f656573b0a4ca385d9bfdeca95a 100755 (executable)
--- a/basis/windows/fonts/fonts.factor
+++ b/basis/windows/fonts/fonts.factor
@@ -1,5 +1,5 @@
-USING: assocs memoize locals kernel accessors init fonts\r
-combinators windows windows.types windows.gdi32 ;\r
+USING: assocs memoize locals kernel accessors init fonts math\r
+combinators windows.errors windows.types windows.gdi32 ;\r
 IN: windows.fonts\r
 \r
 : windows-font-name ( string -- string' )\r
@@ -10,7 +10,7 @@ IN: windows.fonts
     } 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