diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 14:59:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 14:59:12 (GMT) |
commit | 37ceb5fe2eba6473a2fbdb5407e449ef96345a43 (patch) | |
tree | 57746efe1742520b75333e90185f5f1680880270 /library/ttk/scale.tcl | |
parent | c022d991663c8b76a27664090d92df0ad1a01dbb (diff) | |
download | tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.zip tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.gz tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.bz2 |
8 new virtual events (doc not updated yet)
Diffstat (limited to 'library/ttk/scale.tcl')
-rw-r--r-- | library/ttk/scale.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/ttk/scale.tcl b/library/ttk/scale.tcl index f270697..69b9dd8 100644 --- a/library/ttk/scale.tcl +++ b/library/ttk/scale.tcl @@ -27,13 +27,13 @@ bind TScale <<LineStart>> { %W set [%W cget -from] } bind TScale <<LineEnd>> { %W set [%W cget -to] } bind TScale <<PrevChar>> { ttk::scale::Increment %W -1 } -bind TScale <Up> { ttk::scale::Increment %W -1 } +bind TScale <<PrevLine>> { ttk::scale::Increment %W -1 } bind TScale <<NextChar>> { ttk::scale::Increment %W 1 } -bind TScale <Down> { ttk::scale::Increment %W 1 } +bind TScale <<NextLine>> { ttk::scale::Increment %W 1 } bind TScale <<PrevWord>> { ttk::scale::Increment %W -10 } -bind TScale <Control-Up> { ttk::scale::Increment %W -10 } +bind TScale <<PrevPara>> { ttk::scale::Increment %W -10 } bind TScale <<NextWord>> { ttk::scale::Increment %W 10 } -bind TScale <Control-Down> { ttk::scale::Increment %W 10 } +bind TScale <<NextPara>> { ttk::scale::Increment %W 10 } proc ttk::scale::Press {w x y} { variable State |