Changeset 6126


Ignore:
Timestamp:
Mar 15, 2016 2:19:17 PM (7 years ago)
Author:
ldelgass
Message:

merge r6118,r6120 from 1.5 branch

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk

  • trunk/gui/scripts/xyresult.tcl

    r6021 r6126  
    422422            switch -- $_downloadPopup(format) {
    423423                csv {
    424                     # reverse the objects so the selected data appears on top
    425424                    set dlist ""
    426                     foreach dataobj [get] {
    427                         set dlist [linsert $dlist 0 $dataobj]
     425                    set g $itk_component(plot)
     426
     427                    # Build up a list of download-able dataobjs. Add
     428                    # objects that are currently viewable (selected by the
     429                    # simulation selector) and visible in the graph
     430                    # (selected by the legend).
     431                    foreach elem $_viewable {
     432                        foreach {dataobj cname} \
     433                            [split $_elem2comp($elem) -] break
     434
     435                        # Build a lookup table of graph elements associated
     436                        # with each label. There will be more than one
     437                        # element for each entry if there is more than one
     438                        # simulation currently being downloaded.
     439
     440                        set label [$dataobj hints label]
     441                        lappend label2elem($label) $elem
     442
     443                        # Ignore hidden graph elements.
     444                        if { [$g element cget $elem -hide] } {
     445                            continue
     446                        }
     447                        lappend dlist $dataobj
     448
    428449                    }
    429450
    430                     # generate the comma-separated value data for these objects
     451                    # Generate the comma-separated value data for these
     452                    # objects.
    431453                    set csvdata ""
    432454                    foreach dataobj $dlist {
    433455                        append csvdata "[string repeat - 60]\n"
    434456                        append csvdata " [$dataobj hints label]\n"
    435                         if {[info exists _dataobj2desc($dataobj)]
    436                             && [llength [split $_dataobj2desc($dataobj) \n]] > 1} {
     457                        if { [info exists _dataobj2desc($dataobj)] } {
    437458                            set indent "for:"
    438459                            foreach line [split $_dataobj2desc($dataobj) \n] {
     
    442463                        }
    443464                        append csvdata "[string repeat - 60]\n"
    444 
    445                         append csvdata "[$dataobj hints xlabel], [$dataobj hints ylabel]\n"
     465                        set sim $_dataobj2sim($dataobj)
     466                        set xlabel [$dataobj hints xlabel]
     467                        set ylabel [$dataobj hints ylabel]
     468                        set label [$dataobj hints label]
     469                        if { [llength $label2elem($label)] > 1 } {
     470                            set xlabel [format "%s (\#%d)" $xlabel $sim]
     471                            set ylabel [format "%s (\#%d)" $ylabel $sim]
     472                        }
     473                        append csvdata "$xlabel, $ylabel\n"
    446474                        set first 1
    447475                        foreach comp [$dataobj components] {
     
    602630            foreach {dataobj cname} [split $_elem2comp($elem) -] break
    603631            set sim $_dataobj2sim($dataobj)
    604             set elabel [format "%s \#%d" $label $sim]
     632            set elabel [format "%s (\#%d)" $label $sim]
    605633            $g element configure $elem -label $elabel
    606634        }
     
    16521680    }
    16531681}
     1682
Note: See TracChangeset for help on using the changeset viewer.