You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
331 B
22 lines
331 B
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; |