"... wonder if I could add the 'scroll' feature ..."
Tk::Scrolled explains how to do that.
It sounds like your application is very similar (at least in terms of GUI layout) to one I wrote quite a few years ago and which I run (without any problems) fairly regularly. I put the entire Tk::NoteBook in a scrolled Tk::Pane.
Here's a severely cutdown version of just the relevant code:
my $mw = MainWindow->new(); ... build_main_pane(\$mw); ... sub build_main_pane { my $mw = ${+shift}; my $mp = $mw->Scrolled(q{Pane}, -scrollbars => q{osoe}, -sticky => q{nsew}, ); $mp->pack(-fill => q{both}, -expand => 1); build_notebook($mp); return; } sub build_notebook { my ($parent) = @_; my $nb = $parent->NoteBook(); $nb->pack(-fill => q{both}, -expand => 1); build_pages($nb); return; } sub build_pages { my ($nb) = @_; build_example_page($nb); build_other_page($nb); ... build_last_page($nb); return; } sub build_example_page { my ($nb) = @_; my $example_page = $nb->add(example_page => -label => 'Example Page', ... ); ... }
-- Ken
In reply to Re^3: How to set the MainWindow agile to the context in Perl/Tk
by kcott
in thread How to set the MainWindow agile to the context in Perl/Tk
by Janish
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |