8 lines
180 B
Perl
8 lines
180 B
Perl
|
use XUL::Gui;
|
||
|
|
|
||
|
|
display
|
||
|
|
TextBox( id=>'txt', value=>'there have been no clicks yet' ),
|
||
|
|
Button( label=>'click me', oncommand=>sub{
|
||
|
|
$ID{txt}->value = ++$clicks
|
||
|
|
});
|