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