comment on

The problem is that you are tryiong to hook into a system/module defined API without understanding the rules and requirements of that API.

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 which timer routine 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::

Which when run produces the following output:

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
[download]

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 name of the blessed timer object, and then uses that to obtain the information passed onto the -onTimer callback routine.

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.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

In reply to Re^5: Win32::GUI sending Windows messages between threads by BrowserUk
in thread Win32::GUI sending Windows messages between threads [solved] by shadrack

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


We don't bite newbies here... much
	PerlMonks