mingw/lib/tk8.5/demos/hello

   1 #!/bin/sh
   2 # the next line restarts using wish \
   3 exec wish "$0" "$@"
   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: