Changeset 6118

Timestamp:

Mar 11, 2016, 3:45:18 AM (9 years ago)

Author:

gah

Message:

only download viewable elements in xyresult plot

Location:

branches/1.5/gui/scripts

Files:

• analyzer.tcl (modified) (1 diff)
• xyresult.tcl (modified) (4 diffs)

branches/1.5/gui/scripts/analyzer.tcl

@@ -1573 +1573 @@
         -state $state
     $m add command -label "Questions?" \
-        -command [list $wmdcmd "$url/resources/$_appName/questions"] \
+        -command [list $webcmd "$url/resources/$_appName/questions"] \
         -state $state
     $m add command -label "Tickets" -state $state \

branches/1.5/gui/scripts/xyresult.tcl

@@ -422 +422 @@
             switch -- $_downloadPopup(format) {
                 csv {
-                    # reverse the objects so the selected data appears on top
+                    # Reverse the objects so the selected data appears on
+                    # top.  
                     set dlist ""
-                    foreach dataobj [get] {
+                    foreach elem $_viewable {
+                        foreach {dataobj cname} \
+                            [split $_elem2comp($elem) -] break
                         set dlist [linsert $dlist 0 $dataobj]
+
+                        # Build a lookup table of graph elements associated
+                        # with each label. There will be more than one
+                        # element for each entry if there is more than one
+                        # simulation currently being downloaded.
+
+                        set label [$dataobj hints label]
+                        lappend label2elem($label) $elem
                     }
 
-                    # generate the comma-separated value data for these objects
+                    # Generate the comma-separated value data for these
+                    # objects.
                     set csvdata ""
                     foreach dataobj $dlist {
                         append csvdata "[string repeat - 60]\n"
                         append csvdata " [$dataobj hints label]\n"
-                        if {[info exists _dataobj2desc($dataobj)]
-                            && [llength [split $_dataobj2desc($dataobj) \n]] > 1} {
+                        if { [info exists _dataobj2desc($dataobj)] } {
                             set indent "for:"
                             foreach line [split $_dataobj2desc($dataobj) \n] {
@@ -442 +453 @@
                         }
                         append csvdata "[string repeat - 60]\n"
-
-                        append csvdata "[$dataobj hints xlabel], [$dataobj hints ylabel]\n"
+                        set sim $_dataobj2sim($dataobj)
+                        set xlabel [$dataobj hints xlabel]
+                        set ylabel [$dataobj hints ylabel]
+                        set label [$dataobj hints label]
+                        if { [llength $label2elem($label)] > 1 } {
+                            set xlabel [format "%s (\#%d)" $xlabel $sim]
+                            set ylabel [format "%s (\#%d)" $ylabel $sim]
+                        }
+                        append csvdata "$xlabel, $ylabel\n"
                         set first 1
                         foreach comp [$dataobj components] {
@@ -602 +620 @@
             foreach {dataobj cname} [split $_elem2comp($elem) -] break
             set sim $_dataobj2sim($dataobj)
-            set elabel [format "%s \#%d" $label $sim]
+            set elabel [format "%s (\#%d)" $label $sim]
             $g element configure $elem -label $elabel
         }
@@ -1652 +1670 @@
     }
 }
+