Changeset 117


Ignore:
Timestamp:
Dec 4, 2009 5:00:41 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 1999/10/11 19:48:35 to 1999/11/16 15:45:40
    • Property rcs:lines changed from +80 -48 to +13 -3
    • Property rcs:rev changed from 1.19 to 1.20
    r112 r117  
    182182        unset exparray
    183183    }
    184     expload $expfile
     184    set exploadtime [time {expload $expfile}]
     185    if $expgui(debug) {puts "expload $exploadtime"}
    185186    set expgui(changed) 0
    186187    mapexp
     
    220221    # disable traces on entryvar until we are ready
    221222    set entrycmd(trace) 0
     223    trace vdelete entryvar w entvartrace
    222224
    223225    # propogate changes on the least squares page
     
    234236    # enable traces on entryvar
    235237    set entrycmd(trace) 1
     238    trace variable entryvar w entvartrace
     239
    236240    # set fo extaction on LS page
    237241    SetupExtractHist
     
    320324        .n raise lsPane
    321325        set expgui(pagenow) lsFrame
     326    }
     327    if {[CountHistory] > 100} {
     328        DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
    322329    }
    323330}
     
    30293036    set expgui(pagenow) lsFrame
    30303037}
     3038if {[CountHistory] > 100} {
     3039    DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
     3040}
Note: See TracChangeset for help on using the changeset viewer.