use strict;
use Tk;
my $mw = MainWindow -> new();

my $screenx = $mw   -> screenwidth();
my $screeny = $mw   -> screenheight();

$mw                 -> FullScreen(1);
$mw                 -> geometry("${screenx}x$screeny");

$canvas = $mw       -> Canvas(-bd     => 0,
                               -relief => "flat")->
                          pack(-fill   => "both",
                               -expand => 1);

# Und hier jetzt jeden Pixel in ein Widget, so dass
# ich möglichst schnell farblich die Pixel verändern kann.

MainLoop;