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