Using your exact code on a Windows 95B and a Windows 98SE machine running
Activestate Perl v.5.6.1.626 and Win32::GUI 0.0.558, I added the following
lines to the end of your code:
$W = new Win32::GUI::Window(
-title => "Title Here",
-left => 100,
-top => 100,
-width => 400,
-height => 400,
-style => WS_OVERLAPPEDWINDOW,
-menu => $mmenu,
-name => "Window",
);
$W->Show();
Win32::GUI::Dialog();
and it ran fine. I also used -menu => $smenu and it worked fine as well. I'm
not sure what to say unless you want to send more or all of your code.
Andrew Kincaid
Lead PC Systems Specialist, IS&T
Georgia State University
[EMAIL PROTECTED]
>>> [EMAIL PROTECTED] 06/19/01 09:07PM >>>
Hi,
Is there a difference between Win 9x and NT for putting a menu on a
window using Win32::GUI?
I added a bunch of menus to my application, and they show up fine on NT,
but they don't appear at all on Win 98. In fact, at first they caused
perl to crash on Win 98... but upgrading to build 626 seems to have
cured the bad memory reference, but the menus don't appear.
Curiously, the floating menu that I added to my NotifyIcon does appear
on Win98.
Here's my menu definition, in case there is something obviously wrong
with it....
my $mmenu = new Win32::GUI::Menu (
"&File" => "FileMenu",
">New &Location" => "NewLoc",
">New &ISP" => "NewISP",
">New &Phone Number" => "NewNum",
">-" => 0,
">E&xit" => "ExitNow",
"&Edit" => "EditMenu",
">Edit Selected &Location" => "EditLoc",
">Edit Selected &ISP" => "EditISP",
">Edit Selected &Phone Number" => "EditNum",
"&Options" => "OptMenu",
"&Dialing" => "DialMenu",
">&Dial" => "DialNow",
">&Hangup" => "HangupNow",
">&Launch Email" => "LaunchNow",
"&Help" => "HelpMenu",
">&Help Text" => "HelpNow",
">&About" => "AboutNow",
">-" => 0,
">Show &Debug Window" => "DebugNow",
);
$smenu = new Win32::GUI::Menu (
"&Dialing" => "sDialMenu",
">&Dial" => "sDialNow",
">&Hangup" => "sHangupNow",
">&Launch Email" => "sLaunchNow",
">-" => 0,
">&Bring to Front" => "sForeground",
);
--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
