programming-examples/perl/GUI/Using buildin bitmap- hourglass.pl

10 lines
107 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
use Tk;
my $main = MainWindow->new;
$main->Label(-bitmap => 'hourglass')->pack;
MainLoop;