Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^8: Perl tk - open file and print content

by Giorgio C (Novice)
on Jan 23, 2012 at 12:29 UTC ( #949388=note: print w/ replies, xml ) Need Help??


in reply to Re^7: Perl tk - open file and print content
in thread Perl tk - open file and print content

Pheraps i can't explain my self, i try to post the code so you can see where i wrong:

#......All the menu items are not showed in the code, only the part of + interest.....: # OPEN FILE + $file->command( -label => 'Open', -accelerator => 'Ctrl-o', -underline => 0, -command => \&open_file); $mw->bind('<Control-o>', [\&open_file]); #SUPPORTED FILES TO OPEN my $types_OPEN = [ ['SFF files', '.sff'], ['All Files', '*'],]; sub open_file {my $open = $mw->getOpenFile(-filetypes => $types_OPEN, -defaultextension => '.sff'); $read_fh = IO::File->new("$open",'r'); read_text($read_fh); } sub read_text { my @lines; @lines = <$read_fh>; my $mw = MainWindow->new(-title=>'Colored Text'); $mw => print @lines; MainLoop }
........................................................ Now, the script works fine and the content of any opened file is printed out in the terminal! The problem is that i would like to print the content in a GUI windows (not only in the terminal, i'm using UBUNTU) but here the windows is opened but is blank !! Please don't call me pesky, but can you correct this script so to obtain what i need!!! TNX a lots


Comment on Re^8: Perl tk - open file and print content
Download Code
Re^9: Perl tk - open file and print content
by Anonymous Monk on Jan 23, 2012 at 12:48 UTC

    stop using print function

    run  perl -MTk -e " my $te = tkinit->Scrolled( q/TextUndo/ )->pack; $te->Load( q/filename/ ); MainLoop "  

    substitute  q/filename/ with a real filename, and when you paste the contents of the program into your real program, use $open like you have in your program, and thats it

    Run the widget demo, it also shows zentara way of using Tk::Text insert method

    Oh, there is no need , but you could use open/print if you really want,but, it helps to know perl Perl:TK - standard output to text widget

      Heartfelt thanks finally it works now!!!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2014-10-25 07:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (142 votes), past polls