Re: Tk gemoetry scrolled frame

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;
[download]

Thank you for the help.

Comment on Re: Tk gemoetry scrolled frame Download Code

Replies are listed 'Best First'.
Re^2: Tk gemoetry scrolled frame by Takamoto (Monk) on Mar 30, 2019 at 12:47 UTC
No, actually it doesn't work. The Pane/Frame doesn't occupy the whole space, which can be seen reducing the height of the widget until the Scroll- bar is displayed. A bit puzzled...	[reply]
Re^3: Tk gemoetry scrolled frame by tybalt89 (Monsignor) on Mar 30, 2019 at 13:25 UTC
Try this #!/usr/bin/perl # https://perlmonks.org/?node_id=1231884 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(@packWidgetTopTit +el); $page1 -> Checkbutton(-text=>"My old data", -variable=>\$CkAtSearc +hUserDatabase)->pack(@packWidgetTop); #right my $PaneT = $page2->Scrolled('Pane', -scrollbars => 'osoe', -sticky => 'nsew', )->pack(-anchor=> 'w', -fill => 'x'); $PaneT->Label(-text=>"ON-LINE RESOURCES")->pack(@packWidgetTopTite +l); $PaneT -> Checkbutton(-text=>"YXX", -variable=>\$CkMergedWindow1)- +>pack(@packWidgetTop); $PaneT -> Checkbutton(-text=>"XYX", -variable=>\$CkMergedWindow2)- +>pack(@packWidgetTop); $PaneT -> Checkbutton(-text=>"XXY", -variable=>\$CkMergedWindow3)- +>pack(@packWidgetTop); MainLoop; [download]	[reply] [d/l]
Re^4: Tk gemoetry scrolled frame by Anonymous Monk on Mar 30, 2019 at 17:18 UTC
Here we are, tybalt89! I completely missed the -sticky option of the Pane! Thank you very much!	[reply]