Select Code to Download

sub CreateUserPopupMenu {

...
    $self->PopupMenu($menu, $x, $y);
    
}

    my $sz =  $self->GetSize();
    my ($posx,$posy) = $self->ClientToScreen((0,0));
    my $height = $sz->GetHeight();
    my $width = $sz->GetWidth();