Thread Toplevel Window wird nicht angezeigt: Perl: Tk, Toplevel (12 answers)
Opened by quetzalcoatl at 2004-04-01 16:12

quetzalcoatl
 2004-04-01 16:12
#41864 #41864
User since
2004-04-01
51 Artikel
BenutzerIn
[default_avatar]
Hallo,

erstmal vielen Dank für die sehr gelungene HowTo! :)

Hab nun ein kleines Problem:

Ich hab ein Programm mit mehreren Unterfunktionen, bei den aber leider kein Toplevel Window angezeigt wird.

hier mal ein kleiner ausschnitt dazu:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
# Main Window mit dem Titel "Xfbsuite" erstellen:
my $main = MainWindow->new(-title => "Xfbsuite");
my $lable = $main->Label(-text=>"Auswahl")->pack();

# Zwei Frames erstellen (hframe, frm1):

my $hframe= $main->Frame()->pack(-side=>'top', -expand=>1, -fill=>'both');

my $frm1 = $hframe->Frame(-borderwidth=>1, -relief=>'groove')->pack(-side=>'left', -expand=>1, -fill=>'both');

$frm1->Button(-text => 'RAM',-underline => 0,-command=>sub{ ram() } )->pack(-side=>'top', -ipadx => $ipadx, -ipady=> $ipady, -pady=> $pady, -padx=>$padx);

MainLoop();

so, weiter unten eben die "ram()" funktion:
Code: (dl )
1
2
3
4
5
6
7
8
$topw = $main->Toplevel(); 
$label = $topw->Label(-text => "Hallo")->pack();
$close = $topw->Button(-text => "Close",-command => sub { $topw-> destroy() })->pack;
$topw->Entry()->pack();
$topw->Popup();
......
weiterer code..
.......


Seltsamerweise überspringt er einfach den Code mit dem Toplevel Window - und geht einfach weiter zum "weiterere Code...".

Jemand vielleicht ne idee? Ich probier da nun schon "ewig" rum (seit gestern mittag) - und komm aber nicht dahinter. Hab auch schon die "MainLoop()" Funktion ganz ans Ende des Skriptes gesetzt (selber effekt), das Toplevel Window von dem ersten frame ausgehen lassen...usw. Ich weiß echt nicht was ich noch versuchen könnte. :(

Wenn jemand noch ne idee hat - würde mich riesig freuen.
Danke!

Gruss,
quetzalcoatl

View full thread Toplevel Window wird nicht angezeigt: Perl: Tk, Toplevel