ui.gadgets.sliders: this fixes the previous test failure.

2016-04-23 12:41:12 -07:00 · 2016-04-23 12:41:12 -07:00 · 7cab3d61fe
parent 473c1cd55d
commit 7cab3d61fe
1 changed files with 1 additions and 1 deletions
--- 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 ;