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 # RCS: @(#) $Id: hello,v 1.4 2003/09/30 14:54:30 dkf Exp $
  10
  11 package require Tk
  12
  13 # The first line below creates the button, and the second line
  14 # asks the packer to shrink-wrap the application's main window
  15 # around the button.
  16
  17 button .hello -text "Hello, world" -command {
  18     puts stdout "Hello, world"; destroy .
  19 }
  20 pack .hello
  21
  22 # Local Variables:
  23 # mode: tcl
  24 # End: