#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Data::Dumper qw/Dumper/;
use WWW::Leo;

my $input = 'noname.pl';

# Hauptfenster
my $nw = MainWindow->new();

# Titel des Hauptfensters
$nw->title ('Man Machine Interfaces II - UE - BSP 2');

# Text-Widget
my $In = $nw->Text (-wrap => 'none')->grid(-column => 0, -row => 0);
my $Out = $nw->Text (-wrap => 'none')->grid(-column => 1, -row => 0);

# Menü
my $mbar = $nw->Menu();
$nw->configure (-menu => $mbar);
my $file = $mbar->cascade (-label => "File", -underline => 0, -tearoff => 0);
$file->command (-label => "New", -command => [\&neu, "new"], -accelerator => 'Crtl-N', -underline => 0);
$file->command (-label => "Open", -command => [\&open, "open"], -accelerator => 'Crtl-O', -underline => 0);
$file->command (-label => "Save", -command => [\&save, "save"], -accelerator => 'Crtl-S', -underline => 0);
$file->separator();
$file->command (-label => "Exit", -command => [$nw => 'destroy'], -accelerator => 'Crtl-B', -underline => 0);
my $do = $mbar->cascade (-label => "Do", -underline => 0, -tearoff => 0);
$do->command (-label => "Translation", -command => sub {translate($In, $Out)}, -accelerator => 'Crtl-T', -underline => 0);

# Dictionary-Listbox
my $Dict = $nw->Listbox()->grid(-column => 0, -row => 1, -columnspan => 2, -sticky => 'we');
$Dict->insert("end", "the - das");
$Dict->insert("end", "sea - meer");
$Dict->insert("end", "is - ist");
$Dict->insert("end", "blue - blau");

MainLoop();

sub file {
} # sub file


sub neu {
   my $tw = $nw->Toplevel(-title => 'New');
   $tw->Label(-text => "Name of the File: ")->pack();
   my $in = $tw->Entry(-textvariable => \$input)->pack();
   $in->bind('<Return>', [\&create, $tw]);
} # sub neu


# Erzeugen einer neuen Datei
sub create {
   CORE::open (IFILE, ">> $input") or die "can't create '$input':$!\n";
   close IFILE;
   $_[1]->destroy();  #Fenster wieder löschen
} # sub create


sub open {
   my $tw = $nw->Toplevel(-title => 'Open');
   $tw->Label(-text => "Open which File: ")->pack();
   my $in = $tw->Entry(-textvariable => \$input)->pack();
   $in->bind('<Return>', [ \&read, $tw ]);
} # sub open


# Datei zum Lesen und Schreiben Öffnen
sub read {
   CORE::open (IFILE, "< $input") or die "can't open '$input':$!\n";
   while (<IFILE>) {
       $In->insert("end", $_);
   }
   close IFILE;
   $_[1]->destroy();  #Fenster wieder löschen
} # sub read


sub save {
   my $tw = $nw->Toplevel(-title => 'Save');
   $tw->Label(-text => "Save : $input")->pack();
   my $in=$tw->Entry(-textvariable => \$input)->pack();
   print $input , "\n";
   $in->bind('<Return>', [\&write, $tw]);
} # sub save


#Speichern der Eingabe
sub write {
   CORE::open (IFILE, "+< $input") or die "can't open '$input':$!\n";
   print IFILE $In->get('1.0', 'end');;
   close IFILE or die $!;
   $_[1]->destroy(); #Fenster löschen
} # sub write


sub perl {
   system("/usr/bin/perl $input");
} # sub perl

sub translate {
   my $text = $In->getSelected();
   my $leo = WWW::LEO->new();
   $leo->query();
   if ($leo->num_results) {
   print Dumper $leo->de_en();
   }else{
   print "Sorry, your query for '%s'gave no results.\n", $leo->query;}
   $Out->query('end',$leo);
}

