Changeset 318 for trunk/atomcons.tcl


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

# on 2000/10/12 21:30:14, toby did:
Add www help support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/atomcons.tcl

    • Property rcs:date changed from 2000/07/06 21:36:22 to 2000/10/12 21:30:14
    • Property rcs:lines changed from +14 -7 to +14 -10
    • Property rcs:rev changed from 1.6 to 1.7
    r233 r318  
    243243    if {$msg != ""} {
    244244        set msg "Error: an atomic parameter can appear in only one constraint. Here is a list of parameters that are referenced in more than one constraint:\n\n$msg"
    245         MyMessageBox -icon error -message $msg -parent [winfo toplevel $expgui(consFrame)]
     245        MyMessageBox -icon error -message $msg \
     246                -helplink "expgui6.html AtomConstraintsError" \
     247                -parent [winfo toplevel $expgui(consFrame)]
    246248    }
    247249}
     
    261263            -parent [winfo toplevel $expcons(atommaster)] \
    262264            -type {No Delete} -default no] == "no"} return
    263 #    if {![tk_dialog .delete {Delete Constraints?} \
    264 #               "Do you want to delete constraint(s) [CompressList $dellist]?" \
    265 #               warning 0 {No} {Delete}] } return
    266 
    267265    foreach num [lsort -decreasing -integer $dellist] {
    268266        constrinfo atom delete $num
     
    278276    set top {.editcons}
    279277    catch {toplevel $top}
     278    bind $top <Key-F1> "MakeWWWHelp expgui6.html EditAtomConstraints"
    280279    eval destroy [grid slaves $top]
    281280    if {$num == "new"} {
     
    308307    grid [button $top.add -text "New Column" \
    309308            -command "NewAtomConstraintColumn $top $cfr $num"] \
    310             -column 0 -row 3  -columnspan 2
     309            -column 0 -row 3  -columnspan 2 -sticky ew
    311310    grid [button $top.done -text "Save" \
    312311            -command "SaveAtomConstraint $num $top"] \
    313             -column 0 -row 4
    314     grid [button $top.quit -text "Cancel Changes" \
     312            -column 0 -row 4 -sticky ns
     313    grid [button $top.quit -text "Cancel\nChanges" \
    315314            -command "CancelEditConstraint $top"]  -column 1 -row 4
     315    grid [button $top.help -text Help -bg yellow \
     316            -command "MakeWWWHelp expgui6.html EditAtomConstraints"] \
     317            -column 2 -row 3 -columnspan 99 -rowspan 2 -sticky e
    316318
    317319    set col 0
     
    390392    set ans [MyMessageBox -type "{Abandon Changes} {Continue Edit}" \
    391393            -parent [winfo toplevel $top] -default "abandon changes" \
    392             -icon warning -message \
     394            -helplink "expguierr.html AbandonEditConstraints" \
     395            -icon warning -message  \
    393396            {Do you want to lose any changes made to this constraint?}]
    394397    if {$ans == "abandon changes"} {destroy $top}
     
    634637                    "There are [llength $clist] parameters in this constraint, but only 100 are allowed in an atom constraint." \
    635638                    -parent [winfo toplevel $expcons(atommaster)] \
     639                    -helplink "expgui6.html AtomConstraintsMax" \
    636640                    -type {Fix} -default fix -icon error
    637641            return
Note: See TracChangeset for help on using the changeset viewer.