7 lines
206 B
Tcl
7 lines
206 B
Tcl
package require Tk
|
|
pack [label .l -text "There have been no clicks yet"]
|
|
set count 0
|
|
pack [button .b -text "click me" -command upd]
|
|
proc upd {} {
|
|
.l configure -text "Number of clicks: [incr ::count]"
|
|
}
|