This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: Windows popup/message box?


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@cs.nyu.edu | igor@watson.ibm.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/


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]