8 lines
134 B
Tcl
8 lines
134 B
Tcl
package require Tk
|
|
|
|
wm title . "Button example"
|
|
frame .main
|
|
pack .main
|
|
button .mybutton -text "press me" -command baah
|
|
pack .mybutton
|