Changeset 5235
- Timestamp:
- Apr 14, 2015 11:27:33 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4/gui/scripts/vtkvolumeviewer.tcl
r5227 r5235 1000 1000 if { ![info exists _datasets($tag)] } { 1001 1001 set bytes [$dataobj vtkdata $comp] 1002 1002 if 0 { 1003 1003 set f [open /tmp/vtkvolume.vtk "w"] 1004 1004 fconfigure $f -translation binary -encoding binary 1005 1005 puts -nonewline $f $bytes 1006 1006 close $f 1007 1007 } 1008 1008 set length [string length $bytes] 1009 1009 if { $_reportClientInfo } { … … 1046 1046 } 1047 1047 } 1048 1049 1050 1048 $itk_component(field) choices delete 0 end 1049 $itk_component(fieldmenu) delete 0 end 1050 array unset _fields 1051 1051 set _curFldName "" 1052 1052 foreach cname [$_first components] { … … 1330 1330 set bgcolor [$itk_component(background) value] 1331 1331 set _settings($what) $bgcolor 1332 1333 1334 1335 "grey""black"1336 1332 array set fgcolors { 1333 "black" "white" 1334 "white" "black" 1335 "grey" "black" 1336 } 1337 1337 configure -plotbackground $bgcolor \ 1338 1339 1340 1338 -plotforeground $fgcolors($bgcolor) 1339 $itk_component(view) delete "legend" 1340 DrawLegend 1341 1341 } 1342 1342 "-volumeoutline" {
Note: See TracChangeset
for help on using the changeset viewer.