5 lines
91 B
Tcl
Executable File
5 lines
91 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
package require Tk
|
|
button .b -text exit -command {puts bye; exit}
|
|
pack .b
|