OOPS!
This is not a Win32::GUI issue, its a pure perl issue!
my $TotalInputFileLines = scalar(@InputFileLines);
Heh, I do that sometimes myself..
Jason Plum
JoeManFoo wrote:
Hi all,
Have a dumb question/issue.
I've coded up my GUI and am trying to do a simple thing of looping
though records and for each record I want to fill in my GUI with the
data for the current record and wait for the user to make some
action...when the action is performed, then I process the action and
go on to the next record...simple and I've got that part working as
intended.
What I'm having a problem with is when there are no more records...the
same method to populate the interface just goes into an infinite loop,
anyone bump into this early on in their win32-gui codding childhood?
Here's a little snip of the code and the logic I think I'm trying to do...
my $InputFileTotalLines = @InputFileLines;
if($InputFileTotalLines == 0) {
print "Closing up the file, the end has been reached my
friend ($InputFileTotalLines:$INPUT_FILE_LINE_COUNT)...\n";
close $OutputFileHandle if defined $OutputFileHandle;
$INPUT_FILE_LINE_COUNT = 0;
while(@InputFileLines) { shift @InputFileLines;}
&clearGUI;
} else {
...do some other stuff
}
....
Thanks in advance,
------------------------------------------------------------------------
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
------------------------------------------------------------------------
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.20/588 - Release Date: 12/15/2006
10:02 AM
