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

Cosmetic fix

db4
Slava Pestov 2009-02-14 21:51:54 -06:00
parent 4c86bd0951
commit 07ea40eaf6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/core-text/core-text.factor
View File

@ -65,7 +65,7 @@ TUPLE: line font line metrics image disposed ;
: selection-rect ( dim line selection -- rect ) : selection-rect ( dim line selection -- rect )
[ start>> ] [ end>> ] bi [ start>> ] [ end>> ] bi
[ f CTLineGetOffsetForStringIndex ] bi-curry@ bi [ f CTLineGetOffsetForStringIndex round ] bi-curry@ bi
[ drop nip 0 ] [ swap - swap second ] 3bi <CGRect> ; [ drop nip 0 ] [ swap - swap second ] 3bi <CGRect> ;
:: fill-selection-background ( context dim line string -- ) :: fill-selection-background ( context dim line string -- )