our @ISA = qw(Tk::Derived Tk::Entry);