X-Spam-Check-By: sourceware.org Date: Wed, 2 Aug 2006 22:21:37 -0400 (EDT) From: Igor Peshansky Reply-To: cygwin@cygwin.com To: Reini Urban cc: cygwin@cygwin.com Subject: Re: Windows popup/message box? In-Reply-To: <44D140FF.3000307@x-ray.at> Message-ID: References: <1154020255.3607.ezmlm@cygwin.com> <200607272025.k6RKPGTI008773@sd.skydive1.com> <44D140FF.3000307@x-ray.at> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm Precedence: bulk List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner@cygwin.com Mail-Followup-To: cygwin@cygwin.com Delivered-To: mailing list cygwin@cygwin.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@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/