====== # 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 . showAbout ====== <> Example | GUI