Hello Monks!

I am trying to create a Win32 application (with Strawberry Perl (v5.14.4) on Win10) displaying graphic computations. In order to optimize the process, I want to divide the management of my virtual buffer into small pieces computed by individual threads, then compile the results and copy the virtual buffer on the screen.

My problem is the combination of Win32::GUI and threads (I have also tried forkmanager without success). Threads without Win32 is ok, Win32 without threads is ok, but using both is not. Here is a simple sample code to illustrate the issue (you can enable/disable the use of Win32 with the variable $use_win or change the amount of threads with the variable $t_amount):

#!/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);
}

[download]

Any help would be welcome. I have searched for previous posts without finding a solution. I also googled with no luck. Thanks in advance!

In reply to Win32::GUI and threads issue by Garden Dwarf

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.