hallo zusammen,

hier also ein code-fragment. auf der ersten registerseite, wie gesagt recht viele widgets und auf der zweiten seite nur wenige. wenn ihr das skript startet, stellt ihr fest, auf der zweiten seite befinden sich die widgets in der mitte der seite und nicht, wie ich es gerne hätte links oben.

vielleicht stell ich mich ja auch nur dumm an, aber auch wenn ich die widgets der zweiten seite in einen frame packe ändert sich nichts.

als hier der Code:

#!/usr/bin/perl -w

use Tk;
use Tk::NoteBook;

# Hauptfenster erzeugen
my $mw = MainWindow->new();

# Notebooksteuerelement mit zwei Registern erzeugen
my $noteb = $mw->NoteBook(-relief => 'flat',
-font =>'Helvetica 11 bold',
)->pack(-expand => 1,
-fill => 'both');

# Register erstellen
my $regEins = $noteb->add('Register 1',
-label => 'Register 1');
my $regZwei = $noteb->add('Register 2',
-label => 'Register 2');

# im ersten Register eine Reihe von Widgets erzeugen
my $lblEins= $regEins->Label(-text => 'Label 1',
-width => 13,
-anchor => 'w',
)->grid(-column => 0,
-row => 0,
-sticky => 'we',
-padx => 2,
-pady => 1);
my $txtEins = $regEins->Entry(-width => 20,
)->grid(-column => 1,
-row => 0,
-sticky => 'w',
-padx => 2,
-pady =>1);

my $lblZwei= $regEins->Label(-text => 'Label 2',
-width => 13,
-anchor => 'w',
)->grid(-column => 2,
-row => 0,
-sticky => 'we',
-padx => 2,
-pady => 1);
my $txtZwei = $regEins->Entry(-width => 20,
)->grid(-column => 3,
-row => 0,
-sticky => 'w',
-padx => 2,
-pady =>1);

my $lblDrei= $regEins->Label(-text => 'Label 3',
-width => 13,
-anchor => 'w',
)->grid(-column => 0,
-row => 1,
-sticky => 'we',
-padx => 2,
-pady => 1);
my $txtDrei = $regEins->Entry(-width => 20,
)->grid(-column => 1,
-row => 1,
-sticky => 'w',
-padx => 2,
-pady =>1);

my $lblVier= $regEins->Label(-text => 'Label 1',
-width => 13,
-anchor => 'w',
)->grid(-column => 0,
-row => 2,
-sticky => 'we',
-padx => 2,
-pady => 1);
my $txtVier = $regEins->Entry(-width => 20,
)->grid(-column => 1,
-row => 2,
-sticky => 'w',
-padx => 2,
-pady =>1);

# viel weniger Widgets auf dem zweiten Registern
my $lblFuenf= $regZwei->Label(-text => 'Label 5',
-width => 13,
-anchor => 'w',
)->grid(-column => 0,
-row => 0,
-sticky => 'we',
-padx => 2,
-pady => 1);
my $txtFuenf = $regZwei->Entry(-width => 20,
)->grid(-column => 1,
-row => 0,
-sticky => 'w',
-padx => 2,
-pady =>1);

# Hauptschleife
MainLoop();