Simple windowed application: Difference between revisions
Content added Content deleted
(Add Red) |
No edit summary |
||
Line 1,611: | Line 1,611: | ||
initiating counting cleaning</lang> |
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}}== |
=={{header|FreeBASIC}}== |