wow that was weird ... my first message appeared AFTER my second message ... I hope I
didn't confuse everyone. I think
it got lost on the T1's (hehe).
Jonathan
--------------------------------------------------------------
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
----- Original Message -----
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, May 05, 2000 10:50 AM
Subject: Re: [perl-win32-gui] YES/NO Window
> 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
> > >
> > >
> > >
> > >
> >
> >
> -------------------------------------------------------
>
