Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | #!/bin/sh |
2 | # the next line restarts using wish \ | |
3 | exec wish8.4 "$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: |