10 lines
374 B
Plaintext
10 lines
374 B
Plaintext
to clickwindow
|
|
windowCreate "root "clickWin [Click that button!!!] 0 0 100 100 []
|
|
Make "i 0
|
|
staticCreate "clickWin "clickSt [There have been no clicks yet] 0 0 100 20
|
|
buttonCreate "clickWin "clickBtn [click me] 10 20 80 20 ~
|
|
[Make "i :i+1 ~
|
|
ifelse :i=1 [staticUpdate "clickSt (list "clicked :i "time)] ~
|
|
[staticUpdate "clickSt (list "clicked :i "times)]]
|
|
end
|