Sorry, your query for '%s'gave no results.
Use of uninitialized value in print at C:\bsp2_final.pl line 114.
Tk::Error: Can't locate auto/Tk/Text/query.al in @INC (@INC contains: C:/Perl/si
te/lib C:/Perl/lib .) at C:\bsp2_final.pl line 115
 (menu invoke)

sub translate {
   my $text = $In->getSelected();
   my $leo = WWW::LEO->new();
   $leo->query($text);
   if ($leo->num_results) {
   print Dumper $leo->en_de();
   }else{
   print "Sorry, your query for '%s'gave no results.\n", $leo->query;}
   $Out->query('end',$leo);
}

$VAR1 = [
          [
            'hello',
            'hallo'
          ],
          [
            'hullo',
            'hallo'
          ],
          [
            'hallo',
            'das Hallo'
          ],
          [
            'hello',
            'das Hallo'
          ],
          [
            'Hello!',
            'Hallo!'
          ],
          [
            'Hey!',
            'Hallo!'
          ],
          [
            'Howdy! [Amer.] [coll.]',
            'Hallo!'
          ]
        ];
Tk::Error: Can't locate auto/Tk/Text/query.al in @INC (@INC contains: C:/Perl/si
te/lib C:/Perl/lib .) at C:\bsp2_final.pl line 115
 (menu invoke)

$VAR1 = [
          [
            'It\'s me!',
            'Ich bin\'s!'
          ],
          [
            'I\'ll eat my hat! [coll.]',
            'Da fress\' ich einen Besen!'
          ],
          [
            'I\'m on my way!',
            'Ich bin schon unterwegs!'
          ],
          [
            'I\'ll bet you!',
            'Da geh ich jede Wette ein!'
          ],
          [
            'Good riddance!',
            'Ein Gl³ck, dass ich den los bin!'
          ],
          [
            'I\'m too beat-up.',
            'Ich bin zu kaputt.'
          ],
          [
            'I\'d like to be a fly on the wall.',
            'Da w³rde ich gern Mõuschen spielen. [fig.]'
          ],
          [
            'It\'s a case of Hobson\'s choice.',
            'Da habe ich wohl keine andere Wahl.'
          ],
          [
            'I am.',
            'Ich bin.'
          ],
          [
            'I\'m for it.',
            'Ich bin daf³r.'
          ],
          [
            'I agree.',
            'Ich bin einverstanden.'
          ],
          [
            'I am agreed.',
            'Ich bin einverstanden.'
          ],
          [
            'I\'m for the high jump. [sl.]',
            'Ich bin erledigt.'
          ],
          [
            'I\'m for it. [sl.]',
            'Ich bin erledigt.'
          ],
          [
            'I\'m a goner [sl.]',
            'Ich bin erledigt.'
          ],
          [
            'I\'m toast. [sl.]',
            'Ich bin erledigt.'
          ],
          [
            'My goose is cooked.',
            'Ich bin erledigt.'
          ],
          [
            'My goose is cooked.',
            'Ich bin geliefert.'
          ],
          [
            'I ain\'t [coll.]',
            'ich bin nicht'
          ],
          [
            'I\'m broke.',
            'Ich bin pleite.'
          ],
          [
            'I have had enough.',
            'Ich bin satt.'
          ],
          [
            'I\'m seasick.',
            'Ich bin seekrank.'
          ],
          [
            'my neck of the woods',
            'da, wo ich herkomme'
          ],
          [
            'It is my turn',
            'Ich bin an der Reihe'
          ],
          [
            'I beg to differ.',
            'Ich bin anderer Ansicht.'
          ],
          [
            'I\'m curious about it.',
            'Ich bin darauf gespannt.'
          ],
          [
            'I\'m all mixed up.',
            'Ich bin ganz durcheinander.'
          ],
          [
            'I feel tired out.',
            'Ich bin ganz erledigt.'
          ],
          [
            'I\'m all ears.',
            'Ich bin ganz Ohr.'
          ],
          [
            'I disapprove of the memorial.',
            'Ich bin gegen das Denkmal.'
          ],
          [
            'I\'m of good cheer.',
            'Ich bin guten Mutes.'
          ],
          [
            'I\'m a stranger here.',
            'Ich bin hier fremd.'
          ],
          [
            'I\'m badly off.',
            'Ich bin schlecht dran.'
          ],
          [
            'I\'m very much in favor [AE] of it.',
            'Ich bin sehr daf³r.'
          ],
          [
            'I\'m very much in favour [BE] of it.',
            'Ich bin sehr daf³r.'
          ],
          [
            'That question is outside my province.',
            'Daf³r bin ich nicht zustõndig.'
          ],
          [
            'Modesty is my middle name. [fig.]',
            'Ich bin die Bescheidenheit in Person.'
          ],
          [
            'I\'m in favor [AE] of going.',
            'Ich bin daf³r zu gehen.'
          ],
          [
            'I\'m in favour [BE] of going.',
            'Ich bin daf³r zu gehen.'
          ],
          [
            'I don\'t feel happy about it.',
            'Ich bin dar³ber nicht erfreut.'
          ],
          [
            'I owe you an explanation.',
            'Ich bin dir eine Erklõrung schuldig.'
          ],
          [
            'I\'m sort of glad ... [fam.]',
            'Ich bin eigentlich froh ...'
          ],
          [
            'I don\'t hold with that.',
            'Ich bin gegen so was.'
          ],
          [
            'I escaped by the skin of my teeth.',
            'Ich bin gerade noch davongekommen.'
          ],
          [
            'as',
            'da'
          ],
          [
            'because áconj.',
            'da'
          ],
          [
            'here',
            'da'
          ],
          [
            'since',
            'da'
          ],
          [
            'that',
            'da'
          ],
          [
            'there',
            'da'
          ],
          [
            'given that',
            'da'
          ],
          [
            'in that',
            'da'
          ],
          [
            'bin',
            'der Abfallbehõlter'
          ],
          [
            'bin',
            'der Abfalleimer'
          ],
          [
            'bin',
            'der Behõlter'
          ],
          [
            'bin',
            'das Behõltnis'
          ],
          [
            'bin',
            'der Bunker'
          ],
          [
            'bin',
            'der Kasten'
          ],
          [
            'bin',
            'offener Kasten'
          ],
          [
            'ich',
            'p'
          ]
        ];

