in reply to Re^3: pp with gui
in thread pp with gui
I finally got some time to play with this, unfortunately no luck yet.
Here is my updated code.
use strict;
use warnings;
use File::Spec::Functions;
BEGIN {
if (exists $ENV{PAR_PROGNAME}) {
use Config ();
$ENV{PERL_TCL_DL_PATH} = catfile(
$ENV{PAR_TEMP},
'tkkit.' . $Config::Config{dlext},
);
}
}
use Tkx;
Tkx::button(".b",
-text => "Hello, world",
-command => sub { Tkx::destroy("."); },
);
Tkx::pack(".b");
Tkx::MainLoop()
Here is the command I run to create the .exe.
pp --gui -o gui2.exe gui2.pl -l C:/Perl/lib/auto/Tcl/tkki. dll -l C:/Perl/lib/auto/Tcl/Tcl.dll
The issue is still exactly the same. If I run the program as a perl program it works fine.
If I run it as an .exe nothing happens.
Any additional ideas would be appreciated.
Oh, if I add -x it pops up the "hello" box during the compile. I click on the box and it continues the compile. The resulting .exe does nothing.
Here is my updated code.
use strict;
use warnings;
use File::Spec::Functions;
BEGIN {
if (exists $ENV{PAR_PROGNAME}) {
use Config ();
$ENV{PERL_TCL_DL_PATH} = catfile(
$ENV{PAR_TEMP},
'tkkit.' . $Config::Config{dlext},
);
}
}
use Tkx;
Tkx::button(".b",
-text => "Hello, world",
-command => sub { Tkx::destroy("."); },
);
Tkx::pack(".b");
Tkx::MainLoop()
Here is the command I run to create the .exe.
pp --gui -o gui2.exe gui2.pl -l C:/Perl/lib/auto/Tcl/tkki. dll -l C:/Perl/lib/auto/Tcl/Tcl.dll
The issue is still exactly the same. If I run the program as a perl program it works fine.
If I run it as an .exe nothing happens.
Any additional ideas would be appreciated.
Oh, if I add -x it pops up the "hello" box during the compile. I click on the box and it continues the compile. The resulting .exe does nothing.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: pp with gui
by Anonymous Monk on Mar 25, 2013 at 01:18 UTC | |
by mkmal (Novice) on Mar 26, 2013 at 23:08 UTC | |
by Anonymous Monk on Mar 27, 2013 at 07:20 UTC | |
by mkmal (Novice) on Mar 27, 2013 at 23:04 UTC | |
by Anonymous Monk on Mar 28, 2013 at 03:37 UTC | |
|
In Section
Seekers of Perl Wisdom