Simple windowed application: Difference between revisions
m
→{{header|J}}
m (→with iMops) |
m (→{{header|J}}) |
||
Line 1,947:
=={{header|J}}==
'''J 9.x''' (note: the J 8.x version works fine under J 9.x)<lang J>simple_run=: {{
simple_clicks=: 0 NB. initialize accumulator
wd {{)n
pc simple closeok escclose;
cc click button;cn "Click me";
cc message static;cn "There have been no clicks yet.";
pshow;
}}}}
simple_run''
simple_click_button=: {{wd 'set message text Button-use count: ',": simple_clicks=: 1+simple_clicks}}</lang>
'''J 8.x'''
<lang j>SIMPLEAPP=: noun define
| |||