##
#  PAR::Packer example using Tk
#
#  Notes:
#
#      1.  Run this script, and it creates a simple Tk App
#      2.  Install PAR::Packer in Windows using:
#
#           C:\>  ppm install MinGW
#           C:\>  cpanp i PAR::Packer
#
#          Don't worry if Win32::Exe tests fail:
#
#            dmake.exe:  Error code 129, while making 'test_dynamic'
#            dmake.exe:  Error code @55, while making 'sudirs-test'
#
#          Just select 'y' when prompted:  Proceed anyway? [y/N]: y
#
#      3.  To make the executable, type "<script> --exe"
#
#


###############
## Libraries ##
###############
use strict;
use warnings;
use File::Basename;
use Tk;


##################
## Main program ##
##################
my $src = basename $0;
(my $exe = $src) =~ s/[.]pl$/.exe/;

if (@ARGV > 0 and $ARGV[0] eq '--exe') {
	my $cmd = "pp --gui -o $exe $src";
	print "Command:  $cmd\n";
	system($cmd);
	exit;
}


# Tk Gui
my $mw  = new MainWindow(-title => 'PAR::Packer with Tk Example');
my $frm = $mw->Frame->pack(-expand => 1, -fill => 'both');
my $b1  = $frm->Button(-bg => '#ffefb3', -text => 'Hello World');
my $b2  = $frm->Button(-bg => '#ffefb3', -text => 'Quit (^Q)');
$b1->configure(-command => sub { print "Hello world!\n" });
$b2->configure(-command => sub { exit });
$b1->pack(-side => 'left');
$b2->pack(-side => 'right');
$mw->bind("<Control-q>" => sub { $b2->invoke });
$mw->MainLoop;