use Tk;
use Tk::DialogBox;
use Tk::Wm;
## overrides
sub Tk::Wm::Pancake { ... }
sub Tk::DialogBox::Syrup  { ... }

##</code><code>##

package Tk::JoyDialogBox;
use Tk::widgets qw/ DialogBox /;
use base qw/ Tk::DialogBox /;
Construct Tk::Widget 'JoyDialogBox';
sub Pancake { ... }
sub Syrup { ... }