Anonymous user
Simple windowed application: Difference between revisions
m
Alphabetized
m (Switch to header template) |
m (Alphabetized) |
||
Line 157:
)
createDialog buttonClick
=={{header|Tcl}}==▼
{{library|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]."}▼
=={{header|Python}}==
Line 184 ⟶ 176:
w.mainloop()
</pre>
▲=={{header|Tcl}}==
▲{{library|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]."}
| |||