Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Controlling resize of Tk::Panedwindow

by tybalt89 (Prior)
on Mar 03, 2021 at 01:36 UTC ( #11129054=note: print w/replies, xml ) Need Help??


in reply to Controlling resize of Tk::Panedwindow

Does this do what you want?

#!/usr/bin/perl use strict; use warnings; use Tk; use Tk::Adjuster; use Tk::Pane; my $mw = MainWindow->new; my $C = $mw->Frame(-bg => 'red', -width => 200, -height => 200, )->pack(-side => 'bottom', -expand => 0, -fill => 'x'); $mw->Adjuster()->packAfter($C, -side => 'bottom'); my $B = $mw->Scrolled(Frame => -scrollbars => 'osoe', -sticky => 'nsew +', -bg => 'green', -width => 100, -height => 200, )->pack(-side => 'right', -expand => 0, -fill => 'y'); $mw->Adjuster()->packAfter($B, -side => 'right'); $mw->Frame(-bg => 'blue', -width => 200, -height => 200, )->pack(-expand => 1, -fill => 'both'); $C->Button(-text => 'Quit', -command => sub {$mw->destroy}, )->pack(-side => 'right'); $C->Button(-text => $_)->pack(-side => 'left') for qw( one two three f +our); $B->Label(-text => $_)->pack(-fill => 'x') for 'Element Properties', qw( one two three four five six seven eight nine ten); MainLoop;

Replies are listed 'Best First'.
Re^2: Controlling resize of Tk::Panedwindow
by hv (Parson) on Mar 05, 2021 at 15:49 UTC

    Ah! It certainly appears to do what I want, and appears to be robust with everything I've thrown at it so far. I shall see what happens when I shoe-horn that into my nascent application.

    Thank you very much. :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11129054]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2022-01-19 14:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (55 votes). Check out past polls.

    Notices?