Changeset 6294

Timestamp:

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

Author:

gah

Message:

fixes for nanovisviewer

Location:

branches/1.6

Files:

• gui/scripts/analyzer.tcl (modified) (1 diff)
• gui/scripts/gauge.tcl (modified) (1 diff)
• gui/scripts/nanovisviewer.tcl (modified) (3 diffs)
• lang/tcl/scripts/library.tcl (modified) (1 diff)

branches/1.6/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

branches/1.6/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)
     }
-    _redraw  ;# fix gauge
+    _redraw  ;                          # Fix gauge
 }
 

branches/1.6/gui/scripts/nanovisviewer.tcl

@@ -502 +502 @@
         if { $pos >= 0 } {
             set _dlist [lreplace $_dlist $pos $pos]
-            array unset _limits $dataobj*
+            # Don't remove the limits settings because we're not really
+            # deleting the volume, just hiding it.
+            #array unset _limits $dataobj*
             array unset _obj2ovride $dataobj-*
             set changed 1
@@ -795 +797 @@
 
     if { [info exists _isomarkers($tf)] } {
+update idletasks
+update 
         foreach m $_isomarkers($tf) {
             $m visible yes
@@ -917 +921 @@
     # settings since the user may have created/deleted/moved markers.
 
+update idletasks
+update 
     foreach tf [array names _isomarkers] {
         foreach m $_isomarkers($tf) {

branches/1.6/lang/tcl/scripts/library.tcl

@@ -1069 +1069 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::LibraryObj::uq_get_vars {{tfile ""}} {
-    set varout \[
-    set varlist []
+    set varout "\["
+    set varlist {}
 
     if {$tfile == ""} {