WWW::LEO=HASH(0x2f20238)

sub translate {
   my $text = $In->getSelected();
   my $leo = WWW::LEO->new();
   $leo->query($text);
   if ($leo->num_results) {
   print Dumper $leo->en_de();
   }else{
   print "Sorry, your query for '%s'gave no results.\n", $leo->query;}
   $Out->insert('end',$leo);
}

sub translate {
  my $text = $In->getSelected();
  my $leo = WWW::LEO->new();
  $leo->query($text);
  if ($leo->num_results) {
    my $arrayref = $leo->de_en();
    $Out->insert('end', $arrayref->[0]);
  }
}

sub translate {
    use WWW::Babelfish;
    
    my $text = $In->getSelected();
    my $babel = WWW::Babelfish->new( service => 'Babelfish', agent => 'Mozilla/8.0' );
    die ( "Babelfish server unavailable\n" ) unless defined($babel);

    my $eng_text = $babel->translate( 
        'source' => 'German',
        'destination' => 'English',
        'text' => $text,
        'delimiter' => "\n\t",
        'ofh' => \*STDOUT 
    );

    $Out->insert('end', $eng_text || 'No Translation available');
}

sub translate {
   my $text = $In->getSelected();
   my $babel = WWW::Babelfish->new( service => 'Babelfish', agent => 'Internet Explorer/7.0' );
   die ( "Babelfish server unavailable\n" ) unless defined($babel);

   my $eng_text = $babel->translate( 
       'source' => 'German',
       'destination' => 'English',
       'text' => $text,
       'delimiter' => "\n\t",
       'ofh' => \*STDOUT 
   );

   $Out->insert('end', $eng_text || 'No Translation available');
}