Changeset 6212 for branches/1.6/gui/scripts/vtkviewer.tcl

Timestamp:

Mar 28, 2016 6:30:14 AM (8 years ago)

Author:

ldelgass

Message:

merge viewer cleanups from trunk

Location:

branches/1.6

Files:

• . (modified) (1 prop)
• gui/scripts/vtkviewer.tcl (modified) (2 diffs)

branches/1.6/gui/scripts/vtkviewer.tcl

@@ -225 +225 @@
     #
     $_parser alias image [itcl::code $this ReceiveImage]
+    $_parser alias legend [itcl::code $this ReceiveLegend]
     $_parser alias dataset [itcl::code $this ReceiveDataset]
-    $_parser alias legend [itcl::code $this ReceiveLegend]
 
     # Initialize the view to some default parameters.
@@ -305 +305 @@
     set c $itk_component(view)
     bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
-    bind $c <4> [itcl::code $this Zoom in 0.25]
-    bind $c <5> [itcl::code $this Zoom out 0.25]
-    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]