Changeset 5214 for branches/1.3


Ignore:
Timestamp:
Apr 14, 2015, 1:02:21 AM (5 years ago)
Author:
ldelgass
Message:

Merge r5205,r5210:5211

Location:
branches/1.3
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3

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

    r5177 r5214  
    624624    set op [lindex $args 0]
    625625    switch -- $op {
    626       -objects {
    627         # put the dataobj list in order according to -raise options
    628         set dlist $_dlist
    629         foreach obj $dlist {
    630             if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
    631                 set i [lsearch -exact $dlist $obj]
    632                 if {$i >= 0} {
    633                     set dlist [lreplace $dlist $i $i]
    634                     lappend dlist $obj
     626        -objects {
     627            # put the dataobj list in order according to -raise options
     628            set dlist $_dlist
     629            foreach obj $dlist {
     630                if {[info exists _obj2ovride($obj-raise)] &&
     631                    $_obj2ovride($obj-raise)} {
     632                    set i [lsearch -exact $dlist $obj]
     633                    if {$i >= 0} {
     634                        set dlist [lreplace $dlist $i $i]
     635                        lappend dlist $obj
     636                    }
    635637                }
    636638            }
    637         }
    638         return $dlist
    639       }
    640       -image {
    641         if {[llength $args] != 2} {
    642             error "wrong # args: should be \"get -image 3dview|legend\""
    643         }
    644         switch -- [lindex $args end] {
    645             3dview {
    646                 return $_image(plot)
    647             }
    648             legend {
    649                 return $_image(legend)
    650             }
    651             default {
    652                 error "bad image name \"[lindex $args end]\": should be 3dview or legend"
    653             }
    654         }
    655       }
    656       default {
    657         error "bad option \"$op\": should be -objects or -image"
    658       }
     639            return $dlist
     640        }
     641        -image {
     642            if {[llength $args] != 2} {
     643                error "wrong # args: should be \"get -image 3dview|legend\""
     644            }
     645            switch -- [lindex $args end] {
     646                3dview {
     647                    return $_image(plot)
     648                }
     649                legend {
     650                    return $_image(legend)
     651                }
     652                default {
     653                    error "bad image name \"[lindex $args end]\": should be 3dview or legend"
     654                }
     655            }
     656        }
     657        default {
     658            error "bad option \"$op\": should be -objects or -image"
     659        }
    659660    }
    660661}
  • branches/1.3/gui/scripts/nanovisviewer.tcl

    r5177 r5214  
    439439    set op [lindex $args 0]
    440440    switch -- $op {
    441       -objects {
    442         # put the dataobj list in order according to -raise options
    443         set dlist $_dlist
    444         foreach obj $dlist {
    445             if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
    446                 set i [lsearch -exact $dlist $obj]
    447                 if {$i >= 0} {
    448                     set dlist [lreplace $dlist $i $i]
    449                     lappend dlist $obj
     441        -objects {
     442            # put the dataobj list in order according to -raise options
     443            set dlist $_dlist
     444            foreach obj $dlist {
     445                if {[info exists _obj2ovride($obj-raise)] &&
     446                    $_obj2ovride($obj-raise)} {
     447                    set i [lsearch -exact $dlist $obj]
     448                    if {$i >= 0} {
     449                        set dlist [lreplace $dlist $i $i]
     450                        lappend dlist $obj
     451                    }
    450452                }
    451453            }
    452         }
    453         return $dlist
    454       }
    455       -image {
    456         if {[llength $args] != 2} {
    457             error "wrong # args: should be \"get -image 3dview|legend\""
    458         }
    459         switch -- [lindex $args end] {
    460             3dview {
    461                 return $_image(plot)
    462             }
    463             legend {
    464                 return $_image(legend)
    465             }
    466             default {
    467                 error "bad image name \"[lindex $args end]\": should be 3dview or legend"
    468             }
    469         }
    470       }
    471       default {
    472         error "bad option \"$op\": should be -objects or -image"
    473       }
     454            return $dlist
     455        }
     456        -image {
     457            if {[llength $args] != 2} {
     458                error "wrong # args: should be \"get -image 3dview|legend\""
     459            }
     460            switch -- [lindex $args end] {
     461                3dview {
     462                    return $_image(plot)
     463                }
     464                legend {
     465                    return $_image(legend)
     466                }
     467                default {
     468                    error "bad image name \"[lindex $args end]\": should be 3dview or legend"
     469                }
     470            }
     471        }
     472        default {
     473            error "bad option \"$op\": should be -objects or -image"
     474        }
    474475    }
    475476}
     
    947948        InitSettings light2side light transp isosurface grid axes
    948949
     950        # Turn off cutplanes for all volumes
    949951        foreach axis {x y z} {
    950             # Turn off cutplanes for all volumes
    951952            SendCmd "cutplane state 0 $axis"
    952953        }
Note: See TracChangeset for help on using the changeset viewer.