note
BrowserUk
<blockquote><i></i></blockquote>
<p>The problem is that you are tryiong to hook into a system/module defined API without understanding the rules and requirements of that API.
<p>Each window can have multiple timers associated with it. This, when the timer triggers and it sends the WM_TIMER message, it *must* also send some additional information as a part of that message that identifies <i>which timer routine</i> should be invoked to handle it. This is easily demonstrated by the following modification of your code which sets up two independent timers for the main window::<spoiler><code>
#!perl
use Data::Dump qw[ pp ];
use threads;
use Win32::GUI qw( WM_CLOSE WM_TIMER );
#$CHILD = threads->create('child', '');
$WinMain = Win32::GUI::Window->new(
-name => 'Main',
-text => 'Task Test',
-width => 300,
-height => 200,
-onTerminate => \&Main_Terminate,
-onTimer => \&DoTimer,
);
my $timer1 = $WinMain->AddTimer( 'Timer1', 10000 );
pp $timer1;
my $timer2 = $WinMain->AddTimer( 'Timer2', 20000 );
pp $timer2;
$WinMain->Show();
Win32::GUI::Dialog();
$CHILD->detach();
sub Main_Terminate { -1; }
sub child {
while( sleep 1 ) {
Win32::GUI::PostMessage( $WinMain, WM_TIMER, 1, 'Timer1' );
}
}
sub DoTimer {
pp \@_;
print "Timer fired\n";
return 1;
}
</code></spoiler>
<p>Which when run produces the following output:<code>
C:\test>\perl32\bin\perl 1013733.pl
bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer")
bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer")
[
bless({
# tied Win32::GUI::Window
"-accel" => 0,
"-handle" => 3213678,
"-name" => "Main",
"-timers" => { 1 => "Timer1", 2 => "Timer2" },
"-type" => 0,
Timer1 => bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer"),
Timer2 => bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer"),
}, "Win32::GUI::Window"),
"Timer1",
]
Timer fired
[
bless({
# tied Win32::GUI::Window
"-accel" => 0,
"-handle" => 3213678,
"-name" => "Main",
"-timers" => { 1 => "Timer1", 2 => "Timer2" },
"-type" => 0,
Timer1 => bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer"),
Timer2 => bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer"),
}, "Win32::GUI::Window"),
"Timer2",
]
Timer fired
[
bless({
# tied Win32::GUI::Window
"-accel" => 0,
"-handle" => 3213678,
"-name" => "Main",
"-timers" => { 1 => "Timer1", 2 => "Timer2" },
"-type" => 0,
Timer1 => bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer"),
Timer2 => bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer"),
}, "Win32::GUI::Window"),
"Timer1",
]
Timer fired
</code>
<p>That suggests the possibility that the (Win32::GUI defined) window procedure arranges for the system defined timer to include a numerical 'timer id' as a part of the WM_TIMER message. It then looks up that id in the -timers hash associated with the target window to obtain the <i>name</i> of the blessed timer object, and then uses that to obtain the information passed onto the -onTimer callback routine.
<P>I've tried passing various combinations of id and name on the SendMessage WM_TIMER caller, but have yet to find the correct combination to allow me to trigger tha callback. I suspect that if you dug around in the Win32::GUI sources -- the only reliable documentation I have found for that module -- you might be able to discover the correct magic to allow you to manually trigger the callback, but sending a bare WM_TIMER will not do it. And is not intended to do so.
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'</div>
<div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div>
<div>"Science is about questioning the status quo. Questioning authority". </div>
<div>In the absence of evidence, opinion is indistinguishable from prejudice.
</div>
</font>
</div></div>
1013733
1013839