Changeset 1182 for branches/sandbox


Ignore:
Timestamp:
Dec 6, 2011 2:40:30 PM (9 years ago)
Author:
toby
Message:

bug fixes: dummy hist: disable CIF read; remove default phase when loading from a EXP; fix bug where .EXP files were read twice after an update; ShowCallStack?: new routine for debug; liveplot: new option to set title from histogram file name (requested by Ling Yang)

Location:
branches/sandbox
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/addcmds.tcl

    r1163 r1182  
    10561056        $np.d1.m2 config -text {}
    10571057        $np.b1 config -state disabled
     1058        $np.b1a config -state disabled
    10581059        grid forget $np.l3 $np.e3 $np.cb3 $np.cb4 $np.cb5 $np.bank $np.f6a
    10591060        grid $np.dl1 -column 0 -row 18
     
    10971098        }
    10981099        $np.b1 config -state normal
     1100        $np.b1a config -state normal
    10991101        grid $np.bank -column 2 -row 3 -columnspan 7 -sticky ew
    11001102        grid $np.f6a -column 4 -row 18 -rowspan 3
  • branches/sandbox/dumpexp.tcl

    r930 r1182  
    121121        grab .
    122122        focus .
     123        set phase {}
    123124        tkwait variable phase
    124125    }
  • branches/sandbox/expgui

    r1173 r1182  
    541541    loadexp $newexpfile
    542542
    543     # switch to the appropriate 1st page
    544     #StageTabUse
    545     SetStartPanel
    546 
    547543    # reset the phase selection
    548544    set expgui(curPhase) {}
     
    554550        set expgui(curhist) {}
    555551    }
    556 #    if {[CountHistory] > 100} {
    557 #       DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
    558 #    }
     552    # switch to the appropriate 1st page
     553    #StageTabUse
     554    SetStartPanel
    559555}
    560556
     
    841837        }
    842838        set ans [ReloadExpMsg [file tail $expgui(expfile)] $expgui(changed)]
    843 
     839        # did a load already occur while we were waiting for an answer?
     840        if {[file mtime $expgui(expfile)] == $expgui(expModifiedLast)} {
     841            return
     842        }
    844843        if {$ans == 0} {
    845844            loadexp $expgui(expfile)
  • branches/sandbox/gsascmds.tcl

    r1172 r1182  
    604604}
    605605
     606# for use in debugging -- how did I get here!
     607proc ShowCallStack {} {
     608    puts "\n================== ShowCallStack ==============="
     609    set n [info level]
     610    incr n -1
     611    while {$n > 0} {
     612        puts "level $n: [info level $n]"
     613        incr n -1
     614    }
     615}
    606616#------------------------------------------------------------------------------
    607617# profile/symmetry routines
     
    27872797
    27882798proc ExplainEXPerror {parent message file} {
     2799    #ShowCallStack
    27892800    if {$parent == "."} {
    27902801        set w .experr
  • branches/sandbox/liveplot

    r1180 r1182  
    626626    tkwait window $bx
    627627    afterputontop
     628    plotdata
     629}
     630
     631proc SetHistTitle {} {
     632    set ::plot_title [histinfo $::hst file]
    628633    plotdata
    629634}
     
    23382343.a.file.menu add command -label "Set Plot Title" \
    23392344        -command SetTitle
     2345.a.file.menu add command -label "Set Plot Title to data file" \
     2346        -command SetHistTitle
    23402347.a.file.menu add cascade -label "Export plot" -menu .a.file.menu.export
    23412348menu .a.file.menu.export
Note: See TracChangeset for help on using the changeset viewer.