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