home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / HTML / Handler.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  14.3 KB  |  779 lines
  1. package Tk::HTML::Handler;
  2. require HTML::Parse;
  3. require Tk::HTML::Form;
  4. require Tk::Table;
  5.  
  6. use Carp;
  7.  
  8. delete $HTML::Element::OVERLOAD{'""'};
  9.  
  10. sub HTML::Element::enclosing
  11. {
  12.  my $self = shift;
  13.  my $must = shift;
  14.  my $p = $self;
  15.  while (defined $p) 
  16.   {
  17.    my $ptag = $p->{'_tag'};
  18.    for (@_) 
  19.     {
  20.      return $p if $ptag eq $_;
  21.     }
  22.    $p = $p->{'_parent'};
  23.   }
  24.  Carp::croak $self->tag . " is not in ".join(' ',@_) if ($must);
  25.  return undef;
  26. }
  27.  
  28. my %FontTag = ('CITE' => 'I', 'STRONG' => 'B', 'EM' => 'B', 
  29.                       'TT' => 'KBD', 'SAMP' => 'CODE');
  30.  
  31. my $tag; 
  32. foreach $tag (qw(b i samp code kbd strong em var cite dfn tt))
  33.  {
  34.   *{"$tag"} = \&FontTag;
  35.  }
  36.  
  37. foreach $tag (qw(address html blink))
  38.  {
  39.   *{"$tag"} = \&DoesNothing;
  40.  }
  41.  
  42. foreach $tag (qw(dl ul menu dir ol))
  43.  {
  44.   *{"$tag"} = \&List;
  45.  }
  46.  
  47. foreach $tag (1..6)
  48.  {
  49.   *{"h$tag"} = \&Heading;
  50.  }
  51.  
  52. foreach $tag (qw(tagAdd insert))
  53.  {
  54.   *{"$tag"} = sub { shift->{widget}->$tag(@_) };
  55.  }
  56.  
  57.  
  58. *th   = \&td;
  59. *link = \&a;
  60.  
  61. sub AUTOLOAD
  62. {
  63.  my $what = $AUTOLOAD;
  64.  # print "AUTOLOAD:$what\n";
  65.  my($package,$method) = ($what =~ /^(.*)::([^:]*)$/);
  66.  warn "Don't know how to $method";
  67.  print STDERR "Don't know how to $method\n";
  68.  *{"$what"} = sub { return 1 };
  69.  goto &$what;
  70. }
  71.  
  72. use strict;
  73.  
  74. sub Widget { shift->{widget} }
  75.  
  76. sub DESTROY
  77. {
  78.  
  79. }
  80.  
  81. sub new
  82. {
  83.  my ($class,%args) = @_;
  84.  my $w = $args{widget};
  85.  $w->delete('0.0','end');
  86.  $args{NL}   = 2;
  87.  $args{BODY} = 1;
  88.  $args{Count} = 0;
  89.  $args{'List'} = [];
  90.  $args{'FORM'}   = []; # all forms defined for this document
  91.  $args{'Text'}   = []; # Current place to send Text
  92.  $args{'Option'} = []; # Current place to send Option
  93.  return bless \%args,$class;
  94. }
  95.  
  96. sub CurrentForm
  97. {
  98.  my ($w,$f) = @_;
  99.  if (@_ > 1)
  100.   {
  101.    $w->{'CurrentForm'} = $f;
  102.   }
  103.  return $w->{'CurrentForm'};
  104. }
  105.  
  106. sub GenTag
  107. {
  108.  my $w = shift;
  109.  my $prefix = shift;
  110.  my $tag = $prefix . ++$w->{Count};
  111.  $w->{'GenTag'} = [] unless (exists $w->{'GenTag'});
  112.  push(@{$w->{'GenTag'}},$tag);
  113.  $w->{widget}->tagConfigure($tag,@_) if (@_);
  114.  return $tag;
  115. }
  116.  
  117. sub TextHandler
  118. {
  119.  my $w = shift;
  120.  if (@_)
  121.   {
  122.    push(@{$w->{'Text'}},Tk::Callback->new(@_));
  123.   }
  124.  else
  125.   {
  126.    return (@{$w->{'Text'}}) ? $w->{'Text'}[-1] : undef;
  127.   }
  128. }
  129.  
  130. sub nl
  131. {
  132.  my ($w,$n) = @_;
  133.  while ($w->{'NL'} < $n)
  134.   {
  135.    $w->insert('insert',"\n");
  136.    $w->{'NL'}++;
  137.   }
  138. }
  139.  
  140. sub ElemTag
  141. {
  142.  my ($w,$elem) = @_;
  143.  my $tag = uc $elem->tag;
  144.  $w->tagAdd($tag,$elem->{'_Start_'},$elem->{'_End_'});
  145. }
  146.  
  147. sub FontTag
  148. {
  149.  my ($w,$f,$elem) = @_;
  150.  if (!$f)
  151.   {
  152.    my $tag = uc $elem->tag;
  153.    $tag = $FontTag{$tag} if (exists $FontTag{$tag});
  154.    $w->tagAdd($tag,$elem->{'_Start_'},$elem->{'_End_'});
  155.   }
  156.  return $f;
  157. }
  158.  
  159. sub body
  160. {
  161.  my ($w,$f,$elem) = @_;
  162.  $w->{'BODY'} = 1;
  163.  return $w;
  164. }
  165.  
  166. sub script
  167. {
  168.  my ($w,$f,$elem) = @_;
  169.  $w->{'BODY'} = 0;
  170.  return $w;
  171. }
  172.  
  173. sub bgsound
  174. {
  175.  my ($w,$f,$elem) = @_;
  176.  return 0;
  177. }
  178.  
  179. sub head
  180. {
  181.  my ($w,$f,$elem) = @_;
  182.  $w->{'BODY'} = 0;
  183.  return $w;
  184. }
  185.  
  186. sub a
  187. {
  188.  my ($h,$f,$elem) = @_;
  189.  if (!$f)
  190.   {
  191.    my $w = $h->{widget};
  192.    my $href = $elem->attr('href');
  193.    my $name = $elem->attr('name');
  194.    if ($href)
  195.     {
  196.      my $tag  = $h->GenTag('HREF',-underline => 1);
  197.      $w->tagAdd($tag,$elem->{'_Start_'},$elem->{'_End_'});
  198.      $w->tagBind($tag,'<Button-1>',[$w,'HREF',$href,'GET']);
  199.      $w->tagBind($tag,'<Enter>',[$w,'Callback','-showlink',$href]);
  200.     }
  201.    if ($name)
  202.     {
  203.      $w->tagAdd($name,$elem->{'_Start_'},$elem->{'_End_'});
  204.      push(@{$h->{'GenTag'}},$name);
  205.     }
  206.   }
  207.  return $f;
  208. }
  209.  
  210. sub li
  211. {
  212.  my ($w,$f,$elem) = @_;
  213.  if ($f)
  214.   {
  215.    my $list = $elem->enclosing(1,qw(ul ol dir menu));
  216.    if ($list->tag eq 'ol')
  217.     {
  218.      my $n = ++$list->{Num};
  219.      $w->insert('insert',"\n $n. ");
  220.     }
  221.    else
  222.     {
  223.      # $w->insert('insert',"\n \xA8 ",['symbol']);
  224.      $w->insert('insert',"\n \xB7 ",['symbol']);
  225.     }
  226.   }
  227.  return $w;
  228. }
  229.  
  230. sub dt
  231. {
  232.  my ($w,$f,$elem) = @_;
  233.  $w->nl(1+$f);
  234.  return $w;
  235. }
  236.  
  237. sub dd
  238. {
  239.  my ($w,$f,$elem) = @_;
  240.  $w->nl(1);
  241.  return $w;
  242. }
  243.  
  244.  
  245. sub tr
  246. {
  247.  my ($w,$f,$elem) = @_;
  248.  my $table = $elem->enclosing(1,'table');
  249.  if ($f)
  250.   {
  251.    $elem->{Col} = 0;
  252.   }
  253.  else
  254.   {
  255.    $table->{widget}->configure(-columns => $elem->{Col});
  256.    $table->{Row}++;
  257.   }
  258.  return $w;
  259. } 
  260.  
  261. sub p
  262. {
  263.  my ($w,$f,$elem) = @_;
  264.  $w->{'BODY'} = 1;
  265.  $w->nl(2);
  266.  return $w;
  267. }
  268.  
  269. sub br
  270. {
  271.  my ($w,$f,$elem) = @_;
  272.  $w->{'BODY'} = 1;
  273.  if (@{$w->{'Text'}})
  274.   {
  275.    $w->{'Text'}[-1]->Call("\n");
  276.   }
  277.  else
  278.   {
  279.    $w->nl(1);
  280.   }
  281.  return $w;
  282. }
  283.  
  284. sub hr
  285. {
  286.  my ($h,$f,$elem) = @_;
  287.  my $w = $h->{widget};
  288.  my $r = $w->Frame(-height => 2, 
  289.                    -width => $w->cget('-width')*140,
  290.                    -borderwidth => 1, -relief => 'sunken',
  291.                   );
  292.  $h->nl(1);
  293.  $w->window('create','insert','-window' => $r, -pady => 0, -padx => 0);
  294.  $h->{NL} = 0;
  295.  $h->{'BODY'} = 1;
  296.  $h->nl(1);
  297.  return $f;
  298. }
  299.  
  300. sub DeEscape
  301. {
  302.  my ($var,$text) = @_;
  303.  $$var .= HTML::Entities::decode($text);
  304. }
  305.  
  306. sub td
  307. {
  308.  my ($w,$f,$elem) = @_;
  309.  my $row   = $elem->enclosing(1,'tr');
  310.  my $table = $row->enclosing(1,'table');
  311.  if ($f)
  312.   {
  313.    $elem->{Text} = "";
  314.    $w->TextHandler([\&DeEscape,\$elem->{Text}]);
  315.   }
  316.  else
  317.   {
  318.    my $w = $table->{widget};
  319.    my @elem = ();
  320.    my $al = $elem->{ALIGN};
  321.    if (defined $al)
  322.     {
  323.      push(@elem,-justify => 'right',-anchor => 'e') if ($al =~ /RIGHT/i);
  324.     }
  325.    $w->Create($table->{Row},$row->{Col},'Message',-aspect => 300, 
  326.            -relief => 'ridge', -text => $elem->{Text},@elem);
  327.    pop(@{$w->{'Text'}});
  328.    $row->{Col}++;
  329.   }
  330.  return $w;
  331. } 
  332.  
  333. sub table
  334. {
  335.  my ($h,$f,$elem) = @_;
  336.  if ($f)
  337.   {
  338.    my $w = $h->Widget;
  339.    $elem->{widget} = $w->Scrolled('Table');
  340.    $elem->{Row}    = 0;
  341.    $w->window('create','insert',-window => $elem->{widget});
  342.    print "Table:",join(',',%$elem),"\n";
  343.   }
  344.  else
  345.   {
  346. #   $elem->{widget}->configure(-rows => $elem->{Row});
  347.   }
  348.  return $h;
  349. }
  350.  
  351. sub form
  352. {
  353.  my ($w,$f,$form) = @_;
  354.  $w->{'BODY'} = 1;
  355.  if ($f)
  356.   {
  357.    $form->{OldForm} = $w->CurrentForm;
  358.    bless $form,'Tk::HTML::Form';
  359.    push(@{$w->{'FORM'}},$form);
  360.    $form->{'Values'}  = [];
  361.    $form->{'Owner'} = $w;
  362.    $w->CurrentForm($form);
  363.   }
  364.  else
  365.   {
  366.    my $what;
  367.    my @val = ();
  368.    foreach $what (@{$form->{'Values'}})
  369.     {
  370.      my $val = $what->[1];
  371.      if (ref($val))
  372.       {
  373.        $val = $val->Call();
  374.       }
  375.      push(@val,$val);
  376.     }
  377.    $form->{'Reset'} = \@val;
  378.    $w->CurrentForm(delete $form->{OldForm});
  379.   }
  380.  $w->nl(1);
  381.  return $w;
  382. }
  383.  
  384. sub input 
  385. {
  386.  my($w,$f,$elem) = @_;
  387.  my $form = $w->CurrentForm;
  388.  my $type = $elem->attr('type');
  389.  $elem->attr(type => ($type = 'TEXT')) unless (defined $type);
  390.  $type = "\U$type";
  391.  $form->$type($elem);
  392.  return $w;
  393. }
  394.  
  395. sub option 
  396. {
  397.  my ($w,$f,$elem) = @_;
  398.  if ($f)
  399.   {
  400.    push(@{$w->{'option'}},$elem);
  401.   }
  402.  else
  403.   {
  404.    pop(@{$w->{'option'}});
  405.   }
  406.  return $f;
  407. }
  408.  
  409. sub OptionText
  410. {
  411.  my ($h,$mb,$text) = @_;
  412.  my $elem = $h->{'option'}[-1];
  413.  if (defined $elem)
  414.   {
  415.    my $val = $elem->attr('value');
  416.    $text =~ s/^\s+//;
  417.    $text =~ s/\s+$//;
  418.    $elem->attr('value' => $text) unless ($val);
  419.    if ($elem->attr('value') ne $text)                         
  420.     {                                                     
  421.      $mb->{'FORM_MAP'} = {} unless (exists $mb->{'FORM_MAP'});
  422.      $mb->{'FORM_MAP'}{$text} = $elem->attr('value');
  423.     }                                                     
  424.    $mb->options([$text]);                                 
  425.    $mb->setOption($text) if ($elem->attr('selected'));
  426.   }
  427.  else
  428.   {
  429.    confess "$text outside option";
  430.   }
  431. }
  432.  
  433. sub MultipleText
  434. {
  435.  my ($h,$lb,$text) = @_;
  436.  $text =~ s/^\s+//;
  437.  $text =~ s/\s+$//;
  438.  my $elem = $h->{'option'}[-1];
  439.  if (defined $elem)
  440.   {
  441.    my $index = $lb->index('end');
  442.    $elem = {} unless (defined $elem);
  443.    $elem->{'VALUE'} = $text unless (exists $elem->{'VALUE'});
  444.    if ($elem->{'VALUE'} ne $text)
  445.     {                        
  446.      $lb->{'FORM_MAP'} = [] unless (exists $lb->{'FORM_MAP'});
  447.      $lb->{'FORM_MAP'}[$index] = $elem->{'VALUE'};
  448.     }                        
  449.    $lb->insert($index,$text);
  450.    $lb->selection('set',$index) if (defined $elem->{'SELECTED'});
  451.   }
  452.  else
  453.   {
  454.    confess "$text outside option";
  455.   }
  456. }
  457.  
  458. sub select 
  459. {
  460.  my($h,$f,$elem) = @_;
  461.  if ($f) 
  462.   {
  463.    $h->{NL} = 0;
  464.    my $w = $h->Widget;
  465.    my $form = $h->CurrentForm;
  466.    $h->{'option'} = [];
  467.    if ($elem->attr('multiple') || (defined $elem->{'size'} && $elem->{'size'} > 1)) 
  468.     {
  469.      my $size = $elem->attr('size');
  470.      $size = 15 unless ($size);
  471.      my $e = $w->Scrolled('Listbox',-height => $size,-scrollbars => 'e');
  472.      $e->configure(-selectmode => 'multiple') if $elem->attr('multiple');
  473.      $w->window('create','insert',-window => $e);
  474.      if (defined $form)
  475.       {
  476.        my $var = $form->Variable($elem);
  477.        $$var   = Tk::Callback->new([\&Tk::HTML::Form::MultipleValue,$e]);
  478.       }
  479.      $h->TextHandler([\&MultipleText,$h,$e]);
  480.     } 
  481.    else 
  482.     {
  483.      my $buttonvar = "__not__";
  484.      my $mb = $w->Optionmenu(-textvariable => \$buttonvar,-relief => 'raised');
  485.      $w->window('create','insert',-window => $mb);
  486.      if (defined $form)
  487.       {
  488.        my $var = $form->Variable($elem);
  489.        $$var   = Tk::Callback->new([\&Tk::HTML::Form::OptionValue,$mb,\$buttonvar]);
  490.       }
  491.      $h->TextHandler([\&OptionText,$h,$mb]);
  492.     }
  493.   } 
  494.  else 
  495.   {
  496.    pop(@{$h->{'Text'}});
  497.    delete $h->{'option'};
  498.   }
  499.  return $f;
  500. }
  501.  
  502. sub textarea 
  503. {
  504.   my($h,$f,$elem) = @_;
  505.   if ($f) 
  506.    {
  507.     my $rows = $elem->attr('rows') || 20;
  508.     my $cols = $elem->attr('cols') || 12;
  509.     my $form = $h->CurrentForm;
  510.     my $w = $h->Widget;
  511.     $elem->{'NAME'} = '__inconnu__' if ! defined $elem->{'NAME'};
  512.     my $t = $w->Scrolled('Text',-wrap => 'none',  -relief => 'sunken', -scrollbars => 'se',
  513.                           -width => $cols, -height => $rows);
  514.     $w->{'textarea'} = $t;
  515.     if (defined $form)
  516.      {
  517.       my $var = $form->Variable($elem);
  518.       $$var   = Tk::Callback->new([$t,'Contents']);
  519.      }
  520.     $w->window('create','insert',-window => $t);
  521.     $h->{NL} = 0;
  522.     $h->TextHandler([$t,'insert','end']);
  523.    } 
  524.   else 
  525.    {
  526.     pop(@{$h->{'Text'}});
  527.    }
  528.  return $f;
  529. }
  530.   
  531. sub base 
  532. {
  533.  print STDERR "base(",join(',',@_),")\n";
  534.  my($h,$f,$elem) = @_;
  535.  $h->{'BODY'} = 0;
  536.  print STDERR "base elem=$elem\n";
  537.  my $w = $h->Widget;
  538.  $w->base($elem->attr('href'));
  539.  return 1
  540. }
  541.  
  542. sub isindex 
  543. {
  544.  my($h,$f,$elem) = @_;
  545.  $h->{'BODY'} = 0;
  546.  if ($f)
  547.   {
  548.    my $w = $h->{widget};
  549.    $h->hr($f,$elem);
  550.    $w->insert('end','This is a searchable index, enter keyword(s) : ');
  551.    my $e = $w->Entry;
  552.    $e->bind('<Return>',[$w,'call_ISINDEX',$e]);
  553.    $w->window('create','end',-window => $e);
  554.    $h->{NL} = 0;    
  555.    $h->hr($f,$elem);
  556.   }
  557.  return $f;
  558. }
  559.  
  560. sub img
  561. {
  562.  my ($h,$f,$elem) = @_;
  563.  my $w = $h->{widget};
  564.  my $alt = $elem->attr('alt') || ">>Missing IMG<<";
  565.  my $l = $w->Label(-text => $alt);
  566.  my $al = $elem->attr('align');
  567.  my @al = (-align => 'baseline');
  568.  if (defined $al)
  569.   {
  570.    my $al = "\U$al";
  571.    if ($al eq "MIDDLE")
  572.     {
  573.      @al = (-align => 'center') 
  574.     }
  575.    elsif ($al eq "BOTTOM")
  576.     {
  577.      @al = (-align => 'baseline') 
  578.     }
  579.    elsif ($al eq "TOP")
  580.     {
  581.      @al = (-align => 'top') 
  582.     }
  583.    else
  584.     {
  585.      print "Align '$al'?\n";
  586.     }
  587.   }
  588.  $w->window('create','insert','-window' => $l, @al);
  589.  $h->{NL} = 0;                
  590.  my $src = $elem->attr('src');
  591.  $w->FindImage($src,$l) if ($src);
  592.  my $a = $elem->enclosing(0,'a');
  593.  if ($a || $elem->attr('image'))
  594.   {
  595.    $l->configure('-cursor' => "top_left_arrow", -borderwidth => 3, -relief => 'raised');
  596.    if ($elem->attr('ismap') && $a)
  597.     {
  598.      $l->bind('<1>',[$w,'IMG_CLICK',$l,'ISMAP',$a->attr('href')]);
  599.     } 
  600.    elsif ($elem->attr('image'))
  601.     {
  602.      $l->bind('<1>',[$w,'IMG_CLICK',$l,'IMAGE',$f,$elem->attr('name')]);
  603.     } 
  604.    elsif ($a)
  605.     {
  606.      $l->bind('<1>',[$w,'IMG_CLICK',$l,'AREF',$a->attr('href')]);
  607.     }
  608.   }
  609.  return $f;
  610. }
  611.  
  612. sub title
  613. {
  614.  my ($w,$f,$elem) = @_;
  615.  if ($f)
  616.   {
  617.    $w->{TITLE} = "";
  618.    $w->TextHandler(sub { $w->{TITLE} .= shift });
  619.    $w->{'BODY'} = 0;
  620.   }
  621.  else
  622.   {
  623.    $w->{widget}->toplevel->title($w->{TITLE});
  624.    pop(@{$w->{'Text'}});
  625.   }
  626.  return $w;
  627. }
  628.  
  629. sub Heading
  630. {
  631.  my ($w,$f,$elem) = @_;
  632.  $w->nl(2);
  633.  if (!$f)
  634.   {
  635.    my $tag = uc $elem->tag;
  636.    my $align = $elem->attr('align');
  637.    $w->{widget}->tagConfigure($tag,-justify => lc($align)) if ($align);
  638.    $w->ElemTag($elem);
  639.   }
  640.  return $w;
  641. }
  642.  
  643. sub blockquote
  644. {
  645.  my ($w,$f,$elem) = @_;
  646.  if ($f)
  647.   {
  648.    $w->nl(1);
  649.   }
  650.  else
  651.   {
  652.    $w->ElemTag($elem);
  653.    $w->nl(1);
  654.   }
  655.  return $w;
  656. }
  657.  
  658. sub center
  659. {
  660.  my ($w,$f,$elem) = @_;
  661.  if ($f)
  662.   {
  663.    $w->nl(1);
  664.   }
  665.  else
  666.   {
  667.    $w->ElemTag($elem);
  668.    $w->nl(1);
  669.   }
  670.  return $w;
  671. }
  672.  
  673. sub DoesNothing
  674. {
  675.  my ($w,$f,$elem) = @_;
  676.  return $f;
  677. }
  678.  
  679. sub pre
  680. {
  681.  my ($h,$f,$elem) = @_;
  682.  $h->{'PRE'} = $f;
  683.  if (!$f)
  684.   {
  685.    $h->tagAdd('CODE',$elem->{'_Start_'},$elem->{'_End_'});
  686.   }
  687.  return $f;
  688. }
  689.  
  690. sub List
  691. {
  692.  my ($w,$f,$elem) = @_;
  693.  if ($f)
  694.   {
  695.    $elem->{Num} = 0;
  696.    push(@{$w->{'List'}},['LI' . $elem->tag,0,$elem->{'_Start_'}]);
  697.    my $depth = @{$w->{'List'}};
  698.    if ($depth > 1) 
  699.     {
  700.      my $len = ($depth - 1) * 20;
  701.      my $tag = $w->GenTag($elem->tag . "temp",
  702.                           -lmargin1 => $len, 
  703.                           -lmargin2 => $len,
  704.                           -rmargin => $len);
  705.      $w->tagAdd($tag,${${$w->{'List'}}[$depth-2]}[2],${${$w->{'List'}}[$depth-1]}[2]);
  706.     }
  707.   }
  708.  else
  709.   {
  710.    my $depth = @{$w->{'List'}};
  711.    if ($depth > 1) 
  712.     {
  713.      ${${$w->{'List'}}[$depth - 2]}[2] = $elem->{'_End_'};
  714.      my $len = $depth * 20;
  715.      my $tag = $w->GenTag($elem->tag,
  716.                           -lmargin1 => $len, 
  717.                           -lmargin2 => $len,
  718.                           -rmargin => $len);
  719.      $w->tagAdd($tag,${${$w->{'List'}}[$depth - 1]}[2],$elem->{'_End_'});
  720.     }
  721.    pop(@{$w->{'List'}});
  722.   }
  723.  return $f;
  724. }
  725.  
  726. sub traverse
  727. {
  728.  my ($h,$elem,$start,$depth) = @_;
  729.  # print ' 'x$depth,$start," ",(ref $elem) ? $elem->tag : $elem,"\n";
  730.  if (ref $elem)
  731.   {
  732.    my $tag = $elem->tag;
  733.    my $posn = $h->{widget}->index('insert');
  734.    if ($start)
  735.     {
  736.      $elem->{'_Start_'} = $posn;
  737.     }
  738.    else
  739.     {
  740.      $elem->{'_End_'} = $posn;
  741.     }
  742.    return $h->$tag($start,$elem);
  743.   }
  744.  else
  745.   {
  746.    my $text = $elem;
  747.    if (defined(substr($text,0,1)))
  748.     {
  749.      if (@{$h->{'Text'}})
  750.       {
  751.        $h->{'Text'}[-1]->Call($text);
  752.       }
  753.      else
  754.       {
  755.        return unless ($h->{'BODY'});
  756.        unless ($h->{'PRE'})
  757.         {
  758.          $text =~ s/\n/ /mg;
  759.          $text =~ s/^\s+//g;
  760.          $text =~ s/\s\s+/ /g;
  761.          $text =~ s/\s+$//g;
  762.         }
  763.        $text = HTML::Entities::decode($text);
  764.        if (length(substr($text,0,1)))
  765.         {
  766.          my $w = $h->{'widget'};
  767.          $w->insert('insert',' ',qw(text)) unless ($h->{NL});
  768.          $w->insert('insert',$text,qw(text));
  769.          $h->{NL} = 0;                
  770.          $h->{NL} = 1 if ($text =~ /\n$/);
  771.         }
  772.       }
  773.     }
  774.    return 1;
  775.   }
  776. }
  777.  
  778.  
  779.