perl-win32-gui-users — Using the Win32::GUI Perl extension

Re: [perl-win32-gui-users] Port Perl from Unix to Windows

[Charles A. <cha...@al...>]

http://perldoc.perl.org/perlvar.html#$OSNAME

$^O or "use English" and $OSNAME will tell you a little more than what =20
you're trying to do.  What you're trying kind of reminds me of how =20
Javascript'ers figure out the browser or XHR call they need.

As far as the shebang line (#!...), you're right, that doesn't work in =20
Windows.  But, you can always run your Perl code from the command line =20
by explicitly calling perl.  Example: "%> perl myscript.pl".  That =20
works no matter the OS you're using.

Under Windows, you can optionally associate files with .pl extensions =20
with the perl.exe executable.  That shouldn't be too hard to figure =20
out in your windows explorer: just double click a .pl file.  Windows =20
associations also work from the command line.  Although, if you're =20
running your scripts as cgi scripts under apache on Windows, you can =20
do both the shebang line or windows file extension associations.  Just =20
check out your apache configuration file....

Just to let you know, your question was posted to mailing list for the =20
Win32-GUI module, so it wasn't really topical for this mailing list.  =20
If you have any other questions regarding running Perl under windows =20
or unix, they would be better addressed in a different mailing list.  =20
Activestate hosts a bunch like perl-win32-users or perl-unix-users.  =20
See: http://aspn.activestate.com/ASPN/Perl/Mail/

Thanks,
Charles Alderman

Quoting Gary Yang <gar...@ya...>:

> Hi All,
>
>   I need to port my Perl script from Unix to Windows. Can someone  =20
> tell me how to figure out which platform I am on? i.e. I need to  =20
> know which Perl command can help me determin the platform. Once I  =20
> know the platform, I'll code my script as the example bellow. But,  =20
> how to figure out I am on Windows or Unix?
>
>   if ($usingUNIX)
>     {
>     $directory =3D `ls`;   #UNIX version.
>     $copyCommand =3D `cp`;   #UNIX version.
>     }
> else
>     {
>     $directory =3D `dir`;  #Win32 version.
>     $copyCommand =3D `COPY`;  #Win32 version.
>     }
>
>
>   Second question:
>   The UNIX #!/usr/bin/perl notation does not work with Perl scripts  =20
> on Windows. How should I code if it is Unix I place  =20
> "#!/usr/bin/perl" at the very first line of the script? But, I do  =20
> not place it at the first line of code if it is not Unix? How should =20
>  I do it?
>
>   Your answers are greatly appreciated.
>
>
>   Thanks,
>
>
>   Gary
>
>
>
>
> ---------------------------------
> Looking for last minute shopping deals?  Find them fast with Yahoo! Search=
.

[perl-win32-gui-users] Port Perl from Unix to Windows

[Gary Y. <gar...@ya...>]

Hi All,
   
  I need to port my Perl script from Unix to Windows. Can someone tell me how to figure out which platform I am on? i.e. I need to know which Perl command can help me determin the platform. Once I know the platform, I'll code my script as the example bellow. But, how to figure out I am on Windows or Unix?
   
  if ($usingUNIX)
    {
    $directory = `ls`;   #UNIX version.
    $copyCommand = `cp`;   #UNIX version.
    }
else
    {
    $directory = `dir`;  #Win32 version.
    $copyCommand = `COPY`;  #Win32 version.
    } 
   
   
  Second question:
  The UNIX #!/usr/bin/perl notation does not work with Perl scripts on Windows. How should I code if it is Unix I place "#!/usr/bin/perl" at the very first line of the script? But, I do not place it at the first line of code if it is not Unix? How should I do it?
   
  Your answers are greatly appreciated.
   
   
  Thanks,
   
   
  Gary
   
   

       
---------------------------------
Looking for last minute shopping deals?  Find them fast with Yahoo! Search.

Re: [perl-win32-gui-users] Modify the behavior of Win32::GUI::BitmapInline

[Robert M. <rob...@us...>]

On 09/08/2007, Robert May <rob...@us...> wrote:
> On 26/06/07, Robert May wrote:
> > On 26/06/07, Glenn Linderman wrote:
> > > On 6/26/2007 10:57 AM, Perl Rob wrote:
> > >
> > > > I'm using Win32::GUI::BitmapInline and I have just one problem with
> > > > it: the requirement that my script have write access to the current
> > > > directory.
>
> That's tracker number: 1586643
> http://sourceforge.net/tracker/index.php?func=detail&aid=1586643&group_id=16572&atid=116572
>

> So I'm using File::Spec->tmpdir() to get a writable tmp directory.
>
> While I'm at it I'm going to make the module thread-safe (it's
> currently possible to use it from 2 threads, and get the same tmp
> filename in each case - that would cause problems.
>
> I'll also add some tests.

I've just committed changes to deal with this to CVS - it'll be in the
next release.

Rob.

Re: [perl-win32-gui-users] [perl-win32-gui-hackers] Scintilla crashes at DoEvent_Scintilla

[Reini U. <ru...@x-...>]

[Sorry for TOFU]
I found and fixed the error. (Scintilla crash)

Remove the line with #define PERL_GET_NO_CONTEXT at the top of Scintilla.xs

The reason why you cannot reproduce it, it because MSVC obviously is
compiled with PERL_OBJECT (see GUI.h for the perlud struct),
Without PERL_OBJECT you may not change the setting of
PERL_GET_NO_CONTEXT to the one in GUI.xs. Otherwise you are accessing
the struct with and without the my_perl field, causing Scintilla to
crash.

It was not the stack corrupt, just perlud.

When I got a decent internet connection tomorrow I'll post my full patch
with added testcase which catches this problem.

2008/1/7, Jeremy White <jez...@ho...>:
>
> I can't seem to reproduce:
>
> perl-5.8.8.822 on Vista
> perl-5.8.7.813 on XP SP2
>
> Running but the demos.pl and Editor.pl with Win32-GUI-1.05. Do you need to do anything special?
>
>
>
> > Date: Sun, 6 Jan 2008 21:21:59 -0600
> > From: ru...@x-...
> > To: per...@li...
> > Subject: [perl-win32-gui-hackers] Scintilla crashes at DoEvent_Scintilla
> >
> > cygwin, though I don't believe it is related.
> > perl-5.8.8 and perl-5.10.0
> > Win32-GUI-1.05
> >
> > scripts\win32-gui-demos.pl and Win32-GUI-Scintilla\demos\Editor.pl
> > crash. The first after starting an app, the 2nd immediately.
> > This came from the cygwin list, with Vista, but I and others can reproduce
> > it with XP2. Looks like an Scintilla.xs problem.
> >
> > Backtrace:
> >
> > $ gdb perl
> > GNU gdb 6.5.50.20060706-cvs (cygwin-special)
> > Copyright (C) 2006 Free Software Foundation, Inc.
> > GDB is free software, covered by the GNU General Public License, and you are
> > welcome to change it and/or distribute copies of it under certain conditions.
> > Type "show copying" to see the conditions.
> > There is absolutely no warranty for GDB. Type "show warranty" for details.
> > This GDB was configured as "i686-pc-cygwin"...
> > (gdb) run Editor.pl
> > Starting program: /usr/bin/perl.exe Editor.pl
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/ntdll.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/kernel32.dll
> > Loaded symbols for /usr/bin/cygwin1.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/advapi32.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/rpcrt4.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/secur32.dll
> > Loaded symbols for /usr/bin/cygperl5_10.dll
> > Loaded symbols for /usr/bin/cygcrypt-0.dll
> >
> > Program received signal SIGSEGV, Segmentation fault.
> > 0x67503375 in Perl_gv_fetchpvn_flags (my_perl=0x17700e8,
> > nambeg=0xc5c17c "main::or_Notify", full_len=15, flags=0,
> > sv_type=13) at gv.c:909
> > 909 if (!stash || !SvREFCNT(stash)) /* symbol table
> > under destruction */
> > (gdb) bt
> > #0 0x67503375 in Perl_gv_fetchpvn_flags (my_perl=0x17700e8,
> > nambeg=0xc5c17c "main::or_Notify", full_len=15, flags=0,
> > sv_type=13) at gv.c:909
> > #1 0x6758dd2d in Perl_get_cvn_flags (my_perl=0x17700e8, name=0xc5c17c
> > "main::or_Notify", len=15, flags=0)
> > at perl.c:2479
> > #2 0x6758de63 in Perl_get_cv (my_perl=0x17700e8, name=0xc5c17c
> > "main::or_Notify", flags=0) at perl.c:2498
> > #3 0x6d541270 in DoEvent_Scintilla (my_perl=0x17700e8, Name=0xc5c17c
> > "main::or_Notify", code=2007, evt=0xc5c3bc)
> > at Scintilla.xs:67
> > #4 0x6d54286d in CallWndProc (nCode=0, wParam=0, lParam=12960480) at
> > Scintilla.xs:213
> > #5 0x7e4318e3 in UnhookWinEvent ()
> > #6 0x00000000 in ?? ()
> > (gdb) x stash
> > 0x1: Cannot access memory at address 0x1
> > (gdb)
> >
> > Reason: Someone is overwriting the stash with 1,
> > and the perlud name is also wrong.
> > It should be "Editor", not "or"
> > So I believe the stack is corrupt at all.
-- 
Reini Urban
http://phpwiki.org/              http://murbreak.at/
http://spacemovie.mur.at/   http://helsinki.at/

