Changeset 4714 for branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl

Timestamp:

Nov 13, 2014, 2:32:53 AM (10 years ago)

Author:

ldelgass

Message:

sync

File:

• branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl (modified) (3 diffs)

branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl

@@ -102 +102 @@
     private method Rotate {option x y}
     private method SetCurrentColormap { color }
+    private method SetCurrentFieldName { dataobj }
     private method SetLegendTip { x y }
-    private method SetObjectStyle { dataobj comp } 
-    private method SetCurrentFieldName { dataobj } 
+    private method SetObjectStyle { dataobj comp }
     private method SetOrientation { side }
-    private method Slice {option args} 
+    private method Slice {option args}
     private method Zoom {option}
     private method ViewToQuaternion {} { 
@@ -1683 +1683 @@
         -showvalue off \
         -command [itcl::code $this AdjustSetting -isosurfaceopacity]
-    set _widget(-isosurfaceopacity) \
-        [expr $_settings(-isosurfaceopacity) * 100.0]
+    $inner.opacity set [expr $_settings(-isosurfaceopacity) * 100.0]
 
     itk_component add field_l {
@@ -1906 +1905 @@
         -showvalue off \
         -command [itcl::code $this AdjustSetting -cutplaneopacity]
-    set _widget(-cutplaneopacity) [expr $_settings(-cutplaneopacity) * 100.0]
+    $inner.opacity set [expr $_settings(-cutplaneopacity) * 100.0]
 
     # X-value slicer...