Changeset 1117 for branches/sandbox


Ignore:
Timestamp:
Mar 3, 2011 5:32:58 PM (10 years ago)
Author:
toby
Message:

fail gracefully when DISAGL fails

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/Geo_Viewer.tcl

    r1109 r1117  
    6161   set angle_total -1
    6262
    63    catch {unset ::geo_phase_list}
     63   set ::geo_phase_list {}
    6464   catch {unset ::geo_angles}
    6565   catch {unset ::geo_bonds}
     
    148148    Geo_Read $root.disagl
    149149    donewait
     150    if {[llength  $::geo_phase_list] == 0} {
     151        MyMessageBox -parent . -title "DISAGL Problem" \
     152            -message "No output found in DISAGL output. Is something wrong with DISAGL settings or this .EXP file?" \
     153            -icon error
     154        return
     155    }
    150156     set mcb .maincontrolbox
    151157     catch {toplevel $mcb}
Note: See TracChangeset for help on using the changeset viewer.