32 lines
728 B
Forth
32 lines
728 B
Forth
:class TextView' super{ TextView }
|
|
:m put: ( addr len -- )
|
|
0 #ofChars: self SetSelect: self
|
|
insert: self ;m
|
|
;class
|
|
|
|
Window+ w
|
|
View wview
|
|
Button b
|
|
100 30 100 20 setFrame: b
|
|
TextView' t
|
|
200 30 200 15 setFrame: t
|
|
|
|
\ the running count is always on the stack
|
|
\ so a variable for that is not needed
|
|
:noname ( count -- count+1 )
|
|
1+ \ increment the count
|
|
" Number of clicks: " put: t
|
|
dup deciNumstr insert: t ; setAction: b \ update the text representation of count
|
|
|
|
: go
|
|
b addview: wview
|
|
t addview: wview
|
|
300 30 430 230 put: frameRect
|
|
frameRect " Test" docWindow
|
|
wview new: w show: w
|
|
" click me" setTitle: b
|
|
" There have been no clicks yet" put: t
|
|
0 ; \ the number of clicks start at zero
|
|
|
|
go
|