Posted to tcl by emiliano at Wed Feb 06 15:06:03 GMT 2008view pretty
--- library/ttk/scale.tcl.orig 2008-02-06 13:05:02.000000000 -0300
+++ library/ttk/scale.tcl 2008-02-06 12:56:21.000000000 -0300
@@ -50,5 +50,5 @@
proc ttk::scale::Increment {w delta} {
if {![winfo exists $w]} return
- $w set [expr {[$w get] + $delta}]
+ $w set [expr {[$w get] + $delta*[$w cget -increment]}]
}
--- generic/ttk/ttkScale.c.orig 2008-02-06 12:41:19.000000000 -0300
+++ generic/ttk/ttkScale.c 2008-02-06 12:54:37.000000000 -0300
@@ -23,6 +23,7 @@
/* slider element options */
Tcl_Obj *fromObj; /* minimum value */
Tcl_Obj *toObj; /* maximum value */
+ Tcl_Obj *incrObj; /* increment value */
Tcl_Obj *valueObj; /* current value */
Tcl_Obj *lengthObj; /* length of the long axis of the scale */
Tcl_Obj *orientObj; /* widget orientation */
@@ -62,6 +63,8 @@
Tk_Offset(Scale,scale.fromObj), -1, 0, 0, 0},
{TK_OPTION_DOUBLE, "-to", "to", "To", "1.0",
Tk_Offset(Scale,scale.toObj), -1, 0, 0, 0},
+ {TK_OPTION_DOUBLE, "-increment", "increment", "Increment", "1.0",
+ Tk_Offset(Scale,scale.incrObj), -1, 0, 0, 0},
{TK_OPTION_DOUBLE, "-value", "value", "Value", "0",
Tk_Offset(Scale,scale.valueObj), -1, 0, 0, 0},
{TK_OPTION_PIXELS, "-length", "length", "Length",