7 lines
180 B
Perl
7 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
|
|
});
|