Changeset 319


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

    • Property rcs:date changed from 2000/09/26 17:57:10 to 2000/10/12 21:30:14
    • Property rcs:lines changed from +27 -4 to +6 -2
    • Property rcs:rev changed from 1.3 to 1.4
    r286 r319  
    4343        toplevel .choose
    4444        wm title .choose "Choose CIF Block"
     45        bind .choose <Key-F1> "MakeWWWHelp expguierr.html ChooseCIF"
    4546        grid [label .choose.0 -text \
    4647                "More than one block in CIF $filename\ncontains coordinates.\nSelect the block to use" \
     
    5960                ] -row 1 -rowspan $row -column 1
    6061        grid [button .choose.ok -text OK -command "destroy .choose"] \
    61                 -row [incr row] -column 0 -columnspan 2
     62                -row [incr row] -column 0 -sticky w
     63        grid [button .choose.help -text Help -bg yellow \
     64            -command "MakeWWWHelp expguierr.html ChooseCIF"] \
     65            -column 1 -row $row -sticky e
    6266        tkwait window .choose
    6367    }
Note: See TracChangeset for help on using the changeset viewer.