Ignore:
Timestamp:
Feb 26, 2011 9:47:37 PM (10 years ago)
Author:
toby
Message:

scan .EXP files for GENLES blowups; update web pages

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1112 r1115  
    1 #!/bin/sh
     1#!/bin/sh 
    22# the next line restarts this script using wish found in the path\
    33exec wish "$0" "$@"
     
    157157# setup DISAGL viewer & editor
    158158source [file join $expgui(scriptdir) disagledit.tcl]
    159 source [file join $expgui(scriptdir) geo_viewer.tcl]
     159source [file join $expgui(scriptdir) Geo_Viewer.tcl]
    160160#---------------------------------------------------------------------------
    161161# override options with locally defined values
     
    406406    # start checking for external changes
    407407    afterawhile
     408    # check if the file seems corrupt
     409    set warnings [ScanEXPforError]
     410    if {$warnings != ""} {
     411        ExplainEXPerror . $warnings $expfile
     412    }
    408413}
    409414
     
    548553        set expgui(curhist) {}
    549554    }
    550     if {[CountHistory] > 100} {
    551         DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
    552     }
     555#    if {[CountHistory] > 100} {
     556#       DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
     557#    }
    553558}
    554559
     
    45194524update
    45204525SetStartPanel
    4521 if {[CountHistory] > 200} {
    4522     DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
    4523 }
     4526#if {[CountHistory] > 200} {
     4527#    DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
     4528#}
Note: See TracChangeset for help on using the changeset viewer.