in reply to Re^7: Perl tk - open file and print content
in thread Perl tk - open file and print content
........................................................ 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#......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 }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^9: Perl tk - open file and print content
by Anonymous Monk on Jan 23, 2012 at 12:48 UTC | |
by Giorgio C (Novice) on Jan 23, 2012 at 14:44 UTC |