Yes, the memory leak is due to mouse movements.
Aldo sent out a message about this a while ago, along
with a request for help from any experienced C programmers
on the list. I don't know if anything further has happened
though.
Kev.
[EMAIL PROTECTED] on 28/08/2000 15:31:38
To: [EMAIL PROTECTED] @ INTERNET
cc:
Subject: Re: [perl-win32-gui] timer memory leak?
I've noticed this "memory leak" also. However, I was
not using a timer in my script. I noticed that the
GUI window tracks the mouse movements and I was
wondering if there may be a leak there. If you move
the mouse over the window you can watch the process
increase in 4k increments. As soon as you stop, the
memory stops increasing. This also happens if you
move the window around.
I may be wrong with my analysis, but perhaps it will
provide some futher insight into what the problem is.
Thanks,
Jeremy Blonde
--- Hoff Miller <[EMAIL PROTECTED]> wrote:
> # I'm seeing what looks like a memory leak. The
> script below uses a timer to
> # trigger the T_Timer subroutine every second which
> prints a counter's value.
> # Using NT's performance monitor, I see the Perl
> process using 3244K of memory.
> # At the following counter values the corresponding
> memory usage is shown:
> # count=10 memory used= 3248
> # 38 3252
> # 58 3256
> # 88 3260
> # 104 3264
> # Note the 4K increasing memory usage per change. I
> did not notice any
> # periodic rate to the 4K increments.
>
> # Here's the test script:
> use Win32::GUI;
> $WinClass = new Win32::GUI::Class(
> -name => "test",
> -visual => 1,
> );
> $W = new Win32::GUI::Window(
> -title => "test timer",
> -left => 0,
> -top => 0,
> -minsize => [50,40],
> -width => 50,
> -height => 40,
> -style => WS_OVERLAPPEDWINDOW,
> -name => "Window",
> -class => $WinClass,
> ) or die "Couldn't create W Window";
> my $i=0;
> $t1 = $W->AddTimer('T', 1000);
> Win32::GUI::Dialog();
> #-------------
> sub T_Timer {
> print "$i\n";
> $i++;
> }
> __end__
>
>
----------------------------------------------------------------
> Jon S. Miller (a.k.a. Hoff)
> Member of Technical Staff, Milgo Solutions, Inc.
> 1619 N. Harrison Pkwy, MS D108, Sunrise, FL, USA
> 33323-2802
> email: [EMAIL PROTECTED]
> microsoft mail: [EMAIL PROTECTED]
> voice: (954) 846-6619
> fax: (954) 846-3244
>
----------------------------------------------------------------
__________________________________________________
Do You Yahoo!?
Yahoo! Mail - Free email you can access from anywhere!
http://mail.yahoo.com/
