core-text: draw backgrounds more accurately.

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index 418684016d01a74d4d39b6e5b2471b31797f6e84..df5d724536b02f44273164148cc196b951da8bfd 100644 (file)
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -154,8 +154,8 @@ render-loc render-dim render-ext ;
 
     line ext [
         {
-            [ font dim fill-background ]
-            [ loc dim ctline string fill-selection-background ]
+            [ font ext fill-background ]
+            [ loc first 0 2array dim first ext second 2array ctline string fill-selection-background ]
             [ loc set-text-position ]
             [ [ ctline ] dip CTLineDraw ]
         } cleave