Changeset 6202 for trunk/gui


Ignore:
Timestamp:
Mar 23, 2016 12:10:41 PM (8 years ago)
Author:
ldelgass
Message:

Viewer cleanups/sync

Location:
trunk/gui/scripts
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/vtkglyphviewer.tcl

    r6182 r6202  
    328328    set c $itk_component(view)
    329329    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    330     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    331     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    332     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    333     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    334     bind $c <Enter> "focus %W"
    335330    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    336331

  • trunk/gui/scripts/vtkheightmapviewer.tcl

    r6147 r6202  
    113113
    114114    private variable _arcball ""
    115     private variable _dlist ""     ;    # list of data objects
    116     private variable _obj2ovride   ;    # maps dataobj => style override
     115    private variable _dlist "";         # list of data objects
     116    private variable _obj2ovride;       # maps dataobj => style override
    117117    private variable _comp2scale;       # maps dataset to the heightmap scale.
    118     private variable _datasets     ;    # contains all the dataobj-component
    119                                    ;    # datasets in the server
    120     private variable _colormaps    ;    # contains all the colormaps
    121                                    ;    # in the server.
     118    private variable _datasets;         # contains all the dataobj-component
     119                                        # datasets in the server
     120    private variable _colormaps;        # contains all the colormaps
     121                                        # in the server.
    122122
    123123    # The name of the current colormap used.  The colormap is global to all
    … …  
    131131                                        # -stretchtofit
    132132
    133     private variable _click        ;    # info used for rotate operations
    134     private variable _limits       ;    # Holds overall limits for all dataobjs
     133    private variable _click;            # info used for rotate operations
     134    private variable _limits;           # Holds overall limits for all dataobjs
    135135                                        # using the viewer.
    136     private variable _view         ;    # view params for 3D view
     136    private variable _view;             # view params for 3D view
    137137    private variable _settings
    138138    private variable _changed
    139139    private variable _reset 1;          # Connection to server has been reset.
    140140
    141     private variable _first ""     ;    # This is the topmost dataset.
     141    private variable _first "";         # This is the topmost dataset.
    142142    private variable _start 0
    143143    private variable _isolines
    … …  
    153153    private variable _curFldName ""
    154154    private variable _curFldLabel ""
    155     private variable _colorMode "scalar";# Mode of colormap (vmag or scalar)
     155    private variable _colorMode "scalar"; # Mode of colormap (vmag or scalar)
    156156
    157157    private common _downloadPopup;      # download options from popup
    … …  
    193193    #
    194194    $_parser alias image [itcl::code $this ReceiveImage]
     195    $_parser alias legend [itcl::code $this ReceiveLegend]
    195196    $_parser alias dataset [itcl::code $this ReceiveDataset]
    196     $_parser alias legend [itcl::code $this ReceiveLegend]
    197197
    198198    # Create image for legend colorbar.
    … …  
    264264    set c $itk_component(view)
    265265    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    266     bind $c <4> [itcl::code $this Zoom in 0.25]
    267     bind $c <5> [itcl::code $this Zoom out 0.25]
    268     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    269     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    270     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    271     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    272     bind $c <Enter> "focus %W"
    273266    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    274267

  • trunk/gui/scripts/vtkimageviewer.tcl

    r6147 r6202  
    109109
    110110    private variable _arcball ""
    111     private variable _dlist ""     ;    # list of data objects
    112     private variable _obj2ovride   ;    # maps dataobj => style override
    113     private variable _datasets     ;    # contains all the dataobj-component
    114                                    ;    # datasets in the server
    115     private variable _colormaps    ;    # contains all the colormaps
    116                                    ;    # in the server.
     111    private variable _dlist "";         # list of data objects
     112    private variable _obj2ovride;       # maps dataobj => style override
     113    private variable _datasets;         # contains all the dataobj-component
     114                                        # datasets in the server
     115    private variable _colormaps;        # contains all the colormaps
     116                                        # in the server.
    117117
    118118    # The name of the current colormap used.  The colormap is global to all
    … …  
    126126                                        # -stretchtofit
    127127
    128     private variable _click        ;    # info used for rotate operations
    129     private variable _limits       ;    # Holds overall limits for all dataobjs
     128    private variable _click;            # info used for rotate operations
     129    private variable _limits;           # Holds overall limits for all dataobjs
    130130                                        # using the viewer.
    131     private variable _view         ;    # view params for 3D view
     131    private variable _view;             # view params for 3D view
    132132    private variable _settings
    133133    private variable _changed
    134134    private variable _reset 1;          # Connection to server has been reset.
    135135
    136     private variable _first ""     ;    # This is the topmost dataset.
     136    private variable _first "";         # This is the topmost dataset.
    137137    private variable _start 0
    138138    private variable _isolines
    … …  
    148148    private variable _curFldName ""
    149149    private variable _curFldLabel ""
    150     private variable _colorMode "scalar";# Mode of colormap (vmag or scalar)
     150    private variable _colorMode "scalar"; # Mode of colormap (vmag or scalar)
    151151
    152152    private common _downloadPopup;      # download options from popup
    … …  
    188188    #
    189189    $_parser alias image [itcl::code $this ReceiveImage]
     190    $_parser alias legend [itcl::code $this ReceiveLegend]
    190191    $_parser alias dataset [itcl::code $this ReceiveDataset]
    191     $_parser alias legend [itcl::code $this ReceiveLegend]
    192192
    193193    # Create image for legend colorbar.
    … …  
    252252    set c $itk_component(view)
    253253    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    254     bind $c <4> [itcl::code $this Zoom in 0.25]
    255     bind $c <5> [itcl::code $this Zoom out 0.25]
    256     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    257     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    258     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    259     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    260     bind $c <Enter> "focus %W"
    261254    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    262255

  • trunk/gui/scripts/vtkisosurfaceviewer.tcl

    r6182 r6202  
    340340    set c $itk_component(view)
    341341    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    342     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    343     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    344     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    345     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    346     bind $c <Enter> "focus %W"
    347342    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    348343

  • trunk/gui/scripts/vtkmeshviewer.tcl

    r6147 r6202  
    210210    set c $itk_component(view)
    211211    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    212     bind $c <4> [itcl::code $this Zoom in 0.25]
    213     bind $c <5> [itcl::code $this Zoom out 0.25]
    214     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    215     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    216     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    217     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    218     bind $c <Enter> "focus %W"
    219212    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    220213

  • trunk/gui/scripts/vtkstreamlinesviewer.tcl

    r6147 r6202  
    114114    private variable _arcball ""
    115115
    116     private variable _dlist ""     ;    # list of data objects
    117     private variable _obj2ovride   ;    # maps dataobj => style override
    118     private variable _datasets     ;    # contains all the dataobj-component
    119                                    ;    # datasets in the server
    120     private variable _colormaps    ;    # contains all the colormaps
    121                                    ;    # in the server.
     116    private variable _dlist "";         # list of data objects
     117    private variable _obj2ovride;       # maps dataobj => style override
     118    private variable _datasets;         # contains all the dataobj-component
     119                                        # datasets in the server
     120    private variable _colormaps;        # contains all the colormaps
     121                                        # in the server.
    122122    private variable _currentColormap ""
    123123
    124     private variable _click        ;    # info used for rotate operations
    125     private variable _limits       ;    # autoscale min/max for all axes
    126     private variable _view         ;    # view params for 3D view
     124    private variable _click;            # info used for rotate operations
     125    private variable _limits;           # autoscale min/max for all axes
     126    private variable _view;             # view params for 3D view
    127127    private variable _settings
    128128    private variable _reset 1;          # Connection to server has been reset.
    129129
    130     private variable _first ""     ;    # This is the topmost dataset.
     130    private variable _first "";         # This is the topmost dataset.
    131131    private variable _start 0
    132132    private variable _title ""
    … …  
    144144    private variable _field      ""
    145145    private variable _numSeeds 200
    146     private variable _colorMode "vmag";# Mode of colormap (vmag or scalar)
     146    private variable _colorMode "vmag"; # Mode of colormap (vmag or scalar)
    147147
    148148    private common _downloadPopup;      # download options from popup
    … …  
    271271    set c $itk_component(view)
    272272    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    273     bind $c <4> [itcl::code $this Zoom in 0.25]
    274     bind $c <5> [itcl::code $this Zoom out 0.25]
    275     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    276     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    277     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    278     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    279     bind $c <Enter> "focus %W"
    280273    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    281274

  • trunk/gui/scripts/vtksurfaceviewer.tcl

    r6153 r6202  
    111111    private variable _arcball ""
    112112
    113     private variable _dlist ""     ;    # list of data objects
    114     private variable _obj2ovride   ;    # maps dataobj => style override
    115     private variable _datasets     ;    # contains all the dataobj-component
    116                                    ;    # datasets in the server
    117     private variable _colormaps    ;    # contains all the colormaps
    118                                    ;    # in the server.
     113    private variable _dlist "";         # list of data objects
     114    private variable _obj2ovride;       # maps dataobj => style override
     115    private variable _datasets;         # contains all the dataobj-component
     116                                        # datasets in the server
     117    private variable _colormaps;        # contains all the colormaps
     118                                        # in the server.
    119119    # The name of the current colormap used.  The colormap is global to all
    120120    # heightmaps displayed.
    … …  
    122122    private variable _currentNumContours -1
    123123
    124     private variable _click        ;    # info used for rotate operations
    125     private variable _limits       ;    # autoscale min/max for all axes
    126     private variable _view         ;    # view params for 3D view
     124    private variable _click;            # info used for rotate operations
     125    private variable _limits;           # autoscale min/max for all axes
     126    private variable _view;             # view params for 3D view
    127127    private variable _settings
    128128    private variable _changed
    129129    private variable _reset 1;          # Connection to server has been reset.
    130130
    131     private variable _first ""     ;    # This is the topmost dataset.
     131    private variable _first "";         # This is the topmost dataset.
    132132    private variable _start 0
    133133    private variable _title ""
    … …  
    139139    private variable _legendPending 0
    140140    private variable _rotatePending 0
    141     private variable _field      ""
    142     private variable _colorMode "scalar"; #  Mode of colormap (vmag or scalar)
     141    private variable _field ""
     142    private variable _colorMode "scalar"; # Mode of colormap (vmag or scalar)
    143143    private variable _fields
    144144    private variable _curFldName ""
    … …  
    251251    set c $itk_component(view)
    252252    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    253     bind $c <4> [itcl::code $this Zoom in 0.25]
    254     bind $c <5> [itcl::code $this Zoom out 0.25]
    255     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    256     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    257     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    258     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    259     bind $c <Enter> "focus %W"
    260253    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    261254

  • trunk/gui/scripts/vtkviewer.tcl

    r6147 r6202  
    305305    set c $itk_component(view)
    306306    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    307     bind $c <4> [itcl::code $this Zoom in 0.25]
    308     bind $c <5> [itcl::code $this Zoom out 0.25]
    309     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    310     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    311     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    312     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    313     bind $c <Enter> "focus %W"
    314307    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    315308

  • trunk/gui/scripts/vtkvolumeviewer.tcl

    r6147 r6202  
    288288    set c $itk_component(view)
    289289    bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
    290     bind $c <4> [itcl::code $this Zoom in 0.25]
    291     bind $c <5> [itcl::code $this Zoom out 0.25]
    292     bind $c <KeyPress-Left>  [list %W xview scroll 10 units]
    293     bind $c <KeyPress-Right> [list %W xview scroll -10 units]
    294     bind $c <KeyPress-Up>    [list %W yview scroll 10 units]
    295     bind $c <KeyPress-Down>  [list %W yview scroll -10 units]
    296     bind $c <Enter> "focus %W"
    297290    bind $c <Control-F1> [itcl::code $this ToggleConsole]
    298291
Note: See TracChangeset for help on using the changeset viewer.