[Israel.pm] FW: Perl question

[Shmuel Fomberg]

Hello There.

If you're using Windows, then you can use Win32::GuiTest.
Example: (untested, as I cutted some irrelevant lines)

use Win32::GuiTest qw/:ALL/;
my $swin = getMyWindow("^Consule");  # regular expression for the title
of the window
SetForegroundWindow($swin);

sub getMyWindow {
   my $win_name = shift;
   my @windows_list = FindWindowLike(undef, $win_name);

   if (not @windows_list) {
         die("Cann't find or run ".$win_name." :
".join("_",FindWindowLike(undef, undef)));
   }

   if (@windows_list > 1) {
      die("More the one window??? not good.");
   }

   my $dc = $windows_list[0];
   return $dc;
}

-----Original Message-----
From: Levenglick Dov-RM07994 [mailto:dovl at freescale.com] 
Sent: Sunday, October 08, 2006 4:27 PM
To: Perl in Israel
Subject: [Israel.pm] FW: Perl question

Any Ideas? 


 
Best Regards,
Dov Levenglick
DSP SoC System and Applications Engineer,
Network and Computing Systems Group
Freescale Semiconductor Israel
Tel. +972-9-952-2804
The information contained in this email is classified as:
[ ] Freescale General Business Information
[ ] Freescale Internal Use Only
[ ] Freescale Confidential Proprietary
[x] Personal Memorandum

-----Original Message-----
From: Agmon Morag-B06508 
Sent: Sunday, October 08, 2006 11:45
To: Levenglick Dov-RM07994
Subject: Perl question

Hello Dov !

I was wondering is there is a way to bring-to-top a shell window when a 
certain event in my script (running in that window) had occured, without

using Tk.

Thanks,
    Morag.

_______________________________________________
Perl mailing list
Perl at perl.org.il
http://perl.org.il/mailman/listinfo/perl


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.407 / Virus Database: 268.13.1/466 - Release Date:
07/10/2006