use Win32::GUI;

$Menu = Win32::GUI::MakeMenu(
    "&Help" => "&Help",
    ">  &Winnt Help"   => "helpme",
);

$Win = new Win32::GUI::Window(
    -left   => 100,
    -top    => 100,
    -width  => 300,
    -height => 300,
    -name   => "Window",
    -text   => "Win32::GUI Help Menu",
    -menu   => $Menu,
);


$Win->Show();
Win32::GUI::Dialog();

sub helpme_Click
{
        print "Trying to help...\n";
        system("winnt.hlp");
        return 0;
}

sub Window_Terminate
{
    return -1;
}


### works on NT4 anyway...
### Pete




> -----Original Message-----
> From: sacha courtney [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 03, 2002 03:17
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Windows help (winhlp32)
> 
> 
> Hi,
> 
> Is there anyway that I can lauch a windows help file(.hlp) from a 
> Win32::GUI::Menu?
> 
> Or has someone coded a win32::gui window help file equivelant?
> 
> Thanks.
> 
> 
> _________________________________________________________________
> Join the world's largest e-mail service with MSN Hotmail. 
> http://www.hotmail.com
> 
> 
> _______________________________________________
> 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