package Dialog
@ISA = qw()

sub ShowAboutDialog
my ($parent, $message) = @_;

sub ShowScaleDialog
my ($parent, $title, $x0, $x1, $y0, $y1, 
		$xscaleplottype, $yscaleplottype,
		$PlotXZero, $PlotYZero) = @_;
return 'Cancel';
return $dialog->Exit();
return undef;

sub SetupBoxDialog
my ($parent, $title, $width,
		$t11, $v11, $t12, $v12, $t13,
		$t21, $v21, $t22, $v22, $t23 ) = @_;
return 'Cancel';
return $dialog->Exit();
return ($v11, $v12, $v21, $v22);
return undef;

sub ShowFontDialog
my ($parent, $font_name, $font_size, $font_style) = @_;
return ($Name, $Size, $Style);
return undef;

sub DrawFontDialogCanvas
my ($dialog) = @_;

sub ShowEnvDialog
my ($parent) = @_;

sub InputDialog2
my ($parent, $title, $message, $text, $width, $height) = @_;
return undef if($button eq 'Cancel');
return $Text->GetText();

sub InputDialog
my ($parent, $title, $text, $width, $height) = @_;
return undef if($button eq 'Cancel');
return $Text->GetText();

sub ShowDialog
my ($parent, $title, $text, $icon, $buttons, $DefButton) = @_;
return $button;

sub MessageBox
my ($parent, $title, $message, $type, $icon) = @_;
return $button;

sub OpenFileDialog
my ($parent, $operation, $fmask, $defstr, $title, $initdir) = @_;
return $file;

sub ChooseDirectoryDialog
my ($parent) = @_;
return $dir;

sub ChooseColorDialog
	my($parent, $button, $name, $options) = 
return $color;

sub ShowDirectoryTree
my ($parent) = @_;
return 1;

sub BEGIN

sub new
my ($module, $path) = @_;
return $this;

sub DESTROY
my $this = shift;