steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

windows.uniscribe: Fix bootstrap.

modern-harvey3
Doug Coleman 2019-10-01 00:21:10 -05:00
parent 8b4998aa4d
commit 8d3dec2034
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/windows/uniscribe/uniscribe.factor
View File

@ -71,8 +71,8 @@ PRIVATE>
! Draw white text on black background. The resulting grayscale
! image will be used as transparency mask for the actual color.
drop
[ COLOR: black color>RGB SetBkColor drop ]
[ COLOR: white color>RGB SetTextColor drop ] bi
[ color: black color>RGB SetBkColor drop ]
[ color: white color>RGB SetTextColor drop ] bi
] if ;
: selection-start/end ( script-string -- iMinSel iMaxSel )
@ -86,7 +86,7 @@ PRIVATE>
]
[ [ { 0 0 } ] dip <RECT> ]
[
[let :> str str selection-start/end
let[ :> str str selection-start/end
[
str string>> dup selection? [ string>> ] when
swap >utf16-index