Fix list selection

[factor.git] / library / ui / gadgets / lists.factor

diff --git a/library/ui/gadgets/lists.factor b/library/ui/gadgets/lists.factor
index c35b09c0ec061014deefa75c256f9b0d1778e1b1..a9b67f2003251a3f96f368b0f2d2f541bde4a949 100644 (file)
--- a/library/ui/gadgets/lists.factor
+++ b/library/ui/gadgets/lists.factor
@@ -30,10 +30,10 @@ M: list model-changed
     [ nth ] [ 2drop f ] if ;
 
 M: list draw-gadget*
-    dup list-color gl-color
-    selected-rect [
-        rect-bounds >r origin get v+ r> gl-fill-rect
-    ] when* ;
+    origin get [
+        dup list-color gl-color
+        selected-rect [ rect-extent gl-fill-rect ] when*
+    ] with-translation ;
 
 M: list focusable-child* drop t ;