perl-win32-gui-users Mailing List for Win32::GUI

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

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.

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

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

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...

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...

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.

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.

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=

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

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

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

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();

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

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=

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/

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.
=20
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).
=20
Thanks for any input.

Hi,

Thanks for the reply. For the production build I am using PerlApp 6.0.2 - b=
ut for the testing of this issue I am using PerlApp 7.0.0 build 277058 whic=
h should have the fix that was mentioned in bug 36715. I've also tried turn=
ing 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 A=
PI) function GetOpenFileName and just exits, no error message, no crash. (B=
TW using the latest version of activestate perl you can just use the normal=
 makefile.pl with Mingw as it spots GCC is installed).=20

I have also found another function that causes the same problem: GetSaveFil=
eName - this is potentially more serious as the work around in using -explo=
rer =3D> 0 doesn't seem to work.=20

I have to use the  --dyndll option so will do more testing/debugging before=
 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 w=
ith Vista
> CC: per...@li...
>
> On 03/12/2007, Jeremy White  wrote:
>> It seems the option --dyndll with perlapp causes the problem - I dont kn=
ow
>> 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 it=
'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 i=
s the
>> new browsing style [1 is the default option]) the application just exist=
s
>> with no error messages or a crash.
>>>
>>> I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlA=
pp
>> (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI=
 1.5
>> PPM from the sourceforge site. The exe version of GetOpenFileName runs f=
ine
>> 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 to
>> 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=

On 03/12/2007, Jeremy White <jez...@ho...> wrote:
> It seems the option --dyndll with perlapp causes the problem - I dont know
> why...

I've not used perlapp, but might it be related to this bug:
http://bugs.activestate.com/show_bug.cgi?id=36715

--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 it'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 => 0 when set to one (which is the
> new browsing style [1 is the default option]) the application just exists
> with no error messages or a crash.
> >
> > I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlApp
> (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI 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 to
> 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...

As a follow up:

It seems the option --dyndll with perlapp causes the problem - I dont know =
why...

Cheers,

jez.


>=20
> All,
>=20
> I'm having an odd problem with using GetOpenFileName - but only when it's=
 converted into an exe with PerlApp.=20
>=20
> 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 exists with no error messages or a crash.
>=20
> I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlApp=
 (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI 1=
.5 PPM from the sourceforge site. The exe version of GetOpenFileName runs f=
ine under XP - even when built under Vista.
>=20
> 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 to t=
rack it down...
>=20
> Cheers,
>=20
> jez.
>=20
>=20
>=20
>=20
>=20
>=20
> =20
> _________________________________________________________________
> 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/

_________________________________________________________________
Telly addicts unite!
http://www.searchgamesbox.com/tvtown.shtml=

All,

I'm having an odd problem with using GetOpenFileName - but only when it's c=
onverted into an exe with PerlApp.=20

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 (wh=
ich is the new browsing style [1 is the default option]) the application ju=
st exists with no error messages or a crash.

I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlApp (=
6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI 1.5=
 PPM from the sourceforge site. The exe version of GetOpenFileName runs fin=
e under XP - even when built under Vista.

I'm kinda struggling so I would be grateful for any suggestions? Could it b=
e a Vista security thing? I'll build a version of Win32::GUI and try to tra=
ck it down...

Cheers,

jez.






=20
_________________________________________________________________
The next generation of MSN Hotmail has arrived - Windows Live Hotmail
http://www.newhotmail.co.uk=