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

Minor tweak to selection rendering

db4
Slava Pestov 2009-01-16 14:58:59 -06:00
parent 37407cde96
commit ac898f94c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/editors/editors.factor
View File

@ -217,8 +217,8 @@ M: editor ungraft*
[ editor-mark ] [ editor-caret ] bi sort-pair ; [ editor-mark ] [ editor-caret ] bi sort-pair ;
: (draw-selection) ( x1 x2 -- ) : (draw-selection) ( x1 x2 -- )
over - over - 1+
dup 0 = [ 2 + ] when dup 0 = [ 1+ ] when
[ 0.0 2array ] [ editor get line-height 2array ] bi* [ 0.0 2array ] [ editor get line-height 2array ] bi*
swap [ gl-fill-rect ] with-translation ; swap [ gl-fill-rect ] with-translation ;