1  #!/bin/sh
 2  # the next line restarts using wish \
 3  exec wish "$0" ${1+"$@"}
 4  
 5  # hello --
 6  # Simple Tk script to create a button that prints "Hello, world".
 7  # Click on the button to terminate the program.
 8  
 9  package require Tk
10  
11  # The first line below creates the button, and the second line
12  # asks the packer to shrink-wrap the application's main window
13  # around the button.
14  
15  button .hello -text "Hello, world" -command {
16      puts stdout "Hello, world"; destroy .
17  }
18  pack .hello
19  
20  # Local Variables:
21  # mode: tcl
22  # End: