tk/library/scale.tcl

23 	set tk::Priv(activeBg) [%W cget -activebackground]
26     tk::ScaleActivate %W %x %y
29     tk::ScaleActivate %W %x %y
33 	%W configure -activebackground $tk::Priv(activeBg)
40     tk::ScaleButtonDown %W %x %y
43     tk::ScaleDrag %W %x %y
48     tk::CancelRepeat
49     tk::ScaleEndDrag %W
50     tk::ScaleActivate %W %x %y
53     tk::ScaleButton2Down %W %x %y
56     tk::ScaleDrag %W %x %y
61     tk::CancelRepeat
62     tk::ScaleEndDrag %W
63     tk::ScaleActivate %W %x %y
74     tk::ScaleControlPress %W %x %y
77     tk::ScaleIncrement %W up little noRepeat
80     tk::ScaleIncrement %W down little noRepeat
83     tk::ScaleIncrement %W up little noRepeat
86     tk::ScaleIncrement %W down little noRepeat
89     tk::ScaleIncrement %W up big noRepeat
92     tk::ScaleIncrement %W down big noRepeat
95     tk::ScaleIncrement %W up big noRepeat
98     tk::ScaleIncrement %W down big noRepeat
107 # ::tk::ScaleActivate --
116 proc ::tk::ScaleActivate {w x y} {
130 # ::tk::ScaleButtonDown --
138 proc ::tk::ScaleButtonDown {w x y} {
139     variable ::tk::Priv
163 # ::tk::ScaleDrag --
173 proc ::tk::ScaleDrag {w x y} {
174     variable ::tk::Priv
181 # ::tk::ScaleEndDrag --
188 proc ::tk::ScaleEndDrag {w} {
189     variable ::tk::Priv
197 # ::tk::ScaleIncrement --
213 proc ::tk::ScaleIncrement {w dir big repeat} {
214     variable ::tk::Priv
234 		[list tk::ScaleIncrement $w $dir $big again]]
239 		    [list tk::ScaleIncrement $w $dir $big again]]
244 # ::tk::ScaleControlPress --
253 proc ::tk::ScaleControlPress {w x y} {
262 # ::tk::ScaleButton2Down
271 proc ::tk::ScaleButton2Down {w x y} {
272     variable ::tk::Priv