package Tk::Varname::BrowseEntry; use Tk; use Tk::BrowseEntry; our @ISA = qw(Tk::Derived Tk::BrowseEntry); sub Populate{ # ... } 1;