package Milkbone::Chat;

use Milkbone;

our $VERSION = '1.0';

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

Construct Tk::Widget 'MBChat';

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

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

sub on_msg_in
{
}

sub on_buddy_in
{
}

sub on_buddy_out
{
}

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

	$self->withdraw;

	$self->configure(-title => "Chat Room $name");
	
	# $self->bind('<Return>' => [$self, 'on_send']);
	# $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();
}

1;