Fix list selection

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 4f3317d188b321d4ee4d9b4329b39ec7cefd59b5..a2f69a6ca441e2d7a6eb5819096c6a1f89253375 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -4,7 +4,6 @@
 - help responder has no way to access { "foo" "bar" }
 - httpd search tools
 - polish OS X menu bar code
-- list selection broken
 
 + ui:
 

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 ;