tk:frame

[moof15]

Can someone please explain how to do a frame within a frame?

Thanks,
moof15

 

[goBoating]

#!/usr/local/bin/perl
use Tk;
use Tk::Pane;
use strict;

my $mw = new MainWindow;
$mw->Label(-text=>'Some Text in a Label above a scrolled pane')->pack(-side=>'top');

my $frame1 = $mw->Frame(-borderwidth=>'5', -background=>'white')->pack(-side=>'top', -fill=>'both');
$frame1->Button(-command=> sub {exit} )->pack(-side=>'left');

my $frame2 = $frame1->Frame(-borderwidth=>'5', -background=>'black')->pack(-side=>'top', -fill=>'both');
$frame2->Button(-command=> sub {exit} )->pack(-side=>'left');	

MainLoop;

'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[moof15]

Thanks,

Moof15