Changeset 6202 for trunk/gui/scripts/vtkstreamlinesviewer.tcl

Timestamp:

Mar 23, 2016 12:10:41 PM (8 years ago)

Author:

ldelgass

Message:

Viewer cleanups/sync

File:

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

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -114 +114 @@
     private variable _arcball ""
 
-    private variable _dlist ""     ;    # list of data objects
-    private variable _obj2ovride   ;    # maps dataobj => style override
-    private variable _datasets     ;    # contains all the dataobj-component
-                                   ;    # datasets in the server
-    private variable _colormaps    ;    # contains all the colormaps
-                                   ;    # in the server.
+    private variable _dlist "";         # list of data objects
+    private variable _obj2ovride;       # maps dataobj => style override
+    private variable _datasets;         # contains all the dataobj-component
+                                        # datasets in the server
+    private variable _colormaps;        # contains all the colormaps
+                                        # in the server.
     private variable _currentColormap ""
 
-    private variable _click        ;    # info used for rotate operations
-    private variable _limits       ;    # autoscale min/max for all axes
-    private variable _view         ;    # view params for 3D view
+    private variable _click;            # info used for rotate operations
+    private variable _limits;           # autoscale min/max for all axes
+    private variable _view;             # view params for 3D view
     private variable _settings
     private variable _reset 1;          # Connection to server has been reset.
 
-    private variable _first ""     ;    # This is the topmost dataset.
+    private variable _first "";         # This is the topmost dataset.
     private variable _start 0
     private variable _title ""
@@ -144 +144 @@
     private variable _field      ""
     private variable _numSeeds 200
-    private variable _colorMode "vmag";#  Mode of colormap (vmag or scalar)
+    private variable _colorMode "vmag"; # Mode of colormap (vmag or scalar)
 
     private common _downloadPopup;      # download options from popup
@@ -271 +271 @@
     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]