I am automating an external program with the modules
mentioned in the title of this query. I am using
Win32::GUI in a non-owned windows format.

Everything is fine until I get to a point where I need
to read some information from the other app's listview
control. When I attempt to retrieve an item from the
listview the source app crashes. A dialog comes up and
proclaims that an error has occurred and that a log
will be written. The alleged log is, however, an empty
text file. 

The offending code is : <more> 

sub Select_Tapes ($@) {
    my $wh_DataCopier = shift;
    
    Win32::Sleep(700);
    
    my @handles = FindWindowLike (
$wh_DataCopier,"List1", undef ,undef);
    my $listview = $handles[0];
    print "List view is at  $listview \n";
    print "There are :".
Win32::GUI::ListView::Count($listview)."Tapes listed
in the Listview\n";
   


my %tape = Win32::GUI::ListView::GetItem($listview,0);
# This line causes the program at handle
#$wh_DataCopier to crash the perl script runs along
just fine until it realizes there isn't a program to
talk to anymore.

  
   print "The First Item is $tape{'-text'}\n";
    
   my @tapes = qw( 000001 000002 000003 000004 );
    
    foreach $tape (@tapes) {
        my
$tapeid=Win32::GUI::Combobox::FindString($listview,$tape);
         ($tapeid>0) ? print "Found a Tape $tape is
index $tapeid\n": print "Did not find tape $tape\n";
       
Win32::GUI::Combobox::Select($listview,$tapeid);
    
    }
    
    


UPDATE Win32::GUI ver .670 for perl 5.6 

Reply via email to