Changeset 1021 for branches/sandbox/readexp.tcl

Timestamp:

Oct 12, 2010 12:46:50 PM (12 years ago)

Author:

chlake

Message:

add disagl edit & viewer

File:

• branches/sandbox/readexp.tcl (modified) (4 diffs)

branches/sandbox/readexp.tcl

@@ -882 +882 @@
             # for none delete the record & thats all folks
             if {$value == "none"} {
-                catch {unset exparray($key)}
+                catch {unset ::exparray($key)}
                 return
-            }               
+            }
             if {[existsexp $key] == 0} {
                 makeexprec $key
@@ -918 +918 @@
             # for none delete the record & thats all folks
             if {$value == "none"} {
-                catch {unset exparray($key)}
+                catch {unset ::exparray($key)}
                 return
-            }               
+            }
             if {[existsexp $key] == 0} {
                 makeexprec $key
@@ -953 +953 @@
         default {
             set msg "Unsupported phaseinfo access: parm=$parm action=$action"
-            tk_dialog .badexp "Error in readexp" $msg error 0 Exit 
+            tk_dialog .badexp "Error in readexp" $msg error 0 Exit
         }
     }
@@ -2836 +2836 @@
         default {
             set msg "Unsupported AtmTypInfo access: parm=$parm action=$action"
-            tk_dialog .badexp "Error in readexp" $msg error 0 Exit 
+            tk_dialog .badexp "Error in readexp" $msg error 0 Exit
         }
     }