[perl-win32-gui-users] Textfield->GetLine() problem

[Patrick R. <pat...@qw...>]

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