steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

locals-and-roots
John Benediktsson 2016-04-23 12:41:12 -07:00
parent 473c1cd55d
commit 7cab3d61fe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/sliders/sliders.factor
View File

@ -224,7 +224,7 @@ M: slider-pen pen-pref-dim
enabled>> pen-pref-dim ; enabled>> pen-pref-dim ;
M: slider 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 } ] [ drop { 100 100 } ]
[ orientation>> ] tri set-axis ; [ orientation>> ] tri set-axis ;