From c1b4bcb58ec5a84d809c595a0768f9bd89ea9f60 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 16:47:04 -0700 Subject: [PATCH] ui.gadgets.slider: Rename. --- basis/ui/gadgets/sliders/sliders.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor index c47bafba2a..d298c4750f 100644 --- a/basis/ui/gadgets/sliders/sliders.factor +++ b/basis/ui/gadgets/sliders/sliders.factor @@ -193,7 +193,7 @@ M: slide-button pref-dim* dup interior>> pen-pref-dim ; "vertical-scroller-downarrow-clicked" ; -TUPLE: slider-pen enabled disabled ; +TUPLE: slider-pen-tuple enabled disabled ; : ( orientation -- pen ) { @@ -210,18 +210,18 @@ TUPLE: slider-pen enabled disabled ; "vertical-scroller-bottom-disabled" theme-image ] } } case - [ f f ] bi-curry@ 2bi \ slider-pen boa ; + [ f f ] bi-curry@ 2bi \ slider-pen-tuple boa ; : slider-pen ( slider pen -- pen ) [ slider-enabled? ] [ [ enabled>> ] [ disabled>> ] bi ] bi* ? ; -M: slider-pen draw-interior +M: slider-pen-tuple draw-interior dupd slider-pen draw-interior ; -M: slider-pen draw-boundary +M: slider-pen-tuple draw-boundary dupd slider-pen draw-boundary ; -M: slider-pen pen-pref-dim +M: slider-pen-tuple pen-pref-dim enabled>> pen-pref-dim ; M: slider pref-dim*