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
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
