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

2018-03-22 10:01:14 -07:00 · 2018-03-22 10:01:14 -07:00 · 60fddddc0d
parent dc52e28f2f
commit 60fddddc0d
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@ -32,7 +32,7 @@ CONSTANT: elevator-padding 4

 : elevator-length ( slider -- n )
    [ elevator>> dim>> ] [ orientation>> ] bi v.
-    elevator-padding 2 * - ;
+    elevator-padding 2 * [-] ;

 CONSTANT: min-thumb-dim 30