#!/usr/bin/perl

# Code automatically generated by VPTK_W

use strict;
use Tk;
use Tk::Button;

my $mw=MainWindow->new(-title=>'Bug demo');
my $w_Button_001 = $mw -> Button ( -background=>'green4',
-foreground=>'Yellow', -text=>'Exit', -command=>sub {exit} ) -> pack();
my $w_Button_002 = $mw -> Button ( -background, 'Yellow', -foreground,
'Black', -command, sub{system('echo Hello'=>'')},  -text, 'Magic 0' )
-> pack();
my $w_Button_003 = $mw -> Button ( -background, 'Red', -foreground,
'Yellow', -command, sub{system('xterm'=>'')}, -text, 'Magic 1' ) ->
pack();
MainLoop;

##</code><code>##

#===vptk end===< DO NOT CODE ABOVE THIS LINE >===
FELIX-XP-~> test.pl
C:\cygwin\bin\perl.exe (3064): *** unable to remap
C:\cygwin\bin\cygz.dll to same address as parent(0xE00000) != 0xE10000
9 [main] perl 2168 fork_parent: child 3064 died waiting for dll
loading
Background Error: panic: MUTEX_LOCK (45) [op.c:354] at
/usr/lib/perl5/vendor_perl/5.8/cygwin/Tk.pm line 406.
panic: MUTEX_LOCK (45) [op.c:354].