From 7cab3d61fe9ae151ba3cee2923a51dd4e9c0a7a5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 23 Apr 2016 12:41:12 -0700
Subject: [PATCH] ui.gadgets.sliders: this fixes the previous test failure.

---
 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 fa1bb7258e..12c1de1f4b 100644
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@@ -224,7 +224,7 @@ M: slider-pen pen-pref-dim
     enabled>> pen-pref-dim ;
 
 M: slider pref-dim*
-    [ slider-enabled? [ { 14 14 } ] [ { 0 0 } ] if ]
+    [ dup slider-enabled? [ dup interior>> pen-pref-dim ] [ drop { 0 0 } ] if ]
     [ drop { 100 100 } ]
     [ orientation>> ] tri set-axis ;