[perl-win32-gui-users] No events for enterkey in the TextField control?

[Michael <mic...@12...>]

Hi all,

Our team used Win32::GUI modules for several weeks and we made beautifuly GUI windows by this
excellent module. But there still had been a confusion: is there any event designed to catch 
"Enter Key pressed" in Win32::GUI::TextField control? We tried "key down", "char", all failed 
and seems no others available. The target is just to do some processing when users finish their
input by pressing the Enter key.

Could any one tell me why? Is there anything important we missed? Hope to see helpful ideas!

Thanks in advance for all!
 				
--------------
Michael
2008-01-11

Re: [perl-win32-gui-users] win32-gui and perl 5.10

[Reini U. <ru...@x-...>]

2008/1/5, Reini Urban <ru...@x-...>:
> Jeremy White schrieb:
> > Activestate are still missing key support items for 5.10 so it's probably to early for a
>  >formal build of Win32::GUI that supports 5.10. You should find it easy
> enough to build
>  >your own version of Win32::GUI.
> >
> > What's your experience of 5.10? Do you find it faster? Does it use less memory etc.?
>
> I've just played around a bit and have not tested it yet,
> nor used it in production.
>
>  From the look and feel nothing changed.
>
> Class::DBIx found a bad perfomance problem with my ($a,$b) = @_;
> assignment at the top of a sub. I couldn't apply the patch to the
> release version 5.10.0 yet. I only applies to blead.

Just in case.
That's the url from the p5p discussion:

http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2007-12/msg00700.html

Re: [perl-win32-gui-users] win32-gui and perl 5.10

[Reini U. <ru...@x-...>]

Jeremy White schrieb:
> Activestate are still missing key support items for 5.10 so it's probably to early for a 
 >formal build of Win32::GUI that supports 5.10. You should find it easy 
enough to build
 >your own version of Win32::GUI.
> 
> What's your experience of 5.10? Do you find it faster? Does it use less memory etc.?

I've just played around a bit and have not tested it yet,
nor used it in production.

 From the look and feel nothing changed.

Class::DBIx found a bad perfomance problem with my ($a,$b) = @_; 
assignment at the top of a sub. I couldn't apply the patch to the 
release version 5.10.0 yet. I only applies to blead.

-- 
Reini Urban
http://phpwiki.org/  http://murbreak.at/
http://helsinki.at/  http://spacemovie.mur.at/

Re: [perl-win32-gui-users] [perloasis] Anyone Maintaining Perl Oasis?

[Jeremy W. <jez...@ho...>]

