#!/usr/bin/perl

use Tk;

%links = ('google.de' => 'http://www.google.de/',
          'perl.de' => 'http://www.perl.de/');

&#36mw = new MainWindow;

&#36t = &#36mw->Text()->pack();

foreach &#36linkname (keys %links) {

   &#36t->insert('end', &#36links{&#36linkname} . "\n", &#36linkname);

   &#36t->tagBind(&#36linkname, '<Enter>' => [\&hover, \&#36linkname, 1]);
   &#36t->tagBind(&#36linkname, '<Leave>' => [\&hover, \&#36linkname, 0]);

   &#36t->tagBind(&#36linkname, '<Button-1>' => [\&openURL, \&#36linkname]);

}

MainLoop();

sub hover {
    my(&#36c, &#36tag, &#36state) = @_;
    if (&#36state) {
      &#36c->tagConfigure(&#36&#36tag, -foreground => 'blue', -underline => 1);
    } else {
      &#36c->tagConfigure(&#36&#36tag, -foreground => 'black', -underline => 0);
    }
}

sub openURL {
    my(&#36c, &#36tag) = @_;
    
    # * HTML-Seite holen (mit LWP::Simple)
    # * Text aus HTML-Seite extrahieren
    # * in Text- oder Label-Widget darstellen


# Test-Fenster mit Label
    &#36t = &#36c->Toplevel();
    &#36t->Label(-text => &#36&#36tag)->pack();


}