Hi,
Yes there is a bug:
http://sourceforge.net/tracker/index.php?func=detail&aid=1064828&group_id=16572&atid=116572
You can get around it by keeping the richtext control in global scope -
although I couldn't get it to work with your example.
Cheers,
jez.
----- Original Message -----
From: "강차훈" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, December 16, 2004 2:47 PM
Subject: [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)
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://productguide.itmanagersjournal.com/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
