Q: How to resize TK window panels

[Daniel Burgaud]

Hi,

I have the following Perl Script. It displays two Scrolled Text Left and
Right.
My problem is, how to resize the widths of the panels.
Is there a switch that will automatically adjust the width or I manually
dragging
the edges?

thanks.

Dan

#######################################################################
strict;

require Win32::Console;    import Win32::Console;
use Time::HiRes qw(time usleep);
use Tk;
require Tk::ROText;


my $mw = MainWindow->new( );

$mw->minsize(630,500);
my %frames;

$frames{'display'}    = $mw->Frame( -borderwidth => 2, )->pack( -side =>
'top', -expand => 1, -fill => 'both');
$frames{'display-l'}    = $frames{'display'}->Scrolled    ('ROText', -font
=> ['Courier', 9,'normal'], -relief => 'groove', -scrollbars => 'e',)->pack(
-side => 'left',  -expand => 1, -fill => 'both', );
$frames{'display-r'}    = $frames{'display'}->Scrolled    ('ROText', -font
=> ['Courier', 9,'normal'], -relief => 'groove', -scrollbars => 'e',)->pack(
-side => 'right', -expand => 1, -fill => 'both', );

while (1) {
    $mw->update();
    usleep 50000;
}
#######################################################################

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs