]> cvs.zerfleddert.de Git - micropolis/blame - src/tk/library/demos/hello
rename setenv and unsetenv to not clash with functions provided by libc
[micropolis] / src / tk / library / demos / hello
CommitLineData
6a5fa4e0
MG
1#!/usr/local/bin/wish -f
2# Simple Tk script to create a button that prints "Hello, world".
3# Click on the button to terminate the program.
4#
5# The first line below creates the button, and the second line
6# arranges for packer to manage the button's geometry, centering
7# it in the application's main window.
8
9button .hello -text "Hello, world" -command {
10 puts stdout "Hello, world"; destroy .
11}
12pack append . .hello {top}
Impressum, Datenschutz