Tk::HyperText - HTML in Perl/Tk-GUI visualisieren

Tk::HyperText ist ein Widget zur Darstellung von einfachem HTML. Die Funktionsweise ist so ähnlich wie die eines Web-Browsers, allerdings hat das Widget nicht den Anspruch, einen solchen auch nur ansatzweise zu ersetzen. CSS oder JavaScript werden derzeit nicht unterstützt.


Beispiel

Darstellung eines einfachen HTML-Inhalts:

#!perl

use strict;
use warnings;
use Tk;
use Tk::HyperText;

my $mw = tkinit();

my $html = $mw->Scrolled ('HyperText',
  -scrollbars => 'ose',
  -wrap       => 'word',
)->pack (-fill => 'both', -expand => 1);
 
$html->loadString (qq~<html>
  <head>
  <title>Hello world!</title>
  </head>
  <body bgcolor="cornflowerblue">
  <font size="6" family="Impact" color="#FFFFFF">
  <strong>Hello, world!</strong>
  </font>
  </body>
  </html>
~);

$mw->MainLoop;
Top