From b256539500e7830a66eb2597d66222893c59313b Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sat, 6 Dec 2008 15:03:02 -0600 Subject: [PATCH] ui.gadgets.sliders: Rewrite 'slider-scale' to not use shuffle words --- basis/ui/gadgets/sliders/sliders.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor index 9e13e5ad7c..1c2055156e 100644 --- a/basis/ui/gadgets/sliders/sliders.factor +++ b/basis/ui/gadgets/sliders/sliders.factor @@ -36,8 +36,9 @@ TUPLE: slider < frame elevator thumb saved line ; #! A scaling factor such that if x is a slider co-ordinate, #! x*n is the screen position of the thumb, and conversely #! for x/n. The '1 max' calls avoid division by zero. - dup elevator-length over thumb-dim - 1 max - swap slider-max* 1 max / ; + [ [ elevator-length ] [ thumb-dim ] bi - 1 max ] + [ slider-max* 1 max ] + bi / ; : slider>screen ( m scale -- n ) slider-scale * ; : screen>slider ( m scale -- n ) slider-scale / ; -- 2.34.1