| #!/bin/sh |
| # the next line restarts using wish \ |
| exec wish8.4 "$0" "$@" |
| |
| # hello -- |
| # Simple Tk script to create a button that prints "Hello, world". |
| # Click on the button to terminate the program. |
| # |
| # RCS: @(#) $Id: hello,v 1.3 2001/10/29 16:42:20 dkf Exp $ |
| # |
| # The first line below creates the button, and the second line |
| # asks the packer to shrink-wrap the application's main window |
| # around the button. |
| |
| button .hello -text "Hello, world" -command { |
| puts stdout "Hello, world"; destroy . |
| } |
| pack .hello |
| |
| # Local Variables: |
| # mode: tcl |
| # End: |