my $hlist = $parent->MyHList(-rightClick => \&rightClicked, ...);
sub rightClicked {
  my ($w) = @_;
  my $event = $w->XEvent();

  my $entry = $w->GetNearest($event->y, 1);
  return unless defined $entry;
  $w->anchorSet($entry);
  $w->selectionClear();
  $w->selectionSet($entry);

  # usw... weiss ich jetzt nicht mehr auswendig, irgendwie ein
  # ->Menu erzeugen und das dann mit $menu->Post(x,y) an der 
  # richtigen stelle posten...

} # rightClicked