Rosetta Code

User input/Graphical: Difference between revisions

Page Discussion

User input/Graphical (view source)

Revision as of 01:54, 22 January 2019

521 bytes removed ,  5 years ago
m
→‎{{header|Perl}}: XUL is no longer supported by Mozilla
m (→‎{{header|Perl}}: XUL is no longer supported by Mozilla)
Line 1,036:
 
=={{header|Perl}}==
==={{libheader|Perl/Wx}}===
 
<lang perl>use Wx;
 
# ---------------------------------------------------------------
 
package MyApp;
Line 1,079 ⟶ 1,075:
 
MyApp->new->MainLoop;</lang>
 
==={{libheader|XUL::Gui}}===
<lang perl>use XUL::Gui;
 
display Window
title => 'Input Window',
width => 250,
height => 150,
TextBox( id => 'txt' ),
TextBox( id => 'num', type => 'number' ),
Button(
label => 'OK',
oncommand => sub {
print "String: " . ID(txt)->value . "\n"
. "Number: " . ID(num)->value . "\n";
quit;
},
);</lang>
 
=={{header|Perl 6}}==
SqrtNegInf
2,392

edits

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