package Tk::MyHList;
use base qw(Tk::Derived Tk::HList);
Construct Tk::Widget 'MyHList';

sub Populate {
    my ($self, $args) = @_;

    my $rightClick = delete $args->{-rightClick};
    ref($rightClick) and $self->bind('<ButtonPress-3>', $rightClick);

    $self->SUPER::Populate($args);
} # Populate

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

    $config{BuddyListPane}->bind(
        '<3>' => sub {
            my $last_clicked = $config{BuddyListPane}->nearest(shift->{'_XEvent_'}->y);
            $popup->Popup(
               
 -popover => "cursor",
               
 -popanchor => 'nw'
            );
        },
    );