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

ui.gadgets.sliders: fix usability issue

db4
Slava Pestov 2009-05-01 07:43:50 -05:00
parent eed7b20c7f
commit 31c2ede034
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,8 +53,8 @@ CONSTANT: min-thumb-dim 30
[ slider-max* 1 max ] [ slider-max* 1 max ]
bi / ; bi / ;
: slider>screen ( m slider -- n ) slider-scale * elevator-padding + ; : slider>screen ( m slider -- n ) slider-scale * ;
: screen>slider ( m slider -- n ) [ elevator-padding - ] dip slider-scale / ; : screen>slider ( m slider -- n ) slider-scale / ;
M: slider model-changed nip elevator>> relayout-1 ; M: slider model-changed nip elevator>> relayout-1 ;
@ -133,7 +133,7 @@ elevator H{
swap >>orientation ; swap >>orientation ;
: thumb-loc ( slider -- loc ) : thumb-loc ( slider -- loc )
[ slider-value ] keep slider>screen ; [ slider-value ] keep slider>screen elevator-padding + ;
: layout-thumb-loc ( thumb slider -- ) : layout-thumb-loc ( thumb slider -- )
[ thumb-loc ] [ orientation>> ] bi n*v [ thumb-loc ] [ orientation>> ] bi n*v