Greetings monks! Question for everyone
I'm trying to create a custom frame that can have its border color changed (not just black). I've created a mega widget that basically places a frame inside a frame. I can then change the background of the outer frame to simulate a different colored border. Works great, with one exception; I can't seem to place (pack) objects such as a button on my new cool frame, easily. It want's to pack it onto the outer frame not on the inner frame.
I found that I have to reference the {'inner'} frame directly if I want to pack something onto it. I would really like to be able to just create my new colored frame and place something onto it just like a normal frame.
Any thought?
Here is the code for my mega widget:
package Tk::CoolFrame;
use strict;
use warnings;
use vars qw/$VERSION/;
$VERSION = '1.0';
use base qw(Tk::Frame);
Construct Tk::Widget 'CoolFrame';
sub ClassInit {
my($class, $mw) = @_;
$class->SUPER::ClassInit($mw);
}
sub Populate {
my($self, $args) = @_;
$self->SUPER::Populate($args);
my $outer = $self->Frame()->pack(-fill=> 'both', -expand=> 1);
my $inner = $outer->Frame()->pack(-fill=> 'both', -expand=> 1);
$self->ConfigSpecs(
-background => [{-background => $inner}, 'background', 'Backg
+round', '#d9d9d9'], # grey
-bordercolor => [{-background => $outer}, 'bordercolor', 'Bord
+ercolor', '#000000'], # black
-borderwidth => [{-borderwidth => $outer}, 'borderwidth', 'Bor
+derwidth', 1],
'DEFAULT' => [$outer],
);
$self->{outer} = $outer;
$self->{inner} = $inner;
}
1;
__END__
Program to demo my colored frame:
#!/usr/local/bin/perl -w
use strict;
use warnings;
use Tk;
use CoolFrame;
my $mw = MainWindow->new();
$mw->geometry( );
my $frame = $mw->CoolFrame(
-bordercolor => 'red',
-background=> 'white',
)->pack(-padx => 5, -pady => 5);
# THIS WORKS
my $button = $frame->{'inner'}->Button(
-text=> "Exit",
-command=> sub{ exit; },
)->pack(-padx => 5, -pady => 5);
# THIS IS WHAT I WOULD LIKE TO DO!
# my $button = $frame->Button(
# -text=> "Exit",
# -command=> sub{ exit; },
# )->pack(-padx => 5, -pady => 5);
MainLoop();
1;
__END__
Thank you for your time!