Codebase list ohcount / bullseye-backports/main test / detect_files / tcl_script
bullseye-backports/main

Tree @bullseye-backports/main (Download .tar.gz)

tcl_script @bullseye-backports/mainraw · 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