Mega Code Archive

 

Categories / Perl / GUI

 

Using buildin bitmap

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