Simple windowed application: Difference between revisions
→{{header|J}}: Simplify
m (→{{header|PowerShell}}: removed Import-Module) |
(→{{header|J}}: Simplify) |
||
Line 558:
=={{header|J}}==
<lang j>SIMPLEAPP=:
pc simpleApp;
xywh
xywh 7 10 115 11;cc shownText static;cn "There have been no clicks yet.";
pas 6 6;pcenter;
Line 567 ⟶ 566:
)
simpleApp_run=:
wd SIMPLEAPP
simpleApp_accum=: 0 NB. initialize accumulator
wd 'pshow;'
)
simpleApp_close=: 3 : 0▼
wd 'set shownText *','Button-use count: ',": simpleApp_accum=: >: simpleApp_accum▼
)
simpleApp_cancel=: simpleApp_close
▲simpleApp_inc_button=: 3 : 0
▲wd 'set shownText *','Button-use count: ',": simpleApp_accum=: >: simpleApp_accum
simpleApp_run''</lang>
|