From 5798940ee94670005c16dfb224073d40751db919 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:45:04 -0500
Subject: [PATCH] new accessors

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

diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor
index 08551f3834..8d673e66ad 100755
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@@ -104,7 +104,7 @@ elevator H{
 
 : layout-thumb-loc ( slider -- )
     dup thumb-loc (layout-thumb)
-    >r [ floor ] map r> set-rect-loc ;
+    >r [ floor ] map r> (>>loc) ;
 
 : layout-thumb-dim ( slider -- )
     dup dup thumb-dim (layout-thumb) >r