Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #! /bin/env tclsh
- package require Tk
- # 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}
Add Comment
Please, Sign In to add comment