A
anton.vandersteen
Hello Perl friends,
I am trying to compile a perl programme with :
ppm install PAR
Then you can create an executable with the line:
to an ".exe" programme.
However when I run the executable "file.exe" there occur problem
because I use Tk.
Below you can see the original Perl programme:
#!perl/bin/perl -w
use Tk;
use Tk::Clock;
my $MW=MainWindow->new();
### --- Prevents Main Window Resizing
$MW->bind('<Configure>' => sub{
my $xe = $MW->XEvent;
$MW->maxsize($xe->w, $xe->h);
$MW->minsize($xe->w, $xe->h);
});
$MW->title("My Analog Clock");
$clock = $MW->Clock();
$clock->config(
useDigital => 1,
useAnalog => 1,
anaScale => 250,
handColor => 'Blue3',
secsColor => 'Yellow2',
tickColor => 'Orange',
);
$clock->pack();
MainLoop();
I am hoping that someone can help me.
The clock is a test. When this works I can solve a bigger problem.
Thanks in forehand.
I am trying to compile a perl programme with :
ppm install PAR
ppm install Module-ScanDeps
Then you can create an executable with the line:
pp script.pl -o script.exe
to an ".exe" programme.
However when I run the executable "file.exe" there occur problem
because I use Tk.
Below you can see the original Perl programme:
#!perl/bin/perl -w
use Tk;
use Tk::Clock;
my $MW=MainWindow->new();
### --- Prevents Main Window Resizing
$MW->bind('<Configure>' => sub{
my $xe = $MW->XEvent;
$MW->maxsize($xe->w, $xe->h);
$MW->minsize($xe->w, $xe->h);
});
$MW->title("My Analog Clock");
$clock = $MW->Clock();
$clock->config(
useDigital => 1,
useAnalog => 1,
anaScale => 250,
handColor => 'Blue3',
secsColor => 'Yellow2',
tickColor => 'Orange',
);
$clock->pack();
MainLoop();
I am hoping that someone can help me.
The clock is a test. When this works I can solve a bigger problem.
Thanks in forehand.