package my_tk;

require Exporter;
our @EXPORT = qw(MainLoop);

use base 'Tk';
sub new {
  my $class = shift;
  my $self = MainWindow->new(@_);
   # ggf. mach was mit $self
  return $self;
}

sub MainLoop{
  Tk::MainLoop();
}

1;