From 6474ed69a7aa46d87fffa15a4bc4fb2f2517d1e1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Aug 2008 16:24:53 -0500
Subject: [PATCH] new accessor

---
 basis/ui/render/render.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/ui/render/render.factor b/basis/ui/render/render.factor
index c7bfc99024..a4bb353d1b 100644
--- a/basis/ui/render/render.factor
+++ b/basis/ui/render/render.factor
@@ -138,7 +138,7 @@ M: polygon draw-interior
 
 : <polygon-gadget> ( color points -- gadget )
     dup max-dim
-    >r <polygon> <gadget> r> over set-rect-dim
+    >r <polygon> <gadget> r> >>dim
     [ (>>interior) ] keep ;
 
 ! Font rendering