1#!/bin/sh
2# the next line restarts using wish \
3exec 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
15button .hello -text "Hello, world" -command {
16    puts stdout "Hello, world"; destroy .
17}
18pack .hello
19
20# Local Variables:
21# mode: tcl
22# End:
23