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