package ActionListener;

use Tk;

sub new{
  my $self = {};
  bless $self,shift;
  return $self;
}

sub add{
  my ($self,$widget) = @_;
  $widget->Tk::bind($widget,'<Button-1>',[\&left]);
}

sub left{
  print "linke Maustaste gedrückt...\n";
}

1;