#!/usr/bin/perl

use strict;
use threads;
use Thread::Queue;

use Win32::JobAdd;

## A shared var to communicate progess between work thread and TK
my $Q = new Thread::Queue;

my $job:shared = createJobObject( 'counter_and_calc_job' );

sub work{
    my $pid = open PROC, 
    q[perl -le "$|=1; system 1, 'calc.exe'; print and select(undef,undef,undef,0.1) for 1 .. 1000" |]
        or die $!;
	assignProcessToJobObject( $job, $pid );
	
    while( <PROC> ) {
        $Q->enqueue( $_ );
    }
    close PROC;	
}

threads->new( \&work )->detach;

## For lowest memory consumption require (not use)
## Tk::* after you've started the work thread.
require Tk::ProgressBar;

my $mw = MainWindow->new;
my $pb = $mw->ProgressBar()->pack();
my $button = $mw->Button(-text => 'CANCEL',
						 -command => sub { closeHandle( $job ) } )->pack();

my $repeat;
$repeat = $mw->repeat( 100 => sub {
    while( $Q->pending ) {
        my $progress = $Q->dequeue;
        return unless $progress;
        $repeat->cancel if $progress == 100;
        $pb->value( $progress )
    }
});


$mw->MainLoop;