Changeset 3409 for trunk/gui/scripts/vtkstreamlinesviewer.tcl
- Timestamp:
- Mar 2, 2013, 1:15:17 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkstreamlinesviewer.tcl
r3405 r3409 1094 1094 } 1095 1095 } 1096 if 0 {1097 array unset _scalarFields1098 array unset _vectorFields1099 set _curFldLabel [$_first hints default]1100 $itk_component(field) choices delete 0 end1101 $itk_component(fieldmenu) delete 0 end1102 array unset _fields1103 foreach { name title units } [$_first hints vectors] {1104 set _vectorFields($title) $name1105 $itk_component(field) choices insert end "$name" "$title"1106 $itk_component(fieldmenu) add radiobutton -label "$title" \1107 -value $title -variable [itcl::scope _curFldLabel] \1108 -selectcolor red \1109 -activebackground black \1110 -activeforeground white \1111 -font "Arial 8" \1112 -command [itcl::code $this Combo invoke]1113 set _fields($name) [list $title $units]1114 }1115 foreach { name title units } [$_first hints scalars] {1116 set _scalarFields($title) $name1117 $itk_component(field) choices insert end "$name" "$title"1118 $itk_component(fieldmenu) add radiobutton -label "$title" \1119 -value $title -variable [itcl::scope _curFldLabel] \1120 -selectcolor red \1121 -activebackground black \1122 -activeforeground white \1123 -font "Arial 8" \1124 -command [itcl::code $this Combo invoke]1125 set _fields($name) [list $title $units]1126 }1127 $itk_component(field) value $_curFldLabel1128 }1129 1096 $itk_component(field) choices delete 0 end 1130 1097 $itk_component(fieldmenu) delete 0 end
Note: See TracChangeset
for help on using the changeset viewer.