I should have name it differently.
But your tktests will not run anyway, because there's no perl/Tk in that package, only perl (strimmed. but you can populate PM files into .zip) and Tcl/Tk.
Following code runs okay:
use warnings;
use strict;
use Tcl::Tk;
my $mw = Tcl::Tk::tkinit;
#centers window
CenterWindow($mw, 300, 200);
Tcl::Tk::MainLoop;
sub CenterWindow {
my($window, $width, $height) = @_;
#$window->idletasks;
$width = $window->reqwidth unless $width;
$height = $window->reqheight unless $height;
my $x = int(($window->screenwidth / 2) - ($width / 2));
my $y = int(($window->screenheight / 2) - ($height / 2));
$window->geometry("=${width}x${height}+${x}+${y}");
}
Try this out, it works for me...
One more thing.
There are console and "windows" mode editable by editbin. The problem is that w/o console you do not see error message (such as 'module Tk not found blablabla'), so I suggest you to try tests with console-based of executable Also you may want running applications from command line, so you need console version of executable again, see both at http://www.vkonovalov.ru/files-exchange/ cstart.exe and wstart.exe
So try again with cstart.exe |