Changeset 1115 for branches/sandbox/expgui

Timestamp:

Feb 26, 2011 9:47:37 PM (10 years ago)

Author:

toby

Message:

scan .EXP files for GENLES blowups; update web pages

File:

• branches/sandbox/expgui (modified) (5 diffs)

branches/sandbox/expgui

@@ -1 @@
-#!/bin/sh
+#!/bin/sh 
 # the next line restarts this script using wish found in the path\
 exec wish "$0" "$@"
@@ -157 +157 @@
 # setup DISAGL viewer & editor
 source [file join $expgui(scriptdir) disagledit.tcl]
-source [file join $expgui(scriptdir) geo_viewer.tcl]
+source [file join $expgui(scriptdir) Geo_Viewer.tcl]
 #---------------------------------------------------------------------------
 # override options with locally defined values
@@ -406 +406 @@
     # start checking for external changes
     afterawhile
+    # check if the file seems corrupt
+    set warnings [ScanEXPforError]
+    if {$warnings != ""} {
+        ExplainEXPerror . $warnings $expfile
+    }
 }
 
@@ -548 +553 @@
         set expgui(curhist) {}
     }
-    if {[CountHistory] > 100} {
-        DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
-    }
+#    if {[CountHistory] > 100} {
+#       DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
+#    }
 }
 
@@ -4519 +4524 @@
 update
 SetStartPanel
-if {[CountHistory] > 200} {
-    DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
-}
+#if {[CountHistory] > 200} {
+#    DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
+#}