package Milkbone::AddBuddyGroup;

use Milkbone;

our $VERSION = '1.0';

use Tk::widgets qw(Frame);
use base qw(Tk::Toplevel);
use strict;
use warnings;

Construct Tk::Widget 'MBAddBuddyGroup';

sub ClassInit
{
	my ($class, $mw) = @_;
	$class->SUPER::ClassInit($mw);
}

sub Populate
{
	my ($self, $args) = @_;
	$self->SUPER::Populate($args);
}

sub on_add {
    my ($self) = @_;

    my $group = $self->{entry}->get();
    hook("protocol_add_buddy_group", -group => $group);    
    hook("protocol_commit_blist");
	$self->destroy;
}

sub init
{
	my ($self) = @_;

	$self->withdraw;

	$self->configure(-title => "Add Group");
	$self->focus();

	$self->Label(-text => 'Group name:', -anchor=>'w')->pack();
	$self->{entry} = $self->Entry( 
		-background => 'white', -width => 16, -takefocus => 1)->pack(-expand => 1, -fill => 'both', -padx => 4);
	
	$self->Button(-text => "Cancel", -command => [ $self, "destroy"])->pack(-pady => 6,  -padx=>6, -side=>'right');
	$self->Button(-text => "Add", -command => [ $self, "on_add"])->pack(-pady => 6,  -padx=>6, -side=>'right');
	
	$self->bind('<Return>' => [$self, 'on_add']);
	$self->bind("<Escape>" => [$self, "destroy"]);
	hook("tk_seticon", -wnd => $self);

	$self->update;
	$self->geometry("+" . int(($self->screenwidth() / 2) - int($self->width() / 2)) . "+" . int(($self->screenheight() / 2) - int($self->height() / 2)) );
	$self->deiconify;
	$self->resizable(0, 0);

	$self->update();
	$self->{entry}->focus;
}

1;