Changeset 5210 for trunk/gui/scripts/nanovisviewer.tcl
- Timestamp:
- Apr 13, 2015, 6:29:46 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r5208 r5210 477 477 set op [lindex $args 0] 478 478 switch -- $op { 479 -objects { 480 # put the dataobj list in order according to -raise options 481 set dlist $_dlist 482 foreach obj $dlist { 483 if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} { 484 set i [lsearch -exact $dlist $obj] 485 if {$i >= 0} { 486 set dlist [lreplace $dlist $i $i] 487 lappend dlist $obj 479 -objects { 480 # put the dataobj list in order according to -raise options 481 set dlist $_dlist 482 foreach obj $dlist { 483 if {[info exists _obj2ovride($obj-raise)] && 484 $_obj2ovride($obj-raise)} { 485 set i [lsearch -exact $dlist $obj] 486 if {$i >= 0} { 487 set dlist [lreplace $dlist $i $i] 488 lappend dlist $obj 489 } 488 490 } 489 491 } 490 } 491 return $dlist 492 } 493 -image { 494 if {[llength $args] != 2} { 495 error "wrong # args: should be \"get -image 3dview|legend\"" 496 } 497 switch -- [lindex $args end] { 498 3dview { 499 return $_image(plot) 500 } 501 legend { 502 return $_image(legend) 503 } 504 default { 505 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 506 } 507 } 508 } 509 default { 510 error "bad option \"$op\": should be -objects or -image" 511 } 492 return $dlist 493 } 494 -image { 495 if {[llength $args] != 2} { 496 error "wrong # args: should be \"get -image 3dview|legend\"" 497 } 498 switch -- [lindex $args end] { 499 3dview { 500 return $_image(plot) 501 } 502 legend { 503 return $_image(legend) 504 } 505 default { 506 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 507 } 508 } 509 } 510 default { 511 error "bad option \"$op\": should be -objects or -image" 512 } 512 513 } 513 514 }
Note: See TracChangeset
for help on using the changeset viewer.