From 6cba51ed7d534f77efdbda43b951865b4b82a271 Mon Sep 17 00:00:00 2001 From: slava Date: Fri, 4 Aug 2006 02:06:55 +0000 Subject: [PATCH] Fix error when drawing selection --- library/ui/text/editor.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/library/ui/text/editor.factor b/library/ui/text/editor.factor index e1b6318c37..b0e19efda0 100644 --- a/library/ui/text/editor.factor +++ b/library/ui/text/editor.factor @@ -177,7 +177,8 @@ M: loc-monitor model-changed ( obj -- ) selection-start/end over translate>selection-start 2dup [ - >r 2dup r> draw-selected-line 1 translate-lines + >r 2dup r> draw-selected-line + 1 editor get translate-lines ] each-line 2drop ] do-matrix ;