programming-examples/perl/GUI/Using buildin bitmap- gray50.pl
2019-11-15 12:59:38 +01:00

8 lines
97 B
Perl

use Tk;
my $main = MainWindow->new;
$main->Label(-bitmap => 'gray50')->pack;
MainLoop;