Changeset 319 for trunk/import_cif.tcl

Timestamp:

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

Author:

toby

Message:

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

File:

• trunk/import_cif.tcl (modified) (2 diffs, 3 props)

trunk/import_cif.tcl

@@ -43 +43 @@
         toplevel .choose
         wm title .choose "Choose CIF Block"
+        bind .choose <Key-F1> "MakeWWWHelp expguierr.html ChooseCIF"
         grid [label .choose.0 -text \
                 "More than one block in CIF $filename\ncontains coordinates.\nSelect the block to use" \
@@ -59 +60 @@
                 ] -row 1 -rowspan $row -column 1 
         grid [button .choose.ok -text OK -command "destroy .choose"] \
-                -row [incr row] -column 0 -columnspan 2
+                -row [incr row] -column 0 -sticky w
+        grid [button .choose.help -text Help -bg yellow \
+            -command "MakeWWWHelp expguierr.html ChooseCIF"] \
+            -column 1 -row $row -sticky e
         tkwait window .choose
     }