Select Code to Download

#=====================================================================
+========
#                ZtkBubble  Class
...
$self->{timer} = $widget->after($self->{afterdelay}, sub { $self->_mov
+e() });
}
1;

#!/usr/bin/perl
use Tk; 
...
    my $string = shift;
    $zinc->itemconfigure($text, -text => $string);
}