Fehler bei Listbox im Toplevel-fenster (Graphische Oberflächen)

[thread]4814[/thread]

Fehler bei Listbox im Toplevel-fenster

Gast Gast

2004-08-17 15:34

Mir gelingt es einfach nicht eine Listbox (Scrolled) in einen Toplevel-fenster zu integrieren. Ich habe ein menü und einen Button welcher die Sub-Routine &anzeigen startet.
Die Funktion sieht folgendermaßen aus:

Code: (dl )

sub anzeigen
{
my $top = $fenster->Toplevel();

#$top = new MainWindow;

$hlist = $top->Scrolled("HList",
            -header => 1,
            -columns => 5,
            -scrollbars => 'osoe',
            -width => 70,
               )->pack(-expand => 1, -fill => 'both');


$hlist->header('create', 0, -text => 'Datum');
$hlist->header('create', 1, -text => 'Start-KM');
$hlist->header('create', 2, -text => 'Ende-KM');
$hlist->header('create', 3, -text => 'Gefahrene KM');
$hlist->header('create', 4, -text => 'Grund');

open (EINGABE, "<fahrtenbuch.log");
@dateiinhalt = <EINGABE>;
close (EINGABE);

$eintragnr = 0;

foreach $satz (@dateiinhalt)
{
chop $satz;
@daten = split(/;/,$satz);
$gefkm = $daten[2]-$daten[1];
$hlist->add($eintragnr);
$hlist->itemCreate($eintragnr, 0, -text => "$daten[0]");
$hlist->itemCreate($eintragnr, 1, -text => "$daten[1]");
$hlist->itemCreate($eintragnr, 2, -text => "$daten[2]");
$hlist->itemCreate($eintragnr, 3, -text => "$gefkm");
$hlist->itemCreate($eintragnr, 4, -text => "$daten[3]");
$eintragnr++;
}
}

leider Funktioniert dieser Code aber nicht. Es funktioniert nur wenn ich es in einem Eigenen Script verwende also als Mainwindow. Woran kann dies liegen?

Gruss Kai

EDIT: Code-Tags spendiert.\n\n

ptk

2004-08-17 15:57