Select Code to Download

sub PopupLookup{
  my ($mw, $obj) = @_;
...
    $obj->bind('<ButtonPress>', ['PostPopupMenu', Ev('X'), Ev('Y'), ])
+;
    return $obj;
}

sub menbut {
    my($TOP) = @_;
...
    
    $menubuttons->pack();
}