Ignore:
Timestamp:
Mar 2, 2013, 1:15:17 PM (12 years ago)
Author:
gah
Message:

nanovis missing _ in of _width, isosurface broke with wrong component name, streamlines default axis names changed to X, Y, and Z

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/vtkstreamlinesviewer.tcl

    r3405 r3409  
    10941094            }
    10951095        }
    1096         if 0 {
    1097         array unset _scalarFields
    1098         array unset _vectorFields
    1099         set _curFldLabel [$_first hints default]
    1100         $itk_component(field) choices delete 0 end
    1101         $itk_component(fieldmenu) delete 0 end
    1102         array unset _fields
    1103         foreach { name title units } [$_first hints vectors] {
    1104             set _vectorFields($title) $name
    1105             $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) $name
    1117             $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 $_curFldLabel
    1128         }
    11291096        $itk_component(field) choices delete 0 end
    11301097        $itk_component(fieldmenu) delete 0 end
Note: See TracChangeset for help on using the changeset viewer.