Updated 2014-05-31 17:54:31 by pooryorick
# Create the main message window
message .m -text {Hello Tcl!} -background white
pack .m -expand true -fill both -ipadx 100 -ipady 40

# Create the main menu bar with a Help-About entry
menu .menubar
menu .menubar.help -tearoff 0
.menubar add cascade -label Help -menu .menubar.help -underline 0
.menubar.help add command -label {About Hello ...} \
    -accelerator F1 -underline 0 -command showAbout

#  Define a procedure - an action for Help-About
proc showAbout {} {
    tk_messageBox -message {Tcl/Tk\nHello Windows\nVersion 1.0} \
        -title {About Hello}
}

#  Configure the main window
wm title . {Hello Foundation Application}
. configure -menu .menubar -width 200 -height 150
bind . <Key F1> showAbout