Hi,

I tried this will perl2exe, and it kinda worked. For some odd reason when
running as an exe, none of the images in the www.perl.com displayed.

Sorry I couldn't help any more.

Cheers,

jez.
----- Original Message ----- 
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, March 02, 2004 12:01 AM
Subject: [perl-win32-gui-users] problem with Win32::GUI::AxWindow when
building exe file with Activestate Perlapp


> When I build an executable using perlapp on the following code, I get this
> error message:
>
> Can't call method "Navigate" on an undefined value at Axsample.pl line 29.
>
> What's happening?  And what can I do to make it work.  Thanks.
>
> use Win32::GUI;
> use Win32::OLE;
> use Win32::GUI::AxWindow;
>
>  # main Window
>  $Window = new Win32::GUI::Window (
>      -title    => "Win32::GUI::AxWindow and Win32::OLE",
>      -pos     => [100, 100],
>      -size    => [400, 400],
>      -name     => "Window",
>  ) or die "new Window";
>
>  # Create AxWindow
>  $Control = new Win32::GUI::AxWindow  (
>                 -parent  => $Window,
>                 -name    => "Control",
>                 -pos     => [0, 0],
>                 -size    => [400, 300],
>                 -control => "Shell.Explorer.2",
>   ) or die "new Control";
>
>  # Get Ole object
>  my $html = '<html><body><a
> href="http://www.perl.com";>perl.com</a></body></html>';
>  $OLEControl = $Control->GetOLE();
>  $OLEControl->Navigate("about:blank");  # Clear control
>  $OLEControl->{Document}->write($html); # Write Html
>
>  # Event loop
>  $Window->Show();
>  Win32::GUI::Dialog();
>
>  # Main window event handler
>  sub Window_Terminate {
>    # Release all before destroy window
>    undef $OLEControl;
>    $Control->Release();
>    return -1;
>  }
>
>  sub Window_Resize {
>    if (defined $Window) {
>      ($width, $height) = ($Window->GetClientRect)[2..3];
>      $Control->Resize ($width, $height);
>    }
>  }
>
> Regards,
> Sam Dela Cruz
>
>
> -------------------------------------------------------
> SF.Net is sponsored by: Speed Start Your Linux Apps Now.
> Build and deploy apps & Web services for Linux with
> a free DVD software kit from IBM. Click Now!
> http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


Reply via email to