#!/bin/perl
use Win32::GUI();
use threads;
use strict;
use warnings;
use Data::Dumper;

my $use_win=1;  # Create Win32 GUI interface (1) or not (0)
my $t_amount=4; # Amount of threads to create

my $textbox;
my $win;
my $draw;

if($use_win){
  # Initialize window
  $win=new Win32::GUI::Window(
      -left   => 0,
      -top    => 0,
      -width  => 300,
      -height => 300,
      -name   => "Window",
      -text   => "Test",
  );
  $win->InvalidateRect(1);
  $textbox=$win->AddTextfield(
    -name   => "Output",
    -left   => 5,
    -top    => 5,
    -width  => 275,
    -height => 255,
    -text => "");
  
  # Start application
  $draw=$win->AddTimer('draw',1000);
  $win->Show();
  Win32::GUI::Dialog();
}else{
  draw_Timer();
}

sub Window_Terminate{-1}

sub draw_Timer{
  my @threads;
  my @ret;
  my $c;
  my $d;

  # Assign range of computation to fork processes
  foreach $c(1..$t_amount){
    $d=$c-1;
    push(@threads,threads->new(\&draw,($d*10),($d*10+10)));
  }
  foreach my $thread(@threads){
    @ret=$thread->join;
    foreach my $data(@ret){
      $use_win?$textbox->Append("|".$data):print"|".$data;
    }
    $use_win?$textbox->Append("\n"):print"\n";
  }
}

sub draw{
  my $begin=shift;
  my $end=shift;
  my @tbl;
  my $cpt;

  for($cpt=$begin;$cpt<$end;$cpt++){
    push(@tbl,$cpt);
  }
  return(@tbl);
}