use strict;
use warnings;
use Tk;
use Win32::Clipboard;

my $CLIP = Win32::Clipboard();

# Erzeugt das Mainwindow
my $mw = MainWindow->new();

#Setzen der Fenstergröße
my      $windowHeight       = "640";
my      $windowWidth        = "500";
#Auslesen der Bildschirmgröße
my      $screenHeight       = $mw->screenheight;
my      $screenWidth        = $mw->screenwidth;
#Positionieren des Fensters auf dem Bildschirm
$mw->geometry($windowWidth."x".$windowHeight);
$mw->geometry("+".int($screenWidth/2 - $windowWidth/2)."+".(int($screenHeight/2 - $windowHeight/2)-40));

my $textWidget = $mw->Scrolled(  'Text',
									-scrollbars=>'se', #this can be n,s,e,w according to compass positions.
									-wrap => 'none',
									-font => '{Arial} 10'
								)->pack(-fill => 'both', -expand => 1);

$textWidget->bind('<Control-a>', sub{ $textWidget->selectAll; });	 							

$mw->protocol("WM_DELETE_WINDOW" => sub { $CLIP->Set($CLIP->Get()); exit; });
							
MainLoop;