Changeset 4311 for trunk/gui

Timestamp:

Apr 1, 2014 6:42:50 PM (10 years ago)

Author:

ldelgass

Message:

Disable conflicting arrow key bindings (for now), since the EarthManipulator?
handles these through the key events.

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/mapviewer.tcl

@@ -214 +214 @@
 
     set c $itk_component(view)
-    bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
-    bind $c <KeyPress-Right> [list %W xview scroll -10 units]
-    bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
-    bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
+    #bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
+    #bind $c <KeyPress-Right> [list %W xview scroll -10 units]
+    #bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
+    #bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
     bind $c <Enter> "focus %W"
     bind $c <Control-F1> [itcl::code $this ToggleConsole]
@@ -332 +332 @@
         [itcl::code $this EventuallyHandleMotionEvent %x %y]
 
+    if {0} {
     # Bindings for panning via keyboard
     bind $itk_component(view) <KeyPress-Left> \
@@ -349 +350 @@
     bind $itk_component(view) <Shift-KeyPress-Down> \
         [itcl::code $this Pan set 0 2]
+    }
 
     # Bindings for zoom via keyboard