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

Merge remote-tracking branch 'kusumotonorio/unicode-text-selection' into unicode-12.1.0

unicode-12.1.0
Doug Coleman 2019-07-28 13:47:16 -05:00
parent 5a49cb20cf 8311525f72
commit 0b5d765071
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,8 @@ assocs cache colors combinators core-foundation
core-foundation.attributed-strings core-foundation.strings core-foundation.attributed-strings core-foundation.strings
core-graphics core-graphics.types core-text.fonts destructors core-graphics core-graphics.types core-text.fonts destructors
fonts init kernel locals make math math.functions math.order fonts init kernel locals make math math.functions math.order
math.vectors memoize namespaces sequences strings ; math.vectors memoize namespaces sequences strings
io.encodings.utf16n io.encodings.string ;
IN: core-text IN: core-text
TYPEDEF: void* CTLineRef TYPEDEF: void* CTLineRef
@ -88,7 +89,9 @@ render-loc render-dim ;
bi-curry* bi ; bi-curry* bi ;
: selection-rect ( dim line selection -- rect ) : selection-rect ( dim line selection -- rect )
[ start>> ] [ end>> ] bi [let [ start>> ] [ end>> ] [ string>> ] tri :> ( start end string )
start end [ 0 swap string subseq utf16n encode length 2 / >integer ] bi@
]
[ f CTLineGetOffsetForStringIndex round ] 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> ;