I'd certainly support the idea of adding Loft as a separate project to Win3=
2::GUI - I've never used Oasis so can't comment on that.

I've got some scripts/hacks that I could add to Loft that would allow it to=
 be used as a quick generic GUI design tool (without the need to use the Lo=
ft runtime modules). I wouldn't have the time to maintain Loft, but perhaps=
 someone else could?

Cheers,

jez.



> Date: Mon, 24 Dec 2007 19:57:36 +0100
> To: per...@ya...
> From: jo...@Da...
> CC: per...@li...; stu...@co...
> Subject: Re: [perl-win32-gui-users] [perloasis] Anyone Maintaining Perl O=
asis?
>
> At 21:13 2007-12-23, sarnold_688 wrote:
>>If not, I would like to since I have a lot of ideas to add.
>
> Well, Perl Oasis isn't really maintaned becacuse I don't actually use
> it myself any more, but on the other hand I haven't got that many new
> feature requests the last few years, and it's pretty much bug free
> (from what I can tell :).
>
> I'd be happy to hand it (and The GUI Loft) over to either another
> person, or to the core Win32::GUI developers as a whole.
>
> I'd also be happy to share ideas since I'm still interested in the domain=
.
>
>
>>I've looke at the code and the bug list(and features) and seem to
>>understand what is involved.
>
> Just please note that the code is pretty messy, with source parsing
> and GUI code intermingled in an unsightly way. My only excuse is that
> it was written about a decade ago, and I didn't know any better.
>
> But with a few tests and a bit of refactoring that can be fixed, I
> don't think it's beyond salvation. And from what I can remember,
> other parts of the system are somewhat sanely structured.
>
>
> /J
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

_________________________________________________________________
Free games, great prizes - get gaming at Gamesbox.=20
http://www.searchgamesbox.com=

Re: [perl-win32-gui-users] win32-gui and perl 5.10

[Jeremy W. <jez...@ho...>]

Activestate are still missing key support items for 5.10 so it's probably t=
o early for a formal build of Win32::GUI that supports 5.10. You should fin=
d it easy enough to build your own version of Win32::GUI.

What's your experience of 5.10? Do you find it faster? Does it use less mem=
ory etc.?

Cheers,

jez.

_________________________________________________________________
Who's friends with who and co-starred in what?
http://www.searchgamesbox.com/celebrityseparation.shtml=

Re: [perl-win32-gui-users] win32-gui and perl 5.10

[Reini U. <ru...@x-...>]

merryxmas schrieb:
> hello
> are there any plans to update win32-gui to support the new perl 5.10

The cygwin package is already updated. Under [Experimental] so far as 
perl also, until all remaining perl libraries have been updated.

Just a few required patches:

--- perl-Win32-GUI-1.05/GUI.pm.orig	2006-11-05 20:04:50.000000000 +0000
+++ perl-Win32-GUI-1.05/GUI.pm	2007-12-25 14:35:13.546875000 +0000
@@ -421,9 +421,9 @@
     my $direction = delete $options{-direction};

     if(keys(%options) != 0) {
-       require Carp;
-       Carp::carp "Animate: Unrecognised options ".join(", ", 
keys(%options));
-       return undef
+       eval { use Carp; };
+       carp("Animate: Unrecognised options ".join(", ", keys(%options)));
+       return undef;
     }

     $show      = 1      unless defined $show;
--- perl-Win32-GUI-1.05/Makefile.PL.orig	2006-11-02 20:36:58.000000000 +0000
+++ perl-Win32-GUI-1.05/Makefile.PL	2007-12-26 17:01:29.031250000 +0000
@@ -353,6 +353,7 @@
  # -- Win32::GUI resource section --

  GUI.res: GUI.rc
+	chmod u+w GUI.rc
  	windres -O coff -i GUI.rc -o GUI.res

  RC_FRAG2
