# milkbone - about box

package Milkbone::About;

use Milkbone;

our $VERSION = '1.0';

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

Construct Tk::Widget 'MBAbout';

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

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

	my $text = $self->Text(-font => "arial 8", -bg => "white")->pack(-expand => 1, -fill => 'both');
	$self->bind("<Escape>", [$self, "destroy"]);
	$text->insert('end', <<"END");
milkbone $Milkbone::VERSION is a super-suave AIM client written in Perl and utilizing a wickedly structured internal architecture.  milkbone was begun with a dream of making the greatest IM system ever.  And we've done it.  Here it is.  The greatest ever.

milkbone makes people happy.  You don't believe me?

	Gym Hero84: i feel happy

how's that?
END
	$self->Button(-text => "dismiss", -command => [ $self, "destroy"])->pack(-pady => 3)->focus;
}

1;