Anonymous user
Simple windowed application: Difference between revisions
no edit summary
(Add Red) |
No edit summary |
||
Line 1,611:
initiating counting cleaning</lang>
===with iMops===
{{works with|iMops|2.23}}
{{Macintosh only}}
Uses native MacOS GUI calls to Cocoa.
<lang 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
0 value cnt
:noname
1 ++> cnt
" Number of clicks: " put: t
cnt deciNumstr insert: t ; setAction: b
: 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 ;
go</lang>
=={{header|FreeBASIC}}==
| |||