Changeset 1117 for branches/sandbox

Timestamp:

Mar 3, 2011 5:32:58 PM (13 years ago)

Author:

toby

Message:

fail gracefully when DISAGL fails

File:

• branches/sandbox/Geo_Viewer.tcl (modified) (2 diffs)

branches/sandbox/Geo_Viewer.tcl

@@ -61 +61 @@
    set angle_total -1
 
-   catch {unset ::geo_phase_list}
+   set ::geo_phase_list {}
    catch {unset ::geo_angles}
    catch {unset ::geo_bonds}
@@ -148 +148 @@
     Geo_Read $root.disagl
     donewait
+    if {[llength  $::geo_phase_list] == 0} {
+        MyMessageBox -parent . -title "DISAGL Problem" \
+            -message "No output found in DISAGL output. Is something wrong with DISAGL settings or this .EXP file?" \
+            -icon error
+        return
+    }
      set mcb .maincontrolbox
      catch {toplevel $mcb}