2 # the next line restarts using wish \
6 # Simple Tk script to create a button that prints "Hello, world".
7 # Click on the button to terminate the program.
9 # RCS: @(#) $Id: hello,v 1.4 2003/09/30 14:54:30 dkf Exp $
13 # The first line below creates the button, and the second line
14 # asks the packer to shrink-wrap the application's main window
17 button .hello
-text "Hello, world" -command {
18 puts stdout
"Hello, world"; destroy .