Like this?
#!/usr/bin/perl # http://perlmonks.org/?node_id=1191061 use strict; use warnings; use Tk; use Tk::NoteBook; use Tk::Pane; our $mw = MainWindow->new; $mw->geometry("800x1000"); # Create the NoteBook and add pages my $pane = $mw->Scrolled( 'Pane', -scrollbars => 'osoe', -bg => 'green', -sticky => 'nsew', )->pack( -fill=>'both', -expand=>1); my $n = $pane->Scrolled('NoteBook', -scrollbars => 'os', #-dynamicgeometry => 'true', )->pack( -fill => 'both', -expand => 1); create_tab("mytab $_") for 1..20; sub create_tab { my $tabname = shift; my $tn = $n->add($tabname, -label => $tabname, -underline => 0); my $t = $tn->Text(-wrap => 'none', )->pack(-expand => 1, -fill => 'both'); $t->tagConfigure ('bold', -font => [ -size => 0, -weight => 'bold' + ]); return $t; } MainLoop;
In reply to Re: Perl Tk Notebook not filling main window height
by tybalt89
in thread Perl Tk Notebook not filling main window height
by madhusudhan_s
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |