package TkAddBuddy;

use warnings;
use strict;

use Milkbone;
use Milkbone::AddBuddy;
use Milkbone::AddBuddyGroup;

register_hook("dlg_add_buddy", sub {
	my $parent = $ARGS{-parent};

	$parent->MBAddBuddy->init;
});

register_hook("dlg_add_buddy_group", sub {
	my $parent = $ARGS{-parent};

	$parent->MBAddBuddyGroup->init;
});

1;