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