Changeset 97

Timestamp:

Dec 4, 2009 5:00:21 PM (14 years ago)

Author:

toby

Message:

# on 1999/07/22 20:04:23, toby did:
clear atom box etc when loading an "empty" .EXP file
avoid DisplayProfile? error when loading an "empty" .EXP file

File:

• trunk/expgui (modified) (3 diffs, 3 props)

trunk/expgui

@@ -181 +181 @@
     catch {
         unset exparray
-    }
-    # added 7/21/99 to prevent errors when switching EXP files -- needs testing
-    catch {
-        unset expmap
     }
     expload $expfile
@@ -609 +605 @@
         # enable traces on entryvar 
         set entrycmd(trace) 1
+        $expgui(EditingAtoms) config -text ""
+        DisplayAtom 0 0
+        DisplayU 0 0
+        DisplayRefFlags 0 0
+        $expgui(atomlistbox) delete 0 end
         return
     }
@@ -1590 +1591 @@
         set entrycmd(trace) 0
         set hist [lindex $expmap(powderlist) $expgui(curhist)]
+        # no defined histograms?
+        if {$hist == ""} return
         # Create one frame for each Phase.
         set ind -1