X-Spam-Check-By: sourceware.org
Date: Wed, 2 Aug 2006 22:21:37 -0400 (EDT)
From: Igor Peshansky <pechtcha AT cs DOT nyu DOT edu>
Reply-To: cygwin AT cygwin DOT com
To: Reini Urban <rurban AT x-ray DOT at>
cc: cygwin AT cygwin DOT com
Subject: Re: Windows popup/message box?
In-Reply-To: <44D140FF.3000307@x-ray.at>
Message-ID: <Pine.GSO.4.63.0608022127240.14631@access1.cims.nyu.edu>
References: <1154020255 DOT 3607 DOT ezmlm AT cygwin DOT com> <200607272025 DOT k6RKPGTI008773 AT sd DOT skydive1 DOT com>  <Pine DOT GSO DOT 4 DOT 63 DOT 0607271706530 DOT 734 AT access1 DOT cims DOT nyu DOT edu> <44D140FF DOT 3000307 AT x-ray DOT at>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
Precedence: bulk
List-Unsubscribe: <mailto:cygwin-unsubscribe-archive-cygwin=delorie DOT com AT cygwin DOT com>
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com

On Thu, 3 Aug 2006, Reini Urban wrote:

> Igor Peshansky schrieb:
> > On Thu, 27 Jul 2006, Richard Foulk wrote:
> > > Looking for a simple way to popup a message box on Windows via
> > > a Perl script on a system with Cygwin.
> > [snip]
> > Theoretically, it should be as simple as
> >
> > 	use Win32::GUI qw(MessageBox);
> > 	MessageBox(0, "message", "title", 64);
> >
> > However, the Win32::GUI module fails to load for me at the moment,
> > claiming the DLL is not found.  I have no time to investigate and create a
> > proper bug report, but if it works for you -- great.
>
> Uh? Need not be very proper.
> Which dll? Which versions (perl and win32-gui)?

Ok, here you go:

$ uname -svr
CYGWIN_NT-5.1 1.7.0(0.159/4/2) 2006-07-29 22:39
$ cygcheck -cd perl perl-libwin32
Cygwin Package Information
Package              Version
perl                 5.8.7-5
perl-libwin32        0.26-1

$ perl -e 'use Win32::GUI qw(MessageBox); MessageBox(0, "message", "title", 64);'
Can't load '/usr/lib/perl5/site_perl/5.8/cygwin/auto/Win32/GUI/GUI.dll' for module Win32::GUI: No such file or directory at /usr/lib/perl5/5.8/cygwin/DynaLoader.pm line 230.
 at -e line 1
Compilation failed in require at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

At this point the perl.exe process started consuming 100% of the CPU and
allocating memory like crazy.  I let it get to 1.2G before killing it
(took about 35 minutes).  It did react to a Ctrl-C in the parent bash
window.

I wasn't able to open another Cygwin window and attach to the hanging
process with strace, because my system slowed down to a crawl and stopped
responding to most window messages.  Perhaps I'll repeat the experiment
someday.

BTW,

$ ls -l /usr/lib/perl5/site_perl/5.8/cygwin/auto/Win32/GUI/GUI.dll
-rwxrwxr-x 1 Administrators SYSTEM 861696 Jan 12  2004 /usr/lib/perl5/site_perl/5.8/cygwin/auto/Win32/GUI/GUI.dll

Let me know if you want further details.
	Igor
-- 
				http://cs.nyu.edu/~pechtcha/
      |\      _,,,---,,_	    pechtcha AT cs DOT nyu DOT edu | igor AT watson DOT ibm DOT com
ZZZzz /,`.-'`'    -.  ;-;;,_		Igor Peshansky, Ph.D. (name changed!)
     |,4-  ) )-,_. ,\ (  `'-'		old name: Igor Pechtchanski
    '---''(_/--'  `-'\_) fL	a.k.a JaguaR-R-R-r-r-r-.-.-.  Meow!

"Las! je suis sot... -Mais non, tu ne l'es pas, puisque tu t'en rends compte."
"But no -- you are no fool; you call yourself a fool, there's proof enough in
that!" -- Rostand, "Cyrano de Bergerac"

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/