Changeset 97


Ignore:
Timestamp:
Dec 4, 2009 5:00:21 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 1999/07/21 16:32:11 to 1999/07/22 20:04:23
    • Property rcs:lines changed from +57 -92 to +9 -6
    • Property rcs:rev changed from 1.16 to 1.17
    r93 r97  
    181181    catch {
    182182        unset exparray
    183     }
    184     # added 7/21/99 to prevent errors when switching EXP files -- needs testing
    185     catch {
    186         unset expmap
    187183    }
    188184    expload $expfile
     
    609605        # enable traces on entryvar
    610606        set entrycmd(trace) 1
     607        $expgui(EditingAtoms) config -text ""
     608        DisplayAtom 0 0
     609        DisplayU 0 0
     610        DisplayRefFlags 0 0
     611        $expgui(atomlistbox) delete 0 end
    611612        return
    612613    }
     
    15901591        set entrycmd(trace) 0
    15911592        set hist [lindex $expmap(powderlist) $expgui(curhist)]
     1593        # no defined histograms?
     1594        if {$hist == ""} return
    15921595        # Create one frame for each Phase.
    15931596        set ind -1
Note: See TracChangeset for help on using the changeset viewer.