Hi PerlMonks,
running this little script in 'non-pp'-mode works fine. 'pp'-mode does'nt like it. I am sure, some modules have to be included - but I can't figure out which ones.
Would somebody be so kind to point me in the right direction. Thanks in advance!
Linux Mint 14 using Perl v5.14.2
=========== 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 execut
+ing '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)
======================================================================
+=================