Rosetta Code

User input/Graphical: Difference between revisions

Page Discussion

User input/Graphical (view source)

Revision as of 02:37, 22 July 2010

76 bytes removed ,  13 years ago
→‎{{header|J}}: tidy up
(→‎{{header|J}}: tidy up)
Line 251:
A revision of the script posted at the [http://rosettacode.org/wiki/Simple_Windowed_Application#J Simple_Windowed_Application]
 
<lang j>SIMPLEGUI=: 0noun : 0define
pc simpleGui;
xywh 136 39 44 12;cc closeaccept button;cn "CloseAccept";
xywh 0 14 60 11;cc IntegerLabel static ss_right;cn "Enter an integer";
xywh 65 13 60 12;cc integer edit;
Line 262:
)
 
simpleGui_run=: 3verb : 0define
wd SIMPLEGUI
wd 'set integer *', ": simpleGui_integer75000▼
simpleGui_integer=: '75000' NB. initialize integer
wd 'pshow;'▼
▲wd 'set integer *', ": simpleGui_integer
▲wd 'pshow;'
)
 
simpleGui_accept_button=: verb define
simpleGui_close=: 3 : 0▼
simpleGui_text ttxt=:. text
tint=. _". integer NB. invalid integers assigned value _
try.
if. tint ~: 75000 do.
simpleGui_integer =: ". integer
wdinfo 'Integer entered was not 75000.'
catch.
else.
wdinfo 'simpleGui_integer is Not a number'
simpleGui_cancel =: simpleGui_close ''▼
end.▼
'simpleGui_text simpleGui_integer'=: ttxt;tint
wd'pclose'
▲ end.
)
 
▲simpleGui_close=: 3wd :bind 0'pclose'
simpleGui_close_button=: 3 : 0
simpleGui_cancel=: simpleGui_close''
)
 
▲simpleGui_cancel =: simpleGui_close
 
simpleGui_run''</lang>
</lang>
 
The program stores the values entered as the variables <code>simpleGui_text</code> and <code>simpleGui_integer</code>.
After you enter values into the graphical display and click "Close", then you
can bring focus to the .ijx window to see results. Then you can type "simpleGui_integer 'return'" and "simpleGui_text 'return'" into the .ijx window to verify their values.
 
=={{header|Java}}==
Tikkanz
892

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/118804"