Changeset 4311
- Timestamp:
- Apr 1, 2014, 6:42:50 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mapviewer.tcl
r4309 r4311 214 214 215 215 set c $itk_component(view) 216 bind $c <KeyPress-Left> [list %W xview scroll 10 units]217 bind $c <KeyPress-Right> [list %W xview scroll -10 units]218 bind $c <KeyPress-Up> [list %W yview scroll 10 units]219 bind $c <KeyPress-Down> [list %W yview scroll -10 units]216 #bind $c <KeyPress-Left> [list %W xview scroll 10 units] 217 #bind $c <KeyPress-Right> [list %W xview scroll -10 units] 218 #bind $c <KeyPress-Up> [list %W yview scroll 10 units] 219 #bind $c <KeyPress-Down> [list %W yview scroll -10 units] 220 220 bind $c <Enter> "focus %W" 221 221 bind $c <Control-F1> [itcl::code $this ToggleConsole] … … 332 332 [itcl::code $this EventuallyHandleMotionEvent %x %y] 333 333 334 if {0} { 334 335 # Bindings for panning via keyboard 335 336 bind $itk_component(view) <KeyPress-Left> \ … … 349 350 bind $itk_component(view) <Shift-KeyPress-Down> \ 350 351 [itcl::code $this Pan set 0 2] 352 } 351 353 352 354 # Bindings for zoom via keyboard
Note: See TracChangeset
for help on using the changeset viewer.