Invalid Page Fault With Win32::GUI Under Win98

[Robert James Kaes]

Hi All,
I'm trying to experiment with Win32::GUI using ActiveState Perl 5.8.4
(build 810) under Windows 98. I'm trying to follow the examples in the
Win32::GUI tutorial, but the first example in the tutorial is failing.

use Win32::GUI;
use strict;
use warnings;

my $main = Win32::GUI::Window->new(-name => "Main", -width => 110, -height => 100);

# This line is failing
$main->AddLabel(-text => "Hello, world");
$main->Show();

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

# terminate the message loop when the window is closed
sub Main_Terminate { -1 }

The AddLabel line is causing an illegal operation error with the
following message:

PERL caused an invalid page fault in
module MSVCRT.DLL at 0167:78002fc5.

I installed Win32::GUI using the PPM system. If I removed the AddLabel
line, the script runs and displays the empty window.

Has any one else experienced a problem like this? Is this a known
problem, with a known work-around? Does Win32::GUI just not work under
Windows 98? Thanks for any help you can provide.
-- Robert

--
Robert James Kaes --- Flarenet Inc. --- (519) 426-3782
[url]http://www.flarenet.com/consulting/[/url]
* Putting the Service Back in Internet Service Provider *

[Matt Garrish]

"Robert James Kaes" <rjkaes@flarenet.com> wrote in message
news:pan.2004.07.09.20.27.26.686362@flarenet.com.. .

> Hi All,
> I'm trying to experiment with Win32::GUI using ActiveState Perl 5.8.4
> (build 810) under Windows 98. I'm trying to follow the examples in the
> Win32::GUI tutorial, but the first example in the tutorial is failing.
>
> use Win32::GUI;
> use strict;
> use warnings;
>
> my $main = Win32::GUI::Window->new(-name => "Main", -width =>

110, -height => 100);

>
> # This line is failing
> $main->AddLabel(-text => "Hello, world");

You forgot to give the control a name:

$main->AddLabel(-text => "Hello, world",
-name => 'myLabel');

Should work when you make that correction.

Matt

[Matt Garrish]

"Robert James Kaes" <rjkaes@flarenet.com> wrote in message
news:pan.2004.07.09.20.27.26.686362@flarenet.com.. .

> Hi All,
> I'm trying to experiment with Win32::GUI using ActiveState Perl 5.8.4
> (build 810) under Windows 98. I'm trying to follow the examples in the
> Win32::GUI tutorial, but the first example in the tutorial is failing.
>
> use Win32::GUI;
> use strict;
> use warnings;
>
> my $main = Win32::GUI::Window->new(-name => "Main", -width =>

110, -height => 100);

>
> # This line is failing
> $main->AddLabel(-text => "Hello, world");

Please don't post to two groups and set the followup to only one; it's
really not a nice thing to do. You'll catch people (like me) unaware at
times and making me post another message is almost enough to get you
ignored.


You forgot to give the control a name:

$main->AddLabel(-text => "Hello, world",
-name => 'myLabel');

Should work when you make that correction.

Matt