summaryrefslogtreecommitdiffstats
path: root/library/ttk
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-09 14:59:12 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-09 14:59:12 (GMT)
commit37ceb5fe2eba6473a2fbdb5407e449ef96345a43 (patch)
tree57746efe1742520b75333e90185f5f1680880270 /library/ttk
parentc022d991663c8b76a27664090d92df0ad1a01dbb (diff)
downloadtk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.zip
tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.gz
tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.bz2
8 new virtual events (doc not updated yet)
Diffstat (limited to 'library/ttk')
-rw-r--r--library/ttk/entry.tcl4
-rw-r--r--library/ttk/scale.tcl8
2 files changed, 6 insertions, 6 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index 9e0d6e1..dc835e9 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -136,8 +136,8 @@ if {[tk windowingsystem] eq "aqua"} {
bind TEntry <Command-KeyPress> {# nothing}
}
# Tk-on-Cocoa generates characters for these two keys. [Bug 2971663]
-bind TEntry <Down> {# nothing}
-bind TEntry <Up> {# nothing}
+bind TEntry <<PrevLine>> {# nothing}
+bind TEntry <<NextLine>> {# nothing}
## Additional emacs-like bindings:
#
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