UI cleanup: make some ui.gadgets words private, give labels a virtual slot instead...

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

diff --git a/extra/ui/gadgets/lists/lists.factor b/extra/ui/gadgets/lists/lists.factor
index fbd91379e64c9625721e7ffd7ff7d404009d0546..78cc177a1f53b8191e03f5f019a1b732bdbe5c4e 100644 (file)
--- a/extra/ui/gadgets/lists/lists.factor
+++ b/extra/ui/gadgets/lists/lists.factor
@@ -106,7 +106,7 @@ M: list focusable-child* drop t ;
     vmin { 0 0 } vmax ;
 
 : select-at ( point list -- )
-    [ rect-dim clamp-loc ] keep
+    [ dim>> clamp-loc ] keep
     [ pick-up ] keep
     select-gadget ;