From c99ac86a3fb3d561643db61221d840a393ad59f1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:44:29 -0500
Subject: [PATCH] new accessors
---
basis/ui/gadgets/menus/menus.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/gadgets/menus/menus.factor b/basis/ui/gadgets/menus/menus.factor
index 932353e428..26e405f6db 100644
--- 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 ;