From 99a0f0f1357530bfe00628475ae61f2d8fe33dc0 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:43:02 -0500
Subject: [PATCH] new accessors
---
basis/ui/gadgets/borders/borders.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/gadgets/borders/borders.factor b/basis/ui/gadgets/borders/borders.factor
index da21c06a1b..4609562af4 100644
--- a/basis/ui/gadgets/borders/borders.factor
+++ b/basis/ui/gadgets/borders/borders.factor
@@ -41,7 +41,7 @@ M: border pref-dim*
M: border layout*
dup border-child-rect swap gadget-child
- over loc>> over set-rect-loc
+ over loc>> >>loc
swap dim>> swap (>>dim) ;
M: border focusable-child*