package TkConf; use Milkbone; use Milkbone::Conf; use Tk; use warnings; use strict; my $mw = hook("tk_getmain"); register_hook "dlg_edit_conf", sub { my $file = $mw->MBConf; $file->init; }; 1;