Changeset 13 for trunk/gui/scripts/analyzer.tcl
- Timestamp:
- Jun 8, 2005, 5:37:19 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r12 r13 374 374 } 375 375 } 376 set label [$xmlobj get output.$item.about.label] 376 set label [$xmlobj get output.$item.about.group] 377 if {"" == $label} { 378 set label [$xmlobj get output.$item.about.label] 379 } 377 380 378 381 if {"" != $label} { … … 384 387 if {$haveresults} { 385 388 set size [$itk_component(resultset) size] 386 set op[$itk_component(resultset) add $xmlobj]389 set index [$itk_component(resultset) add $xmlobj] 387 390 388 391 # add each result to a result viewer 389 392 foreach item [_reorder [$xmlobj children output]] { 390 set label [$xmlobj get output.$item.about.label] 393 set label [$xmlobj get output.$item.about.group] 394 if {"" == $label} { 395 set label [$xmlobj get output.$item.about.label] 396 } 391 397 392 398 if {"" != $label} { … … 400 406 $itk_component(resultselector) choices insert end \ 401 407 $name $label 402 403 #404 # NOTE:405 #406 # If this result is showing up late in the game, then407 # we must fill the resultviewer with a series of blank408 # entries, so the latest result will align with (have409 # the same index as) results in all other viewers.410 #411 for {set i 0} {$i < $size} {incr i} {412 $page.rviewer add $xmlobj ""413 }414 408 } 415 409 416 410 # add/replace the latest result into this viewer 417 411 set page $_label2page($label) 418 eval $page.rviewer $op [list $xmlobj output.$item] 412 413 if {![info exists reset($page)]} { 414 $page.rviewer clear $index 415 set reset($page) 1 416 } 417 $page.rviewer add $index $xmlobj output.$item 419 418 } 420 419 } … … 432 431 set first [$itk_component(resultselector) choices get -label 0] 433 432 if {$first != ""} { 434 $itk_component(resultpages) current page1 433 set page [$itk_component(resultselector) choices get -value 0] 434 $itk_component(resultpages) current $page 435 435 $itk_component(resultselector) value $first 436 436 } … … 448 448 set _runs "" 449 449 450 $itk_component(resultset) clear 451 $itk_component(results) fraction end 0.1 452 450 453 foreach label [array names _label2page] { 451 454 set page $_label2page($label) 452 455 $page.rviewer clear 453 456 } 454 455 $itk_component(resultset) clear 456 $itk_component(results) fraction end 0.1 457 $itk_component(resultselector) value "" 458 $itk_component(resultselector) choices delete 0 end 459 catch {unset _label2page} 460 set _plotlist "" 461 462 # 463 # HACK ALERT!! 464 # The following statement should be in place, but it causes 465 # vtk to dump core. Leave it out until we can fix the core dump. 466 # In the mean time, we leak memory... 467 # 468 #$itk_component(resultpages) delete -all 469 #set _pages 0 457 470 458 471 _simState on … … 481 494 482 495 # ---------------------------------------------------------------------- 483 # USAGE: _reorder 496 # USAGE: _reorder <compList> 484 497 # 485 498 # Used internally to change the order of a series of output components … … 519 532 upvar $cntVar counters 520 533 534 set group [$xmlobj get $path.about.group] 521 535 set label [$xmlobj get $path.about.label] 522 536 if {"" == $label} { 523 537 # no label -- make one up using the title specified 524 if {![info exists counters($ title)]} {525 set counters($ title) 1538 if {![info exists counters($group-$title)]} { 539 set counters($group-$title) 1 526 540 set label $title 527 541 } else { 528 set label "$title #[incr counters($title)]"542 set label "$title (#[incr counters($group-$title)])" 529 543 } 530 544 $xmlobj put $path.about.label $label 531 545 } else { 532 546 # handle the case of two identical labels in <output> 533 if {![info exists counters($ label)]} {534 set counters($ label) 1547 if {![info exists counters($group-$label)]} { 548 set counters($group-$label) 1 535 549 } else { 536 set label "$label #[incr counters($label)]"550 set label "$label (#[incr counters($group-$label)])" 537 551 $xmlobj put $path.about.label $label 538 552 } … … 550 564 set page [$itk_component(resultselector) value] 551 565 set page [$itk_component(resultselector) translate $page] 552 $itk_component(resultpages) current $page 553 554 set f [$itk_component(resultpages) page $page] 555 $f.rviewer plot clear 556 eval $f.rviewer plot add $_plotlist 566 if {$page != ""} { 567 $itk_component(resultpages) current $page 568 569 set f [$itk_component(resultpages) page $page] 570 $f.rviewer plot clear 571 eval $f.rviewer plot add $_plotlist 572 } 557 573 } 558 574
Note: See TracChangeset
for help on using the changeset viewer.