Codebase list ohcount / upstream/4.0.0 test / detect_files / tcl_script
upstream/4.0.0

Tree @upstream/4.0.0 (Download .tar.gz)

tcl_script @upstream/4.0.0raw · history · blame

1
2
3
4
5
6
7
8
#!/bin/sh
# -*-Mode: TCL;-*-
# the next line restarts using wish \
exec wish "$0" "$@"

button .hello -text Hello \
	-command {puts stdout "Hello, World!"}
pack .hello -padx 20 -pady 10