Re: [perl-win32-gui-users] right click menu items

[Johan L. <jo...@ba...>]

At 11:48 2002-08-28 +1000, moo cow wrote:
 > he main problem is how do I detect a right click on a menu (Such as the 
Exit option
 > on the File menu found in most windows programs)?

Yes, difficult. Not sure it can be done without hacking the XS to allow the 
event to be recognized. There's a "general" Win32::GUI catch-all event 
handler that's called... what? Anyone?


 > Also, to create the menu in your example I'd do;
 > $Menu =  Win32::GUI::MakeMenu(
 >      "Popup Menu" => "PopUpMenu",
 >     ">  &Edit"    => "PopupEdit",
 >     ">  Exit" => "PopupExit",
 > );

 From reading the code, I think i remember that MakeMenu() parses the text 
and determines the level by indentation. Consider this:

$Menu =  Win32::GUI::MakeMenu(
     "Popup Menu" => "PopUpMenu",
     " >  &Edit"    => "PopupEdit",
     " >  Exit" => "PopupExit",
);

(Do you see the difference? One space before the >)


/J
-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Outline for Requirements Specification"
http://www2.ccnmtl.columbia.edu/requirements.xml