package Tk::Whatever; require Tk::Something; require Tk::Derived; @ISA = qw(Tk::Derived Tk::Something);
sub Populate { my ($cw,$args) = @_; ... $cw->SUPER::Populate($args); $cw->ConfigSpecs(...); ... }
Tk::Derived should precede any Tk widgets in the class's @ISA
.
Tk::Derived's main purpose is to apply wrappers to configure
and cget
methods of widgets to allow the derived widget to add to or modify behaviour
of the configure options supported by the base widget.
The derived class should normally override the Populate
method provided
by Tk::Derived and call ConfigSpecs
to declare configure options.
The public methods provided by Tk::Derived are as follows: