Using buildin bitmap: hourglass

   

use Tk;

my $main = MainWindow->new;

$main->Label(-bitmap => 'hourglass')->pack;


MainLoop;

1.	Using buildin bitmap: error
2.	Using buildin bitmap: gray12
3.	Using buildin bitmap: gray25
4.	Using buildin bitmap: gray50
5.	Using buildin bitmap: gray75
6.	Using buildin bitmap: info
7.	Using buildin bitmap: questhead
8.	Using buildin bitmap: question
9.	Using buildin bitmap: warning

Using buildin bitmap: hourglass : Buildin Bitmap « GUI « Perl