Changeset 5212 for branches/1.4/gui/scripts
- Timestamp:
- Apr 13, 2015, 7:56:06 PM (10 years ago)
- Location:
- branches/1.4
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/flowvisviewer.tcl
r5206 r5212 622 622 set op [lindex $args 0] 623 623 switch -- $op { 624 -objects { 625 # put the dataobj list in order according to -raise options 626 set dlist $_dlist 627 foreach obj $dlist { 628 if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} { 629 set i [lsearch -exact $dlist $obj] 630 if {$i >= 0} { 631 set dlist [lreplace $dlist $i $i] 632 lappend dlist $obj 624 -objects { 625 # put the dataobj list in order according to -raise options 626 set dlist $_dlist 627 foreach obj $dlist { 628 if {[info exists _obj2ovride($obj-raise)] && 629 $_obj2ovride($obj-raise)} { 630 set i [lsearch -exact $dlist $obj] 631 if {$i >= 0} { 632 set dlist [lreplace $dlist $i $i] 633 lappend dlist $obj 634 } 633 635 } 634 636 } 635 } 636 return $dlist 637 } 638 -image { 639 if {[llength $args] != 2} { 640 error "wrong # args: should be \"get -image 3dview|legend\"" 641 } 642 switch -- [lindex $args end] { 643 3dview { 644 return $_image(plot) 645 } 646 legend { 647 return $_image(legend) 648 } 649 default { 650 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 651 } 652 } 653 } 654 default { 655 error "bad option \"$op\": should be -objects or -image" 656 } 637 return $dlist 638 } 639 -image { 640 if {[llength $args] != 2} { 641 error "wrong # args: should be \"get -image 3dview|legend\"" 642 } 643 switch -- [lindex $args end] { 644 3dview { 645 return $_image(plot) 646 } 647 legend { 648 return $_image(legend) 649 } 650 default { 651 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 652 } 653 } 654 } 655 default { 656 error "bad option \"$op\": should be -objects or -image" 657 } 657 658 } 658 659 } -
branches/1.4/gui/scripts/nanovisviewer.tcl
r5209 r5212 482 482 set op [lindex $args 0] 483 483 switch -- $op { 484 -objects { 485 # put the dataobj list in order according to -raise options 486 set dlist $_dlist 487 foreach obj $dlist { 488 if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} { 489 set i [lsearch -exact $dlist $obj] 490 if {$i >= 0} { 491 set dlist [lreplace $dlist $i $i] 492 lappend dlist $obj 484 -objects { 485 # put the dataobj list in order according to -raise options 486 set dlist $_dlist 487 foreach obj $dlist { 488 if {[info exists _obj2ovride($obj-raise)] && 489 $_obj2ovride($obj-raise)} { 490 set i [lsearch -exact $dlist $obj] 491 if {$i >= 0} { 492 set dlist [lreplace $dlist $i $i] 493 lappend dlist $obj 494 } 493 495 } 494 496 } 495 } 496 return $dlist 497 } 498 -image { 499 if {[llength $args] != 2} { 500 error "wrong # args: should be \"get -image 3dview|legend\"" 501 } 502 switch -- [lindex $args end] { 503 3dview { 504 return $_image(plot) 505 } 506 legend { 507 return $_image(legend) 508 } 509 default { 510 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 511 } 512 } 513 } 514 default { 515 error "bad option \"$op\": should be -objects or -image" 516 } 497 return $dlist 498 } 499 -image { 500 if {[llength $args] != 2} { 501 error "wrong # args: should be \"get -image 3dview|legend\"" 502 } 503 switch -- [lindex $args end] { 504 3dview { 505 return $_image(plot) 506 } 507 legend { 508 return $_image(legend) 509 } 510 default { 511 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 512 } 513 } 514 } 515 default { 516 error "bad option \"$op\": should be -objects or -image" 517 } 517 518 } 518 519 }
Note: See TracChangeset
for help on using the changeset viewer.