User input/Graphical: Difference between revisions
Content added Content deleted
m (→{{header|Scala}}: Rm Scala imp category) |
(→{{header|J}}: add version for J8) |
||
Line 490: | Line 490: | ||
=={{header|J}}== |
=={{header|J}}== |
||
'''J 8.x''' |
|||
<lang j>SIMPLEGUI=: noun define |
|||
pc simpleGui; |
|||
cc IntegerLabel static;cn "Enter the integer 75000"; |
|||
cc integer edit; |
|||
cc TextLabel static;cn "Enter text"; |
|||
cc text edit; |
|||
cc accept button;cn "Accept"; |
|||
pshow; |
|||
) |
|||
simpleGui_run=: wd bind SIMPLEGUI |
|||
simpleGui_close=: wd bind 'pclose' |
|||
simpleGui_cancel=: simpleGui_close |
|||
simpleGui_accept_button=: verb define |
|||
ttxt=. text |
|||
tint=. _". integer |
|||
if. tint ~: 75000 do. |
|||
wdinfo 'Integer entered was not 75000.' |
|||
else. |
|||
simpleGui_close '' |
|||
'simpleGui_text simpleGui_integer'=: ttxt;tint |
|||
end. |
|||
) |
|||
simpleGui_run''</lang> |
|||
'''J 6.x''' |
|||
A revision of the script posted at the [[Simple Windowed Application#J|Simple Windowed Application]] |
A revision of the script posted at the [[Simple Windowed Application#J|Simple Windowed Application]] |
||