Changeset 5211


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

whitespace

File:
1 edited

Legend:

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

    r5195 r5211  
    637637    set op [lindex $args 0]
    638638    switch -- $op {
    639       -objects {
    640         # put the dataobj list in order according to -raise options
    641         set dlist $_dlist
    642         foreach obj $dlist {
    643             if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
    644                 set i [lsearch -exact $dlist $obj]
    645                 if {$i >= 0} {
    646                     set dlist [lreplace $dlist $i $i]
    647                     lappend dlist $obj
     639        -objects {
     640            # put the dataobj list in order according to -raise options
     641            set dlist $_dlist
     642            foreach obj $dlist {
     643                if {[info exists _obj2ovride($obj-raise)] &&
     644                    $_obj2ovride($obj-raise)} {
     645                    set i [lsearch -exact $dlist $obj]
     646                    if {$i >= 0} {
     647                        set dlist [lreplace $dlist $i $i]
     648                        lappend dlist $obj
     649                    }
    648650                }
    649651            }
    650         }
    651         return $dlist
    652       }
    653       -image {
    654         if {[llength $args] != 2} {
    655             error "wrong # args: should be \"get -image 3dview|legend\""
    656         }
    657         switch -- [lindex $args end] {
    658             3dview {
    659                 return $_image(plot)
    660             }
    661             legend {
    662                 return $_image(legend)
    663             }
    664             default {
    665                 error "bad image name \"[lindex $args end]\": should be 3dview or legend"
    666             }
    667         }
    668       }
    669       default {
    670         error "bad option \"$op\": should be -objects or -image"
    671       }
     652            return $dlist
     653        }
     654        -image {
     655            if {[llength $args] != 2} {
     656                error "wrong # args: should be \"get -image 3dview|legend\""
     657            }
     658            switch -- [lindex $args end] {
     659                3dview {
     660                    return $_image(plot)
     661                }
     662                legend {
     663                    return $_image(legend)
     664                }
     665                default {
     666                    error "bad image name \"[lindex $args end]\": should be 3dview or legend"
     667                }
     668            }
     669        }
     670        default {
     671            error "bad option \"$op\": should be -objects or -image"
     672        }
    672673    }
    673674}
Note: See TracChangeset for help on using the changeset viewer.