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