=========== sample_getSaveFile.pm =============================================

#!/usr/bin/perl

use Tk;

$mw = MainWindow->new(-title => 'sample_getSaveFile');

my $DOC_filetypes = [['Text', '.txt'], ['Any File', '.*']];

my $i = $mw->getSaveFile(-defaultextension => '.myown',

						-filetypes => $DOC_filetypes,

						-initialdir => '.',

						-initialfile =>  'xyz',

						-title => 'getSaveFile');

if (defined $i) {

	print 'Successful getSaveFile';

}

else {

	print 'Error on getSaveFile';

}

MainLoop;

=========== PAR Packager, version 1.012 (PAR version 1.005) ========================

pp -C --vvv -L pp_logifle.txt -o sample_getSaveFile sample_getSaveFile.pm

=========== running sample_getSaveFile =============================================

Can't locate Tk/Bitmap.pm in @INC (@INC contains: CODE(0x8c40cfc) CODE(0x8c410bc)) at Tk/Widget.pm line 270.
 at Tk/Widget.pm line 203

=========== after including 'use Tk::Bitmap;', running 'pp' and executing 'sample_getSaveFile'  the following message appears: ========

XS_Tk__Callback_Call error:must specify one of -data, -file, -array or -id at Tk/Image.pm line 21.

Tk::Error: must specify one of -data, -file, -array or -id at Tk/Image.pm line 21.
 Tk callback for image
 Tk::Image::new at Tk/Image.pm line 21
 Tk::Image::__ANON__ at Tk/Image.pm line 63
 Tk::FBox::Update at Tk/FBox.pm line 404
 Tk::After::once at Tk/After.pm line 90
 [once,[{},after#13,idle,once,[{},Update]]]
 ("after" script)

=======================================================================================