diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor index 5782feb4de..81bd1c9973 100644 --- a/basis/core-text/core-text.factor +++ b/basis/core-text/core-text.factor @@ -65,7 +65,7 @@ TUPLE: line font line metrics image disposed ; : selection-rect ( dim line selection -- rect ) [ start>> ] [ end>> ] bi - [ f CTLineGetOffsetForStringIndex ] bi-curry@ bi + [ f CTLineGetOffsetForStringIndex round ] bi-curry@ bi [ drop nip 0 ] [ swap - swap second ] 3bi ; :: fill-selection-background ( context dim line string -- )