--- perl-Win32-GUI-1.05/Win32-GUI-Constants/Constants.pm.orig	2006-10-31 
22:21:50.000000000 +0000
+++ perl-Win32-GUI-1.05/Win32-GUI-Constants/Constants.pm	2007-12-25 
14:44:45.859375000 +0000
@@ -270,8 +270,8 @@

      if($oops) {
          # only require Carp if we need it
-        require Carp;
-        Carp::croak qq(Can't continue after import errors);
+        eval { use Carp; };
+        croak qq(Can't continue after import errors);
      }
  }

-- 
Reini Urban
http://phpwiki.org/  http://murbreak.at/
http://helsinki.at/  http://spacemovie.mur.at/

Re: [perl-win32-gui-users] [perloasis] Anyone Maintaining Perl Oasis?

[Johan L. <jo...@Da...>]

At 21:13 2007-12-23, sarnold_688 wrote:
>If not, I would like to since I have a lot of ideas to add.

Well, Perl Oasis isn't really maintaned becacuse I don't actually use 
it myself any more, but on the other hand I haven't got that many new 
feature requests the last few years, and it's pretty much bug free 
(from what I can tell :).

I'd be happy to hand it (and The GUI Loft) over to either another 
person, or to the core Win32::GUI developers as a whole.

I'd also be happy to share ideas since I'm still interested in the domain.


>I've looke at the code and the bug list(and features) and seem to
>understand what is involved.

Just please note that the code is pretty messy, with source parsing 
and GUI code intermingled in an unsightly way. My only excuse is that 
it was written about a decade ago, and I didn't know any better.

But with a few tests and a bit of refactoring that can be fixed, I 
don't think it's beyond salvation. And from what I can remember, 
other parts of the system are somewhat sanely structured.


/J

[perl-win32-gui-users] win32-gui and perl 5.10

[merryxmas <mer...@ya...>]

hello
are there any plans to update win32-gui to support the new perl 5.10


-- 
View this message in context: http://www.nabble.com/win32-gui-and-perl-5.10-tp14476587p14476587.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

[perl-win32-gui-users] FW: Win32::GUI in PerlCtrl

[Shepherd, M. <she...@ag...>]

I'm trying to make a standalone dll (using PerlCrtl), to be called from
javascript (html page). I'm not having much luck - it keeps
hanging/crashing. Is what I'm trying to do possible? If so, any hints
you can pass along would be appreciated.

=20

Thanks,

Mike

Re: [perl-win32-gui-users] why are the prompts of my textfields not shown?

[<a98...@gm...>]

hi rob,
thanks for your support.

I've created a small working example of my script.

juergen

[snip]
#!.\perl.exe
#
use strict;
no strict qw(subs);
##############################
# GUI
use Win32::GUI 1.05 qw( CW_USEDEFAULT
                        WM_HOTKEY
                        VK_J
                        IDI_DEFAULTICON
                        MB_OK 
                        MB_ICONHAND 
                        ES_WANTRETURN 
                        WS_CLIPCHILDREN 
                        WS_EX_TOPMOST 
                        WM_HSCROLL
                        WM_VSCROLL
                        SB_CTL
                        SB_HORZ
                        SB_VERT
                        SB_TOP SB_BOTTOM SB_LINEUP SB_LINEDOWN SB_PAGEUP SB_PAGEDOWN
                        SB_LEFT SB_RIGHT SB_LINELEFT SB_LINERIGHT SB_PAGELEFT SB_PAGERIGHT
                        SB_THUMBTRACK SB_THUMBPOSITION SB_ENDSCROLL
                        );

use Win32::GUI::Constants ();
use Win32::API();
use Win32::Sound;
use Win32::ChangeNotify;
use Win32::GUI::SplashScreen();
#
my $main;
my $cfg_window;
my %cfg = (
	iconfile    => undef,
	icon_file   => undef,
);
my %config = (
    playsound            => 0,
    showsplash           => 0,
    monitor_dir          => join( "", Win32::GetFullPathName( '.' ) ),
    monitor_subdirs      => False,
    timeout_value        => 30,
    archive_destination_name => XXX,
);
my %config_tooltips = (
    playsound            => "start startsound [0]|1",
    showsplash           => "show splash screen on startup [0]|1",
    monitor_dir          => "Path to monitoring directory",
    monitor_subdirs      => "Should subdirectories be monitored? [False]|True",
    timeout_value        => "timeout value in seconds [30]",
);
#----------------------------
sub do_animation {
  my $window = $_[0];
  print "do_animation: $window\n";
    $window->Animate(
        -show => !$window->IsVisible(),
        -activate => 1,
        -animation => "blend",
        -direction => "rl",
        -time => 400,
    );
  $window->BringWindowToTop();
  $window->DoEvents();
  $window->Update();
}
# --------------------
 sub configuration
 {
   configuration_window();  # create the window
   my $count = 0;
   my $padding = 10;

   $cfg_window->AddGroupbox(
         -name  => "CFGX",
         -title => "Configuration",
         -left  => 25,
         -top   => 10,
         -width => 400,
         -group  => 1,
   );

   foreach my $xx (sort(keys %config))
   {
     $count = $count + 1;
     print "$xx = $config{$xx}\n";
     $cfg_window->AddTextfield(
       -name => "${xx}_name",
       -text => "$config{$xx}",
       -tip  => "$config_tooltips{$xx}",
       -left => 35,
       -prompt => [ "$xx:" , 150 ],
       -height => 20,
       -width => 200,
             -top   => 25 + ($count * 20),
             -width => $cfg_window->CFGX->Width() - (2 * 20),
             -tabstop => 1,
     );
   }

   $cfg_window->CFGX->Height(350);
   $cfg_window->CFGX->Width(550);

#   $cfg_window->{archive_destination_name}->SetFocus();
   do_animation($cfg_window);
   $cfg_window->SetRedraw(1);
 }
# -------------------
sub configuration_window
{
  $cfg_window=Win32::GUI::Window->new(
  	-name  => "configwin",
  	-title => "$cfg{name} - Configuration",
    -left => CW_USEDEFAULT,
  	-size  => [ 600, 450 ],
  	-parent => $main,
    -vscroll => 1,
    -hscroll => 1,
    -helpbutton  => 0,
    -dialogui    => 1,
    -resizable   => 1,
    -onTerminate => sub { do_animation($cfg_window); 0; },
  );
  
  my $ncw = $cfg_window->ScaleWidth();
  my $nch = 20;
  
  $cfg_window->AddButton(
    -name => "CFGOK",
    -text => "OK",
    -pos  => [ 30, $nch ],
  );
  $cfg_window->AddButton(
    -name => "CFGCANCEL",
    -text => "CANCEL",
    -pos  => [ 70, $nch ],
  );
}
# ----------------
sub create_MainWindow
{
  $main = Win32::GUI::Window->new(
      -name  => 'Main',
      -left => CW_USEDEFAULT,
      -addstyle => WS_CLIPCHILDREN,
      -width => 100,
      -height => 100,
      -text   => "main".$cfg{title_string},
      -menu => $cfg{mainmenu},
      -vscroll => 1,
      -hscroll => 1,
      -size        => [800,550],
      -helpbutton  => 0,
      -maximizebox => 0,
      -resizable   => 1,    
      -background => {0x00FF00},
      -foreground => {0x33AABB},
      -dialogui    => 1,
#      -accel      => $cfg{accelerator},
      -noflicker => 1,
#      -onMinimize => \&toggle_show_state,
      -eventmodel => both,
      );
}
# ----------------
create_MainWindow();
$main->AddButton(
		-visible => 1,
		-cancel  => 1,
		-onClick => configuration(),
	);
$main->Show();
Win32::GUI::Dialog();
[/snip]
-------- Original-Nachricht --------
> Datum: Sun, 9 Dec 2007 08:40:23 +0000
> Von: "Robert May" <rob...@us...>
> An: "a98...@gm..." <a98...@gm...>
> CC: per...@li...
> Betreff: Re: [perl-win32-gui-users] why are the prompts of my textfields not shown?

> On 22/11/2007, a98...@gm... <a98...@gm...> wrote:
> > Hi,
> > I've a small application with a configuration window.
> > this window is created with a for-loop and some textfields with "prompt"
> for the values.
> > this window is shown with an Animate().
> > but the prompts aren't shown until i focus it with tabstopps or the
> mouse.
> > what's my problem?
> >
> > thx for help.
> > juergen
> 
> Juergen,
> 
> As the example you have posted is a snippet and not a complete script
> that I can look at then I can't tell what your problem is.  I expect
> that in your do_animation() you only deal with the textfield, and not
> with the associated label, but without seeing more code I can't really
> tell.  If you were to post a short but complete example showing your
> problem, then I'm happy to have another look.
> 
> Regards,
> Rob.
> >
> > [snip]
> > sub configuration
> > {
> >   configuration_window();  # create the window
> >   my $count = 0;
> >   my $padding = 10;
> >
> >   $cfg_window->AddGroupbox(
> >         -name  => "CFGX",
> >         -title => "Configuration",
> >         -left  => 25,
> >         -top   => 10,
> >         -width => 400,
> >         -group  => 1,
> >   );
> >
> >   foreach my $xx (sort(keys %config))
> >   {
> >     $count = $count + 1;
> >     print "$xx = $config{$xx}\n";
> >     $cfg_window->AddTextfield(
> >       -name => "${xx}_name",
> >       -text => "$config{$xx}",
> >       -tip  => "$config_tooltips{$xx}",
> >       -left => 35,
> >       -prompt => [ "$xx:" , 150 ],
> >       -height => 20,
> >       -width => 200,
> >             -top   => 25 + ($count * 20),
> >             -width => $cfg_window->CFGX->Width() - (2 * 20),
> >             -tabstop => 1,
> >     );
> >   }
> >
> >   $cfg_window->CFGX->Height(350);
> >   $cfg_window->CFGX->Width(550);
> >
> >   $cfg_window->{archive_destination_name}->SetFocus();
> >   do_animation($cfg_window);
> >   $cfg_window->SetRedraw(1);
> >   get_configuration();
> > }
> > [/snip]
> >
> > --
> > Psssst! Schon vom neuen GMX MultiMessenger gehört?
> > Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger
> >
> >
> -------------------------------------------------------------------------
> > This SF.net email is sponsored by: Microsoft
> > Defy all challenges. Microsoft(R) Visual Studio 2005.
> > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > http://perl-win32-gui.sourceforge.net/
> >
> 
> 
> -- 
> Please update your address book with my new email address:
> ro...@th...

-- 
Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen! 
Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer

Re: [perl-win32-gui-users] why are the prompts of my textfields not shown?

[Robert M. <rob...@us...>]

On 22/11/2007, a98...@gm... <a98...@gm...> wrote:
> Hi,
> I've a small application with a configuration window.
> this window is created with a for-loop and some textfields with "prompt" =
for the values.
> this window is shown with an Animate().
> but the prompts aren't shown until i focus it with tabstopps or the mouse=
.
> what's my problem?
>
> thx for help.
> juergen

Juergen,

As the example you have posted is a snippet and not a complete script
that I can look at then I can't tell what your problem is.  I expect
that in your do_animation() you only deal with the textfield, and not
with the associated label, but without seeing more code I can't really
tell.  If you were to post a short but complete example showing your
problem, then I'm happy to have another look.

Regards,
Rob.
>
> [snip]
> sub configuration
> {
>   configuration_window();  # create the window
>   my $count =3D 0;
>   my $padding =3D 10;
>
>   $cfg_window->AddGroupbox(
>         -name  =3D> "CFGX",
>         -title =3D> "Configuration",
>         -left  =3D> 25,
>         -top   =3D> 10,
>         -width =3D> 400,
>         -group  =3D> 1,
>   );
>
>   foreach my $xx (sort(keys %config))
>   {
>     $count =3D $count + 1;
>     print "$xx =3D $config{$xx}\n";
>     $cfg_window->AddTextfield(
>       -name =3D> "${xx}_name",
>       -text =3D> "$config{$xx}",
>       -tip  =3D> "$config_tooltips{$xx}",
>       -left =3D> 35,
>       -prompt =3D> [ "$xx:" , 150 ],
>       -height =3D> 20,
>       -width =3D> 200,
>             -top   =3D> 25 + ($count * 20),
>             -width =3D> $cfg_window->CFGX->Width() - (2 * 20),
>             -tabstop =3D> 1,
>     );
>   }
>
>   $cfg_window->CFGX->Height(350);
>   $cfg_window->CFGX->Width(550);
>
>   $cfg_window->{archive_destination_name}->SetFocus();
>   do_animation($cfg_window);
>   $cfg_window->SetRedraw(1);
>   get_configuration();
> }
> [/snip]
>
> --
> Psssst! Schon vom neuen GMX MultiMessenger geh=F6rt?
> Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


--=20
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] WHERE IS THE LOGIC?

