17 lines
377 B
Perl
17 lines
377 B
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;
|
||
|
|
},
|
||
|
|
);
|