milkbone/plugins/Tk-About/Tk-About.pl

package TkAbout;

use Milkbone;
use Milkbone::About;

my $mw = hook("tk_getmain");

register_hook "show_about", sub { $mw->MBAbout->focus; };