new accessors

2008-09-01 22:44:29 -05:00 · 2008-09-01 22:44:29 -05:00 · c99ac86a3f
parent e060a103b2
commit c99ac86a3f
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/menus/menus.factor
+++ b/basis/ui/gadgets/menus/menus.factor
@ -14,7 +14,7 @@ TUPLE: menu-glass < gadget ;

 : <menu-glass> ( menu world -- glass )
    menu-glass new-gadget
-    >r over menu-loc over set-rect-loc r>
+    >r over menu-loc >>loc r>
    [ swap add-gadget drop ] keep ;

 M: menu-glass layout* gadget-child prefer ;