Hi,
I'm having some issues with a Textfield, but I seem to have narrowed most of
them down to a problem with GetLine(). GetLine() seems to be only getting the
first 24 characters of a line.
After appending a bunch of output to the Textfield, I can use this
to get some of the lines.
foreach $item (0..50) {
$line = $program_output->GetLine($item);
print "Line $item: $line\n";
}
This prints out (in part):
Line 0: Some text4653630
Line 1: gswin32c.exe -dSAFER -dB
Line 2: -sDEVICE=tiffg4 -sOutput
Line 3: C:\Working\19390B4-1DOC.
Line 4: (2008-08-01)
Line 5: Copyright (C) 2008 Artif
Line 6: This software comes with
Line 7: PUBLIC for details.
Line 8: Processing pages 1 throu
Line 9: Page 1
The Textfield shows this: (note that this is the word wrapped output)
Some text4653630
gswin32c.exe -dSAFER -dBATCH -dNOPAUSE -r300
-sDEVICE=tiffg4 -sOutputFile=Tester.tif
C:\Working\19390B4-1DOC.pdfGPL Ghostscript 8.63
(2008-08-01)
Copyright (C) 2008 Artifex Software, Inc. All rights reserved.
This software comes with NO WARRANTY: see the file
PUBLIC for details.
Processing pages 1 through 319.
Page 1
Don't know if it's relevant, but here's the code for the Textfield:
my $program_output = $main->AddTextfield (
-name => "Output",
-notify => 1,
-pos => [319,175],
-size => [316,229],
-multiline => 1,
-autohscroll => 0,
-vscroll => 1,
-autovscroll => 1,
-visible => 1,
);
Any ideas on how to get GetLine to work?
Thanks,
Pat Roden
|
