From: Piske, H. <Har...@bo...> - 2001-11-16 10:53:12
|
> The LostFocus() event doesn't respond at all when a mouse click > happens on another object (button, textfield, etc.) From what I can see in the xs code, the button class is treated in a different manner. You might want to try Button_Anonymous {print join (', ', @_), '\n';} This is an event handler that gets called for a lot of the otherwise unhandled cases. If you're lucky, _LostFocus is one of them. The actual message number is passed as the first parameter. I don't exactely remember if _Anonymous gets fired for each unhandled message or just unhandled notification messages. If that does not help, you could subclass all your controls to receive _MouseMove events and call your _LostFocus sub when another control or the window sees mouse moves ... very easy in theory, just terribly annoying to actually implement :-/ |
From: Mark W. <ma...@il...> - 2001-11-16 14:49:44
|
Hi group! I know this is only tangentally Win32GUI related, but I suspect it comes up more often among GUI users than any other Perl group, so here goes: I want my Win32::GUI (or any Perl app for that matter) to respond more like a native Windows program, and allow me to drop files from explorer onto the "appname.pl" icon and that list of files becomes the @ARGV parameter of the perl script. ya know what I mean? Has anyone ever achieved this? Any advice appreciated! Mark |
From: Marcus <li...@wo...> - 2001-11-16 17:08:59
|
On 16.11.01 at 08:52 Mark Wilkinson wrote: >I want my Win32::GUI (or any Perl app for that matter) to respond more >like a >native Windows program, and allow me to drop files from explorer onto the >"appname.pl" icon and that list of files becomes the @ARGV parameter of >the >perl script. It's probably a registry entry. Possibly something to do with a "ShellEx" key? It could just be that you need to tell Windows to treat .pl files as .exe files. If you can't figure that out, you could create a "Send To" item which will appear in the "Send To" submenu of any Explorer context menu. That way you can send selected files to your Perl application. That's as simple as creating a shortcut in the "SendTo" folder. Marcus |