Help for this page
$winInfoRef->{HLIST}->bind('<Button-3>' => sub{$winInfoRef->{MENU}->Po +pup(-popover=>'cursor',-popanchor=>'ne')}
$winInfoRef->{HLIST}->bind('<Button-3>' => sub{Popup($winInfoRef->{MEN +U},-popover=>'cursor',-popanchor=>'ne')}