So far so good. What you neglected to do was tell it to show the window.
When you create the window it is hidden by default.

Try adding $window->Show();

-Pete



-----Original Message-----
From: Bored is me [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 06, 2003 3:56 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Simple window (new to win32::gui)


this is my script so far:

#!C:/Perl/bin/perl.exe

use Win32::GUI;

my $window = Win32::GUI::Window->new(
   -title    => "Stuff",
   -left     => 400,
   -top      => 100,
   -width    => 185,
   -height   => 360,
   -name     => "Stuff",

  );

$window->AddButton(
    -name    => "Button1",
    -ok      => 1,
        );

Win32::GUI::MessageBox($window, "You will surely die", "Warning", MB_OK | 
MB_ICONWARNING | MB_DEFBUTTON2);

Win32::GUI::Dialog;



So far, it gives me the alert, but no window shows up. Can someone tell me 
what I'm doing wrong? the info on CPAN about win32::gui seems to have gone 
missing... Please bear with me, im really new to this, and not exactly an 
'excellant' programmer. Thanks

_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE*  
http://join.msn.com/?page=features/junkmail



-------------------------------------------------------
Enterprise Linux Forum Conference & Expo, June 4-6, 2003, Santa Clara
The only event dedicated to issues related to Linux enterprise solutions
www.enterpriselinuxforum.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