assocs cache colors combinators core-foundation
core-foundation.attributed-strings core-foundation.strings
core-graphics core-graphics.types core-text.fonts destructors
-fonts init kernel locals make math math.functions math.order
-math.vectors memoize namespaces sequences strings ;
+fonts init io.encodings.string io.encodings.utf16 kernel locals
+make math math.functions math.order math.vectors memoize
+namespaces sequences strings ;
IN: core-text
TYPEDEF: void* CTLineRef
bi-curry* bi ;
: 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
[ drop nip 0 ] [ swap - swap second ] 3bi <CGRect> ;