My observations indicate the problem is not just mouse movements, but more
likely event handling, including mouse movement events.
>From: [EMAIL PROTECTED]
>Subject: Re: [perl-win32-gui] timer memory leak?
>To: [EMAIL PROTECTED]
>MIME-version: 1.0
>
>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/
>
>
----------------------------------------------------------------
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
----------------------------------------------------------------