Select Code to Download

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

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