[perl-win32-gui-users] Win32::GUI AddRichEdit crash problem.

[강차훈]

Hello,

I'm using Activstateperl 5.8.4-810 and Win32::GUI 1.0.

Following test code crashes when closing window.

What's the problem?
Is it bug?

Thanks in advance.

----- cut here ----
use Win32::GUI;

$Window = new Win32::GUI::Window(
    -name => "Window",
    -title => "Test",
    -left => 100,
    -top => 100,
    -width => 400,
    -height => 500,
);

$Window->{-dialogui} = 1; #This will enable the tab
stuff

$text = "";
$Textbox = $Window->AddRichEdit(
    -name    => "RichEdit",
    -text    => $text,
    -left    => 5, 
    -top     => 50,
    -width   => $Window->ScaleWidth-10, 
    -height  => $Window->ScaleHeight-56,
    -addstyle   => WS_CHILD | WS_VISIBLE | WS_VSCROLL
    | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL
|ES_WANTRETURN,
    -addexstyle => WS_EX_CLIENTEDGE,
);


$Window->Show();
Win32::GUI::Dialog();

sub Window_Resize {
    ($width, $height) =
($Window->GetClientRect)[2..3];
    $Textbox->Resize($width-10, $height-56);
}
--------- cut here ---------



        

        
                
___________________________________ 
기본 250MB 최대 1GB, 더 이상 용량 고민없는 - 야후! 메일 (http://mail.yahoo.co.kr) 
최신곡, 추천곡, 가요, OST, 팝송, 뮤직비디오 - 야후! 비트박스 (http://kr.music.yahoo.com) 
최신 휴대폰 정보, 벨소리, 캐릭터, 문자메세지 - 야후! 모바일 (http://kr.mobile.yahoo.com)