stk/Demos/hello.stk

15 lines
472 B
Bash
Executable File

#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$@"
;; Simple Tk script to create a button that prints "Hello, world".
;; Click on the button to terminate the program.
;;
;; The first line below creates the button, and the second line
;; arranges for packer to manage the button's geometry, centering
;; it in the application's main window.
(button '.hello :text "Hello, world"
:command (lambda ()
(display "Hello, world\n")
(destroy *root*)))
(pack .hello)