15 lines
472 B
Bash
Executable File
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)
|