Changeset 5210


Ignore:
Timestamp:
Apr 13, 2015, 9:29:46 PM (5 years ago)
Author:
ldelgass
Message:

whitespace

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/nanovisviewer.tcl

    r5208 r5210  
    477477    set op [lindex $args 0]
    478478    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                    }
    488490                }
    489491            }
    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        }
    512513    }
    513514}
Note: See TracChangeset for help on using the changeset viewer.