Select Code to Download

require MenuPopup;

  $winInfoRef->{HLIST}->bind('<Button-3>' => sub{
                   MenuPopup($winInfoRef->{MENU},
                     -popover=>"cursor",-popanchor=>'ne')
                 });

 $winInfoRef->{HLIST}->bind('<Button-3>' => sub{
                   $winInfoRef->{MENU}->MenuPopup(
                     -popover=>"cursor",-popanchor=>'ne');
                 });

#Note this can be used to in place of the Popup Method found in TK/Wm.
+pm
#
...
#needed for require
return 1;