Cheers,package Tk::Foon; use base qw(Tk::Label Tk::Derived); #<= changed order Construct Tk::Widget 'Foon'; sub ClassInit { my($class, $mw) = @_; $class->SUPER::ClassInit($mw); } sub Populate { my($self, $args) = @_; $self->SUPER::Populate($args); $self->ConfigSpecs('DEFAULT' => [ 'SELF' ]); }
In reply to Re: Tk widget derivation problems
by JamesNC
in thread Tk widget derivation problems
by anjiro
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |