Anonymous user
Animation: Difference between revisions
→{{header|Perl}}
mNo edit summary |
|||
Line 705:
<lang Perl>use XUL::Gui;
my $dir = '(.+)(.)';
interval {
ID(lbl)->value =~ s{
} 75;
display Label
id => 'lbl',
value => "Hello World! "
onclick => sub {toggle $dir => '(.+)(.)', '(.)(.+)'};</lang>
=={{header|PureBasic}}==
| |||