Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Tk perl

by Jouke (Curate)
on Jul 30, 2001 at 18:48 UTC ( #100887=note: print w/replies, xml ) Need Help??


in reply to Displaying text file with perl/tk

This piece of code does the job for you:
#!/usr/bin/perl -w use strict; use Tk; #First create a new mainwindow my $mainwindow = new Tk::MainWindow(); #Then create a textwidget (called 'Scrolled', with subtype 'Text") my $text = $mainwindow->Scrolled("Text", -scrollbars => 'se')->pack(-e +xpand => 1, -fill => 'both'); # Open the file open(F, "<$ARGV[0]") || die "can't open $ARGV[0]: $!\n\n"; while(<F>) { # insert each line to the $text widget $text->insert('end', $_); } # close the file close(F); # create a closebutton my $button = $mainwindow->Button(-text => "close", -command => sub {$m +ainwindow->destroy()})->pack(); # start the main loop! MainLoop;


Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://100887]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2019-08-25 20:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?