[perl-win32-gui-users] Re; Popup menu

[Jonathan S. <jso...@al...>]

Erick,

Here is how I did it:

<=3D=3D=3D Start of code =3D=3D=3D>

# define popup menu for listview
my $PopupMenu =3D new Win32::GUI::Menu(
    "Item Properties" =3D> "ItemProp",
    ">&Properties" =3D> "ItemProperties",
);

# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) =3D Win32::GUI::GetCursorPos();

   $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}

# clicked on particular menu item in popup menu
sub ItemProperties_Click {
   ## code you want to process;
}

<=3D=3D=3D End of code =3D=3D=3D>

I hope this helps.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
jso...@al...