use warnings; use strict; use Tk; my $hoehe = 80; my $breite = 600; my $hauptfenster = Tk::MainWindow->new(); my $fensterL = $hauptfenster->Canvas( -height => $hoehe, -width => $breite / 4, -background => 'chocolate', -relief => 'groove', -bd => 3 )->pack( -side => 'left', -fill => 'both', -expand => 1 ); my $fensterM = $hauptfenster->Frame( -height => $hoehe, -width => $breite / 4, -background => 'chocolate1', -relief => 'groove', -bd => 3 )->pack( -side => 'left', -fill => 'both', -expand => 1 ); my $fensterR = $hauptfenster->Frame( -height => $hoehe, -width => $breite / 4, -background => 'chocolate2', -relief => 'groove', -bd => 3 )->pack( -side => 'left', -fill => 'both', -expand => 1 ); my $fenster = $hauptfenster->Frame( -height => $hoehe, -width => $breite / 4, -background => 'chocolate3', -relief => 'groove', -bd => 3 )->pack( -side => 'left', -fill => 'both', -expand => 1 ); $fensterL->packPropagate(0); $fensterM->packPropagate(0); my $anmeld = $fensterL->Label( -text => "Anmeldename" )->pack( -side => 'top', -expand => 0, -fill => 'none' ); my $test = $fensterM->Button( -text => "Button" )->pack( -expand => 1, -fill => 'none' ); MainLoop();