[Robert M. <ro...@th...>]

On 05/12/2007, Brian Millham <bmi...@hu...> wrote:
> Waldemar Biernacki wrote:
> > Hello!
> >
> > At the end I've enclosed the little code of Perl/Win32:GUI.
> >
> > If you start the code you can notice that the sequence
> > is the following:
> >
> > 1. Window appears on the screen.
> > 2. An incomplete "field1" appears too.
> > 3. After 2 seconds it disappears!!! for next 2 seconds and
> > the field "field2" is displayed also incomplete.
> > 4. At the end both fields are displayed correctly.
> >
> > Could anyone of you predict this disappearance looking at the code?
> > If yes please let me know how to get the following sequence
> > of events:
> >
> > 1. The first complete "field1" is displayed at the beginning.
> > 2. After two seconds the second field is also displayed,
> > but still the first is visible.
> >
> > And additional question: is this behavior (unlogical for me)
> > the feature of Perl Win32::GUI or native Win32-GUI itself?

It's really the underlying Win32 implementation that causes it.  A
(rather simplistic) way of viewing it is that some of the drawing is
done only when certain requests to re-paint a window are processed,
and these requests to re-paint are only processed when a message loop
is running (Win32::GUI::DoEvents() or Win32::GUI::Dialog(), among
others).

