diff options
Diffstat (limited to 'ds9/library/slider.tcl')
-rw-r--r-- | ds9/library/slider.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ds9/library/slider.tcl b/ds9/library/slider.tcl index 591cb82..fff5ac1 100644 --- a/ds9/library/slider.tcl +++ b/ds9/library/slider.tcl @@ -31,14 +31,17 @@ proc slider {w from to label varname cmd {num {5}} {width {7}}} { bind $w.entry <Return> $cmd + SliderFromTo $w $from $to SliderMinMax $w $from $to $num return $w } -proc SliderMinMax {w from to num} { +proc SliderFromTo {w from to} { $w.slider configure -from $from -to $to +} +proc SliderMinMax {w from to num} { if {$from == $to} { for {set ii 0} {$ii<$num} {incr ii} { $w.t$ii configure -text {} |