Changeset 320


Ignore:
Timestamp:
Dec 4, 2009 5:04:05 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/profcons.tcl

    • Property rcs:date changed from 2000/07/06 20:33:55 to 2000/10/12 21:30:14
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +17 -6
    r228 r320  
    207207    if {$msg != ""} {
    208208        set msg "Error: a phase/histogram profile can appear in only one constraint. Here is a list of parameters that are referenced in more than one constraint:\n\n$msg"
    209         MyMessageBox -icon error -message $msg -parent [winfo toplevel $expgui(consFrame)]
     209        MyMessageBox -icon error -message $msg \
     210                -helplink "expgui6.html ProfileConstraintErr" \
     211                -parent [winfo toplevel $expgui(consFrame)]
    210212    }
    211213}
     
    279281    catch {toplevel $top}
    280282    eval destroy [grid slaves $top]
     283    bind $top <Key-F1> "MakeWWWHelp expgui6.html EditProfileConstraints"
    281284
    282285    if {$num != "add"} {
     
    347350    grid [button $top.add -text "New Column" \
    348351            -command "NewProfileConstraintColumn $top $cfr" \
    349             ] -column 0 -row 4  -columnspan 2
     352            ] -column 0 -row 4  -columnspan 2 -sticky ew
    350353    grid [button $top.done -text "Save" \
    351354            -command "SaveProfileConstraint $num [list $term] $top" \
    352             ] -column 0 -row 5
    353     grid [button $top.quit -text "Cancel Changes" \
     355            ] -column 0 -row 5 -sticky ns
     356    grid [button $top.quit -text "Cancel\nChanges" \
    354357            -command "CancelEditConstraint $top" \
    355358            ]  -column 1 -row 5
     359    grid [button $top.help -text Help -bg yellow \
     360            -command "MakeWWWHelp expgui6.html EditProfileConstraints"] \
     361            -column 2 -row 4 -columnspan 99 -rowspan 2 -sticky e
    356362
    357363    set col 0
     
    587593        MyMessageBox -icon warning \
    588594                -message "Note: you have entered [llength $conslist] terms, only 27 can be used" \
     595                -helplink "expgui6.html ProfileConstraintsMax" \
    589596                -parent [winfo toplevel $expgui(consFrame)]
    590597        return
     
    610617    set top {.editcons}
    611618    catch {toplevel $top}
     619    bind $top <Key-F1> "MakeWWWHelp expgui6.html NewProfileConstraints"
    612620    eval destroy [grid slaves $top]
    613621
     
    655663    grid [button $top.b2 -text Cancel \
    656664            -command "set expcons(createflag) 0"] -sticky w -column 1 -row 5
    657    
     665    grid [button $top.help -text Help -bg yellow \
     666            -command "MakeWWWHelp expgui6.html NewProfileConstraints"] \
     667            -column 2 -row 5 -columnspan 99 -sticky e
     668
    658669    # default values by 1st histogram
    659670    set h [lindex $expmap(powderlist) 0]
Note: See TracChangeset for help on using the changeset viewer.