Changeset 5233
- Timestamp:
- Apr 14, 2015 11:22:19 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkvolumeviewer.tcl
r5225 r5233 1034 1034 if { ![info exists _datasets($tag)] } { 1035 1035 set bytes [$dataobj vtkdata $comp] 1036 1036 if 0 { 1037 1037 set f [open /tmp/vtkvolume.vtk "w"] 1038 1038 fconfigure $f -translation binary -encoding binary 1039 1039 puts -nonewline $f $bytes 1040 1040 close $f 1041 1041 } 1042 1042 set length [string length $bytes] 1043 1043 if { $_reportClientInfo } { … … 1080 1080 } 1081 1081 } 1082 1083 1084 1082 $itk_component(field) choices delete 0 end 1083 $itk_component(fieldmenu) delete 0 end 1084 array unset _fields 1085 1085 set _curFldName "" 1086 1086 foreach cname [$_first components] { … … 1371 1371 set bgcolor [$itk_component(background) value] 1372 1372 set _settings($what) $bgcolor 1373 1374 1375 1376 "grey""black"1377 1373 array set fgcolors { 1374 "black" "white" 1375 "white" "black" 1376 "grey" "black" 1377 } 1378 1378 configure -plotbackground $bgcolor \ 1379 1380 1381 1379 -plotforeground $fgcolors($bgcolor) 1380 $itk_component(view) delete "legend" 1381 DrawLegend 1382 1382 } 1383 1383 "-volumeoutline" {
Note: See TracChangeset
for help on using the changeset viewer.