Changeset 5465 for branches/1.4
- Timestamp:
- May 7, 2015, 1:49:00 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4/gui/scripts/vtkvolumeviewer.tcl
r5445 r5465 148 148 private variable _curFldLabel "" 149 149 private variable _colorMode "scalar"; # Mode of colormap (vmag or scalar) 150 private variable _cutplaneCmd " cutplane"150 private variable _cutplaneCmd "imgcutplane" 151 151 private variable _allowMultiComponent 0 152 152 … … 449 449 SendCmd "screen size $_width $_height" 450 450 451 set _legendPending 1451 EventuallyRequestLegend 452 452 set _resizePending 0 453 453 } … … 829 829 itcl::body Rappture::VtkVolumeViewer::disconnect {} { 830 830 Disconnect 831 set _reset 1832 831 } 833 832 … … 893 892 set _hardcopy($tag) $bytes 894 893 } 895 if { $_legendPending } {896 RequestLegend897 }898 894 } 899 895 … … 960 956 # generates a new call to Rebuild). 961 957 StartBufferingCommands 962 963 set _legendPending 1964 958 965 959 if { $_width != $w || $_height != $h || $_reset } { … … 1091 1085 1092 1086 if { $_reset } { 1093 Zoom reset 1087 SendCmd "camera reset" 1088 SendCmd "camera zoom $_view(-zoom)" 1089 RequestLegend 1094 1090 set _reset 0 1095 1091 } … … 1481 1477 ChangeColormap $dataobj $comp $color 1482 1478 } 1483 set _legendPending 11479 EventuallyRequestLegend 1484 1480 } 1485 1481 "-field" { … … 1522 1518 # 1523 1519 # Request a new legend from the server. The size of the legend 1524 # is determined from the height of the canvas. It will be rotated 1525 # to be vertical when drawn. 1520 # is determined from the height of the canvas. 1526 1521 # 1527 1522 itcl::body Rappture::VtkVolumeViewer::RequestLegend {} { 1523 set _legendPending 0 1528 1524 set font "Arial 8" 1529 1525 set lineht [font metrics $font -linespace] … … 1691 1687 3,0 $inner.legend -cspan 2 -anchor w \ 1692 1688 4,0 $inner.background_l -anchor e -pady 2 \ 1693 4,1 $inner.background -fill x \1689 4,1 $inner.background -fill x 1694 1690 1695 1691 blt::table configure $inner r* -resize none … … 2172 2168 # ---------------------------------------------------------------------- 2173 2169 itcl::body Rappture::VtkVolumeViewer::ReceiveLegend { colormap title vmin vmax size } { 2174 set _legendPending 02175 2170 if { [isconnected] } { 2176 2171 set bytes [ReceiveBytes $size] … … 2189 2184 # DrawLegend -- 2190 2185 # 2191 # Draws the legend in it's own canvas which resides to the right 2192 # of the contour plot area. 2193 # 2194 itcl::body Rappture::VtkVolumeViewer::DrawLegend { } { 2186 itcl::body Rappture::VtkVolumeViewer::DrawLegend {} { 2195 2187 set fname $_curFldName 2196 2188 set c $itk_component(view) … … 2416 2408 2417 2409 # 2418 # GetDatasetsWithComponent s--2410 # GetDatasetsWithComponent -- 2419 2411 # 2420 2412 # Returns a list of all the datasets (known by the combination of
Note: See TracChangeset
for help on using the changeset viewer.