Tk::Bitmap - Bitmap-Grafiken in Perl-GUI anzeigen

Es gibt einige eingebaute Bitmaps, die bei jeder Tk-Installation dabei sind. Diese sind besonders dann praktisch, wenn man mal schnell ein Icon braucht, aber keine Lust hat, sich eins zu suchen und einzubinden. Zehn solcher Bitmaps stehen zur Verfügung: error, gray75, gray50, gray25, gray12, hourglass, info, questhead, question und warning. Tk::Bitmap kann natürlich auch verwendet werden, um andere, eigene Bitmaps inzubinden.

Nachfolgendes Beispiel zeigt die Bitmaps in Verbindung mit einem Button.

Bitmap-Buttons mit Tk::Bitmap

#!perl

use strict;
use warnings;
use utf8;
use Moose;
use Tk;

my $mw = tkinit();

my @bitmaps = (qw/error gray75 gray50 gray25 gray12 hourglass
    info questhead question warning/);

# Diese Bitmaps gibt es nur auf Macs:
if ( $^O eq 'darwin' ) {
	push @bitmaps, (qw/document stationery edition
    application accessory folder pfolder trash floppy ramdisk
    cdrom preferences querydoc stop note caution/);
}


foreach my $pic ( @bitmaps ) {
	$mw->Button(
		-text => $pic,
		-bitmap => $pic,
		-compound => 'top',
	)->pack(-side => 'left', -padx => 2,);
}

$mw->MainLoop;
exit(0);
Top