fix uniscribe

2009-08-29 17:18:30 -05:00 · 2009-08-29 17:18:30 -05:00 · eb21a7b0dd
parent 3ecb3a85db
commit eb21a7b0dd
1 changed files with 1 additions and 0 deletions
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@ -82,6 +82,7 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
 : script-string-size ( script-string -- dim )
    ssa>> ScriptString_pSize
    dup win32-error=0/f
+    SIZE memory>struct
    [ cx>> ] [ cy>> ] bi 2array ;

 : dc-metrics ( dc -- metrics )