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

ui.gadgets.sliders: prevent negative elevator-length.

paths
John Benediktsson 2018-03-22 10:01:14 -07:00
parent dc52e28f2f
commit 60fddddc0d
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

@ -32,7 +32,7 @@ CONSTANT: elevator-padding 4
: elevator-length ( slider -- n ) : elevator-length ( slider -- n )
[ elevator>> dim>> ] [ orientation>> ] bi v. [ elevator>> dim>> ] [ orientation>> ] bi v.
elevator-padding 2 * - ; elevator-padding 2 * [-] ;
CONSTANT: min-thumb-dim 30 CONSTANT: min-thumb-dim 30