use strict; use warnings; package ZooZDemo; sub new { my $class = shift; my $tk = shift; my %self = ( tk => $tk, text => '', check1 => 0, check2 => 0, Label1 => '', looptext=> '' ); return bless \%self,$class; } sub doshortloop { my $self = shift; for (1..10) { print "$_"; $self->{looptext} = $_; if ($self->{tk}) { $self->{tk}->{Label1}->update(); } sleep 1; } } sub updatelabeltext { my $self = shift; $self->{Label2} = $self->{text}." - ".$self->{check1}." - ".$self->{check2}; if ($self->{tk}) { $self->{tk}->{Label2}->update(); } } sub getlabeltext { my $self = shift; return $self->{Label2}; } 1;