Changeset 320 for trunk

Timestamp:

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

Author:

toby

Message:

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

File:

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

trunk/profcons.tcl

@@ -207 +207 @@
     if {$msg != ""} {
         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"
-        MyMessageBox -icon error -message $msg -parent [winfo toplevel $expgui(consFrame)] 
+        MyMessageBox -icon error -message $msg \
+                -helplink "expgui6.html ProfileConstraintErr" \
+                -parent [winfo toplevel $expgui(consFrame)] 
     }
 }
@@ -279 +281 @@
     catch {toplevel $top}
     eval destroy [grid slaves $top]
+    bind $top <Key-F1> "MakeWWWHelp expgui6.html EditProfileConstraints"
 
     if {$num != "add"} {
@@ -347 +350 @@
     grid [button $top.add -text "New Column" \
             -command "NewProfileConstraintColumn $top $cfr" \
-            ] -column 0 -row 4  -columnspan 2
+            ] -column 0 -row 4  -columnspan 2 -sticky ew
     grid [button $top.done -text "Save" \
             -command "SaveProfileConstraint $num [list $term] $top" \
-            ] -column 0 -row 5
-    grid [button $top.quit -text "Cancel Changes" \
+            ] -column 0 -row 5 -sticky ns
+    grid [button $top.quit -text "Cancel\nChanges" \
             -command "CancelEditConstraint $top" \
             ]  -column 1 -row 5
+    grid [button $top.help -text Help -bg yellow \
+            -command "MakeWWWHelp expgui6.html EditProfileConstraints"] \
+            -column 2 -row 4 -columnspan 99 -rowspan 2 -sticky e
 
     set col 0
@@ -587 +593 @@
         MyMessageBox -icon warning \
                 -message "Note: you have entered [llength $conslist] terms, only 27 can be used" \
+                -helplink "expgui6.html ProfileConstraintsMax" \
                 -parent [winfo toplevel $expgui(consFrame)] 
         return
@@ -610 +617 @@
     set top {.editcons}
     catch {toplevel $top}
+    bind $top <Key-F1> "MakeWWWHelp expgui6.html NewProfileConstraints"
     eval destroy [grid slaves $top]
 
@@ -655 +663 @@
     grid [button $top.b2 -text Cancel \
             -command "set expcons(createflag) 0"] -sticky w -column 1 -row 5
-    
+    grid [button $top.help -text Help -bg yellow \
+            -command "MakeWWWHelp expgui6.html NewProfileConstraints"] \
+            -column 2 -row 5 -columnspan 99 -sticky e
+
     # default values by 1st histogram
     set h [lindex $expmap(powderlist) 0]