mingw/lib/tk8.4/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 # RCS: @(#) $Id: hello,v 1.3 2001/10/29 16:42:20 dkf Exp $
  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: