Changeset 117

Timestamp:

Dec 4, 2009 5:00:41 PM (14 years ago)

Author:

toby

Message:

# on 1999/11/16 15:45:40, toby did:
add timing option for debug
try deleting trace for speed up (no improvement in speed under wish 8.1)

File:

• trunk/expgui (modified) (5 diffs, 3 props)

trunk/expgui

@@ -182 +182 @@
         unset exparray
     }
-    expload $expfile
+    set exploadtime [time {expload $expfile}]
+    if $expgui(debug) {puts "expload $exploadtime"}
     set expgui(changed) 0
     mapexp 
@@ -220 +221 @@
     # disable traces on entryvar until we are ready
     set entrycmd(trace) 0
+    trace vdelete entryvar w entvartrace
 
     # propogate changes on the least squares page
@@ -234 +236 @@
     # enable traces on entryvar
     set entrycmd(trace) 1
+    trace variable entryvar w entvartrace
+
     # set fo extaction on LS page
     SetupExtractHist
@@ -320 +324 @@
         .n raise lsPane
         set expgui(pagenow) lsFrame
+    }
+    if {[CountHistory] > 100} {
+        DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
     }
 }
@@ -3029 +3036 @@
     set expgui(pagenow) lsFrame
 }
+if {[CountHistory] > 100} {
+    DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
+}