Changeset 233


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

# on 2000/07/06 21:36:22, toby did:
add profile constraint subpage
rename DeleteEditAtomConstraint? to CancelEditConstraint?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/atomcons.tcl

    • Property rcs:date changed from 2000/06/09 03:44:35 to 2000/07/06 21:36:22
    • Property rcs:lines changed from +2 -2 to +14 -7
    • Property rcs:rev changed from 1.5 to 1.6
    r198 r233  
    1515            -createcmd "MakeAtomsConstraintsPane" \
    1616            -raisecmd "DisplayAtomConstraints"]   
    17     # a profile constraints page (someday)
    18     $expgui(consFrame).n  insert end profile -text Profile -state disabled
     17    # profile constraints page
     18    catch {
     19        source [file join $expgui(scriptdir) profcons.tcl]
     20        set expcons(profilemaster) [\
     21                $expgui(consFrame).n  insert end profile -text Profile \
     22                -createcmd "MakeProfileConstraintsPane" \
     23                -raisecmd "DisplayProfileConstraints"]   
     24    }
    1925}
    2026
     
    220226        grid $expcons(atommaster).scroll -sticky ns -column 2 -row 0
    221227    }
    222     # report constraint errors
    223228    $expcons(atommaster).canvas config \
    224229            -height $maxheight \
    225230            -width [lindex $sizes 2]
     231    $expgui(consFrame).n compute_size
     232    # report constraint errors
    226233    set msg {}
    227234    foreach key [lsort [array names varlist]] {
     
    306313            -column 0 -row 4
    307314    grid [button $top.quit -text "Cancel Changes" \
    308             -command "DeleteEditAtomConstraint $top"]  -column 1 -row 4
     315            -command "CancelEditConstraint $top"]  -column 1 -row 4
    309316
    310317    set col 0
     
    336343        incr ic
    337344        regexp {(.*)_(.*)_(.*)} $key dummy phase var mult
    338 }
     345    }
    339346    # delete traces on expcons(var1)
    340347    foreach v [ trace vinfo expcons(var1)] {
     
    380387
    381388# called when the "Cancel Changes" button is pressed
    382 proc DeleteEditAtomConstraint {top} {
     389proc CancelEditConstraint {top} {
    383390    set ans [MyMessageBox -type "{Abandon Changes} {Continue Edit}" \
    384391            -parent [winfo toplevel $top] -default "abandon changes" \
Note: See TracChangeset for help on using the changeset viewer.