git.oblomov.eu Git - ohcount/blob - test/detect_files/tcl_script

   1 #!/bin/sh
   2 # -*-Mode: TCL;-*-
   3 # the next line restarts using wish \
   4 exec wish "$0" "$@"
   5
   6 button .hello -text Hello \
   7         -command {puts stdout "Hello, World!"}
   8 pack .hello -padx 20 -pady 10