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.
41 lines
979 B
41 lines
979 B
# 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;
|
|
|