getOpenFile -- empty box remains
- From: Fred Hare <fred4414@xxxxxxxxxxx>
- Date: Sat, 17 Apr 2010 10:12:37 +0200
Using WindowsXP SP3, Perl 5.89, Tk 804.027
After running the following script, a small empty box of about 2"x2" remains on the screen (behind the text-box) and has to be deleted manually. What can I do to make this small box disappear?
($infile is a short plain text file)
Fred
#!/usr/local/bin/perl
use strict ;
use warnings ;
use Tk ;
my $main = MainWindow->new;
my $text ;
my $infile = $main->getOpenFile(-title=>'Input File' );
open (my $IN, "< $infile") or die"Can't open $infile\n";
{ local $/ = undef; $text = <$IN> }
close ($IN);
# do my stuff with $text ...
$main = MainWindow->new (-title => 'Analysis of a HTML-file' );
$main->Label(-text => $text, -width =>100, -height => 20,
-font => ['arial', 10, 'bold'], -justify => 'left' ) -> pack;
$main->Button (-text => 'Quit', -font => ['arial', 10, 'bold'],
-width =>12, -height => 1.5, -command => [$main => 'destroy']
)->pack;
MainLoop;
.
- Follow-Ups:
- Re: getOpenFile -- empty box remains
- From: Marc Dashevsky
- Re: getOpenFile -- empty box remains
- Prev by Date: Want a Scale's size to match size of Entry it is controlling
- Next by Date: Re: getOpenFile -- empty box remains
- Previous by thread: Want a Scale's size to match size of Entry it is controlling
- Next by thread: Re: getOpenFile -- empty box remains
- Index(es):
Relevant Pages
|
