From 94baa7d7fa084ffed47aa1e2240b268c9e6ef8f7 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Wed, 8 Apr 2009 18:12:27 -0500
Subject: [PATCH] Call ScriptStringOut with ETO_OPAQUE
---
basis/windows/uniscribe/uniscribe.factor | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 7cfda41dc9..f6cacfb683 100755
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@@ -59,10 +59,10 @@ TUPLE: script-string font string metrics ssa size image disposed ;
ssa>> ! ssa
0 ! iX
0 ! iY
- 0 ! uOptions
- f ! prc
+ ETO_OPAQUE ! uOptions
]
- [ selection-start/end ] bi
+ [ [ { 0 0 } ] dip size>> <RECT> ]
+ [ selection-start/end ] tri
! iMinSel
! iMaxSel
FALSE ! fDisabled
@@ -108,7 +108,7 @@ M: script-string dispose*
SYMBOL: cached-script-strings
-: cached-script-string ( string font -- script-string )
+: cached-script-string ( font string -- script-string )
cached-script-strings get-global [ <script-string> ] 2cache ;
[ <cache-assoc> cached-script-strings set-global ]