#########
# TEST  #
#########

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new(-background=> '#EFEFEF', -width=> '700', -height=> '500');
my $titel = $mw->title('CW Testprogramm');

my $txt = $mw->Label(-text=> 'Dieses Programm wurde von Daniel & Christopher entwickelt.',-background=> '#EFEFEF')->pack(-anchor=> 'se');

my $pixel = <<'END';
static char *test[]= {
"32 32 11 1",
". c #8F8F8F", #Dunkelgrau
"a c #00A0FF", #Hellblau
"b c #009F00", #Grün
"c c #FF0000", #Rot
"d c #000000", #Schwarz
"e c #FF7F00", #Orange
"# c None",    #None
"#####################",
"#######ccccccccc#######    ",
"#######ccccccccc#######    ",
"#####ccccccccccccc#####    ",
"#######################    "};
End

my $bmp = $mw->Pixmap(-data=>$pixel);
my $ff = $mw->Icon(-image=> $bmp);

MainLoop();