After playing around a little bit, I came out with a solution. Here is the final code.
use strict; use warnings; use Tk; use Tk::NoteBook; use Tk::Pane; my (@packWidgetTopTitel) = qw/-side top -anchor w -pady 1m/; my (@packWidgetTop) = qw/-side top -anchor w/; my $CkAtSearchUserDatabase; my $CkMergedWindow1; my $CkMergedWindow2; my $CkMergedWindow3; my $mw = MainWindow->new(); my $book = $mw->NoteBook(-relief => 'flat')->pack(-side => 'top' , -ex +pand => '1', -fill => "both", -ipadx => 6, -ipady => 6); my $page1 = $book->add( "Sheet1", -label=>'left'); my $page2 = $book->add( "Sheet2", -label=>'right'); #left $page1->Label(-text => "OFF-LINE RESOURCES")->pack(@packWidgetTopT +itel); $page1 -> Checkbutton(-text=>"My old data", -variable=>\$CkAtS +earchUserDatabase)->pack(@packWidgetTop); #right my $PaneT = $page2->Scrolled('Pane', -scrollbars => 'oe', )->pack(-anchor=> 'w'); $PaneT->Label(-text=>"ON-LINE RESOURCES")->pack(@packWidgetTop +Titel); $PaneT -> Checkbutton(-text=>"YXX", -variable=>\$CkMergedWindo +w1)->pack(@packWidgetTop); $PaneT -> Checkbutton(-text=>"XYX", -variable=>\$CkMergedWindo +w2)->pack(@packWidgetTop); $PaneT -> Checkbutton(-text=>"XXY", -variable=>\$CkMergedWindo +w3)->pack(@packWidgetTop); MainLoop;
Thank you for the help.
In reply to Re: Tk gemoetry scrolled frame
by Takamoto
in thread Tk geometry scrolled frame
by Takamoto
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |