Changeset 6118
- Timestamp:
- Mar 11, 2016, 3:45:18 AM (9 years ago)
- Location:
- branches/1.5/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.5/gui/scripts/analyzer.tcl
r6107 r6118 1573 1573 -state $state 1574 1574 $m add command -label "Questions?" \ 1575 -command [list $w mdcmd "$url/resources/$_appName/questions"] \1575 -command [list $webcmd "$url/resources/$_appName/questions"] \ 1576 1576 -state $state 1577 1577 $m add command -label "Tickets" -state $state \ -
branches/1.5/gui/scripts/xyresult.tcl
r5920 r6118 422 422 switch -- $_downloadPopup(format) { 423 423 csv { 424 # reverse the objects so the selected data appears on top 424 # Reverse the objects so the selected data appears on 425 # top. 425 426 set dlist "" 426 foreach dataobj [get] { 427 foreach elem $_viewable { 428 foreach {dataobj cname} \ 429 [split $_elem2comp($elem) -] break 427 430 set dlist [linsert $dlist 0 $dataobj] 431 432 # Build a lookup table of graph elements associated 433 # with each label. There will be more than one 434 # element for each entry if there is more than one 435 # simulation currently being downloaded. 436 437 set label [$dataobj hints label] 438 lappend label2elem($label) $elem 428 439 } 429 440 430 # generate the comma-separated value data for these objects 441 # Generate the comma-separated value data for these 442 # objects. 431 443 set csvdata "" 432 444 foreach dataobj $dlist { 433 445 append csvdata "[string repeat - 60]\n" 434 446 append csvdata " [$dataobj hints label]\n" 435 if {[info exists _dataobj2desc($dataobj)] 436 && [llength [split $_dataobj2desc($dataobj) \n]] > 1} { 447 if { [info exists _dataobj2desc($dataobj)] } { 437 448 set indent "for:" 438 449 foreach line [split $_dataobj2desc($dataobj) \n] { … … 442 453 } 443 454 append csvdata "[string repeat - 60]\n" 444 445 append csvdata "[$dataobj hints xlabel], [$dataobj hints ylabel]\n" 455 set sim $_dataobj2sim($dataobj) 456 set xlabel [$dataobj hints xlabel] 457 set ylabel [$dataobj hints ylabel] 458 set label [$dataobj hints label] 459 if { [llength $label2elem($label)] > 1 } { 460 set xlabel [format "%s (\#%d)" $xlabel $sim] 461 set ylabel [format "%s (\#%d)" $ylabel $sim] 462 } 463 append csvdata "$xlabel, $ylabel\n" 446 464 set first 1 447 465 foreach comp [$dataobj components] { … … 602 620 foreach {dataobj cname} [split $_elem2comp($elem) -] break 603 621 set sim $_dataobj2sim($dataobj) 604 set elabel [format "%s \#%d" $label $sim]622 set elabel [format "%s (\#%d)" $label $sim] 605 623 $g element configure $elem -label $elabel 606 624 } … … 1652 1670 } 1653 1671 } 1672
Note: See TracChangeset
for help on using the changeset viewer.