sub Fehler_Verarbeitung { # Übergabe des Fehler - Codes aus Sub - Routine my $Fehler_Verarbeitung_Code = $_[ 0 ]; # Initialisierung des Fehler - Fensters my $Fehler_Verarbeitung_Fenster = new Win32::GUI::Window( -name => "Fehler_Verarbeitung", -title => "Fehler - Verarbeitung", -pos => [ 100, 100 ] , -size => [ 350, 150 ] , -resizabble => 0 , -helpbox => 1 , -minimizebox => 0 , -maximizebox => 0 , -topmost => 1 , ); # Initialisierung der Schrift für Texte des Fehler - Fensters my $Fehler_Verarbeitung_Schrift_Generelles = Win32::GUI::Font -> new( -size => 8 , -bold => 0 , -underline => 0 ); # Initialisierung der Schrift für Verweise des Fehler - Fensters my $Fehler_Verarbeitung_Schrift_Verweise = Win32::GUI::Font -> new( -size => 8 , -bold => 0 , -underline => 1 ); # Allgemeine Fehler - Meldung $Fehler_Verarbeitung_Fenster -> AddLabel( -text => "Fehler bei der Ausfuehrung des Befehls." , -font => $Fehler_Verarbeitung_Schrift_Generelles , -pos => [ 100 , 25 ] ); # Spezifischer Fehler - Code $Fehler_Verarbeitung_Fenster -> AddLabel( -text => "Aktueller Fehler - Code : $Fehler_Verarbeitung_Code" , -font => $Fehler_Verarbeitung_Schrift_Generelles , -pos => [ 100 , 45 ] ); # Allgemeiner Verweis auf die Fehler - Verwaltung $Fehler_Verarbeitung_Fenster -> AddLabel( -text => "Mehr ..." , -onClick => sub{ \&Fehler_Hilfe_Oberflaeche( $Fehler_Verarbeitung_Code , $Fehler_Verarbeitung_Fenster ) } , -font => $Fehler_Verarbeitung_Schrift_Verweise , -notify => 1 , -pos => [ 100 , 75 ] ); $Fehler_Verarbeitung_Fenster -> Enable( ); # Aktivierung des Fensters $Fehler_Verarbeitung_Fenster -> Show( ); # Darstellung des Fensters Win32::GUI::Dialog;