8 new virtual events (doc not updated yet)

1 files changed, 4 insertions, 4 deletions

diff --git a/library/scale.tcl b/library/scale.tcl
index 72a254a..d9e7d27 100644
--- a/library/scale.tcl
+++ b/library/scale.tcl
@@ -71,10 +71,10 @@ if {[tk windowingsystem] eq "win32"} {
 bind Scale <Control-1> {
     tk::ScaleControlPress %W %x %y
 }
-bind Scale <Up> {
+bind Scale <<PrevLine>> {
     tk::ScaleIncrement %W up little noRepeat
 }
-bind Scale <Down> {
+bind Scale <<NextLine>> {
     tk::ScaleIncrement %W down little noRepeat
 }
 bind Scale <<PrevChar>> {
@@ -83,10 +83,10 @@ bind Scale <<PrevChar>> {
 bind Scale <<NextChar>> {
     tk::ScaleIncrement %W down little noRepeat
 }
-bind Scale <Control-Up> {
+bind Scale <<PrevPara>> {
     tk::ScaleIncrement %W up big noRepeat
 }
-bind Scale <Control-Down> {
+bind Scale <<NextPara>> {
     tk::ScaleIncrement %W down big noRepeat
 }
 bind Scale <<PrevWord>> {