Changeset 318 for trunk/atomcons.tcl

Timestamp:

Dec 4, 2009 5:04:03 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/atomcons.tcl (modified) (6 diffs, 3 props)

trunk/atomcons.tcl

@@ -243 +243 @@
     if {$msg != ""} {
         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"
-        MyMessageBox -icon error -message $msg -parent [winfo toplevel $expgui(consFrame)] 
+        MyMessageBox -icon error -message $msg \
+                -helplink "expgui6.html AtomConstraintsError" \
+                -parent [winfo toplevel $expgui(consFrame)] 
     }
 }
@@ -261 +263 @@
             -parent [winfo toplevel $expcons(atommaster)] \
             -type {No Delete} -default no] == "no"} return
-#    if {![tk_dialog .delete {Delete Constraints?} \
-#               "Do you want to delete constraint(s) [CompressList $dellist]?" \
-#               warning 0 {No} {Delete}] } return
-
     foreach num [lsort -decreasing -integer $dellist] {
         constrinfo atom delete $num
@@ -278 +276 @@
     set top {.editcons}
     catch {toplevel $top}
+    bind $top <Key-F1> "MakeWWWHelp expgui6.html EditAtomConstraints"
     eval destroy [grid slaves $top]
     if {$num == "new"} {
@@ -308 +307 @@
     grid [button $top.add -text "New Column" \
             -command "NewAtomConstraintColumn $top $cfr $num"] \
-            -column 0 -row 3  -columnspan 2
+            -column 0 -row 3  -columnspan 2 -sticky ew
     grid [button $top.done -text "Save" \
             -command "SaveAtomConstraint $num $top"] \
-            -column 0 -row 4
-    grid [button $top.quit -text "Cancel Changes" \
+            -column 0 -row 4 -sticky ns
+    grid [button $top.quit -text "Cancel\nChanges" \
             -command "CancelEditConstraint $top"]  -column 1 -row 4
+    grid [button $top.help -text Help -bg yellow \
+            -command "MakeWWWHelp expgui6.html EditAtomConstraints"] \
+            -column 2 -row 3 -columnspan 99 -rowspan 2 -sticky e
 
     set col 0
@@ -390 +392 @@
     set ans [MyMessageBox -type "{Abandon Changes} {Continue Edit}" \
             -parent [winfo toplevel $top] -default "abandon changes" \
-            -icon warning -message \
+            -helplink "expguierr.html AbandonEditConstraints" \
+            -icon warning -message  \
             {Do you want to lose any changes made to this constraint?}]
     if {$ans == "abandon changes"} {destroy $top}
@@ -634 +637 @@
                     "There are [llength $clist] parameters in this constraint, but only 100 are allowed in an atom constraint." \
                     -parent [winfo toplevel $expcons(atommaster)] \
+                    -helplink "expgui6.html AtomConstraintsMax" \
                     -type {Fix} -default fix -icon error
             return