From: <ce...@pa...> - 2002-04-11 11:27:03
|
Hi I'm trying to run a basic gui, but perl abort the script with an error "instruction at 0x.... referenced memory 0x0" Perl version = ActiveState 5.6.1 Build 630 OS = W2K SP2 Win32::GUI = 0.558 I have run it using the debugger and it stops working at the STORE with execution of the AddLabel = foreground [255,0,0] Script: #!perl use Win32::GUI; $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world"; $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Perl', ); $font = Win32::GUI::Font->new( -name => "Comic Sans MS", -size => 24, ); $label = $main->AddLabel( -text => $text, -font => $font, -foreground => [255, 0, 0], ); $ncw = $main->Width() - $main->ScaleWidth(); $nch = $main->Height() - $main->ScaleHeight(); $w = $label->Width() + $ncw; $h = $label->Height() + $nch; $desk = Win32::GUI::GetDesktopWindow(); $dw = Win32::GUI::Width($desk); $dh = Win32::GUI::Height($desk); $x = ($dw - $w) / 2; $y = ($dh - $h) / 2; $main->Change(-minsize => [$w, $h]); $main->Move($x, $y); $main->Show(); Win32::GUI::Dialog(); sub Main_Terminate { -1; } sub Main_Resize { my $w = $main->ScaleWidth(); my $h = $main->ScaleHeight(); my $lw = $label->Width(); my $lh = $label->Height(); $label->Left(int(($w - $lw) / 2)); $label->Top(int(($h - $lh) / 2)); } |
From: Johan L. <jo...@ba...> - 2002-04-11 11:36:04
|
At 13:26 2002-04-11 +0100, ce...@pa... wrote: >I'm trying to run a basic gui, but perl abort the script with an error >"instruction at 0x.... referenced memory 0x0" Deja vu all over again :) All controls need a -name option when using the 0.0.558 release. So the general advice is to always use a -name option no matter what. This really needs to be mentioned in the FAQ. http://www.jeb.ca/faq/Win32-GUI-FAQ.html /J -------- ------ ---- --- -- -- -- - - - - - Johan Lindström Sourcerer @ Boss Casinos jo...@ba... Latest bookmark: "Aftonbladet Sparka dig till ett bra självförtro..." <http://www.aftonbladet.se/vss/halsa/story/0,2789,153107,00.html> dmoz (1 of 8): .../Europa/Sverige/Nyheter_och_media/Dagstidningar |