use base   qw/Tk::Derived Tk::DialogBox/;