Opened by Hubbi at 2010-05-06 12:57
Hier mal mein Gesamtcode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
$self->{timer} = Wx::Timer->new();
$self->{timer}->Start(1000);
$self->__set_properties();
$self->__do_layout();
Wx::Event::EVT_TIMER($self->{timer}, -1 , \&gewicht);
...
sub gewicht {
my ($self, $event) = @_;
my @wert = wiegen(1);
$self->{kg}->SetLabel("ja")
}
...