In your particular example you could replace the
  $my_window->DoEvents();
lines that Brian proposed with
  $my_window->Update();
and you'd see (almost) the same effect.

Update() causes any outstanding paint events to be processed;
DoEvents() causes ALL outstanding event (painting or otherwise) to be
processed.

Regards,
Rob.


> >
> > Regards
> > Waldemar
> >
>
> I'm not sure what you are trying to do here, but if you want field1 to
> show for 2 seconds, and then field2 to appear, here is the corrected
> script. (There may be a better way to do this, but it's what I could
> think of off the top of my head.)
>
> #################################
> #!/usr/bin/perl -w
>
> use warnings;
> use strict;
>
> use Win32::GUI qw();
>
> my $my_window = new Win32::GUI::Window (
>     -name => 'my_window',
>     -size => [ 400, 400 ],
> );
> $my_window->Show(1);
>
> my $field1  = $my_window->AddTextfield(
>     -name  => 'field1',
>     -text  => 'field1',
>     -pos   => [  30,  30 ],
>     -size  => [ 100, 100 ],
> );
>
> $field1->SetFocus();
> $my_window->DoEvents(); # You need to DoEvents to see what you added to
> the window
> sleep(2);
>
> my $field2  = $my_window->AddTextfield(
>     -name  => 'field2',
>     -text  => 'field2',
>     -pos   => [ 130, 130 ],
>     -size  => [ 100, 100 ],
> );
>
> $field2->SetFocus();
> $my_window->DoEvents(); # Update the window
> sleep(2);
>
> Win32::GUI::Dialog();
>
> #################################
>
> --
> Brian, Tommy, Helen and Paka -- bmi...@hu...
> This message traveled at least 44,000 miles to reach you!
>
>
>
> ---
> avast! Antivirus: Outbound message clean.
> Virus Database (VPS): 071205-0, 12/05/2007
> Tested on: 12/4/2007 8:34:50 PM
> avast! is copyright (c) 2000-2007 ALWIL Software.
> http://www.avast.com
>
>
>
>
> -------------------------------------------------------------------------
> SF.Net email is sponsored by: The Future of Linux Business White Paper
> from Novell.  From the desktop to the data center, Linux is going
> mainstream.  Let it simplify your IT future.
> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] RadioButton checked or not checked

[Robert M. <ro...@th...>]

On 07/12/2007, merryxmas <mer...@ya...> wrote:
> i have a form with two radiobuttons, and i want one of them to be checked
> when  the form launched. i can't make this by the -check option. what should
> i do

-checked => 1

is the option that you are looking for.

Regards,
Rob.

[perl-win32-gui-users] RadioButton checked or not checked

[merryxmas <mer...@ya...>]

hi
i have a form with two radiobuttons, and i want one of them to be checked
when  the form launched. i can't make this by the -check option. what should
i do
thanks

-- 
View this message in context: http://www.nabble.com/RadioButton-checked-or-not-checked-tf4962411.html#a14213652
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Jeremy W. <jez...@ho...>]

Hi,

Thanks Jan - if you need me to do any testing to help speed this along, jus=
t drop me a mail.

Cheers,

jez.

> Subject: RE: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp w=
ith Vista
> Date: Tue, 4 Dec 2007 18:02:24 -0800
>
> On Tue, 04 Dec 2007, Jeremy White wrote:
>> This looks like a --dyndll option issue with Vista - I have a case
>> were I am getting crashes. I have reported the problem to Activestate.
>
> It is indeed a problem with the --dyndll code. That code hooks and
> reimplements most parts of the Windows loader and therefore has its
> own implementations of LoadLibraryEx() etc. Vista has added additional
> flags for LoadLibraryEx() that are not being handled correctly,
> causing an access violation.
>
> This will be fixed in the PDK 7.0.1 update whenever it is ready (should
> be within a month or two).
>
> Cheers,
> -Jan
>

_________________________________________________________________
Get free emoticon packs and customisation from Windows Live.=20
http://www.pimpmylive.co.uk=

Re: [perl-win32-gui-users] WHERE IS THE LOGIC?

[Waldemar B. <wb...@sa...>]

Thank you Brian,

it works!

Waldemar




Wednesday 05 of December 2007 02:34:50 napisa=B3e=B6(-=B3a=B6):
> Waldemar Biernacki wrote:
> > Hello!
> >
> > At the end I've enclosed the little code of Perl/Win32:GUI.
> >
> > If you start the code you can notice that the sequence=20
> > is the following:
> >
> > 1. Window appears on the screen.
> > 2. An incomplete "field1" appears too.
> > 3. After 2 seconds it disappears!!! for next 2 seconds and
> > the field "field2" is displayed also incomplete.
> > 4. At the end both fields are displayed correctly.=20
> >
> > Could anyone of you predict this disappearance looking at the code?
> > If yes please let me know how to get the following sequence=20
> > of events:
> >
> > 1. The first complete "field1" is displayed at the beginning.
> > 2. After two seconds the second field is also displayed,
> > but still the first is visible.
> >
> > And additional question: is this behavior (unlogical for me)
> > the feature of Perl Win32::GUI or native Win32-GUI itself?
> >
> > Regards
> > Waldemar
> >  =20
>=20
> I'm not sure what you are trying to do here, but if you want field1 to=20
> show for 2 seconds, and then field2 to appear, here is the corrected=20
> script. (There may be a better way to do this, but it's what I could=20
> think of off the top of my head.)
>=20
> #################################
> #!/usr/bin/perl -w
>=20
> use warnings;
> use strict;
>=20
> use Win32::GUI qw();
>=20
> my $my_window =3D new Win32::GUI::Window (
>     -name =3D> 'my_window',
>     -size =3D> [ 400, 400 ],
> );
> $my_window->Show(1);
>=20
> my $field1  =3D $my_window->AddTextfield(
>     -name  =3D> 'field1',
>     -text  =3D> 'field1',
>     -pos   =3D> [  30,  30 ],
>     -size  =3D> [ 100, 100 ],
> );
>=20
> $field1->SetFocus();
> $my_window->DoEvents(); # You need to DoEvents to see what you added to=20
> the window
> sleep(2);
>=20
> my $field2  =3D $my_window->AddTextfield(
>     -name  =3D> 'field2',
>     -text  =3D> 'field2',
>     -pos   =3D> [ 130, 130 ],
>     -size  =3D> [ 100, 100 ],
> );
>=20
> $field2->SetFocus();
> $my_window->DoEvents(); # Update the window
> sleep(2);
>=20
> Win32::GUI::Dialog();
>=20
> #################################
>=20

Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Jan D. <ja...@ac...>]

