win32 gui的问题。

win32 gui的问题。
#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $a = 0;
# Create your main window
my $Window = new Win32::GUI::Window(
  -name  => "Window",          # Window name (important for OEM event)
  -title => "title",   # Title window
  -pos  => [100,100],         
  -size  => [600,400],         
  -dialogui => 1,            
);

my $Button = $Window->AddButton (
  -name => "Button",
  -pos => [25, 300],
  -size => [50, 50],
  -text => "1",
 # -onClick => \&do,
  );

my $Button2 = $Window->AddButton (
  -name => "Button2",
  -pos => [100, 300],
  -size => [50, 50],
  -text => "2",
  );



my  $Chatfield = $Window->AddRichEdit(
  -name   => "Chatfield",
  -left   => 5,
  -top   => 5,
  -text   => "",
  -width  => 500,
  -height  => 200,
  -readonly => 1,
    );






$Window->Show();

&do;

Win32::GUI::Dialog();



sub do
{
     while(1)
     {
          $a++;
     $Window->Chatfield->SetFocus();
     $Window->Chatfield->ReplaceSel("$a\n",0);
     sleep(2);
        }
}

上面的代码有问题，如何实现一个循环能往$Chatfield 打印$a，而不影响GUI其他功能的执行？

哈哈.

--上面的代码有问题，如.

上面的代码有问题，如何实现一个循环能往$Chatfield 打印$a，而不影响GUI其他功能的执行？
------------------------------
多线程就可以 ，GUI的 要用多线程 perl的 多线程很差劲， 所以。。。。

my $Chatfield = $Window.
my $Chatfield = $Window->AddRichEdit

AddRichEdit的参数设置看看

大概是建立一个子程序引用