Minor tweak to selection rendering

2009-01-16 14:58:59 -06:00 · 2009-01-16 14:58:59 -06:00 · ac898f94c5
parent 37407cde96
commit ac898f94c5
1 changed files with 2 additions and 2 deletions
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@ -217,8 +217,8 @@ M: editor ungraft*
    [ editor-mark ] [ editor-caret ] bi sort-pair ;

 : (draw-selection) ( x1 x2 -- )
-    over -
-    dup 0 = [ 2 + ] when
+    over - 1+
+    dup 0 = [ 1+ ] when
    [ 0.0 2array ] [ editor get line-height 2array ] bi*
    swap [ gl-fill-rect ] with-translation ;