Re: [perl-win32-gui-users] User32 error in script [Was: Keyboard events difference on WinXP and 98]

[Waldemar Biernacki]

Robert,
thank you for your efforts and email, I'll try my best to clarify...

The idea is to create and manage many windows. The clue is that I do not 
know how many of them can be created.
To open new window we use Right key, to close Left and to switch between 
windows Enter.

I was working on it and - when I had changed destroying window to hiding 
them everything was OK.
However I hope to destroy them because of the fact I don't know how many 
of them I have to create.


The point is that in WindowsXP it works fine but in Widows 98 SP2 it 
does not.
Windows' error screen points to USER32.DLL error.
What is the error that you get?
It apears small window with the following information (in my translation):

PERL couse an error: incorrect page in the module
USER32.DLL at 0167:bff558c6.
Registry:
EAX=00000001 CS=0167 EIP=bff558c6 EFLGS=00010202
EBX=00000100 SS=016f ESP=0153f998 EBP=0153fa10
ECX=00000d1c DS=016f ESI=02c761ec FS=0d2f
EDX=01554280 ES=016f EDI=0155424c GS=0000
Bytes in CS:EIP:
66 81 39 90 68 75 25 66 81 79 06 90 68 75 1d 81
Stos:
02ba4a51 00000d1c 000006a0 00000100 00000025 014b0001 0155424c 02c761ec 
00000000 04427695 16d717c7 000089f4 61ec0038 000002c7 89e60e17 17c71248


If you can post a smaller, complete example showing your problem, and 
removing all the stuff that is not necessary, then I will help you try 
to identify the problem.
I enclose new refreshed code at the end

Waldemar

############################################################
#! perl -w

use strict;
use Win32::GUI qw();

my $last  = -1;

my @Window;
my @start = (0);
my @rows  = (5);
my $which = 0;
my $help;

makewindow();

Win32::GUI::Dialog();
exit(1);

sub Window_Terminate { return -1 }

sub makewindow {
   return 1 if $last > 3;
   $last++;

   $start[$last] = 0;
   $rows[$last]  = 5+$last;

   $Window[$last]->{SCREEN} = new Win32::GUI::Window (
       -title    => "Item: $last",
       -pos     => [10+$last*202, 20],
       -size    => [200, 200],
       -name     => "Window_$last",
       -onKeyDown   => \&keydown,
   );

   if ( $last == 0 ) {
       $Window[$last]->{HELP} = $Window[$last]->{SCREEN}->AddLabel(
           -parent  => $Window[$last]->{SCREEN},
           -pos=>[4,20],
           -size=>[150,150],
           -text=>"HELP:\n\n Right=add window\n Left=close (only top) 
window\n Enter=switch between windows\n",
           -multiline=>1,
       )
   }

   $Window[$last]->{SCREEN}->Show(1);

   print "item $last created\n";

   $which = $last;
}

sub keydown {
   my ( $self, undef, $key ) = @_;

   my $hash_EVENT    = Win32::GUI::GetKeyboardState;

   if ( $hash_EVENT->[39] ) {

               makewindow();

   } elsif ( $hash_EVENT->[13] ) {

               if ( $which == $last ) { $which = 0 } else { $which++ }

               $Window[$which]->{SCREEN}->SetFocus();

   } elsif ( $hash_EVENT->[37] ) {

       if (( $which == $last )&&( $last>0)) {

               print "item $last deleted\n";

               $Window[$which]->{SCREEN}->DESTROY if 
$Window[$which]->{SCREEN};

               $last--;
               $which--;
               $Window[$which]->{SCREEN}->SetFocus();
       } elsif ( $last == 0 ) {
               print "item $last deleted\n";
               return -1;
       }

  }
   return 1;
}
############################################################