Try this instead:
sub Submit_Click {
# Do some stuff here
# Do some fancy stuff...
# Ooops, an error, ask a yes no question.
$answer = Win32::GUI::MessageBox(
0,
"text you want displayed",
"text you want in titlebar",
4
);
if($answer == 6) {
# yes
} else {
# no
}
}
Jonathan
--------------------------------------------------------------
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
----- Original Message -----
From: "David Hiltz" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, May 05, 2000 8:13 AM
Subject: Re: [perl-win32-gui] YES/NO Window
>
> I didn't get a YES and NO button when I ran this, just
> an OK button.
>
> > you're looking for a Win32::GUI::MessageBox.
> >
> > sub Submit_Click {
> > # Do some stuff here
> >
> > # Do some fancy stuff...
> > # Ooops, an error, ask a yes no question.
> >
> > $answer = Win32::GUI::MessageBox(
> > $question_text,
> > "ERROR",
> > MB_ICONQUESTION | MB_YESNO,
> > );
> > if($answer == 6) {
> > # yes
> > } else {
> > # no
> > }
> > }
> >
> > cheers,
> > Aldo
> >
> >
> >
> >
>
>
-------------------------------------------------------