On Tue, 04 Dec 2007, Jeremy White wrote:
> This looks like a --dyndll option issue with Vista - I have a case
> were I am getting crashes. I have reported the problem to Activestate.

It is indeed a problem with the --dyndll code.  That code hooks and
reimplements most parts of the Windows loader and therefore has its
own implementations of LoadLibraryEx() etc.  Vista has added additional
flags for LoadLibraryEx() that are not being handled correctly,
causing an access violation.

This will be fixed in the PDK 7.0.1 update whenever it is ready (should
be within a month or two).

Cheers,
-Jan

Re: [perl-win32-gui-users] WHERE IS THE LOGIC?

[Brian M. <bmi...@hu...>]

Waldemar Biernacki wrote:
> Hello!
>
> At the end I've enclosed the little code of Perl/Win32:GUI.
>
> If you start the code you can notice that the sequence 
> is the following:
>
> 1. Window appears on the screen.
> 2. An incomplete "field1" appears too.
> 3. After 2 seconds it disappears!!! for next 2 seconds and
> the field "field2" is displayed also incomplete.
> 4. At the end both fields are displayed correctly. 
>
> Could anyone of you predict this disappearance looking at the code?
> If yes please let me know how to get the following sequence 
> of events:
>
> 1. The first complete "field1" is displayed at the beginning.
> 2. After two seconds the second field is also displayed,
> but still the first is visible.
>
> And additional question: is this behavior (unlogical for me)
> the feature of Perl Win32::GUI or native Win32-GUI itself?
>
> Regards
> Waldemar
>   

I'm not sure what you are trying to do here, but if you want field1 to 
show for 2 seconds, and then field2 to appear, here is the corrected 
script. (There may be a better way to do this, but it's what I could 
think of off the top of my head.)

#################################
#!/usr/bin/perl -w

use warnings;
use strict;

use Win32::GUI qw();

my $my_window = new Win32::GUI::Window (
    -name => 'my_window',
    -size => [ 400, 400 ],
);
$my_window->Show(1);

my $field1  = $my_window->AddTextfield(
    -name  => 'field1',
    -text  => 'field1',
    -pos   => [  30,  30 ],
    -size  => [ 100, 100 ],
);

$field1->SetFocus();
$my_window->DoEvents(); # You need to DoEvents to see what you added to 
the window
sleep(2);

my $field2  = $my_window->AddTextfield(
    -name  => 'field2',
    -text  => 'field2',
    -pos   => [ 130, 130 ],
    -size  => [ 100, 100 ],
);

$field2->SetFocus();
$my_window->DoEvents(); # Update the window
sleep(2);

Win32::GUI::Dialog();

#################################

-- 
Brian, Tommy, Helen and Paka -- bmi...@hu...
This message traveled at least 44,000 miles to reach you!



---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 071205-0, 12/05/2007
Tested on: 12/4/2007 8:34:50 PM
avast! is copyright (c) 2000-2007 ALWIL Software.
http://www.avast.com

[perl-win32-gui-users] WHERE IS THE LOGIC?

[Waldemar B. <wb...@sa...>]

Hello!

At the end I've enclosed the little code of Perl/Win32:GUI.

If you start the code you can notice that the sequence 
is the following:

1. Window appears on the screen.
2. An incomplete "field1" appears too.
3. After 2 seconds it disappears!!! for next 2 seconds and
the field "field2" is displayed also incomplete.
4. At the end both fields are displayed correctly. 

Could anyone of you predict this disappearance looking at the code?
If yes please let me know how to get the following sequence 
of events:

1. The first complete "field1" is displayed at the beginning.
2. After two seconds the second field is also displayed,
but still the first is visible.

And additional question: is this behavior (unlogical for me)
the feature of Perl Win32::GUI or native Win32-GUI itself?

Regards
Waldemar


#################################
#!/usr/bin/perl -w

use warnings;
use strict;

use Win32::GUI qw();

my $my_window = new Win32::GUI::Window (
	-name => 'my_window',
	-size => [ 400, 400 ],
);
$my_window->Show(1);

my $field1  = $my_window->AddTextfield(
	-name  => 'field1',
	-text  => 'field1',
	-pos   => [  30,  30 ],
	-size  => [ 100, 100 ],
);

$field1->SetFocus();

sleep(2);

my $field2  = $my_window->AddTextfield(
	-name  => 'field2',
	-text  => 'field2',
	-pos   => [ 130, 130 ],
	-size  => [ 100, 100 ],
);

$field2->SetFocus();

sleep(2);

Win32::GUI::Dialog();

#################################

Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Jeremy W. <jez...@ho...>]

This looks like a --dyndll option issue with Vista - I have a case were I a=
m getting crashes. I have reported the problem to Activestate.

Cheers,

jez.

> Date: Mon, 3 Dec 2007 14:37:44 +0000
> CC: per...@li...
> Subject: Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp w=
ith Vista
>
>
> Hi,
>
> Thanks for the reply. For the production build I am using PerlApp 6.0.2 -=
 but for the testing of this issue I am using PerlApp 7.0.0 build 277058 wh=
ich should have the fix that was mentioned in bug 36715. I've also tried tu=
rning DEP and messed with other Vista settings and it still fails.
>
> I've also built Win32::GUI from the code repository. It enters the (win32=
 API) function GetOpenFileName and just exits, no error message, no crash. =
