Changeset 4652 for branches/1.3/gui/scripts

Timestamp:

Oct 17, 2014, 10:59:12 AM (10 years ago)

Author:

gah

Message:

update for ssl3 bug

Location:

branches/1.3/gui/scripts

Files:

• bugreport.tcl (modified) (1 diff)
• vtkisosurfaceviewer.tcl (modified) (4 diffs)

branches/1.3/gui/scripts/bugreport.tcl

@@ -490 +490 @@
     package require http
     package require tls
-    http::register https 443 ::tls::socket
+    http::register https 443 [list ::tls::socket -tls1 1] 
 
     set report $details(stackTrace)

branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl

@@ -105 +105 @@
     private method SetLegendTip { x y }
     private method SetObjectStyle { dataobj comp } 
+    private method SetCurrentFieldName { dataobj } 
     private method SetOrientation { side }
     private method Slice {option args} 
@@ -1000 +1001 @@
     set _first ""
     SendCmd "dataset visible 0"
+    eval scale $_dlist
     foreach dataobj [get -objects] {
         if { [info exists _obj2ovride($dataobj-raise)] &&  $_first == "" } {
             set _first $dataobj
+            SetCurrentFieldName $dataobj
         }
         set _obj2datasets($dataobj) ""
@@ -1038 +1041 @@
     }
 
-    if { $_first != "" } {
-        $itk_component(field) choices delete 0 end
-        $itk_component(fieldmenu) delete 0 end
-        array unset _fields
-        set _curFldName ""
-        foreach cname [$_first components] {
-            foreach fname [$_first fieldnames $cname] {
-                if { [info exists _fields($fname)] } {
-                    continue
-                }
-                foreach { label units components } \
-                    [$_first fieldinfo $fname] break
-                $itk_component(field) choices insert end "$fname" "$label"
-                $itk_component(fieldmenu) add radiobutton -label "$label" \
-                    -value $label -variable [itcl::scope _curFldLabel] \
-                    -selectcolor red \
-                    -activebackground $itk_option(-plotbackground) \
-                    -activeforeground $itk_option(-plotforeground) \
-                    -font "Arial 8" \
-                    -command [itcl::code $this Combo invoke]
-                set _fields($fname) [list $label $units $components]
-                if { $_curFldName == "" } {
-                    set _curFldName $fname
-                    set _curFldLabel $label
-                }
-            }
-        }
-        $itk_component(field) value $_curFldLabel
-
-        if { ![info exists _limits($_curFldName)] } {
-            SendCmd "dataset maprange all"
-        } else {
-            set limits $_limits($_curFldName)
-            SendCmd "dataset maprange explicit $limits $_curFldName"
-            if { $limits != $_currentLimits } {
-                set _currentLimits $limits
-                EventuallyChangeContourLevels
-            }
-        }
-    }
     InitSettings -cutplanesvisible -isosurfacevisible -outline
     if { $_reset } {
@@ -2624 +2587 @@
     set _contourList(values) $values
 }
+
+itcl::body Rappture::VtkIsosurfaceViewer::SetCurrentFieldName { dataobj } { 
+    set _first $dataobj
+    $itk_component(field) choices delete 0 end
+    $itk_component(fieldmenu) delete 0 end
+    array unset _fields
+    set _curFldName ""
+    foreach cname [$_first components] {
+        foreach fname [$_first fieldnames $cname] {
+            if { [info exists _fields($fname)] } {
+                continue
+            }
+            foreach { label units components } \
+                [$_first fieldinfo $fname] break
+            $itk_component(field) choices insert end "$fname" "$label"
+            $itk_component(fieldmenu) add radiobutton -label "$label" \
+                -value $label -variable [itcl::scope _curFldLabel] \
+                -selectcolor red \
+                -activebackground $itk_option(-plotbackground) \
+                -activeforeground $itk_option(-plotforeground) \
+                -font "Arial 8" \
+                -command [itcl::code $this Combo invoke]
+            set _fields($fname) [list $label $units $components]
+            if { $_curFldName == "" } {
+                set _curFldName $fname
+                set _curFldLabel $label
+            }
+        }
+    }
+    $itk_component(field) value $_curFldLabel
+    if { ![info exists _limits($_curFldName)] } {
+        SendCmd "dataset maprange all"
+    } else {
+        set limits $_limits($_curFldName)
+        SendCmd "dataset maprange explicit $limits $_curFldName"
+        if { $limits != $_currentLimits } {
+            set _currentLimits $limits
+            EventuallyChangeContourLevels
+        }
+    }
+}