Simple windowed application: Difference between revisions

m
(Added Processing implementation)
Line 1,629:
200 30 200 15 setFrame: t
 
\ the running count is always on the stack
0 value cnt
\ so a variable for that is not needed
:noname
1+ \ increment the count
1 ++> cnt
" Number of clicks: " put: t
cntdup deciNumstr insert: t ; setAction: b \ update the text representation of count
 
: go
Line 1,643 ⟶ 1,644:
" click me" setTitle: b
" There have been no clicks yet" put: t ;
0 ; \ the number of clicks start at zero
 
go</lang>