Zweitfenster durch 2. MainLoop?: Anmelde- und Arbeitsfenster benötigt - #45320 (Graphische Oberflächen)

Matze

2006-04-13 20:05

User since
2005-08-29
222 Artikel
BenutzerIn

Warum benutzt du nicht auch einfach 2 MainWindows ?
Wenn dus dann noch mit protocol("WM_DELETE_WINDOW"); zusammentust, würde es doch gut funktionieren, oder ?

Code: (dl )

#!/perl -w
#
use Tk;

my $mw1 = MainWindow->new();
$mw1->protocol("WM_DELETE_WINDOW",
  sub {
    my $mw2 = MainWindow->new();

    # Datenbank füllen
    # usw.
  });

# Anmelden...

MainLoop;

MfG. Matze

Mit freundlichen Grüßen: Matze