#--------------------------------------------------------------------------------------------------------------
# Show about box
#--------------------------------------------------------------------------------------------------------------

use strict;
use warnings;

sub show_about {
my $help_text =
"Please visit the offical page for documenation/ updates.
http://namefix.blogspot.com

namefix.pl: a multiplatform mass file renamer designed to make renaming media
files quick and easy. Created by Jacob Jarick and copyrighted under the GPL
License.

Initialy this script was command lined based and used to convert spaces to
underscores on all mp3s in a given directory, namefix quickly grew in
popularity so case formatting and many other options were added. Now it sports
a sexy, simplistic GUI and can run on multiple operating systems.

--------------------------------------------------------------------------------
About the Creator:

Im a lazy person, Id rather make a tool todo a job than just do the job.

Hi Im Jacob the guy who was the 1st to create an automatic mp3 (now all media
types) renaming program for the purpose of neatness. Now there are quite a few
which I think is great. Id like to give prior recognition to Dave 'Zoid' Kirsch
it was his quake 2 skin renamer for linux (it shifted all names to lower case)
that gave me the idea.

perl is my language of preference, Ive used it extensively with apache for cgi
automisation.

If any1 is impressed by my work and would like to hire me or employee me feel
free to contact me.

haha yes thats me in the photo, no I dont still have the green mowhawk :P
";

        my $top = $main::mw -> Toplevel();
        $top -> title('About');

        my $top_lab = $top -> Label(
        	-text=>"Namefix.pl $main::version",
        	-font=>$main::dialog_title_font
        )
        -> grid(
        	-row=>1,
        	-column=>1,
        	-columnspan=>2
        );

	my $image = $main::mw->Photo(
		-format=>'jpeg',
		-file=>$main::mempic
	);

	$top->Label(
		-image =>$image
	)
	-> grid(
		-row=>2,
		-column=>1
	);

        my $txt = $top -> Scrolled(
        	'ROText',
        	-scrollbars=>'osoe',
        	-font=>$main::dialog_font,
        	-width=>76,
        	-height=>21
        )
        -> grid(
        	-row=>2,
        	-column=>2
        );
        $txt->menu(undef);
        $txt -> insert(
        	'end',
        	$help_text
        );

        my $but_close = $top -> Button(
        	-text=>"Close",
        	-activebackground=>'white',
        	-command => sub {
        		destroy $top;
        	}
        )
        -> grid(
        	-row => 4,
        	-column => 1,
        	-columnspan => 2
        );

        $top->update();
        $top->resizable(0,0);
}

1;