use strict;
use warnings;
use Tk; 

our $MW = MainWindow->new(%{$BPP::BPPDEFAULTS::MYDEFAULTS{MAINWINDOW}}); 
$MW->geometry('800x700+0+0');
...

##</code><code>##


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

##</code><code>##

Tk::Error: Can't call method "DialogBox" on an undefined value at BPP/ABOUT.pm l
ine 14.
 (menu invoke)