8 new virtual events (doc not updated yet)

FossilOrigin-Name: a6f55df150867cce28eaf98a9f6fccb7312f3663

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