Changeset 6293 for tags

Timestamp:

Apr 27, 2016 10:08:24 AM (8 years ago)

Author:

gah

Message:

fixes to nanovisviewer transfer functions

Location:

tags/1.6.2/gui/scripts

Files:

• analyzer.tcl (modified) (1 diff)
• gauge.tcl (modified) (1 diff)
• nanovisviewer.tcl (modified) (5 diffs)

tags/1.6.2/gui/scripts/analyzer.tcl

@@ -1594 +1594 @@
         -state $state
     $m add command -label "Tickets" -state $state \
-        -command [list $webcmd "$url/feedback/report_problems?group=$group$referrer"]
+        -command [list $webcmd "$url/feedback/report_problems?group=$group$referer"]
     $m add command -label "Wish List" -state disabled
     $m add separator

tags/1.6.2/gui/scripts/gauge.tcl

@@ -636 +636 @@
     $itk_component(spindn) configure -state $itk_option(-state)
     $itk_component(presets) configure -state $itk_option(-state)
-    if { [info exists component(uq)] } {
+    if { [info exists itk_component(uq)] } {
         $itk_component(uq) configure -state $itk_option(-state)
     }

tags/1.6.2/gui/scripts/nanovisviewer.tcl

@@ -502 +502 @@
         if { $pos >= 0 } {
             set _dlist [lreplace $_dlist $pos $pos]
-            array unset _limits $dataobj*
+            #array unset _limits $dataobj*
             array unset _obj2ovride $dataobj-*
             set changed 1
@@ -718 +718 @@
             set _activeTfs($tf) 1
         }
+        #puts stderr "volume shading transfunc $tf $tag"
         SendCmd "volume shading transfunc $tf $tag"
     }
@@ -795 +796 @@
 
     if { [info exists _isomarkers($tf)] } {
+update idletasks
+update 
         foreach m $_isomarkers($tf) {
             $m visible yes
@@ -917 +920 @@
     # settings since the user may have created/deleted/moved markers.
 
+update idletasks
+update 
     foreach tf [array names _isomarkers] {
         foreach m $_isomarkers($tf) {
@@ -1451 +1456 @@
     # Sort the isovalues
     set isovalues [lsort -real $isovalues]
-
     if { ![info exists _settings($tf-thickness)]} {
         set _settings($tf-thickness) 0.005