WxPerl und AnyEvent - #136903 (Graphische Oberflächen)

esskar

2010-05-07 11:22

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hätte ja gedacht, dass lichtkind da mal mit aufspringt

Code (perl): (dl )

1
2
3

my $timer = Wx::Timer->new( $self, -1 );
Wx::Event::EVT_TIMER($self, -1, sub { shift->gewicht } );
$timer->Start( 1 * 1000, 0 );