Hello,

I would like to enhance the widget Tk::Entry by some features (without putting a frame around) and for a first quich hack I wrote something like

package Tk::Widget;
use Tk::Entry;
# ...
sub MyEntry { # construcor
  # ...
  my $entry = $parent->Entry(.....);
}
[download]

(code shortened to the essentials) which seems to work, but doesn't look too pretty in my eyes.

Well, then I found out about Tk::Widget and tried something like

package Tk::MyEntry;
require Tk::Widget;
use base qw(Tk::Entry);
Construct Tk::Widget 'MyEntry';
# ...
[download]

which gave me the following errormessage that this way can only be used with Widgets based on Tk::Frame

Can't locate object method "Construct" via package "Tk::Widget" at ...
+Tk/Frame.pm line 13...
[download]

Well, then I searched the books Mastering Perl/Tk and Learning Perl/Tk, but didn't find anything helpful in this case, and all the widget's sourcecode I found was based on a frame.

Please, could you give me a hint on how to inherit from Tk::Entry properly?

(Btw: on CPAN there is no module with the same features, and I'd like to share this module with others when it is finished)