#!/usr/bin/perl # ------------------------------------------------------------------------------------------ use strict; use warnings; use Tk; use utf8; # ------------------------------------------------------------------------------------------ my $Haupt_Fenster; my $mlistbox_inhalte; my @auflistung_mlistbox_details; ------------------------------------------------------------------------------------------ &Haupt_Fenster( ); # ------------------------------------------------------------------------------------------ sub Haupt_Fenster { $Haupt_Fenster = MainWindow -> new; my $Breite = 640; my $Hoehe = 480; $Haupt_Fenster -> geometry( $Breite . 'x' . $Hoehe ); $Haupt_Fenster -> update; my $Top_Level = $Haupt_Fenster -> toplevel; }