home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / Web / TextPopup.al < prev   
Encoding:
Text File  |  1997-08-10  |  367 b   |  15 lines
  1. # NOTE: Derived from ..\blib\lib\Tk\Web.pm.  Changes made here will be lost.
  2. package Tk::Web;
  3.  
  4. sub TextPopup
  5. {
  6.  my ($w,$kind,$text) = @_;
  7.  my $t   = $w->MainWindow->Toplevel;
  8.  my $url = $w->url;
  9.  $t->title("$kind : ".$url->as_string);
  10.  my $tx = $t->Scrolled('Text',-wrap => 'none')->pack(-expand => 1, -fill => 'both');
  11.  $tx->insert('end',$text);
  12. }
  13.  
  14. 1;
  15.