Changeset 5212


Ignore:
Timestamp:
Apr 13, 2015, 10:56:06 PM (5 years ago)
Author:
ldelgass
Message:

merge r5210:5211 from trunk

Location:
branches/1.4
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/1.4

  • branches/1.4/gui/scripts/flowvisviewer.tcl

    r5206 r5212  
    622622    set op [lindex $args 0]
    623623    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                    }
    633635                }
    634636            }
    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        }
    657658    }
    658659}
  • branches/1.4/gui/scripts/nanovisviewer.tcl

    r5209 r5212  
    482482    set op [lindex $args 0]
    483483    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                    }
    493495                }
    494496            }
    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        }
    517518    }
    518519}
Note: See TracChangeset for help on using the changeset viewer.