in reply to Re: How to pass the value of a variable from a child to parent with gui interface?
in thread How to pass the value of a variable from a child to parent with gui interface?

BrowserUK, thanks for pointing out that Win32::GUI::Dialog() is actually a loop!

I tried the following and it seems to almost get what I was expecting: 

            while(1){
             $display->Show();
             $display->SelectAll();
             $display->Clear();
             $display->Update();
             $display->Append($text);
             $display->Update();
             sleep(10);
            }
             Win32::GUI::Dialog();

[download]

The problem is: the cursor is always busy because of Win32::GUI::Dialog(); loop.

  • Comment on Re^2: How to pass the value of a variable from a child to parent with gui interface?
  • Download Code

Replies are listed 'Best First'.
Re^3: How to pass the value of a variable from a child to parent with gui interface?
by BrowserUk (Patriarch) on Mar 13, 2010 at 05:21 UTC

    The dialog call is now reduntant. Try this: 

    use strict;
use warnings;
use threads; use threads::shared;
use Win32::GUI();

my $text :shared;
my @h = qw(LINE1 LINE2 LINE3 LINE4 LINE5);

my $pid = fork();
if ($pid){
    my $main = Win32::GUI::Window->new(
        -left   => 100,
        -top    => 100,
        -width  => 310,
        -height => 150,
    );
    $main->Show();
    my $display = $main->AddTextfield(
        -left   => 60,
        -top    => 35,
        -width  => 180,
        -height => 20,
    );
    while(1){
         $display->Show();
         $display->SelectAll();
         $display->Clear();
#         $display->Update();
         $display->Append($text);
         $display->Update();
         sleep(1);
    }
}
elsif ($pid == 0) {
    while(1){
        $text = "$h[int(rand(@h))]";
        sleep(1);
    }
}

    [download]
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]

      Yes, thanks, BrowserUK :)

      the dialog is unnecessary. Now the only problem is that using this approach to display dynamically changing content will cause the cursor to be always in the busy shape.

[reply]

        Yeah. There's probably a cure for that. Try reading the FAQ.

        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority".
        In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]

In Section Seekers of Perl Wisdom