sub Fenster_Entfernung_Benutzer { my ( $Fenster_Benutzer_Verwaltung , @DB_Eintraege_Entfernung ) = @_; # Ermittlung des Haupt - Fensters & der DB - Einträge # Selektierung freier Bereiche der Benutzer - Oberfläche if ( not @DB_Eintraege_Entfernung ) { print "Fehler bei der Erkennung des Eintrages" , "\n"; print "Fehler - Nr. : 2101" , "\n"; my $Fehler_Verarbeitung_Nummer = "2101"; # &Fehler_Verarbeitung( $Fehler_Verarbeitung_Nummer ); } # Selektierung eines Eintrags der Benutzer - Oberfläche if ( @DB_Eintraege_Entfernung ) { my $DB_Entfernung_Benutzer_Fenster = $Fenster_Benutzer_Verwaltung -> Toplevel( -title => 'Entfernung des Benutzers' ); # Initialisierung des Fensters für die Benutzer - Entfernung my $Breite = 235; # Breite des Fensters my $Hoehe = 245; # Höhe des Fensters $DB_Entfernung_Benutzer_Fenster -> geometry( $Breite . 'x' . $Hoehe ); # Darstellung der Labels $DB_Entfernung_Benutzer_Fenster -> Label( -text => "Label fuer die Entfernung des" , -height => 1 , -width => 26 , -font => 'Times 10' , -relief => 'groove' , -border => 0 , -borderwidth => 0 , -anchor => "w" ) -> place( -x => 26 , -y => 28 ); $DB_Entfernung_Benutzer_Fenster -> Label( -text => "Benutzer - Eintrages : " , -height => 1 , -width => 26 , -font => 'Times 10' , -relief => 'groove' , -border => 0 , -borderwidth => 0 , -anchor => "w" ) -> place( -x => 26 , -y => 46 ); $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 1 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 82 ); $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 2 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 104 ); $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 3 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 126 ); $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 5 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 148 ); $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 6 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 170 ); $DB_Entfernung_Benutzer_Fenster -> Button( -text => 'OK' , -width => 13 , -command => sub { &DB_Benutzer_Entfernung( $DB_Entfernung_Benutzer_Fenster , @DB_Eintraege_Entfernung ) } ) -> place( -x => 25 , -y => 205 ); $DB_Entfernung_Benutzer_Fenster -> Button( -text => 'Ende' , -width => 13 , -command => [ $DB_Entfernung_Benutzer_Fenster => 'destroy' ] ) -> place( -x => 116 , -y => 205 ); $DB_Entfernung_Benutzer_Fenster -> MainLoop( ); } }