Changeset 152


Ignore:
Timestamp:
Dec 4, 2009 5:01:16 PM (11 years ago)
Author:
toby
Message:

# on 2000/05/18 15:58:18, toby did:
Add constraints support
move to 1st page before loading a new .EXP file in readnewexp
hange from grid/pack slaves to winfo children

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2000/05/17 18:45:27 to 2000/05/18 15:58:18
    • Property rcs:lines changed from +48 -32 to +19 -10
    • Property rcs:rev changed from 1.24 to 1.25
    r139 r152  
    128128# commands for adding phases, histograms & atoms
    129129source [file join $expgui(scriptdir) addcmds.tcl]
     130# commands for constraints
     131source [file join $expgui(scriptdir) atomcons.tcl]
    130132#---------------------------------------------------------------------------
    131133# override options with locally defined values
     
    326328    if {$newexpfile == ""} return
    327329
     330    # switch to the 1st page
     331    RaisePage lsFrame
     332
    328333    if ![file exists $newexpfile] {
    329334        # you've been warned this .EXP does not exist!
     
    345350        set expgui(curhist) {}
    346351    }
    347     RaisePage lsFrame
    348352    if {[CountHistory] > 100} {
    349353        DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"
     
    674678proc setphases {} {
    675679    global expgui expmap
    676     eval destroy [pack slaves $expgui(phaseFrame).top.ps]
     680    eval destroy [winfo children $expgui(phaseFrame).top.ps]
    677681    foreach num $expmap(phaselist) type $expmap(phasetype) {
    678682        pack [button $expgui(phaseFrame).top.ps.$num -text $num \
     
    12191223        grid $expgui(histFrame).top -column 1 -row 0 -sticky nsew       
    12201224        set expgui(bkglbl) ""
    1221         eval destroy [grid slaves $expgui(diffBox)]
     1225        eval destroy [winfo children $expgui(diffBox)]
    12221226        set entrycmd(trace) 1
    12231227        return
     
    12591263    }
    12601264
    1261     eval destroy [grid slaves $expgui(diffBox)]
     1265    eval destroy [winfo children $expgui(diffBox)]
    12621266    if {$expgui(globalmode) == 0} {
    12631267        if {[string range $expmap(htype_$hist) 2 2] == "T"} {
     
    15951599        # destroy the contents of the frame
    15961600        set phaseFractf1 $expgui(FracBox).f
    1597         eval destroy [grid slaves $phaseFractf1]
     1601        eval destroy [winfo children $phaseFractf1]
    15981602        # reenable traces on entryvar
    15991603        set entrycmd(trace) 1
     
    16321636    set phaseFractf1 $expgui(FracBox).f
    16331637    # destroy the contents of the frame
    1634     eval destroy [grid slaves $phaseFractf1]
     1638    eval destroy [winfo children $phaseFractf1]
    16351639    if {$expgui(globalmode) != 0} {
    16361640        set txt "Phase Fractions for Histograms: [CompressList $histlist]"
     
    17121716
    17131717    # destroy the contents of the frame
    1714     eval destroy [grid slaves $expgui(ProfileBox).f]
     1718    eval destroy [winfo children $expgui(ProfileBox).f]
    17151719
    17161720    if {$expgui(globalmode) == 0} {
     
    21832187    global expgui expmap
    21842188    # destroy the contents of the frame
    2185     eval destroy [grid slaves $w]
     2189    eval destroy [winfo children $w]
    21862190    set histlist {}
    21872191    foreach n $expgui(curhist) {
     
    24372441    lappend expgui(frameactionlist) "profFrame DisplayProfile"
    24382442    lappend expgui(GlobalModeAllDisable) "profFrame {.n itemconfigure profPane}"
     2443    set expgui(consFrame) [\
     2444            .n insert end consPane -text Constraints \
     2445            -raisecmd "set expgui(pagenow) consFrame; DisplayConstraintsPane"\
     2446            -createcmd MakeConstraintsPane]
     2447    lappend expgui(frameactionlist) "consFrame DisplayConstraintsPane"
    24392448} else {
    24402449    Notebook:create .n -pages {lsFrame phaseFrame histFrame fracFrame profFrame}
Note: See TracChangeset for help on using the changeset viewer.