Changeset 3887 for branches/1.3/gui/scripts

Timestamp:

Aug 23, 2013, 2:21:40 PM (11 years ago)

Author:

gah

Message:

xyresult.tcl:

(Fix) Obey linewidth from "add" method arguments

field3dresult.tcl:

(Bandaid) Check itk_component in "delete" method. This is
part of a bigger problem in sequences where the "delete"
method is getting called in _fixValue before the itk_component
exists. This is possibly because of an error in the constructor
of the field3dresult object.

field.tcl:

(Fix) Set the correct type for DX and OpenDX formats when
VTKVOLUME environment variable is set.

Location:

branches/1.3/gui/scripts

Files:

• field.tcl (modified) (1 diff)
• field3dresult.tcl (modified) (2 diffs)
• xyresult.tcl (modified) (4 diffs)

branches/1.3/gui/scripts/field.tcl

@@ -763 +763 @@
             global env
             if { [info exists env(VTKVOLUME)] } {
-                set type "vtkvolume"
-            } else {
-                set type "opendx"
-            }
+                set viewer "vtkvolume"
+                if { $viewer != "" } {
+                    set _viewer $viewer
+                }
+            } 
+            set type "opendx"
         } elseif {[$_field element $cname.dx] != ""} {
             global env
             if { [info exists env(VTKVOLUME)] } {
-                set type "vtkvolume"
-            } else {
-                set type "dx"
-            }
+                set viewer "vtkvolume"
+                if { $viewer != "" } {
+                    set _viewer $viewer
+                }
+            }
+            set type "dx"
         } elseif {[$_field element $cname.ucd] != ""} {
             set type "ucd"

branches/1.3/gui/scripts/field3dresult.tcl

@@ -71 +71 @@
         }
     }
-    if {"" != $servers && $flags(-mode) != "vtk"} {
+    if { "" != $servers && $flags(-mode) != "vtk"} {
         switch -- $flags(-mode) {
             "auto" - "nanovis" {
@@ -168 +168 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Field3DResult::delete {args} {
-    eval $itk_component(renderer) delete $args
+    if { [info exists itk_component(renderer)] } {
+        eval $itk_component(renderer) delete $args
+    }
 }
 

branches/1.3/gui/scripts/xyresult.tcl

@@ -245 +245 @@
         set color $attrs(-color)
     }
+    if { ![info exists attrs(-width)] } {
+        set linewidth 1
+    } else {
+        set linewidth $attrs(-width)
+    }
     if { $color == "auto" || $color == "autoreset" } {
         if { $color == "autoreset" } {
@@ -275 +280 @@
         set tag $dataobj-$cname
         set elem $_comp2elem($tag) 
-        if { $type == "bar" } {
-            $g bar configure $elem -foreground $color -background $color \
-                -hide no
-        } else {
-            $g line configure $elem -color $color -hide no
+        switch -- $type {
+            "bar" {
+                $g bar configure $elem -foreground $color -background $color \
+                    -hide no
+            } 
+            "scatter" {
+                $g line configure $elem -color $color -hide no
+            }
+            default {
+                $g line configure $elem -color $color -hide no \
+                    -linewidth $linewidth
+            }
         }
         if { [lsearch $_viewable $elem] < 0 } {
@@ -1655 +1667 @@
             }
         } else {
+            if 0 {
             set elem $_comp2elem($tag)
             switch -- $type {
+                "scatter" {
+                    $g line configure $elem \
+                        -symbol $sym \
+                        -pixels $pixels \
+                        -linewidth 0 
+                } 
                 "line" {
                     $g line configure $elem \
@@ -1670 +1689 @@
                 }
             }
-        }
-    }
-}
+            }
+        }
+    }
+}