Ignore:
Timestamp:
Oct 12, 2010 12:46:50 PM (11 years ago)
Author:
chlake
Message:

add disagl edit & viewer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/readexp.tcl

    r1020 r1021  
    882882            # for none delete the record & thats all folks
    883883            if {$value == "none"} {
    884                 catch {unset exparray($key)}
     884                catch {unset ::exparray($key)}
    885885                return
    886             }               
     886            }
    887887            if {[existsexp $key] == 0} {
    888888                makeexprec $key
     
    918918            # for none delete the record & thats all folks
    919919            if {$value == "none"} {
    920                 catch {unset exparray($key)}
     920                catch {unset ::exparray($key)}
    921921                return
    922             }               
     922            }
    923923            if {[existsexp $key] == 0} {
    924924                makeexprec $key
     
    953953        default {
    954954            set msg "Unsupported phaseinfo access: parm=$parm action=$action"
    955             tk_dialog .badexp "Error in readexp" $msg error 0 Exit 
     955            tk_dialog .badexp "Error in readexp" $msg error 0 Exit
    956956        }
    957957    }
     
    28362836        default {
    28372837            set msg "Unsupported AtmTypInfo access: parm=$parm action=$action"
    2838             tk_dialog .badexp "Error in readexp" $msg error 0 Exit 
     2838            tk_dialog .badexp "Error in readexp" $msg error 0 Exit
    28392839        }
    28402840    }
Note: See TracChangeset for help on using the changeset viewer.