using a message box - some questions.
From: Paul Spitalny (no_spam_at_no_spam.com)
Date: 01/28/04
- Next message: Chris Mattern: "Re: Is there a more efficient way to do this ?"
- Previous message: $__at__.%_: "Re: When is a program too big for one file?"
- Next in thread: Paul Lalli: "Re: using a message box - some questions."
- Reply: Paul Lalli: "Re: using a message box - some questions."
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Wed, 28 Jan 2004 13:05:06 -0800
Hi,
I want to use the message box. Trouble is, when I call the perl program
the command window (cmd.exe) also pops-up, in addition to the msg box.
See code below:
#! /usr/bin/perl
use Win32;
# display a message box with an exclamation mark and an 'Ok' button
sub MsgBox {
my ($caption, $message, $icon_buttons) = @_;
my @return = qw/- Ok Cancel Abort Retry Ignore Yes No/;
my $result = Win32::MsgBox($message, $icon_buttons, $caption);
return $return[$result];
}
#$thing = $ARGV[0];
$fred='oh baby';
MsgBox("$thing", "$fred", 1);
# the "1" , above, means OK and cancel buttons
So, my question is, how do I run the perl script without the Windows
cmd.com window popping up??
Thanks !!
Paul
- Next message: Chris Mattern: "Re: Is there a more efficient way to do this ?"
- Previous message: $__at__.%_: "Re: When is a program too big for one file?"
- Next in thread: Paul Lalli: "Re: using a message box - some questions."
- Reply: Paul Lalli: "Re: using a message box - some questions."
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]