[perl-win32-gui-users] Popup menu

[Erick J. Bourgeois]

Has anyone implemented a popup menu. That is, if the user right clicks, for 
example, a
listview, then a menu appears. I tried creating one using:

sub ListView_RightClick {
    @cursorpos = Win32::GUI::GetCursorPos();
    $Popup = new Win32::GUI::MenuButton(-pos=>[$cursorpos[0],$cursorpos[1]],);
    $Popup->AddMenuItem("Hello"=>"HelloBut",);
    $Popup->Show();
}
But, this is bad, very bad (extremely unpredictable, it doesn't have an owner). 
Is there a
way to do it?

erick
never stop questioning
www.jeb.ca