(BTW using the latest version of activestate perl you can just use the norm=
al makefile.pl with Mingw as it spots GCC is installed).
>
> I have also found another function that causes the same problem: GetSaveF=
ileName - this is potentially more serious as the work around in using -exp=
lorer =3D> 0 doesn't seem to work.
>
> I have to use the --dyndll option so will do more testing/debugging befor=
e reporting the issue to Activestate.
>
> Cheers,
>
> jez.
>
>> Date: Mon, 3 Dec 2007 13:23:33 +0000
>> From: ro...@th...
>> To: jez...@ho...
>> Subject: Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp =
with Vista
>> CC: per...@li...
>>
>> On 03/12/2007, Jeremy White wrote:
>>> It seems the option --dyndll with perlapp causes the problem - I dont k=
now
>>> why...
>>
>> I've not used perlapp, but might it be related to this bug:
>> http://bugs.activestate.com/show_bug.cgi?id=3D36715
>>
>> --dyndll causes (some of?) the bundled libraries to be loaded from
>> memory, rather than written to a file and loaded from there. From the
>> release notes for V7.0 of the PDK
>> (http://aspn.activestate.com/ASPN/docs/PDK/7.0/Release.html) it
>> appears that there was some interaction between this mechanism and
>> DEP. IIRC DEP is on by default for (nearly) all applications under
>> Win2003 and Vista, but not under XP.
>>
>> Are you using a version of the PDK prior to 7.0? If so this might
>> explain the difference you see between XP and Vista.
>>
>> Rob.
>>
>>>> All,
>>>>
>>>> I'm having an odd problem with using GetOpenFileName - but only when i=
t's
>>> converted into an exe with PerlApp.
>>>>
>>>> Using the demo example
>>> (C:\Perl\site\lib\Win32\GUI\demos\GetOpenFileName.pl) I've
>>> narrowed it down to the option -explorer =3D> 0 when set to one (which =
is the
>>> new browsing style [1 is the default option]) the application just exis=
ts
>>> with no error messages or a crash.
>>>>
>>>> I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and Perl=
App
>>> (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GU=
I 1.5
>>> PPM from the sourceforge site. The exe version of GetOpenFileName runs =
fine
>>> under XP - even when built under Vista.
>>>>
>>>> I'm kinda struggling so I would be grateful for any suggestions? Could=
 it
>>> be a Vista security thing? I'll build a version of Win32::GUI and try t=
o
>>> track it down...
>>>>
>>>> Cheers,
>>>>
>>>> jez.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>> _________________________________________________________________
>>>> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
>>>> http://www.newhotmail.co.uk
>>>>
>>> -----------------------------------------------------------------------=
--
>>>> SF.Net email is sponsored by: The Future of Linux Business White Paper
>>>> from Novell. From the desktop to the data center, Linux is going
>>>> mainstream. Let it simplify your IT future.
>>>> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
>>>> _______________________________________________
>>>> Perl-Win32-GUI-Users mailing list
>>>> Per...@li...
>>>>
>>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>>>> http://perl-win32-gui.sourceforge.net/
>>>
>>> ________________________________
>>> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
>>> -----------------------------------------------------------------------=
--
>>> SF.Net email is sponsored by: The Future of Linux Business White Paper
>>> from Novell. From the desktop to the data center, Linux is going
>>> mainstream. Let it simplify your IT future.
>>> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
>>> _______________________________________________
>>> Perl-Win32-GUI-Users mailing list
>>> Per...@li...
>>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>>> http://perl-win32-gui.sourceforge.net/
>>>
>>
>>
>> --
>> Please update your address book with my new email address:
>> ro...@th...
>
> _________________________________________________________________
> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
> http://www.newhotmail.co.uk
> -------------------------------------------------------------------------
> SF.Net email is sponsored by: The Future of Linux Business White Paper
> from Novell. From the desktop to the data center, Linux is going
> mainstream. Let it simplify your IT future.
> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

_________________________________________________________________
Get free emoticon packs and customisation from Windows Live.=20
http://www.pimpmylive.co.uk=

[perl-win32-gui-users] FW: question about icons on the taskbar and hover over.

[Fleming, J. M <joh...@ed...>]

http://search.cpan.org/~karasik/Win32-GuiTest-1.54/lib/Win32/GuiTest/Exa
mples.pm

see eg/showwin.pl

GetWindowText() is the function that pulls the data i want in case
anyone wants to know.

This is just the info i was looking for, thanks for the pointer!

-----Original Message-----
From: Geoffrey Spear [mailto:geo...@gm...]=20
Sent: Monday, December 03, 2007 12:19 PM
To: Fleming, John M
Subject: Re: [perl-win32-gui-users] question about icons on the taskbar
and hover over.

You're talking about this list of open windows, right?  If the
information you're looking for is what's in the title bar of a Window,
I have no idea how to get it directly from the taskbar, but it's
fairly trivial to grab from the window itself using Win32::Guitest

If that's what you're looking for I can find some source code to send
you as an example.

On Dec 3, 2007 1:15 PM, Fleming, John M <joh...@ed...> wrote:
>
>
> I'm not really sure what the technical name is for icons that show up
on the
> task bar, but I'm not talking about the start button, systray or quick
> launch just to be clear.
>
> I'm kind of at a lose on how to look this up first off, but how could
i get
> a list of all the icons on the taskbar (or whatever they're called)
and get
> the text that is displayed when you hover the mouse over a certain
icon. The
> end result I'm looking for is just the data off a single icon but i'm
sure
> if i could get the whole list i could figure it out from there. This
is
> really just kind of a pet project to see if i can pull some useful
data from
> a ticket tracking system (like the current open ticket number).
>
> Thanks for any input.
>
------------------------------------------------------------------------
-
> SF.Net email is sponsored by: The Future of Linux Business White Paper
> from Novell.  From the desktop to the data center, Linux is going
> mainstream.  Let it simplify your IT future.
> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>



--=20
Geoffrey Spear
http://www.geoffreyspear.com/