Changeset 1115 for branches/sandbox/expgui
- Timestamp:
- Feb 26, 2011 9:47:37 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/expgui
r1112 r1115 1 #!/bin/sh 1 #!/bin/sh 2 2 # the next line restarts this script using wish found in the path\ 3 3 exec wish "$0" "$@" … … 157 157 # setup DISAGL viewer & editor 158 158 source [file join $expgui(scriptdir) disagledit.tcl] 159 source [file join $expgui(scriptdir) geo_viewer.tcl]159 source [file join $expgui(scriptdir) Geo_Viewer.tcl] 160 160 #--------------------------------------------------------------------------- 161 161 # override options with locally defined values … … 406 406 # start checking for external changes 407 407 afterawhile 408 # check if the file seems corrupt 409 set warnings [ScanEXPforError] 410 if {$warnings != ""} { 411 ExplainEXPerror . $warnings $expfile 412 } 408 413 } 409 414 … … 548 553 set expgui(curhist) {} 549 554 } 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 # } 553 558 } 554 559 … … 4519 4524 update 4520 4525 SetStartPanel 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.