1 files changed, 18 insertions, 0 deletions
diff --git a/library/demos/hello b/library/demos/hello
new file mode 100644
index 0000000..cad76bd
--- /dev/null
+++ b/library/demos/hello
@@ -0,0 +1,18 @@
+#!/bin/sh
+# the next line restarts using wish \
+exec wish "$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.1.4.1 1998/09/30 02:17:47 stanton 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