use Tk::Dialogbox;

package BPP::ABOUT;


sub AboutBPP
{
	my $about_dialog = $MW->DialogBox(
				-title=>'About BPP',
				-background=>'#ffffcc',
				-buttons=>["Ok"],);

	my $pic = $about_dialog->Photo(-file=>'money.gif');

	$about_dialog->add('Label',  -image=>$pic,-background=>'#ffffcc' )->grid(-row=>0, -column=>0,-sticky=>'w');

	$about_dialog->Show;

}#end AboutBPP

1