Call ScriptStringOut with ETO_OPAQUE

db4
U-SLAVA-DFB8FF805\Slava 2009-04-08 18:12:27 -05:00
parent 52060e6253
commit 94baa7d7fa
1 changed files with 4 additions and 4 deletions

View File

@ -59,10 +59,10 @@ TUPLE: script-string font string metrics ssa size image disposed ;
ssa>> ! ssa ssa>> ! ssa
0 ! iX 0 ! iX
0 ! iY 0 ! iY
0 ! uOptions ETO_OPAQUE ! uOptions
f ! prc
] ]
[ selection-start/end ] bi [ [ { 0 0 } ] dip size>> <RECT> ]
[ selection-start/end ] tri
! iMinSel ! iMinSel
! iMaxSel ! iMaxSel
FALSE ! fDisabled FALSE ! fDisabled
@ -108,7 +108,7 @@ M: script-string dispose*
SYMBOL: cached-script-strings 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 ; cached-script-strings get-global [ <script-string> ] 2cache ;
[ <cache-assoc> cached-script-strings set-global ] [ <cache-assoc> cached-script-strings set-global ]