Changeset 5172 for branches/1.4
- Timestamp:
- Mar 29, 2015, 7:51:30 PM (10 years ago)
- Location:
- branches/1.4
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/vtkglyphviewer.tcl
r5143 r5172 132 132 private variable _changed 133 133 private variable _initialStyle; # Array of initial component styles. 134 private variable _reset 1; # indicates if camera needs to be reset 135 # to starting position. 134 private variable _reset 1; # Connection to server has been reset. 136 135 137 136 private variable _first "" ; # This is the topmost dataset. … … 769 768 return 0 770 769 } 770 set _reset 1 771 771 set result [VisViewer::Connect $_hosts] 772 772 if { $result } { … … 1056 1056 Zoom reset 1057 1057 foreach axis { x y z } { 1058 # Another problem fixed by a <view>. We looking into a data1059 # object for the name of the axes. This should be global to1060 # the viewer itself.1061 set label [$_first hints ${axis}label]1058 set label "" 1059 if { $_first != "" } { 1060 set label [$_first hints ${axis}label] 1061 } 1062 1062 if { $label == "" } { 1063 1063 set label [string toupper $axis] -
branches/1.4/gui/scripts/vtkheightmapviewer.tcl
r5143 r5172 139 139 private variable _changed 140 140 private variable _initialStyle ""; # First found style in dataobjects. 141 private variable _reset 1; # Indicates if the connection to the 142 # render server was reset 143 private variable _beforeConnect 1; # Indicates if we are in the constructor 144 # before the server connection is made 141 private variable _reset 1; # Connection to server has been reset. 145 142 146 143 private variable _first "" ; # This is the topmost dataset. … … 409 406 eval itk_initialize $args 410 407 Connect 411 set _beforeConnect 0412 408 } 413 409 … … 747 743 global readyForNextFrame 748 744 set readyForNextFrame 1 749 set _reset 1750 745 set _hosts [GetServerList "vtkvis"] 751 746 if { "" == $_hosts } { 752 747 return 0 753 748 } 749 set _reset 1 754 750 set result [VisViewer::Connect $_hosts] 755 751 if { $result } { … … 1368 1364 # 1369 1365 itcl::body Rappture::VtkHeightmapViewer::AdjustSetting {what {value ""}} { 1370 if { $_beforeConnect} {1366 if { ![isconnected] } { 1371 1367 return 1372 1368 } -
branches/1.4/gui/scripts/vtkimageviewer.tcl
r5143 r5172 134 134 private variable _changed 135 135 private variable _initialStyle ""; # First found style in dataobjects. 136 private variable _reset 1; # Indicates if camera needs to be reset 137 # to starting position. 138 private variable _beforeConnect 1; # Indicates if camera needs to be reset 139 # to starting position. 136 private variable _reset 1; # Connection to server has been reset. 140 137 141 138 private variable _first "" ; # This is the topmost dataset. … … 399 396 EnableWaitDialog 900 400 397 Connect 401 set _beforeConnect 0402 398 } 403 399 … … 737 733 global readyForNextFrame 738 734 set readyForNextFrame 1 739 set _reset 1740 735 set _hosts [GetServerList "vtkvis"] 741 736 if { "" == $_hosts } { 742 737 return 0 743 738 } 739 set _reset 1 744 740 set result [VisViewer::Connect $_hosts] 745 741 if { $result } { … … 1028 1024 1029 1025 foreach axis { x y z } { 1030 set label [$_first hints ${axis}label] 1026 set label "" 1027 if { $_first != "" } { 1028 set label [$_first hints ${axis}label] 1029 } 1031 1030 if { $label == "" } { 1032 1031 set label [string toupper $axis] … … 1035 1034 SendCmd [list axis name $axis $label] 1036 1035 1037 if {$axis == "z" && [$_first hints ${axis}units] == ""} { 1038 if {$_curFldName != ""} { 1039 set units [lindex $_fields($_curFldName) 1] 1040 } 1041 } else { 1042 set units [$_first hints ${axis}units] 1036 set units "" 1037 if { $_first != "" } { 1038 if {$axis == "z" && [$_first hints ${axis}units] == ""} { 1039 if {$_curFldName != ""} { 1040 set units [lindex $_fields($_curFldName) 1] 1041 } 1042 } else { 1043 set units [$_first hints ${axis}units] 1044 } 1043 1045 } 1044 1046 if { $units != "" } { … … 1309 1311 # 1310 1312 itcl::body Rappture::VtkImageViewer::AdjustSetting {what {value ""}} { 1311 if { $_beforeConnect} {1313 if { ![isconnected] } { 1312 1314 return 1313 1315 } -
branches/1.4/gui/scripts/vtkisosurfaceviewer.tcl
r5143 r5172 149 149 private variable _changed 150 150 private variable _initialStyle; # Array of initial component styles. 151 private variable _reset 1; # indicates if camera needs to be reset 152 # to starting position. 151 private variable _reset 1; # Connection to server has been reset. 153 152 154 153 private variable _first "" ; # This is the topmost dataset. … … 881 880 return 0 882 881 } 882 set _reset 1 883 883 set result [VisViewer::Connect $_hosts] 884 884 if { $result } { … … 1139 1139 Zoom reset 1140 1140 foreach axis { x y z } { 1141 # Another problem fixed by a <view>. We looking into a data1142 # object for the name of the axes. This should be global to1143 # the viewer itself.1144 set label [$_first hints ${axis}label]1141 set label "" 1142 if { $_first != "" } { 1143 set label [$_first hints ${axis}label] 1144 } 1145 1145 if { $label == "" } { 1146 1146 set label [string toupper $axis] -
branches/1.4/gui/scripts/vtkmeshviewer.tcl
r5143 r5172 115 115 private variable _style; # Array of current component styles. 116 116 private variable _initialStyle; # Array of initial component styles. 117 private variable _reset 1; # Indicates that server was reset and 118 # needs to be reinitialized. 117 private variable _reset 1; # Connection to server has been reset. 119 118 120 119 private variable _first ""; # This is the topmost dataset. … … 652 651 return 0 653 652 } 653 set _reset 1 654 654 set result [VisViewer::Connect $_hosts] 655 655 if { $result } { -
branches/1.4/gui/scripts/vtkstreamlinesviewer.tcl
r5143 r5172 130 130 private variable _style; # Array of current component styles. 131 131 private variable _initialStyle; # Array of initial component styles. 132 private variable _reset 1; # indicates if camera needs to be reset 133 # to starting position. 132 private variable _reset 1; # Connection to server has been reset. 134 133 135 134 private variable _first "" ; # This is the topmost dataset. … … 782 781 return 0 783 782 } 783 set _reset 1 784 784 set result [VisViewer::Connect $_hosts] 785 785 if { $result } { -
branches/1.4/gui/scripts/vtksurfaceviewer.tcl
r5143 r5172 131 131 private variable _changed 132 132 private variable _initialStyle; # Array of initial component styles. 133 private variable _reset 1; # indicates if camera needs to be reset 134 # to starting position. 133 private variable _reset 1; # Connection to server has been reset. 135 134 136 135 private variable _first "" ; # This is the topmost dataset. … … 719 718 return 0 720 719 } 720 set _reset 1 721 721 set result [VisViewer::Connect $_hosts] 722 722 if { $result } { … … 1000 1000 Zoom reset 1001 1001 foreach axis { x y z } { 1002 # Another problem fixed by a <view>. We looking into a data1003 # object for the name of the axes. This should be global to1004 # the viewer itself.1005 set label [$_first hints ${axis}label]1002 set label "" 1003 if { $_first != "" } { 1004 set label [$_first hints ${axis}label] 1005 } 1006 1006 if { $label == "" } { 1007 1007 set label [string toupper $axis] -
branches/1.4/gui/scripts/vtkviewer.tcl
r5143 r5172 142 142 private variable _initialStyle; # Array of initial component styles. 143 143 private variable _axis 144 private variable _reset 1; # Indicates that server was reset and 145 # needs to be reinitialized. 144 private variable _reset 1; # Connection to server has been reset. 146 145 private variable _haveGlyphs 0 147 146 private variable _haveMolecules 0 … … 865 864 return 0 866 865 } 866 set _reset 1 867 867 set result [VisViewer::Connect $_hosts] 868 868 if { $result } { -
branches/1.4/gui/scripts/vtkvolumeviewer.tcl
r5143 r5172 133 133 private variable _style; # Array of current component styles. 134 134 private variable _initialStyle; # Array of initial component styles. 135 private variable _reset 1; # indicates if camera needs to be reset 136 # to starting position. 135 private variable _reset 1; # Connection to server has been reset. 137 136 138 137 private variable _first "" ; # This is the topmost dataset. … … 783 782 return 0 784 783 } 784 set _reset 1 785 785 set result [VisViewer::Connect $_hosts] 786 786 if { $result } { … … 861 861 set _cutplanePending 0 862 862 set _legendPending 0 863 set _reset 1864 863 } 865 864
Note: See TracChangeset
for help on using the changeset viewer.