Added 'C_C++/Tcl/exit.tcl'
This commit is contained in:
4
C_C++/Tcl/exit.tcl
Executable file
4
C_C++/Tcl/exit.tcl
Executable file
@ -0,0 +1,4 @@
|
||||
#!/usr/bin/tclsh
|
||||
package require Tk
|
||||
button .b -text exit -command {puts bye; exit}
|
||||
pack .b
|
Reference in New Issue
Block a user