Anordnung von Widgets mit pack() (Perl/TK)

[Maik Görgens]

Hallo!

Ich hab grad ein Problem damit, in einem Tk-Programm folgende Anordnung der Widgets mit pack() zu erreichen:

Label | Entry | Button
----------------------
Label | Entry | Button

Ich habe folgenden Code (der allerdings nicht die gewünschte Anordnung erzeugt):

##################################################################
$o->Label(-text => 'Datei auswählen:')->pack(-side => 'left');
$o->Entry()->pack(-side => 'left');
$o->Button(-text => 'Durchsuchen')->pack(-side => 'left');

$o->Label(-text => 'Ordner auswählen:')->pack(-side => 'bottom');
$o->Entry()->pack(-side => 'left');
$o->Button(-text => 'Durchsuchen')->pack(-side => 'left');
##################################################################

Ich weiß, das das mit grid() einfacher zu lösen sein dürfte, aber ich brauche eine Lösung für pack().

Viele Grüße
   Maik Görgens