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

Re: [perl-win32-gui-users] Win32::GUI 1.06 RC1 release candidate available for download

[M2U G. <m2u...@un...>]

Hello everyone,

I just updated my perl version to 5.10.0.1001 and therefore also tried the
new Win32::GUI files. First of all thanks for all the great work!

So far I have only expirienced one problem: Some of the constants don't seem
to be exported correctly. My recent programs produced console outputs like
"Use of uninitialized value in subroutine entry at
C:/Perl/site/lib/Win32/GUI.pm line 276." (with -w / use warnings). Some
tests showed that the "WS_POPUP" and "WS_CHILD" constants aren't handled
properly but there might be more of course.

Perhaps this is not a bug but just a misconfiguration of my system :-)
(anyways 1.05 worked perfectly). Otherwise you should be able to reproduce
the problem easily via starting the "SplashScreen.pl"-demo from
win32-gui-demos.

Hope this helps and in case this isn't a common issue: has anyone hints on
how fix this?

Best regards,
Matthias.


Active Perl 5.10.0.1001
Win32::GUI 1.05.90
Windows Vista 6.0.6000

[perl-win32-gui-users] win32-GUI 1.06 RC1

[peter <gla...@ya...>]

hi
  a great gift in this new year, especially the supporting of activePerl 5.10 wich have many new additions
  to the language of wisdom.
  i am in the process of experimenting many old examples using perl 5.10 with win32-gui 1.06
  happy new win32-GUI
  george
   
   
   

       
---------------------------------
Never miss a thing.   Make Yahoo your homepage.

[perl-win32-gui-users] Win32::GUI 1.06 RC1 release candidate available for download

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

All,

I have made source and binary[1] distributions of the first release
candidate available for download.

Win32::GUI v1.05_90 (aka v1.06 RC1) can be found here:
http://www.robmay.me.uk-a.googlepages.com/win32-gui-1-06-rc1

This download page cannot cope with high volume downloads, is
temporary and may disappear at any time.

If you download it please feedback your experience (even if it is only
'OK so far') by replying to this thread (or directly to me) so that I
can get a feel for whether there are any significant issues with the
release.

In the absence of any major issues I hope to turn this into a final
1.06 release in about a week's time.

Regards,
Rob.

[1] PPM binary distributions for ActiveState Perl versions 5.6.x,
5.8.x and 5.10.x

Re: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer limit?

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

On 01/02/2008, Lin...@ba...
<Lin...@ba...> wrote:
> Thanks for the reply Rob,
>
> Apologies for having to ask (as I'm still new to and learning about
> Methods and Events and the such), but what's the proper syntax to
> switchout to using RichEdit instead?

I haven't run your code, but it looks at first glance OK.

> I tried changing the AddTextfield to AddRichEdit instead, but the Window
> is still truncating my data at only 32k.

Have you done
  $Window->Edit->LimiteText($max_size);

where $max_size can be between 0 and 2^32 - 1 as explicitly stated in
one of the 2 threads I linked you to?  Both Edit controls (Textfields)
and RichEdit controls have a default limit of 32K.  You need to call
this method after creating one if you want a bigger limit.  TextFields
have a maximu of several MB (IIRC) and RichEdit about 2GB.

Rob.

>
> Here's the bits for calling the Window and Text fields that I have:
>
> # Create Main Window
> my $Window = new Win32::GUI::Window (
>     -name     => "Window",
>     -title    => "HPC Service Delivery Admin Console",
>     -pos      => [100, 100],
>     -size     => [1000, 800],
>     -menu     => $Menu,
>     -onResize   => \&Notepad_OnSize,
>     -onInitMenu => \&Notepad_OnInitMenu,
>     -onTerminate => \&Notepad_OnQuitFile,
> ) or die "new Window";
>
> # Create Textfield for Edit Text
> $Window->AddRichEdit(
>     -name      => "Edit",
>     -pos       => [0, 0],
>     -size      => [1000, 800],
>     -multiline => 1,
>     -hscroll   => 1,
>     -vscroll   => 1,
>     -autohscroll => 1,
>     -autovscroll => 1,
>     -keepselection => 1,
>     -font => $EditFont,
> );
>
>
> Regards,
> - Lincoln
>
>
> -----Original Message-----
> From: ro...@th... [mailto:ro...@th...] On Behalf
> Of Robert May
> Sent: Friday, February 01, 2008 10:39 AM
> To: Mennuti, Lincoln: IT UK - QA (NYK)
> Cc: per...@li...
> Subject: Re: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer
> limit?
>
> >From the sound of it you'll be interested in these 2 threads - I'm a bit
> confused by your 29781 byte limit, as I though the default limit was
> 64K.  Anyway, if you replace (what I assume to be) your
> Win32::GUI::Textfield with a Win32::GUI::RichEdit the maximum size is
> about 2GB.  You need to set it if you want more than 64(?)k.
>
> http://www.mail-archive.com/per...@li.../m
> sg05124.html
> http://www.mail-archive.com/per...@li.../m
> sg05091.html
>
> Regards,
> Rob.
>
> On 01/02/2008, Lin...@ba...
> <Lin...@ba...> wrote:
> >
> >
> > Hello everyone,
> >
> > Apologies if I've missed something obvious with this...
> >
> >  To start, this is what I'm running:
> > - WinXP SP2
> > - Perl 5.8.8 Build 820
> > - Win32::GUI 1.0.5
> > - Windows Notepad clone:
> > http://www.koders.com/perl/fidB18829AABB0A5DECEF04D53957FFEB1C2BFD38DD
> > .aspx?s=calculate
> >
> > Problem:
> > I've taken the notepad clone from the link and have augmented it for
> > use in parsing large logs (copy&paste logs into the window, then
> > running customized scripts from the menu), unfortunately when I paste
> > the log info into the window (generated by Win32::GUI::Window), it's
> > getting truncated after about 220 lines (29781 bytes) and I can no
> > longer type anything else into the window.
> >
> > I was using Win32::GUI 1.0.3 and upgraded to 1.0.5 but still have the
> > problem.
> >
> > Any help much appreciated!
> > - Lincoln
> >
> > ----------------------------------------------------------------------
> > -- For important statutory and regulatory disclosures and more
> > information about Barclays Capital, please visit our web site at
> > http://www.barcap.com.
> >
> > Internet communications are not secure and therefore the Barclays
> > Group does not accept legal responsibility for the contents of this
> > message.  Although the Barclays Group operates anti-virus programmes,
> > it does not accept responsibility for any damage whatsoever that is
> > caused by viruses being passed.  Any views or opinions presented are
> > solely those of the author and do not necessarily represent those of
> > the Barclays Group.  Replies to this email may be monitored by the
> > Barclays Group for operational or business reasons.
> >
> > Barclays Capital is the investment banking division of Barclays Bank
> > PLC, a company registered in England (number 1026167) with its
> > registered office at
> > 1 Churchill Place, London, E14 5HP. This email may relate to or be
> > sent from other members of the Barclays Group.
> > ----------------------------------------------------------------------
> > --
> > ----------------------------------------------------------------------
> > --- This SF.net email is sponsored by: Microsoft Defy all challenges.
> > Microsoft(R) Visual Studio 2008.
> > 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...
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> 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...

Re: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer limit?

[<Lin...@ba...>]

Thanks for the reply Rob,

Apologies for having to ask (as I'm still new to and learning about
Methods and Events and the such), but what's the proper syntax to
switchout to using RichEdit instead?

I tried changing the AddTextfield to AddRichEdit instead, but the Window
is still truncating my data at only 32k.

Here's the bits for calling the Window and Text fields that I have:

# Create Main Window
my $Window =3D new Win32::GUI::Window (
    -name     =3D> "Window",
    -title    =3D> "HPC Service Delivery Admin Console",
    -pos      =3D> [100, 100],
    -size     =3D> [1000, 800],
    -menu     =3D> $Menu,
    -onResize   =3D> \&Notepad_OnSize,
    -onInitMenu =3D> \&Notepad_OnInitMenu,
    -onTerminate =3D> \&Notepad_OnQuitFile,
) or die "new Window";

# Create Textfield for Edit Text
$Window->AddRichEdit(
    -name      =3D> "Edit",
    -pos       =3D> [0, 0],
    -size      =3D> [1000, 800],
    -multiline =3D> 1,
    -hscroll   =3D> 1,
    -vscroll   =3D> 1,
    -autohscroll =3D> 1,
    -autovscroll =3D> 1,
    -keepselection =3D> 1,
    -font =3D> $EditFont,
);


Regards,
- Lincoln


-----Original Message-----
From: ro...@th... [mailto:ro...@th...] On Behalf
Of Robert May
Sent: Friday, February 01, 2008 10:39 AM
To: Mennuti, Lincoln: IT UK - QA (NYK)
Cc: per...@li...
Subject: Re: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer
limit?

>From the sound of it you'll be interested in these 2 threads - I'm a bit
confused by your 29781 byte limit, as I though the default limit was
64K.  Anyway, if you replace (what I assume to be) your
Win32::GUI::Textfield with a Win32::GUI::RichEdit the maximum size is
about 2GB.  You need to set it if you want more than 64(?)k.

http://www.mail-archive.com/per...@li.../m
sg05124.html
http://www.mail-archive.com/per...@li.../m
sg05091.html

Regards,
Rob.

On 01/02/2008, Lin...@ba...
<Lin...@ba...> wrote:
>
>
> Hello everyone,
>
> Apologies if I've missed something obvious with this...
>
>  To start, this is what I'm running:
> - WinXP SP2
> - Perl 5.8.8 Build 820
> - Win32::GUI 1.0.5
> - Windows Notepad clone:
> http://www.koders.com/perl/fidB18829AABB0A5DECEF04D53957FFEB1C2BFD38DD
> .aspx?s=3Dcalculate
>
> Problem:
> I've taken the notepad clone from the link and have augmented it for=20
> use in parsing large logs (copy&paste logs into the window, then=20
> running customized scripts from the menu), unfortunately when I paste=20
> the log info into the window (generated by Win32::GUI::Window), it's=20
> getting truncated after about 220 lines (29781 bytes) and I can no=20
> longer type anything else into the window.
>
> I was using Win32::GUI 1.0.3 and upgraded to 1.0.5 but still have the=20
> problem.
>
> Any help much appreciated!
> - Lincoln
>
> ----------------------------------------------------------------------
> -- For important statutory and regulatory disclosures and more=20
> information about Barclays Capital, please visit our web site at=20
> http://www.barcap.com.
>
> Internet communications are not secure and therefore the Barclays=20
> Group does not accept legal responsibility for the contents of this=20
> message.  Although the Barclays Group operates anti-virus programmes,=20
> it does not accept responsibility for any damage whatsoever that is=20
> caused by viruses being passed.  Any views or opinions presented are=20
> solely those of the author and do not necessarily represent those of=20
> the Barclays Group.  Replies to this email may be monitored by the=20
> Barclays Group for operational or business reasons.
>
> Barclays Capital is the investment banking division of Barclays Bank=20
> PLC, a company registered in England (number 1026167) with its=20
> registered office at
> 1 Churchill Place, London, E14 5HP. This email may relate to or be=20
> sent from other members of the Barclays Group.
> ----------------------------------------------------------------------
> --
> ----------------------------------------------------------------------
> --- This SF.net email is sponsored by: Microsoft Defy all challenges.=20
> Microsoft(R) Visual Studio 2008.
> 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...

Re: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer limit?

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

Hi,

>From memory there is a limit (its a windows thing rather than Win32::GUI). =
Now that you're using 1.5 have a look at use the scintilla control instead =
- it has no limit. There are several examples - have a look at Editor.pl - =
should be what you are looking for. You can turn off the syntax highlightin=
g so it will be fine for log file etc.

Cheers,

jez.

________________________________
Date: Fri, 1 Feb 2008 10:07:46 -0500
From: Lin...@ba...
To: per...@li...
Subject: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer limit?








Hello
everyone,



Apologies if I've
missed something obvious with this...



 To start, this
is what I'm running:
- WinXP SP2
- Perl 5.8.8 Build 820
- Win32::GUI
1.0.5
- Windows Notepad clone:
http://www.koders.com/perl/fidB18829AABB0A5DECEF04D53957FFEB1C2BFD38DD.aspx=
?s=3Dcalculate


Problem:
I've taken the notepad clone from the link and have
augmented it for use in parsing large logs (copy&paste logs into the window=
,
then running customized scripts from the menu), unfortunately when I paste =
the
log info into the window (generated by Win32::GUI::Window), it's getting
truncated after about 220 lines (29781 bytes) and I can no longer type anyt=
hing
else into the window.

I was using Win32::GUI 1.0.3 and upgraded to 1.0.5
but still have the problem.

Any help much appreciated!
-
Lincoln


------------------------------------------------------------------------
For
important statutory and regulatory disclosures and more information about
Barclays Capital, please visit our web site at http://www.barcap.com.


Internet communications are not secure and therefore
the Barclays Group does not accept legal responsibility for the contents of=
 this
message.  Although the Barclays Group operates anti-virus programmes, it
does not accept responsibility for any damage whatsoever that is caused by
viruses being passed.  Any views or opinions presented are solely those of
the author and do not necessarily represent those of the Barclays Group.
Replies to this email may be monitored by the Barclays Group for operationa=
l or
business reasons.


Barclays Capital is the investment banking division
of Barclays Bank PLC, a company registered in England (number 1026167) with=
 its
registered office at 1 Churchill Place, London, E14 5HP. This email may rel=
ate
to or be sent from other members of the Barclays Group.
------------------------------------------------------------------------



_________________________________________________________________
Share what Santa brought you
https://www.mycooluncool.com=

Re: [perl-win32-gui-users] Win32::GUI:Window clipboard/buffer limit?

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

>From the sound of it you'll be interested in these 2 threads - I'm a
bit confused by your 29781 byte limit, as I though the default limit
was 64K.  Anyway, if you replace (what I assume to be) your
Win32::GUI::Textfield with a Win32::GUI::RichEdit the maximum size is
about 2GB.  You need to set it if you want more than 64(?)k.

http://www.mail-archive.com/per...@li.../msg05124.html
http://www.mail-archive.com/per...@li.../msg05091.html

Regards,
Rob.

On 01/02/2008, Lin...@ba...
<Lin...@ba...> wrote:
>
>
> Hello everyone,
>
> Apologies if I've missed something obvious with this...
>
>  To start, this is what I'm running:
> - WinXP SP2
> - Perl 5.8.8 Build 820
> - Win32::GUI 1.0.5
> - Windows Notepad clone:
> http://www.koders.com/perl/fidB18829AABB0A5DECEF04D53957FFEB1C2BFD38DD.aspx?s=calculate
>
> Problem:
> I've taken the notepad clone from the link and have augmented it for use in
> parsing large logs (copy&paste logs into the window, then running customized
> scripts from the menu), unfortunately when I paste the log info into the
> window (generated by Win32::GUI::Window), it's getting truncated after about
> 220 lines (29781 bytes) and I can no longer type anything else into the
> window.
>
> I was using Win32::GUI 1.0.3 and upgraded to 1.0.5 but still have the
> problem.
>
> Any help much appreciated!
> - Lincoln
>
> ------------------------------------------------------------------------
> For important statutory and regulatory disclosures and more information
> about Barclays Capital, please visit our web site at http://www.barcap.com.
>
> Internet communications are not secure and therefore the Barclays Group does
> not accept legal responsibility for the contents of this message.  Although
> the Barclays Group operates anti-virus programmes, it does not accept
> responsibility for any damage whatsoever that is caused by viruses being
> passed.  Any views or opinions presented are solely those of the author and
> do not necessarily represent those of the Barclays Group.  Replies to this
> email may be monitored by the Barclays Group for operational or business
> reasons.
>
> Barclays Capital is the investment banking division of Barclays Bank PLC, a
> company registered in England (number 1026167) with its registered office at
> 1 Churchill Place, London, E14 5HP. This email may relate to or be sent from
> other members of the Barclays Group.
> ------------------------------------------------------------------------
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> 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...

[perl-win32-gui-users] Win32::GUI:Window clipboard/buffer limit?

[<Lin...@ba...>]

Hello everyone,
=20
Apologies if I've missed something obvious with this...
=20
=20To start, this is what I'm running:
- WinXP SP2
- Perl 5.8.8 Build 820
- Win32::GUI 1.0.5
- Windows Notepad clone:
http://www.koders.com/perl/fidB18829AABB0A5DECEF04D53957FFEB1C2BFD38DD.a
spx?s=3Dcalculate=20

Problem:
I've taken the notepad clone from the link and have augmented it for use
in parsing large logs (copy&paste logs into the window, then running
customized scripts from the menu), unfortunately when I paste the log
info into the window (generated by Win32::GUI::Window), it's getting
truncated after about 220 lines (29781 bytes) and I can no longer type
anything else into the window.

I was using Win32::GUI 1.0.3 and upgraded to 1.0.5 but still have the
problem.

Any help much appreciated!
- Lincoln

------------------------------------------------------------------------
For important statutory and regulatory disclosures and more information a=
bout Barclays Capital, please visit our web site at http://www.barcap.com=
.

Internet communications are not secure and therefore the Barclays Group d=
oes not accept legal responsibility for the contents of this message.  Al=
though the Barclays Group operates anti-virus programmes, it does not acc=
ept responsibility for any damage whatsoever that is caused by viruses be=
ing passed.  Any views or opinions presented are solely those of the auth=
or and do not necessarily represent those of the Barclays Group.  Replies=
=20to this email may be monitored by the Barclays Group for operational o=
r business reasons.

Barclays Capital is the investment banking division of Barclays Bank PLC,=
=20a company registered in England (number 1026167) with its registered o=
ffice at 1 Churchill Place, London, E14 5HP. This email may relate to or =
be sent from other members of the Barclays Group.
------------------------------------------------------------------------

Re: [perl-win32-gui-users] [perl-win32-gui-hackers] TODO for 1.06 release

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

2008/1/31, Robert May <ro...@th...>:
> I think I'm making good progress.  I just cimmitted everything that I
> had outstanding in my local repository.  Here's what I have left to do
> before a 1.06 release:
>
> - Check that some 'redefined definitions' warnings have been removed
> by the updates to ppport.h
> - Find out why my build on Cygwin results in an unloadable
> SciLexer.dll (permissions I think)

Yes. On cygwin it is missing the x "permission", which is "Read &
Execute" on Windows ACLs.

Note the other cygwin permission problems:
* GUI.rc is not writable, so the default make will fail.

diff -ub perl-Win32-GUI-1.05/Makefile.PL.orig perl-Win32-GUI-1.05/Makefile.PL
--- perl-Win32-GUI-1.05/Makefile.PL.orig        2006-11-02
21:36:58.000000000 +0100
+++ perl-Win32-GUI-1.05/Makefile.PL     2008-01-12 21:38:08.406250000 +0100
@@ -361,6 +361,7 @@
     $rc_frag .= <<'RC_FRAG3'

 GUI.rc: GUI.pm
+       attrib -R GUI.rc
        $(PERL) -I$(BUILD_TOOLS) $(BUILD_TOOLS)/updateRC.pl

 RC_FRAG3

* samples/* are not writable, so the blib update for the demos will fail.
No patch, I fix that in my build script.

> - Add to all Makefiles a suitable addition of the -mms-bitfields flag
> for gcc, to allow building under 5.10 with GCC against a VC++ compiled
> Perl to work.

Good catch by Jan.

> - check that the new tests for Scintilla work under cygwin

I'll do.

> - update $VERSION of modules that have changes
> - update Win23::GUI $VERSION to 1.05_99 and make a beta distribution available.


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

[perl-win32-gui-users] Upcoming 1.06 release

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

All,

As you are probably aware from an earlier thread that leak over from
the hackers list to list list I am planning a V1.06 release.  It's
mostly bug fixes.

I've got a couple of things let to sort out - the most important is
fixing the build against ActiveState Perl when using gcc, but I now
know what the problems are and how to fix them.

As soon as I think it is ready I will make a release candidate
available for download.  I intend to release binary (ppm) packages for
Perl 5.6.1, 5.8.x and 5.10.1, as well as a source distribution.

It is my intention that this is the last release that will officially
support the Perl 5.6 series.

Once the release candidate is ready, please download it, run your
applications against it and let me know if there are any problems - so
long as nothing serious turns up I hope we can have a new release
within the next few weeks.

Regards,
Rob.

Re: [perl-win32-gui-users] Plans for a 1.06 release

[glass <gla...@ya...>]

I am happy that win32-GUI v 1.06  will be available soon.
i hope that it may be available also as ActivePerl 5.10 PPM.
since many people find it hard to compile from source, especially the
windows users.
thanks very much
george

-- 
View this message in context: http://www.nabble.com/Re%3A-Plans-for-a-1.06-release-tp15160295p15160295.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] [perl-win32-gui-hackers] Plans for a 1.06 release

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

2008/1/27, Glenn Linderman:
> I would hope (and I think it is your intention from things you've said
> in the past) that a new code base would include support for Unicode
> windows.  While it may be needful to convert between UTF-8 and UTF-16 to
> access the wide character Windows APIs, and that may not always be
> particularly efficient, it is preferable to have the functionality at
> the cost of efficiency.  I chafe at the constraints of being unable to
> support all languages.  It seems that even Jan is not particularly
> interested in supporting Unicode on Windows...

Unicode is very well supported on Windows via native UTF-8 support and
the Unicode modules and encoding filters.
It's just that the UTF-16 MS Wide API is not supported in almost no
Win32 module.
Only Win32::OLE has it.

> of course, it seems that
> even Microsoft isn't interested in supporting UTF-8 on Windows... so
> since UTF-8 is the way Perl is, some efforts may be required, perhaps
> even a few patches to Perl (at least Perl-IO), to get full Unicode
> support on Windows (I'm thinking about the console here, in particular).

Just encode every string from UTF-8 to UTF-16 and pass this to the relevant
*W functions, instead of the *A functions
This is a stupid piece of copy&paste xs work.

Re: [perl-win32-gui-users] [perl-win32-gui-hackers] Plans for a 1.06 release

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

2008/1/27, Glenn Linderman:
> I would hope (and I think it is your intention from things you've said
> in the past) that a new code base would include support for Unicode
> windows.  While it may be needful to convert between UTF-8 and UTF-16 to
> access the wide character Windows APIs, and that may not always be
> particularly efficient, it is preferable to have the functionality at
> the cost of efficiency.  I chafe at the constraints of being unable to
> support all languages.  It seems that even Jan is not particularly
> interested in supporting Unicode on Windows...

Unicode is very well supported on Windows via native UTF-8 support and
the Unicode modules and encoding filters.
It's just that the UTF-16 MS Wide API is not supported in almost no
Win32 module.
Only Win32::OLE has it.

> of course, it seems that
> even Microsoft isn't interested in supporting UTF-8 on Windows... so
> since UTF-8 is the way Perl is, some efforts may be required, perhaps
> even a few patches to Perl (at least Perl-IO), to get full Unicode
> support on Windows (I'm thinking about the console here, in particular).

Just encode every string from UTF-8 to UTF-16 and pass this to the relevant
*W functions, instead of the *A functions
This is a stupid piece of copy&paste xs work.

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

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

On 28/01/2008, Reini Urban <ru...@x-...> wrote:
>
> Attached are my tests.

Many thanks.  I'll tidy them up and apply them.

Knowing what the problem was, with a bit of code inspection I was able
to get the crash to happen reliably with this one-liner:

perl -mWin32::GUI -mWin32::GUI::Scintilla -e
'Win32::GUI::Window->new->AddScintilla->SetFocus'

I'll use that as the actual test for the crash, allowing me to
simplify the other tests somewhat.

Rob.

[perl-win32-gui-users] MPlayer on top of Win32::GUI::Window

[Christopher W. <ma...@wi...>]

Hi,

I am trying to map an mplayer window into a Win32:GUI::Window.  My basis
code (stolen from the examples) is below:

After I run the perl script, I run
mplayer.exe -wid id-from-script -x 100 -y 100 media.mpg

The video does not show on the screen, however, if I overlay a cygwin rxvt
on top of the window I can see the video playing.  Is there a way to make
the Win32::GUI::Window background transparent or override the background
update?

Thanks



#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $W1 = Win32::GUI::Window->new(
   -name  => "W1",
   -title => "First Window",
   -pos   => [ 100, 100 ],
   -size  => [ 300, 200 ],
);

$W1->Show();

print Win32::GUI::GetForegroundWindow() . "\n";

Win32::GUI::Dialog();

exit(0);

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

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

2008/1/27, Robert May <rob...@us...>:
> On 13/01/2008, Reini Urban <ru...@x-...> wrote:
> > [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.
>
> I'll apply your fix.  If you have the time to write a test case that
> would be much appreciated.

Attached are my tests.

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

[perl-win32-gui-users] Transparent buttons [Was: How to dynamically combine bitmaps in toolbar]

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

On 27/01/2008, Waldemar Biernacki <wb...@sa...> wrote:
> Thank you Robert,
>
> Now I resolved the problem putting many square bitmap buttons. The result is
> OK. But I would be more happy if I cound put transparent (for instance ico
> files) instead od bmp files. Is it possible? (I've tried to use all the
> machinary but I haven't got any image...)

When asking me for on-topic help, please keep the conversation on list
so that everyone else can see the reply and the answers get archive
(hopefully preventing me from having to answer questions multiple
times).

I'm not entirely clear what you want.  I think I've posted the code
below to the list before.  It shows how to use an ImageList of type
ILS_MASKED to generate transparent button images.  IIRC you have to
have toolbars with the 'flat' style.  The transparent parts of the
image in this case are defined by a specific colour, and the
background is shown when the button is hovered over ('hot'), or is
selected.

I don't have examples, but it is possible to create ImageLists that
use a secondary image to determine where the transparent parts should
be ... an exercise for the reader?

Regards,
Rob.

#!perl -w
# A demo of the toolbar capabilities.
# Here is a list of things that I haven't yet made work or might be
useful to add
# - get the customisation to work.  Needs research on exactly which
notifications need handling
#   Simply setting CCS_ADJUSTABLE style does not seem to be enough
# - handle the tooltip request for text - needs a handler like
NeedsText in tooltip.xs
# - extend model to allow passing I_IMAGECALLBACK as bitmap reference
in AddButton to get toolbar to
#   issue TBN_GETDISPINFO to retrieve image index.
# - toolbar.xs comments on AddString suggests that AddString should
accept a list of strings.  This should
#   be fixed (or perhaps better to add method AddStrings() that does)
# - would be nice if AddButtons STRING field could be a string as well
as an index.

use strict;
use warnings;

use Win32::GUI 1.05 qw(:toolbar ILC_MASK);
use Win32::GUI::BitmapInline ();

sub IMAGE_X() {16}; # X dimension for buttons in our toolbar
sub IMAGE_Y() {15}; # Y dimension for images in our toolbar

# Create a menu - that we'll use for the drop-down menu from the toolbar
# buttons.
my $menu = Win32::GUI::Menu->new(
    "" => "PopUpMenu",
    "> MenuItem&1" => { -name => "MI1", -onClick => sub { print
"MenuItem1 clicked\n";} },
    "> MenuItem&2" => { -name => "MI2", -onClick => sub { print
"MenuItem2 clicked\n";} },
    "> -"          => 0,
    "> MenuItem&3" => { -name => "MI3", -onClick => sub { print
"MenuItem3 clicked\n";} },
);
my $popupmenu = $menu->{PopUpMenu};

# Main Window
my $mw = Win32::GUI::Window->new(
	-title => "Toolbar Demo",
	-size => [500,300],
);

# A bitmap for our toolbar
my $bmp = new Win32::GUI::BitmapInline( q(
Qk0GAwAAAAAAADYAAAAoAAAAEAAAAA8AAAABABgAAAAAANACAADEDgAAxA4AAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////
////////////////////////////////////////////AAAAAAAA////////////////AAAAAAAA
AAAAAAAAAAAAAAAA////////////////AAAAAAAA////////////////////////AAAAAAAA////
////////////////////AAAAAAAA////////////////////////AAAAAAAA////////////////
////////AAAAAAAA////////////////////////AAAAAAAA////////////////////////AAAA
AAAA////////////////////////AAAAAAAA////////////////////////AAAAAAAA////////
////////////////AAAAAAAA////////////////////////AAAAAAAA////////////////////
////AAAAAAAA////////////////////////AAAAAAAA////////////////////////AAAAAAAA
////////////////////////AAAAAAAA////////////////AAAAAAAAAAAAAAAA////////////
////////////AAAAAAAA////////////////////AAAAAAAAAAAA////////////////////////
AAAAAAAA////////////////////////AAAAAAAA////////////////////////AAAAAAAA////
////////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
) );

# A masked imagelist to put the toolbar buttons into
my $images = Win32::GUI::ImageList->new(
	IMAGE_X,
	IMAGE_Y,
	ILC_MASK,
	1,
	1,
);

# Add the bitmap to the imagelist, generating the mask from the
background colour (0xFFFFFF)
$images->AddBitmapMasked($bmp, 0xFFFFFF);

# Add a toolbar to the main window
# TBSTYLE_LIST - puts label captions to the right of the labels,
rather than below the labels
# TBSTYLE_TOOLTIPS - creates a tooltip control to manage tooltips
associated with the toolbar
my $tools = $mw->AddToolbar(
	-imagelist => $images,
    -flat => 1,
	#-pushstyle => CCS_ADJUSTABLE,
	-pushstyle => TBSTYLE_LIST,
	-pushstyle => TBSTYLE_TOOLTIPS,
	-onButtonClick => \&ToolbarButtonClick,
);

# Set extended syles.  It took me a long time to determine that this was NOT
# the same as using -pushexstyle on the AddToolbar method.
# TBSTYLE_EX_DRAWDDARROWS - causes drop down arrows to be drawn to the
right of toolbar icons
# TBSTYLE_EX_MIXEDBUTTONS - causes the text associated with a button
not to be drawn, unless the
#  button has the BTNS_SHOWTEXT style.  Instead the text is used by
default for the tooltip(this
#  behaviour can be stopped by processing the TBN_GETTIPINFO notification)
$tools->SetExtendedStyle(TBSTYLE_EX_DRAWDDARROWS|TBSTYLE_EX_MIXEDBUTTONS);

# Add some strings to the toolbars string table
$tools->AddString("Button 1");
$tools->AddString("Button 2 - on/off");
$tools->AddString("Button 3 - group");
$tools->AddString("Button 4 - group");
$tools->AddString("Button 5 - dropdown");
$tools->AddString("DropMenu");

# Add the buttons
# BITMAP is a zero-based index to the image in the toolbar's image
list, except when
#  STYLE is TBSTYLE_SEP.  In this case it is the spacing on either
side of the seperator
#  in pixels.
# COMMAND is an (application-wide) unique number.
# STRING is a zero-based index into the tooltip's string table
$tools->AddButtons(
	8,
	# BITMAP, COMMAND, STATE,                           STYLE,
           STRING
	0,        1,       TBSTATE_ENABLED,                 TBSTYLE_BUTTON,
                0,
	0,        2,       TBSTATE_ENABLED,                 TBSTYLE_CHECK,
                1,
	20,       0,       TBSTATE_ENABLED,                 TBSTYLE_SEP,
                0,
	0,        3,       TBSTATE_ENABLED|TBSTATE_CHECKED,
TBSTYLE_CHECK|TBSTYLE_GROUP,      2,
	0,        4,       TBSTATE_ENABLED,
TBSTYLE_CHECK|TBSTYLE_GROUP,      3,
	20,       0,       TBSTATE_ENABLED,                 TBSTYLE_SEP,
                0,
	0,        5,       TBSTATE_ENABLED,                 TBSTYLE_DROPDOWN,
                4,
	0,        6,       TBSTATE_ENABLED,
BTNS_WHOLEDROPDOWN|BTNS_SHOWTEXT, 5,
);

# Adjuxt the button sizes for the text and images
$tools->AutoSize();

$mw->Show();
Win32::GUI::Dialog();
exit(0);

sub ToolbarButtonClick
{
  my ($self, $index, $drawmenu) = @_;

  print "Toolbar:  Button index: $index, Draw menu: $drawmenu\n";

  if($drawmenu) {
    # Button has the TBSTYLE_DROPDOWN or BTNS_WHOLEDROPDOWN style

    # Get the button corners, and convert to screen co-ordinates
    my ($l, $t, $r, $b) = $self->GetRect($index);
    ($l, $t) = $self->ClientToScreen($l, $t);
    ($r, $b) = $self->ClientToScreen($r, $b);

    # Display and interact with the popup menu.
    $self->TrackPopupMenu($popupmenu, $l, $b, $l, $t, $r, $b);
  }

  return 1;
}
__END__

Re: [perl-win32-gui-users] Characters in other languages than english?

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

On 13/10/2007, Octavian Rasnita <ora...@gm...> wrote:
> I know that Win32::GUI doesn't support UTF-8 characters and maybe it won't
> support it very soon, but is it possible to use characters in other european
> languages in a Win32::GUI program?
>
> I just want to use the charset ISO-8859-2 instead of ISO-8859-1, or... the
> Windows1052/1050.
>
> Is it possible to do that? I know that I could make a hack and use UTF-8 in
> a Richedit field, but I need to use special chars in menus, lists...

I've never tried this, but I think that in theory if your machine's
default code-page is ISO-8859-2, then if you put ISO-8859-2
code-points into a perl string, then it will mostly work - Win32::GUI
simply passes the byte strings from perl to the windows controls, that
in turn assume that the byte strings represent characters in the
default code page (CP_ACP).

Please let me know if you follow-up on this any try it.

Rob.

Re: [perl-win32-gui-users] Adding a bitmap to a label

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

On 17/10/2007, Glenn Linderman <pe...@ne...> wrote:
> On approximately 10/16/2007 11:58 PM, came the following characters from
> the keyboard of Brian Rowlands (Greymouth High School):
> > Hi there
> > I'm resubmitting a variation on my previous cry for help (to which I got
> > no answers sadly) but narrowed down to a specific point now.
> >
> > I've a win32 gui created using  The GUI Loft and it has a label which I
> > want to put a bmp on* using perl*.
> >
> > However, I can't find a way to put this image on to the label. Can
> > anyone help please? Each of the following failed:
> >
> > 1. Tried;
> > $icon = getdcwd()."output.bmp";
> > $win-> lblHallblacks(-bitmap => $icon);
> >
> > 2. Clutching at staws, I tried:
> > $icon = Win32::GUI::Bitmap->new(getdcwd()."output.bmp");
> > $win-> lblHallblacks(-bitmap => $icon);
>
> A variation which contains a complete, minimal, running, but not working
> program and data files perhaps referenced via URLs might generally get
> more responses more quickly.

Indeed, some code showing what you've tried and what isn't working may
well leads to quicker responses ...

I think the thing that you are missing is that a label will only
display a bitmap if it expects to have a bitmap on it - i.e. it must
be create with the -bitmap option.  If you don't know what bitmap
you'll be using at that point, then use -bitmap => 0.

Here's a complete program that you can run and play with.  I hope this
is useful (even after so much time has passed).

Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI 1.05 qw( CW_USEDEFAULT);
use Win32::GUI::BitmapInline qw();

my @bitmaps = get_bitmaps();
my $current = 0;

my $mw = Win32::GUI::Window->new(
    -title    => 'Click to change bitmap on label',
    -left     => CW_USEDEFAULT,
    -size     => [400,300],
    -onResize => \&mw_resize,
);

my $label = $mw->AddLabel(
    -bitmap => 0,       # MUST create label expecting a bitmap
    -pos    => [10,10],
);

my $but = $mw->AddButton(
    -name    => 'BT',
    -text    => 'Click',
    -onClick => \&add_bitmap,
    -pos     => [100,100],
);
$but->UserData($label);

$mw->Show();
Win32::GUI::Dialog();
$mw->Hide();
exit(0);

sub mw_resize {
    my ($self) = @_;

    $self->BT->Top ( $self->ScaleHeight - $self->BT->Height - 10 );
    $self->BT->Left( $self->ScaleWidth  - $self->BT->Width  - 10 );

    return 0;
}

sub add_bitmap {
    my ($self) = @_;

    my $bm = $bitmaps[$current];

    my ($w, $h) = $bm->Info();
    $self->UserData->SetImage($bm);
    $self->UserData->Resize($w, $h);

    $current++;
    $current %= ($#bitmaps + 1);

    return 1;
}

sub get_bitmaps {
    return (bm1(),bm2(),bm3());
}


sub bm1 { return Win32::GUI::BitmapInline->new( q(
Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////
////////////////////////////////////////////AAAAAAAA////////////////////////
////////////////////////////////AAAAAAAA////////////AACAAACAAACAAACAAACAAACA
AACAAACA////////////AAAAAAAA////////////AACAAACAAACAAACAAACAAACAAACAAACA////
////////AAAAAAAA////////////////////////AACAAACAAACA////////////////////AAAA
AAAA////////////////////////AACAAACAAACA////////////////////AAAAAAAA////////
////////////////AACAAACAAACA////////////////////AAAAAAAA////////////////////
////////AACAAACA////////////////////AAAAAAAA////////////////////////////AACA
AACAAACA////////////////AAAAAAAA////////////////////////////AACAAACAAACA////
////////////AAAAAAAA////////////////////AACAAACAAACAAACAAACA////////////////
AAAAAAAA////////////////////AACAAACAAACAAACAAACA////////////////AAAAAAAA////
////////////////////////////AACAAACA////////////////AAAAAAAA////////////////
////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
) );
}

sub bm2 { return Win32::GUI::BitmapInline->new( q(
Qk1OTgAAAAAAADYAAAAoAAAARAAAAGIAAAABABgAAAAAABhOAAAAAAAAAAAAAAAAAAAAAAAA////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////B+P5FPT/ALjYIf7/ALjYAMfl////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////FNr/DM/9C8z7CMb4AKHbJO3/AbPqFdv/////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////BZ3vErb+MNz/AIbfFLn/
D7L8N+P/GcD/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////Cn7wCX3vCXvvH6P/IKT/BHHpEIv4////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////HIL/
MJ3/KpT/RLT/Ak3gIYj/LJj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////Rq3/Bk7lBEriEWb2GnX+ADjREGT1////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////GGf7CUzqMo3/Aj3bC1DsGWj8HG/+FGL4////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////B0HlR53/D1DwATTYGmL8
ATTYACHD////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////NX7/ACjRPYj/BDTeLHH/BDLcIWP+////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////ABjDACHQ
HFP8CjfmABrGGlD5GEz3////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////H079Ci/lABrPBSjeMWf/F0L2Byzi////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////ByDeARTPABLMAhrWIkf+ByHfGj34EzLv////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////AQ/PCx3jDSDlBRXYAQzMBxjb
AQzM////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////Lz3/AATFDxrmAQfMAgjOAATGAALA////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////BQfUAAC5AgLK
AgPNAACRAgLKAACy////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////BATDAAB2AACrBQXFEBDYAACjAwPBAACM////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
AACYAACOAQGnAACfCwvAAACdAABsAABh////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////CQmsAABwBwepAABXBQWkAAB1Bwep
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////AAB9BgaTAABZCwueAABjAABOCgqc////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////AABTBweCAABAEhKZ
AABnAABQAABY////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////AABOAAApLCytHh6aAAAqAAApAAA1AAAR////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////AAAj
AAA9Dw9wAQFQAAAsAgJTFxd/FBR7////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////GRl9AAAmAAAiAAAqAAAwAAAdAABH////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////BQVSAAA5AAAVAAAxAAAuAAAhCAhY////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////AAAdAAAyAAANAAAsExNn
GBhvDAxb////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////BQVHAAApAAAbAAAwAAAsAAAHAAA2Dg5Y////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////AAAMAAAw
GRlmEBBYAAArAAAuAQE2BAQ/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////AgI3AAASAAArAAAdAQE1BwdAAgI3////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////AAAENDSCEBBOCQlBAAAnBwc+AAAp////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////AAAAAAAaAAAgAQEsAAAaAAAB
AAAk////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////Bwc0FBRKAAAVAAAhAAAhAAAZAAABAgIs////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////DQ06AAAR
AAALAAAHAAAcAAAdAAAa////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////AAANAAAHAAAcAAAcAAAYAAAaBQUp////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////AQEcBAQiAAAGAAAUAQEaAAADAQEa////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////AAAQAAATAAASAwMcAAAUAAADCwsr
Hh5F////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////AAAHCwsmCwsm////////////////////////////
////////////////AgIXAAANAAAADAwoAQEUAAALAAABAQEU////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////AAAKAAAEAAAEDw8oAAAACAge////////////////////////////////////CAgeAAACCAge
AAANAAAOAAAADAwk////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////AwMTCgodBAQWAAAABwcaAQEO
AAAI////////////////////////////AAAAAAABBgYYAAANAAABAAAFBAQU////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////AAAKAAAEBwcVAAAADAwcDg4fAAAAAAAHEBAiAAAA////////////////
AAAEAAAEAAAEFBQnAAAHBAQTCwsa////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////AAAAAAAEBwcR
BgYQAAAAAAABAAAEAQEJAAAAAQEJAAAD////////////AAAAAAABAgILAAAECwsXAgILAAAEAAAA
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////GhonAAAAAAABAAADAAAADQ0XAAAEBAQMAAAAAAAAAAAA
AQEHAAAA////AAAAEREbAQEHAAAAAAAAAAABFRUgBwcP////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////AAAAAgIHCAgOCgoQAAADAQEEAAACAAAAAAAABwcMCgoQAAADBwcMEBAXAAAAAQEEDQ0UAAAA
AAAAGRkgAQEE////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////DQ0QBwcJEBAUAAAA
AAABAAABAAAACgoNAQECAgIEAQEDAAAACgoNBQUIAAAABwcKAAAAAQED////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////BwcIExMUAQEBAQEBBwcIAAAAAAAACwsMERESAQEB
AAAABAQEBAQEBgYHCQkJAAAA////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////AAAAAAAADg4OAAAAAwMDAAAAGxsbAQEBAAAAAAAAFxcXAAAAAAAAFRUVAQEBAAAA////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////BAQEAAAAAAAAAAAA
AAAADw8PBwcHAAAAAAAAAAAAAQEBBwcHAAAAAAAA////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////AAAABAQECAgICgoKAAAAAQEBAAAACAgIAAAAFRUVCwsL
AAAAAAAA////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////AAAAAAAACAgIBwcHAQEBAAAAGxsbAAAAAAAAAAAAAAAA////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////AAAAAAAAFxcXAQEBAAAA
AAAAAAAAAAAAAAAAEBAQ////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////Hh4eAAAADg4OBAQEAAAADAwMAQEBAwMDAAAA////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////EhISAgICBwcHAAAAAAAAAAAADQ0NEBAQ////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////AAAAExMTAAAAAAAAAQEBCAgI
AAAA////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////AAAAERERAAAAAAAAAgICAAAA////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////AAAA
AAAABAQEAAAAAAAA////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////Li4uAgICBAQEKysrAQEB////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////AAAAAAAAAAAAAAAACwsL////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////
) );
}

sub bm3 { return Win32::GUI::BitmapInline->new( q(
Qk04SAAAAAAAADYAAAAoAAAAwAAAACAAAAABABgAAAAAAAAAAAASCwAAEgsAAAAAAAAAAAAACZXK
AFH3AVX7Hsb8Qur/Iqr/AHTMAFPhNIr/UPn/K9TpBWX/AFDwAHroNdL/UN7/CpjHAFT0AVf3HsX/
Qun/G6P/AG3LA1jqOY7/Tfj/KdTiBGT+AFbwAIz9ONT/Td//C53AAEvvD2b/L9z/O+j/F6H/AGfH
BGDnRaH/R/f/KdnkC2b9AFLpAHXwRMX/Rub/B6fHAFnvAFzyJcX/Q+P/IZ/+AG7NAFvtJYz/S/T/
KNHmBmX/AFPwAHnsScj/ROP/CKfJAFHvAFn3L8v/SeX/IaH/AGnQAFnwJo3/SvX/LdjmA1//AErv
CI3vU9j/Qt//Ap/LAFHjCG//Otb/Qt7/I6j/AGvDAF/wLpv/Rvb/KtrlAGP/AE7sDpX3S9L/R+T/
AJG8AFXqBGr/NdH/ReH/EJLxAGbFAFTmIon/SvX/KNPpC2b9AFLpAHXwRMX/Rub/B6fHAFnvAFzy
JcX/Q+P/IZ/+AG7NAFvtJYz/S/T/KNHmBmX/AFPwAHnsScj/ROP/CKfJAFHvAFn3L8v/SeX/IaH/
AGnQAFnwJo3/SvX/LdjmA1//AErvCI3vU9j/Qt//Ap/LAFHjCG//Otb/Qt7/I6j/AGvDAF/wLpv/
Rvb/F6meF6qiHpmZHoWGHKaiHJ7cHZj0HZnwHJnwHZnwHZnwHZjwHprwHJbxJKDwsejly8bhhpDJ
b3KZR09tKzhXJTRZJjZbJjVfJzlmKjpnJzdhJjhfKz9rPE5yOUJfJ4nfHJzzHZnwHZrxHZnvHJnw
HprwAGDmAHS6K8f/Xdr/LKn7AFn/AE37ArLWPu7/Sqn/CWj/AG27AHzJT9f1Ttr7CXH+AFj5AHi2
Ksv/WNL+KaL7AFnoAFDfCrbfQ/H/RaH/Al7/AG+7BpfjVuj/TuD/CW7/AFH5AIq2Mdr/Xdj/KqX/
AFbaAGHlFMXwOuv/RKf/AGH/AGu7AIfXP9r/RuH/FXT/AFD0AHnBNL7/Stv/Fqf8AFruAFntDLPO
TvX/RKT/BGT/AG69AIfWQuD/Q+D+FXH5AEjmAHi/PcX9TNr/E6H4AFnwAFjvGbzVSez/RqX/CGf/
AHO+B5bhSOX/ROH/DnD/AE/vAIjLRdL/St//DaLyAFvsAF7vJMvgSfD/Qar/AF30AGm1EpzoQOf/
PeT/CWP/AFT5AIbLRdH/TNr/A5HoAFXsAF30DK7LTvD/Tqn/CmX/AGu7AIfXP9r/RuH/FXT/AFD0
AHnBNL7/Stv/Fqf8AFruAFntDLPOTvX/RKT/BGT/AG69AIfWQuD/Q+H/FXT/AEvvAHvEPcf/TNr/
E6H4AFnwAFjvGbzVSez/RqX/CGf/AHO+B5bhSOX/ROH/DnD/AE/vAIjLRdL/St//DaLyAFvsAF7v
JMvgSfD/Qar/aVbbaF3aRj52PilRVE+eM47zGJzxHpnwHZnxHZnxHZnxHpnwHZjxHZrxFZnxQLjx
pcfneXurXlp5QEVjKzhYJzVYKDdaJzdeJzdiJzdiJTVfJTVdJztkOEp2J33IG572HpnwHZnwHZnw
HprwHJnwHpnwAGLoKsb/RN36J5rkAGaqADjGImvQONDcGsLlAF34AEzeAHK0W7rOX7zNEoCjAFDi
AFf1Kcr/ROH6JZXmDWGkMm6+TJPOL7/UFbjfB2L8AEvsBYnPQLnWRsDWCIuqAEnhAFHXML3UM8nj
GpLxAG3PAGLmPKf8Od3tD6XKAVPTAETQAH7LQ8r0PcPcA4WzAEfbAErhNavaS7/WFZrnAHbJAFnt
IYb0Q9PcHKS6AlXcAE3mAIPSTt7/OtT4AIu6AjewAzilJ36wRLraG6HyAHbMAFHoLJP/TvH/M9bv
AFbzAE7lCIPEQLXQM7rcAJTEAEzsEG/3N7TiQbXTDo3QAGOpAFfSKYDQPs7cKcndAFjqAFDWEILB
R7jQJq/QAIGmAE/oCWL8RND/Stb/BZHnAGq7AVjYKn7QQcXQJ63FAFDeAE7qAILSRMz3P8jiA4Wz
AEXWAE3sPsj/V9/6FZrnAGWsAEnBHHLQQc7WH7jQAl71AEnbAG6wQLXQMbLQAIGuAD/KAFPoO8D2
ScrtGJDYAGKqAEjOKYfrQ9DcKq/EAEvTAE3iCI3TQ7zYMLDQAH6nAEDIEGvtO8L0RcLiDonMAFud
AFXNLIviRuj3K9LnAFvygovlhpHkRERvNStWYGSZPZ/5GJnxHprwHZnxHJnwHJnxHZjwHZrwHp3w
G5/0E579VpzadWWDU1FtOUJjLzpcKzdYKjhZKThdKjtjKjlkJjVgJDNdJzdhMEt+H5XrHZzzHZnw
HpjwHpnwHZjwHZnvHpnvKsb/Wdv/IJrvWJjTvfr9vfr9vfr9vfr9AFnPAGbRMoLAs/H1vfr9vfr9
vfr9WJ+3JLTjWNz7HpbfWJHLvfr9vfr9vfr9s+/1MnjFAGjDBoLedM/Zvfr9vfr9WI7LP5Knvfr9
vfr9hs3kAFHVAGb1HMLpQOD2JmiuDRpoDRpoDC13ScblU8zcDRpoDRpoBjx3G4WuDRpoDRpoCTGN
AEnQCbfEQtncDRpoDRpoDRpoAGrJVOL/VeH6E1zYCSF2DRpoDRpoDRpoDihwAjuqAEnVFsHPS/b/
R6b/AFj1AHznAHnVvfr9vfr9vfr9AD/GAI3HIbnlmd7mvfr9vfr9NG6xvfr9vfr9vfr9AE7QAGjM
i9Dlvfr9vfr9vfr9vfr9Mpe0JtT2TM7/EZP4A1bfCj+lDRpoDRpoDRpoDRpoCih1AGjMUd3/VtTl
DCV5DRpoCiluJLjlSNH/HJ3vCTGNDRpoDRpoDRpoDRpoBzOUAGXFBjyLDRpoDRpoDRpoDRpoDB1o
EkyHQbbcFmmxDRpoDRpoDTVxObvCDRpoDRpoDB1rAHbQNIquDRpoDRpoDRpoDRpoGX6uSMDcDzF5
DRpoDRpoDRpoFj95OZjlAFrxAHTjLZvWMJ3YKorBJHqvMpPNIZzqHZnyHpnwHZnxHZnwHZjwHZnw
Hp7wGp7zLI3cQ3GoT1qATEViPUJgOEBgNT9fMjxcLztbLjteLjxlL0BrKzpkJzVeJTReL0RxI4zc
HJ30HZnwHpnwHpnwHZjwHZnwHprvQ9//IaP/AGW+WJPGvfr9vfr9vfr9vfr9AEi6AGTDs/D1vfr9
sO3xsOvyvfr9vfr9T7zOHZrlJnepvfr9vfr9p+Tnvfr9vfr9sOz0A3LDSsLmbcDNvfr9vfr9XZK/
cLnEvfr9vfr9TI+1AFndLpb/SvD/JcPoAz+YDRpoDRpoFDFxSMHdB3mfDRpoDRpoEEd8GVF9DRpo
DRpoBil+M4PpUP7/H624DRpoDRpoDRpoKqrQTNr/Boq1BiuJDRpoDRpoDiFmDRpoDRpoCSJzNIDi
Tvn/JtHfAmH+AFPwAI75MK/Qvfr9vfr9vfr9EFfQMtv/L8Hdj8/evfr9vfr9UIKmvfr9vfr9vfr9
AEnEAHXVldfevfr9vfr9vfr9vfr9SL/TKdf1EZP4AGTJB1jfKVqhDRpoDRpoDRpoDRpoCidyNL3j
U9//B4CpCiBwDRpoDzBxOMfdHKX/AGa6Bil+DRpoDRpoDRpoDRpoBiuLAGfEGFSHDRpoDRpoDRpo
DRpoDRpoDRpoE2iwAFGYDRpoDRpoEzJsFniADRpoDRpoCidwMK/QK3qhDRpoDRpoDRpoDRpoIoSr
FojSCiJoDRpoDRpoDRpoEDdyAFbdAFnwAIf2YbyLY8GPSn5kNlZMW6F7MarbGZf2HZnwHJnwHZjw
HZrxHp3xGp7zM5ToaG2qU1KLR02NM0F7M0FxMT9rLjxlKjdaKjhcLTxjMUFrM0JuM0FrLDpkJjVf
Lz5qJYXUG532HZnwHZnxHpnxHpnwHZnwIJ7xKqf5AFvtAFHXW7G/vfr9vfr9carKMnexBm3NWb/O
vfr9vfr9i7/TWJWmvfr9vfr9Z6/RAEfPWJPNvfr9vfr9Zp6zi8PUvfr9vfr9W8DOPcfgXpzNvfr9
vfr9Y6y3qeXpvfr9vfr9GV++IMbmP+r/Qbn/AGDXAzeDDRpoDRpoFDRxDGTdAETIDRpoDRpoH0V0
DydrDRpoDRpoCEl8O9zpSqb/A07QDRpoDRpoDRpoQLPQB2//AEzZCiVoDRpoDRpoET9zDRpoDRpo
DRpoN8jUQ5//A1//AHC7CZjjVub/QLXQvfr9vfr9vfr9LrLQYN3/IY3Xi8Tavfr9vfr9TKGmvfr9
vfr9vfr9D4C+OMrdk9jevfr9vfr9WJ+tRrrNX77lGobqAF3kAGXsD7XlJIKhDRpoDRpoCh5jA0V/
OZi9UNXyDnP/AEjUCiVnDRpoFzJxJI7cAF7yAE3UCEl8DRpoDRpoCSJwA0B9AmWqScbgIVeHDRpo
DRpoBihbDiVnDRpoDRpoAzeaAEG1DB5oDRpoDRpoDRpoDRpoDRpoH05/QrvXCUKhDRpoDRpoDyhp
NHabIYnVAEjACiBuDRpoDRpoGTx8A0C2AGewE53pQen/AIbdAIXdCoTdEXm9CoDCFZXvH5rxHZnx
HZnxHZrxHZzwHZzxFZrxY5rqoZPmh4zfhIbfc33NXnC0VWekTV2bPlCKL0BxKDllKztpM0JvOUh0
OEZwLz1nMDxmJ3nDHJ/4HZnwHpjxHpnvHZnvH57wH5zwAHfJAFnrI3/pcsfNvfr9vfr9WJDEA2nH
V8TvVLjJvfr9vfr9i8PYYKm6vfr9vfr9WJm5AEbKZ6TNvfr9vfr9WI20i8LVvfr9vfr9U7XJAoqw
WI/Hvfr9vfr9erq/vfr9vfr9l9PkK4PXP+n+KdT0AF/dAGHYFFWgDRpoDRpoCiloAErWAE7QDRpo
DRpoDi1oDRpoDRpoDRpoHF6HFrfcAFn+AEDGDRpoDRpoDRpoCHyiAFr7AE/aDzBxDRpoDRpoAy9n
DRpoDRpoDRpoEJ7BBGD/AE7zDJvmUN//VOT/CH6gvfr9vfr9vfr9M7fQHJnuAF+pi8Xcvfr9vfr9
O42cvfr9vfr9vfr9SbnQNsfdi83Uvfr9vfr9Sa+6JsTaGILkAGjNAGXsPqf/P+XyCGeWDRpoDRpo
CiVpNaHDV9nsCJG/AFX3AFLbDi5wDRpoDylvAGSyAFDkJoLpHF6HDRpoDRpoBiR6AG+vSM/wTc3m
CUB0DRpoDRpoEUF0ES5qDRpoDRpoAzCTKHrQEjRxDRpoDRpoDRpoDRpoDRpoI1uJCYarAzOaDRpo
DRpoEjJwF3/GAGzAAFPOEytxDRpoDRpoAzecAETZEZrlWeP/Pub/XY73ZJP/LlCjKjVaX4LSLpr5
GprwHZnwHZrxHp7xHZzxHJrxHpbthqHqzbz7483+zbf4nqHsa4TQYXe+ZXa+VmisQ1WSNkmFLUF1
LT5wM0R1OUl1N0hyOURsL2ioHJz2HZnwHpnwHpnwH53wIJzwHZjwAEXzCLPJReLpa63Nvfr9vfr9
W6C+M9HpONzyOH3Jvfr9vfr9kc7YbK26vfr9vfr9WI/CDZmvcsjNvfr9vfr9WpSyjcfXvfr9vfr9
OoDJAETCWKO6vfr9vfr9se3xvfr9vfr9YLTDQtnpN6//AGflAGnfGoDwIYOhDRpoDRpoCh9tAGqf
HZ7QDRpoDRpoCxplDRpoDRpoDRpoHkeHAFjdAHHWAGe5DRpoDRpoDRpoAETGAHq4JrLdFjNxDRpo
DRpoAyp9DRpoDRpoDRpoAFDFAG/RCI3vTer/PNn/F27/ADy8vfr9vfr9vfr9G4vJAFLwAFbdj9TZ
vfr9vfr9WIysvfr9vfr9vfr9J6/QJF7di8Lcvfr9vfr9gLzKY63SAE/UAWj6Dr3lQ/L/OJLyAzSR
DRpoDRpoDyJoHFWEDUW1AFHqAHm3HZ/RESVqDRpoCxxqAETKC7POSuTpHkeHDRpoDRpoCiJnHlyK
LaXNFGHjBiiDDRpoDRpoGj9rDSJmDRpoDRpoB3GSPs/bGTl6DRpoDRpoBjdsDRpoDRpoD0GhAEPP
A02ADRpoDRpoDitvAEfQAGP/F6zAEzVxDRpoDRpoA0GID43pQOf/MNf/KW3/kpzalaHjYWSGP0VQ
go/BPKDxF5jyHZnwHp3xHZ3xHZnxGpnxKpjukKXolJzjgYTCZ3KvXHOzWHW9VW+1aH28YnS7UGGn
RVebOkyLMEV6L0N2MkN0M0RvOkdwPFuPHpjvHJrxHZnwH57xH5zwHZjxHZnwK4T/T/r/JMDUWJjN
vfr9vfr9eb3NLMrpAJDAMm/Dvfr9vfr9lNLYYaG6vfr9vfr9aajNOMTTZrzHvfr9vfr9X5m4l9HY
vfr9vfr9Mmy6Bl/dcL3Nvfr9vfr9vfr9vfr9vfr9TLjGKMfsAGvpAF3bGob8YMbyHH6hDRpoDRpo
CyNxJK3dOrzQDRpoDRpoDRpoDRpoDRpoDRpoBi+FAE7TAH7jPqrQDRpoDRpoDRpoAkjKKsv/O8bd
DitwDRpoDRpoETt+DRpoDRpoDRpoAEi8BovtU9j/Ptv/AJvNAEvnD1bQvfr9vfr9vfr9AFqYAFv5
LYPdldrevfr9vfr9vfr9vfr9vfr9vfr9AH2hAz7Pj8bevfr9vfr9vfr9vfr9AFPSOJ//QvH/EL/n
AFjcAzaTDRpoDRpoDRpoDRpoBi2PAlLnJ8D1LI2rDRpoDRpoDRpoGlSrR+n1IrzWBi+FDRpoDRpo
DRpoDRpoBmWYAEXSByqFDRpoDRpoDRpoDRpoDRpoDyZwQ9HXI7zVBi6DDRpoDRpoIVN2DRpoDRpo
ATmvEmPuH3ehDRpoDRpoCiNnAE/YNJf/PtLdDzFuDRpoDRpoDFWdTcvyPuX/AJnFBEjvK5mvL5eu
L4yWKpaYMZGgI5riHJn0H53xHZzxHJrxHJjwGJjxMp3wo7LwkJzWWmSlVWOjUmmiWnOrXHalZ3+3
bn/PWmy3TF6ePlCPNUiBL0R6LkJ0L0FuM0JwPU17K4HPHJ/2HZ/yH5zwHZjwHZnxHZnwQPD/RrD/
AmPgWJe8vfr9vfr9acHNFWHpAE3tMoKhvfr9vfr9jszYWIuzvfr9vfr9bcXNOpHTWJbIvfr9vfr9
Z7S6kNPYvfr9vfr9MoinM7rdcsHNvfr9vfr9vfr9vfr9vfr9QI3CAGjnAGTNGI73Ou//LNfyDz+h
DRpoDRpoEjJxUrzdIobPDRpoDRpoDRpoDyFlDRpoDRpoBi50CXTPSOL/N7XQDRpoDRpoDRpoHabQ
Ydz/H4rYCh9vDRpoDRpoHGN+DRpoDRpoDRpoE3XDTOn/ReL/DW//AE7uAI3HJq/Qvfr9vfr9vfr9
AEnJJdXmNM3bk9Devfr9vfr9vfr9vfr9vfr9vfr9AEXLAIGskNfevfr9vfr9cafFWJnRFLnZPfH/
Op3/AFnfAGLEC1WgDRpoDRpoDB1oBiaAA1SPIL30V8bpFESHDRpoDBpmDRpoIGGHOJ7pAF/jBi50
DRpoDRpoEi1rDDSKAj3BAHOrElGHDRpoDRpoCxplDRpoDB9kGEt5MZLXAGTmBDh9DRpoDRpoEStn
DRpoDBtpAHWlLMzyNHmhDRpoDRpoCiBwILnHPOz9NJjdCiFuDRpoDRpoJnyhQtfyB2H/AFT5AJXH
glLiglXoYkmLLC87bUayPYz2GaDxHp3wHZnxHZjxHZnxGZjxO6P2iJnUgnOypIXQd2CsPz1xKDRP
OlNuVXClYXXEWW24VmeqQ1WWM0WAL0R5LUF1LT9wLT5uKDhnMUN9MmyzIp/vHZvyHZnwHZjxHZnx
GMjsAGTtAFLPW5/Fvfr9vfr9WKm8Ak7oA1LyS6zJvfr9vfr9i8XSWImyvfr9vfr9X7fHAlnQWJHD
vfr9vfr9Z7O6i8vRvfr9vfr9VLfJO8LdW6vIvfr9vfr9h7vIvfr9vfr9WJnIAE/HGY/4aN7/LuP/
AJSyAy+bDRpoDRpoEjJxI4zaAF6nDRpoDRpoDRpoDTZjDRpoDRpoCDZ8VsDnPtT4BHyiDRpoDRpo
DRpoLrDHH5fuAGCtCiBwDRpoDRpoFFt3DRpoDRpoDRpoTa/QP9z/AJzIAEzsEHH9Jsr4LLDHvfr9
vfr9vfr9KXfHOOT0J77Mi8Xbvfr9vfr9U4yZvfr9vfr9vfr9CVLQH7zdktjevfr9vfr9MnK2Lofb
Puz3ALPWAFziAGPpC4zuMXuhDRpoDRpoCh1sAD68Jb/tQeL6IovYCiRqDRpoECxsDRpoDjBtAFrW
AFDUCDZ8DRpoDRpoCDxvAEbMAFHsIrrnGlmHDRpoDRpoBiFsDyNoDRpoDRpoAzyeAFHTD1OcDRpo
DRpoCiFfDRpoDCNxIrTdNdbyF1yeDRpoDRpoESlxMsvaLt7vAFLMCiBuDRpoDRpoJ3yhAImyAFP4
C2X/JNn/ZKPgaqvkUWeGID9eWZHANKbyGpzxHJnxHZnwHZnxHZnxGZjxNJ/0nKnibGexaV2zQkeH
SFp6TWOEZHSmX3G4YHPAVmivVmWpSlygN0qHL0V3L0N2Kz9zKjtuLD9vKDtqNkF2LVudHprxHJry
HJnxHZnwAF36AG3gAG7XccTNvfr9vfr9WJHJAG+lL8b2Y7nOvfr9vfr9i8HUXKKnvfr9vfr9WpfR
AFirXKfMvfr9vfr9W5Czi8DSvfr9vfr9W7TOIJTgWJPGvfr9vfr9abO3ndbgvfr9l9PgDH7QRuL+
Ptv/CnD/AFDdA1GFDRpoDRpoDChvAFHRAD+4DRpoDRpoDRpoAy98DRpoDRpoGlyHMsjcCk69AyyH
DRpoDRpoDRpoEVKQA0O0AEO9Cy5rDRpoDRpoAyhtDRpoDRpoDRpoLsPUDnX/AE3fAIfKOL7yXcTb
QJC3vfr9vfr9vfr9VLK3TaTbAEy+i8bYvfr9vfr9QZWlvfr9vfr9vfr9NqjQRrfdjMvcvfr9vfr9
Xay4VsfROJTtAF/lAGrhA4X8TePyInmhDRpoDRpoCh9kImiYN5/NGpzxAUa3DRpoDRpoKX2LDRpo
DRpoAlCoDGrPGlyHDRpoDRpoCCBsA0V/NanbRL7kEESHDRpoDRpoCDVgEChnDRpoDRpoB0eWFX7l
KrjKDRpoDRpoChphDRpoF0Z/S8bkHaDyAzSUDRpoDRpoFDZxM5fdAF7qAFq4DihwDRpoDRpoDEWh
AFXhAIjNQs7/UdP/Gn/jHIDkK3bEJXzSIojpHZbrHZrxHZnxHpnxHZnxHZnxGpjxLJnwt7ny4dD3
1cLtqKfTgY+9io7Qg4jXcoDPZ3XDVmWrSlmcR1iaPU+NL0R3LkR0LUByLD1wL0R1KjtkJDBcKi9p
KXC7HaD4HZrwHZjwAFPwAHnsQ7fpb8LNvfr9vfr9WJPKK7npSOL8G4bUsO3zvfr9vfr9p+Tnvfr9
vfr9Jl/EB4LcWLXOvfr9vfr9sOvxsezyvfr9s/H1HYzUAGGwWJXIvfr9vfr9ZLW6WJPCvfr9vfr9
S6vJRd33AJG8AFXqBGXyH3ShDRpoDRpoCiJpAEvMI3XQDRpoDRpoDBxpADeRDRpoDRpoGFmHAHqd
CiF0DRpoDRpoDRpoDRpoDRpoCiFyI3TPI2aMDRpoDRpoCxtlDRpoDRpoEj54AIyvAFLkCXD/SNX/
RMHjj9Pkvfr9vfr9vfr9vfr9vfr9i8jiAEOsj8vdvfr9vfr9Mn6Ovfr9vfr9vfr9P7HQCHjQi8bX
vfr9vfr9vfr9vfr9AEy+AWTqBIb9Vdf/NMrwA012DRpoDRpoDRpoDRpoEUqRAGKyBDGPDRpoDyBp
GIaYDBxpDRpoCD2LU67ZGFmHDRpoDRpoDRpoDRpoNYarF47fBjB1DRpoDRpoDRpoDRpoDRpoDBtp
FGnBX837JrvUDB1nDRpoDRpoDRpoIFeJGZjrAGG2AziYDRpoDRpoEDFuAFjRAFrmG3nXGDFxDRpo
DRpoAzGTCmzyRdH/Tdn/CYvweKGHeKONVGdiSUxBZYB1OKTaGJj1HpnwHZnwHZnwHpnyGZnwLZvt
oKXw39H+0LzpiIq3RVaHUFqci43ag4veaXXJUmKuRVaeO0+ONkmALkF3LUJyLT9uLT5uLUN0N1CE
KDNeGh5MLkGCI43eHZz2HZnxAIfWQuD/P9PvYKLZvfr9vfr9cMLZR8zvE6H4AFPgMnLDsfDzvfr9
vfr9vfr9WJ66BobIR+H7PcjjXZ3Rvfr9vfr9vfr9s/H1OZnFAFXcAFjgZsTNvfr9vfr9WJfRDVmN
vfr9vfr9cdHeCV7yAFT5AIbLQ8r2L4SuDRpoDRpoCiN3BaPIOdHcDRpoDRpoCCt0BV6pDRpoDRpo
ETWUA0XQCihtDRpoDRpoDRpoDRpoDRpoCzNzONHgN5DYCSZ4DRpoDRpoDRpoEC5wElC9AE3lAIXA
Ptr/S+D/D5Xdi8bhvfr9vfr9vfr9vfr9vfr9i8ncFXXBleHmvfr9vfr9Mmq3vfr9vfr9vfr9AHjD
BFLRi8fivfr9vfr9vfr9vfr9AFu1CZD4T+3/ONb+AFr2AzarDRpoDRpoDRpoDRpoCTGNAEvHCUR+
DRpoFTB3AE7ACiRuDRpoGVKIK8LdETWUDRpoDRpoDRpoDRpoD2SrA0/SBiyJDRpoDRpoDRpoDRpo
CiBpD02WM9jrMOL+FWPjCiF1DRpoDRpoDRpoDWWmAFDXAlffEHmjDRpoDRpoCiV2AFyyG5PyN9Xl
ETp5DRpoDRpoA1WNOMz2Tdv/AIviBVvplX6Cln+BT0Q/TEE5a1VTQprdFpr1HpnwHZnxHZnwHZnx
F5jxOp/wpKbyoqDwfXywJTZHER8uFiZUbHW6lJrsfIneZnXLUWK0QladOU+JMEV+L0N4L0N1LkBx
LkN2NU+GKDhdHilPKTBwIFejHqD4HZnwTt7/PNr/AJvQAEXaAEzWM6fWSMbpG6f6AHbNAFDlKYnu
QcjUTrfFMnHGDU7DCIrOTdr6O9j/AJjJAEXWGmfPU7DNXbnODorNAGmzAGb1MZr6QtrpJLDCAEzL
AFLbEpHYS8HbJ7TWAIuzAFP1CWP/RND/SdP8BYnZAGGqAVbTLoniPOf3Fr7mAFTSAEjCBm/IWcXs
NMrcAIGlBEzkCVTxL7PiPbnTD4PJAF6lAD+2M3rTP9niGMHpAFznAEzKE2ayNXmlI5KwAIipAE7k
CF/8P9v/ROD/B5zsAGy6BVPQP4jTNMXQEqLBAFTHAEK3HYjcXc3uJMDiAIKjAEbQA0zbPL7YN7PQ
AHvGAG3AAlXfR5PiMsLTDJvEAECyAEzEEZL0VNv/NdP7AIevAFX7BGDtNrTYOrPQEYfNAGauAEnN
MoXyONblE6jKAFbXAFHZBm7GUbTXNtLlAJK7BEzkCEvWK6XQPLbQD4jRAGu8AEvYOYbpPM7WFKLF
AE3CAEi9F3/SV8fuM+P7AJ/GAE/oB1TgNLXTN7fQBoTIAGiyBl3oS6L8O+DtE6nIAFXKAEfEIJTw
ZNz/KNL3AIuvAEXLA0nSQtDtQtn8AI7lAHLJAljmhKjfg6rhapW+V4Sje6LQOqLvGJjxHpnwHZnx
HZnwHZrxFpfwRKHxycX9g4zYK0KBGCtHMENtRFqmdH3Ju7j3tLbzj5nocYLWYXPEUWWvQVibOEyI
NUmENUl8MkZ4L0NyKTtmIzFeICdfIDt8IZzwHZryV+X/F23/AEzsAIXEIsn/S9P/H6f/AFHjAEze
FsHPS/b/RqT8AFXsAHfeAIrzVOP+VOT/GG//AEnlAIzGJMv7UdX1HqP2AFTfA1voF8fRSfn/QKn/
AFrxAHTjAIv6Qur/O+P/Jmr/BkrxAJLEJ9z/TM7/EZP4A1nnC2HvF8TUS/j/R6P/AFj9AHLXAH/k
R+H/P9n/DXD/AFbuAHa5Ncr/Xdr/Ip//AF71AFrxCrXDTfj/Qp7/AFf8AHnbCY3vTuf5O9H1C2/4
AE/gAIbBQNz/SM3/I6j/AFfoAGf4GsrUQ/P9P5//AF//AG/QEZb3QN3/Q+D/EHf/AFHkAIfGR+D/
Tc7/D5DtAFXsAGP6GMXVRvP/O5b/AEvuAH7mCZD4Uef/Msj3AGL6AF31AIzORNj/TdD/CYztAFru
AFruCrjFT/3/R6P/AFj9AHLXAH/kR+H/P9n/DXD/AFbuAHa5Ncr/Xdr/Ip//AF71AFrxCrXDTfj/
Qp7/AFf8AHnbCY7wUO3/Pdr/C3L/AFDiAIbBQNz/SM3/I6j/AFfoAGf4GsrUQ/P9P5//AF//AG/Q
EZb3QN3/Q+D/EHf/AFHkAIfGR+D/Tc7/D5DtAFXsAGP6GMXVIar5Iq77MH+nL2N8KZXQHqP4HZjv
HpnxHZnwHZnwHZnxGJfwO6Hx1NL7z8b2n6LkTmawQFedRFeijZjd08/42dj5p7TxmantnarrdorS
WG+2RFmYPlOPOU6CQVV0MkVjKz1qLj95MDl8L1mhH53yHJnxuKPQMXDqp4LAo6bIDIe9AKqYAvhb
B4rIP6iCjTnTSkD9hTL/wgz6REbwY5XV6v26RZbvdZas3PPVbKHXN2nVb4OXLnXIUWjKeJqcTZ7u
WH/b1e76brn4O3/rPHjjEk/2BmH8BkD4AEf/Ooywud9HkrSIO3rA2OUtg6S5FZGdAN9vAMmNAIO/
CuddQaK+P2rg1pi9jZXnY2jRkqjdHM/7A3jgBNrUKdH/IHTzvib1kSPsL1v5pCX3qRH5DF73DIz2
FZj/AHLvAInyDab9NIe2s8RE791EN4bGla5qx7Ksamfug3TU65/GNn/nHlT0Ajj6BlvxBV32BkHv
FlzpB5zxQPr/HZn6A5vOWfb/U6T/b4Ll5fvxYKv2SI/Z4KCCR1e4lWmquFtWfGCIZH604/EZfKio
TZWB2esth7mLP27RenauVnqvE2ztg4WPI3nnAG/7Apb3Cpz5AHDwKKn0sNLqPmjWqtOyodrjV2rg
nS7zuBX8IFjzzBj9lx39IGrbANNvB9SgAI3DBMiBFNWLImX8xoqyrpvbUWzsjXjj4tb5Ro/SpaPb
8Pr/P4D/H1b4CUTtAVT8Alr/Ajn9AFP5BLSfBum8D5PNBKyrEe68KaS6JFv6J2D7HSZXHhcpJEGi
I5D/HJzwHZnwHZnwHZnwHpnxHZjwG5rumMT13tv+9Ob/lZjpOEyeQ1+liZjeyMj0tLvufY/PVmup
a3y5cofHWm+uQ1iSNkyGP1N/XG50OExQKz5KKzlPR1FtS4CiHJ72IJzwpZG+MHDov5rXkpS2CYq/
EcOxAOdLAoXDR7KMmUXfVEn/eCX6ww37T1Hvfa/i1OiiKnrXqsrgyN/BSX60OWvYcYaaLnXIVm7P
ao2OJXfXnsX/zOX/NH/TdLj5VpLpFVL6BVj0Dkb6BVL/QZC2vOFJd5luTY3S2eYva4ugG6CsBt5v
ALh8BJjUC+9lMZCsT3rv3J7DanLGcHbflq3jAKHOE5DvBO/oAaDfKHbyvSb1nzL6J1P1lxjuvCX/
Gm39HZ7/BH3+BnT0FJ7/ApLoNYi3yNpZ2cguMoHBsMiEtqGbaGXsopLv3ZK4LnfdJVr2DEP9EGb0
AFLsCUXyG2b2Ms3/MOjwAHfzKNb/RuL4JXXWscP92e/7KXThgcj577CKUmPEh1qcvWBbjnKaXXat
3+0VZpKSZa2Z2esub6FzPGzPfHewVXmuEmvsgYSOGW7dBnr+FKj9AIjoA3f5LLP7fp+6W4bkyvLG
ZZ62an3foTLxySb/JF35wQ75oCX/InTjAOF9ALaDAI3EB9KLBcB5JGb73aHFmofISmbipI7twK7g
P4jS6uj/u8TeN3jwQHb6DUjwDmH/AEr7BEH/CWD7HdjCBtywDYW/E83MAuKwGpKolp6km6GoZ29h
Sks4f4N+QqPkF5j1HZnwHZnxHpnwHprwH5rxFp3xUafqmZ7Uurnixsb5TV+4SmGqeZDNqbDZjI/C
YGudNUh2K0BuOVCDNUhyOk59NUqDOk59TGBkOk1NM0RALz43P00/VnVuKKDsHZ/yRWXqz4i/tZjw
XaDYb9y7g+64f8HkgeC/cuS/VpjoxTT/tj/0oJj+xJTx5arqcaL2usjF7vntk8PfWZC6c4+raZrd
mbbdrsTKe6bsm7Ph3vn/e7Pwcp7p7ff/nMH4WYr6GFP/H3Hub5H8pbPsstbKosbQ7/t+nb7XTK6D
IOdrAa+7AIq5Ed9jHrOoZpnj6MncuMH6sbjs4Mjlwr3sQaTwHebUJcP+AI3NVcbncqDsrpX/0E/6
tyfyLVT7TIH4a7n8eLL6Z73+VrX/gq/fyOqY0eCPPY7IzthH0t2wnbbbn6nUvrbQhqX1zLTjjZDo
I231L3T/aYr+hqT/hb/8nfz7bKv3JK3cQ/v/DJHzXpbl0//+TqTfc5Dq8fX/VpD/km6NrV9Nbmee
cmey9XVUX6myaJGC4ewqY6G0XoudcZN+LXy/FnbOZoeUPHDKC3niCZr9CoX/AGr2EJr7Fpf6JnnU
3uejgc7iNIWuyrvggGzEME77vxP+gCD6SU7/RK16H6+9AJKpGNN3Fc+OHnDm0onCqJfdRXPbt4XZ
tJXnLHPQkrnuvPL/Mnjkpb/YcKj8A1nyBU//Bj36Dl7uEnzZA9/LAIfeAMKkHN3bKZXTaqlpO6K6
PqG2UpyeSaTLQaTAJJziHJjzHpnvHZrwHpnwHprxH57xGZ/zQprehYy3i5K+x83tpbPtQlymQlmA
T2OHd4CheoedRl18IzRXIDFHIzZRN056M0mANEmATGBoTWBaQFJNOUlDSVdLWnFjLqDfG5n0TW3w
4pvQqZHeZHB5AAAAAAAAAAAAAAAAEBAQZmpuz2r8pnC/AAAAAAAAPz0/us/4AAAAAAAAEBAQnsjj
kKa8Pz9AAAAAAAAAAAAAeHuA2O/1UofCnK2/AAAAAAAAPD1ASHf7YqD3AAAAAAAAAAAAAAAAAAAA
MDAwkrioPet8AJmlCp/PGedqM7CoaHB8AAAAAAAAAAAAAAAAEBAQZWxwW/brB5PaAqrjjOL3AAAA
AAAAd2F/0VT+J071bJb0PD5AAAAAAAAAsrm/AAAAAAAAPj89Z6jW5u2HAAAAAAAAd3h9yMfOAAAA
AAAAbW59UIn2a4O+AAAAAAAAAAAAAAAAPD1Acub/J9nqAn/bo93/st7yJ33Lrcr/3uHrLmj1gl17
uWtZeHGoXlOf629OQ42Wha6g3OYlTIuecZ2wepyHKnq8FnbOZoeVPXHLFIXsEqL/AHP5CXv/E6H/
AHnjR5vn7/iwR5SvWKjR39X6hnTKKUf6tgn/lDT/P0X7Pql2HZ+tCZ20Hdl8Arl5JXbs5JvUkoHH
SHbexZPnnX3QQ4vhz/X/f7TWO4Lm3vj/ZJz7CFv4AEH6DUX+EmLyC3fUAceyA4TaBOHDA8LBGoLA
i8qLWEf/XEr/QTWOHjRiUU7gLIj7Gp3vHpnwHpnwHpnwIJ/xH57xGJz1PoTHiIupiJOuZXi03dr/
XmmyFCRJGyhFP01gVV52OUdsJjNNITE/NEpzQVmRPFGPOE6DV2lzVWVgSFpTRlVMTFdJYHZmL53h
G5n01JHEj5HlkY/if39/AAAAAAAAAAAAAAAAAAAAAAAAr4rJx73+AAAAAAAAQEBA////AAAAAAAA
QEBAz97cjbHmEBAQAAAAAAAAAAAAUFBQiLT6f6XqvL6+AAAAAAAAQEBAX5f+jKf/AAAAAAAAAAAA
AAAAAAAAAAAAUFBQcrfIAKiZEOJ0GKesRLS3f4B/AAAAAAAAAAAAAAAAAAAAAAAAgLnJE4ngCe7W
hdz5AAAAAAAAf3+Acnz/yxXzlJL3QEBAAAAAAAAAv7+/AAAAAAAAQEBA7exxx+LCAAAAAAAAgICA
j4+PAAAAAAAAf3+AYJD9jpu+AAAAAAAAAAAAAAAAQEBAgPP/EIbsMq/glvr/V43kfJ/o5Pj/UYr7
j3KDr1xYYWS3gnGNu2hAVWOxiKCA3+4sQJi+fKtSxtxZZI2dQGzVc4aMGmvjNH+vRpTfHHz/AHXw
Dpz8EIL7LHvd7POoXqzrVICzzt7TcrfrVVH+yxTucS72U07/1BT3WU/qCpemBt91A8WTAIHOJNhu
ipLcM3De0Y3OkZDwOXLQttLtuuX/InPuttDjw+b/KWn9AEH/AEX3DGH5Ck3zCFT1AnjnANaeIc3d
BYrULL+ca+J6PJPoP5btR1iPK2R8NpLUJZzzHZnwHpnwHprwH53wH5/wHJrwG5v1RXeuWV59QFB7
RWCoi5bfanbGIjhoGSU8FB0nHCYxICowLTxCUGWORVyXR1ybQleaRl2BdYCCcHt0VGNYVmNVaG1a
dYl6Kp3nHJrz35zPdnjMlpPmf39/AAAAAAAAgICAMDAwAAAAAAAArZS/u6/+EBAQAAAAAAAAAAAA
AAAAAAAAcHBwwtPRnbvmAAAAAAAAAAAAAAAAQEBAgarpvOP/tbe7AAAAAAAAQEBAYJr+iKD+AAAA
AAAAAAAAr6+vAAAAAAAAQEBAe7fHALusCd1vCJecS8HEf39/AAAAAAAAgICAMDAwAAAAAAAAi6q2
OKvwFPLUf8ntAAAAAAAAf3+AaHH6yBPwkZD5QEBAAAAAAAAAv7+/AAAAAAAAQEBA9PJ4u9a2AAAA
AAAAgICAQEBAAAAAAAAAf3+AX4r7kJ6/AAAAAAAAMDAwsrm+f8vPQcvvDH7cZ+X/Y8r3QnjbuNz8
vtPvNm/2poiXt2NgaWy/c2J+xHJJYnC+nLSV1eQiL4iumMZuvNNQW4WVQW3WdIeNG23lNICwOofT
EG/1Boz/EKD/AG/wRpXu7vWrMX/OhLDi1eXZR4zGQz/tzBTvfz3/Qz760BD1XFHsDqOyBeB1ALSC
BZDeK950dn7IQH3r2ZXWdnTVRX/b1O/6gKrTOYv34/7/hqniFlTrADj/BVL9CV/6AkXtAlD0BIHx
Aey1DbTDAInTO9u5WMxmZZXOZJXOd5DEc5HXZpDTLpnnGpryH5rxH57wH57wHZnwHZnvGZz4QX+o
WVlWZ3edh53geI7hjZ3nan62TVluRU1RTlllY3CCan2nZ3/GSmGnQ1eaU2WYgoybl5ePcn1ybHRn
Zm9glpB2aZCRHZryHpjxg4TtZG/X16zgf3+AAAAAAAAAgICAQEBAAAAAAAAAoZu/zZH+QEBAAAAA
AAAAAAAAAAAAAAAAjI6Of6jbmqCuAAAAAAAAQEBAAAAAAAAAu9r3zvX/nKe4AAAAAAAAQEBAYJf7
gKP0AAAAAAAAAAAAv7+/AAAAAAAAQEBAX9GsDd6EA565ApujVe+Kf3+AAAAAAAAAgICAQEBAAAAA
AAAAi6e3Ke/pIaX4kr7sAAAAAAAAgICA1Er7Yznqa6L5QEBAAAAAAAAAv7+/AAAAAAAAQEBAtcvI
qsfDAAAAAAAAcHBwAAAAAAAAAAAAf3+AYozzkqC+AAAAAAAAQEBAten4X+z/F3f7EMPsRef/H4De
jLHt7f3/JoPhe73bwKbFRVnJwG2BrllhWWG/m4OT1vMoMIvLnLc/yetHRJumKXbCYYKdMW7WNXTL
XoWbI3LXA4PlAKP7BIb7BHT1HLH8VJnpTIPO3+zEcKfdeG/VqUTFbjP5OVP/8AH/PDT/DZGpBORv
DbabDJKpDuNtEq64TW/W7pW9fZHgYXLMvZXXwbf9KXDi29jvj9r+SoDWR3X1CljeCGD1CEL6AE7z
AGPuBtuaG8vgB4rDB8miFd/KKIW/NL+GNcKNLFlJMjArRJ90I6vaHZf2H57wH57wHZrwHZnwHpnv
GpnyKpvenq/IwMDu0c/81tP609X6yMb2u7bqq67ik6Dcf5PVZHvDWm+8UGaxSV2hW2yklJmqvrGk
dHhoYGpeX2pfd3RaQYahGZz6Hpnvb2/Zb3nh3LHlf3+AAAAAAAAAgICAQEBAAAAAAAAAoJq/v3v5
YGBgAAAAAAAAv7+/AAAAAAAAqbCydZ7UnaGnAAAAAAAAQEBAAAAAAAAA0ujvpMj1mqW5AAAAAAAA
QEBAX4/1g6f4AAAAAAAAAAAAv7+/AAAAAAAAQEBAZeC7BNN5AJCrEbK7UOqFf3+AAAAAAAAAgICA
MDAwAAAAAAAAiLnMG+rhFYbkp8PcAAAAAAAAYGBg2Fv+cUf5dKr8QEBAAAAAAAAAr6+vAAAAAAAA
UFBQmrOusc/LAAAAAAAAICAgAAAAAAAAAAAAf3+AZJP6kaC+AAAAAAAAICAggICAZaO1M4j0PvH/
E7TpKYnoyO3/s8PUIH3nr/H/vqTBS1/PrFhtumZtXGXDjneGx+UZJH+/udRdutw5NYyXMn/MXoCa
MG3VNXPLX4WcI3DWB5X1AaT8AnnvEof/CaL3NXrPfLP11+S2SoC4oZz6tVHQfkP/Kkb08QL+S0H/
E5uzC+dyBqWKGaK5DuVvBJmiXn/m9p3EZnrKbX/ZxZ3fhnzKV5/89/P/TJfVbqTlZZL9Cl7nAVnz
ATf8AF34C2/5EPGvAqq/FJDII+a/AL2oKofBT4mqTIqwLj9KJicjVX+FK5zkHZ70Hp7vHZrvHZnv
HprwHZjwHZnvEpfyfrz549795eH85+H85+X76OT+4dv9zMv5m6fsfpLeb4XTan/PX3fFUWewXXG3
kJa1sqeab3NgT1tQVFlKZHxpKZ3cGpn0HprwUm/XzJbOlqLwf39/AAAAAAAAgICAQEBAAAAAAAAA
tZK9w3P3fn6AAAAAAAAAv7+/AAAAAAAAob7Xm77Lfn5/AAAAAAAAQEBAAAAAAAAAs7q/aJXeqbK7
AAAAAAAAQEBAX4v9g6r/AAAAAAAAAAAAv7+/AAAAAAAAQEBAj+O3AJmwCbWAFed0RKjcf39/AAAA
AAAAAAAAAAAAAAAAQEBAcf/jGZfvNbHWhY2OAAAAAAAAEBAQupn7bEb+kKL7QEBAAAAAAAAAAAAA
AAAAICAgvsXDgpyw8/SPAAAAAAAAAAAAAAAAAAAAAAAAf3+AYJv7jpu/AAAAAAAAAAAAAAAAYG98
XN7ySNn9DXXlq8z92ur/JnLfks3c4t7/PXvs0WxbjVhsX2y7lmd9u3NQPoPDlcg+xNdoTImyiqR6
j597M27RUH+pe4OUImveFoLnD5v/A3b/Bnj7EJ7/D3rmXqSt4PnBM5joa52f1OPbWGzccDf/5Ab4
P1DntC7/Uo+kGJPVAKWYC+dsEKioFoq14ZnGTYzncWjbw5bXfYffQXPm1e/xftDwUG3i4uj9X6L6
A1H2AkfzBU7mHVz5F2r1F7vgAIrEANSwF8XiH4ushtZVRYD8RoP6XYvdZY3TV4bqJ5n1HJ/vHZrw
HZnwHpnwHZnwHZnwHZnwGZbwL6HxwtH54t785eL84Nz74d764+H719L4pavtgpHhdojZdojXdoza
Z3vLZXbEhYy8gIN7Ul5OWGFPZHBXQp3FGpz4HJnvHZnvYn/n0pzVh5Tif39/AAAAAAAAgICAQEBA
AAAAAAAAtJG8yXD/npquAAAAAAAAQEBAAAAAEBAQo8rqt9ngYGBgAAAAAAAAn5+fAAAAAAAAlZid
gKnxsry/AAAAAAAAQEBAX5L8gqr/AAAAAAAAAAAAv7+/AAAAAAAAQEBAh9mtAJasHcuXDNdjRqLV
f3+AAAAAAAAAICAgAAAAICAgcHBwa/bZB3zdYOD9UFBQAAAAEBAQAAAAsqPPa0j1hpf1QEBAAAAA
AAAAICAgAAAAAAAAfH59mrPF9PWQAAAAAAAAAAAAICAgAAAAAAAAf3+AYpf4jpq+AAAAAAAAICAg
gICAapa2a/j/E6HlKIvsy+3/nq/ZOob8wfz/rqroImDTw15Mn2t/X2y7iVpwvndUPIHBruFXrL9P
SISupL6Ui5p3NnHVUYCqe4OVIGjcIY7xD5P+AGTyFov/BpX+CnPkj9XdxuCoFnvLntDQwtHTVWnd
XiX/6Ar7Slrxoh36RIGWCoPFArirA+JnApmZK5/K4JjFN3bRhX3uyJvaY23FeKr/2/X8PpDDhaP2
6vD/RYn3A039AETzEF/2EU/wCVvmAZm+B53XEufDAJ+9L52+l+dmY5fLap3OVG6LR1RmZYuxMqLs
GZrxHZnwHZrwHZnxHJnwHpnwHZnwHZnxEpbxb7Tz3tv83dz84t792tP52tb439v60c74rLLxfIvg
dYTYfYzceIjVf4XHhoiqb3txW2RUWlxEQI6xGZ76HJjxHJnwHZnv7qK4VnvupY7cf39/AAAAAAAA
gICAQEBAAAAAAAAAopm8k3D+sYq+AAAAAAAAQEBAAAAAQEBA3O3UwtrmQEBAAAAAAAAAv7+/AAAA
AAAAgICAz+H2s7i/AAAAAAAAQEBAX5v+hqb9AAAAAAAAAAAAv7+/AAAAAAAAQEBAebbRAMd/CN5/
B4PVRcyif4B/AAAAAAAAgICAQEBAAAAAAAAAf6C5JrbTjvj3AAAAAAAAgICAAAAAf3+A6En0gJL5
QEBAAAAAAAAAv7+/AAAAAAAAQEBA8/RoqNHWAAAAAAAAAAAAcHBwAAAAAAAAf3+AX4z3j569AAAA
AAAAQEBApc/1Ye72Q8r6AHjrVNf+ctj/RXbOxNPpuun/PHHtxYJ4cVSKcnSqp3NdomFmQ2XQy842
r9dfOIG/t9EwqNNsN3y5Tn20bYiNHWvlPoKlI4fuCnn3AIf2CZv/AHHyKJna1/XLO3X8lK+lyfLV
Z4vkiS3+zA73MU7wmS//ugr/R0z1BraACeJyCaWmCpiwHuRsR3f5gXTQ2pXTb3D0Wm7c7+3wgLb0
RXvw9f/0a7T4BVf3AETsAVT2B1n/AEL4AFrlAIrPAPCVD7LkAJHCKeCgSsSZhJfPip3VYG5/Kism
f4+xO53tGJjxHZnwHZnwHZnwHJnwHZnwHZnwHJjyFZjyUZvk1s/q3NP2zcPx0cPtx7zv3NX84dz+
0M39oKjxho/Zd4HFeH+2f4OojZKPZ3FgZ2VJUYeXHZz3HJnxHZnwHZnwHpnv7KC2RWrduKLvf39/
AAAAAAAAgICAMDAwAAAAAAAAoJW/e1P34JL6AAAAAAAAMDAwAAAAcHBw5fjassbREBAQAAAAAAAA
v7+/AAAAAAAAUFBQ6Pr+p6y4AAAAAAAAQEBAYJn7g6H4AAAAAAAAAAAAr6+vAAAAAAAAQEBAcLHM
B9ePAM1uAIDSTNyzf39/AAAAAAAAgICAMDAwAAAAAAAAhKC2VOH2i6qpAAAAMDAwr6+vAAAAMDAw
8HL4hpj/QEBAAAAAAAAAr6+vAAAAAAAAQEBA8/RpnsfNAAAAAAAAAAAAv7+/AAAAAAAAf3+AX4r2
kKC/AAAAAAAAMDAwrri+fdzfHpvpGJb2Z+v9NJ3bZpjs6vn/caDQW5Dx4qSRf2KYb3Gnl2NNsG90
TXDa3+NKmMFIPIXDyuRDlcFZNXu3S3qxbIiMG2njQoapFnrhA27rDJr/AIf/AGr2QLPvsM2mKmPv
v9vKqdK2TnLLhir+0hT8PFn9iR/5wRD+UFX4DcqVA95uA5qbG6rBGN9oNmXul4rl2JPRYGHldYrp
3tzzSH7Qf7T/6/flOoPqC17+AEryCV78Ak//AEX9AGLsDqDlB/yiAJPHAKTVK+2uMquAblPhclXi
SlGPJj9fXVO0NorzGZzxHZnwHZnwG5jwG5jxG5jxHJjxHJrxF5vxP6js3NjY4sfGv668z73EsqvN
oqLOnKDCj5i7dIGedX2ReYKSjpWck5iTfX9uaGpNUISJJaDzG5r1HZvxHZvxHZnvHZrwPm78jnnF
07Hmf3+AAAAAAAAAAAAAAAAAAAAAAAAAvJDvsxj5t43/EBAQAAAAAAAAAAAAjY6Mp8rupcHkAAAA
AAAAICAg39/fAAAAAAAAQEBAzOX/lqS4AAAAAAAAQEBAYI38f6b6AAAAAAAAAAAAAAAAAAAAAAAA
aWxtQOOODc2QCI6wCctyR+Ocf3+AAAAAAAAAAAAAAAAAAAAAEBAQdtHaZvP1cHBwAAAAUFBQz8/P
AAAAAAAAna7rf7P8QEBAAAAAAAAAAAAAAAAAAAAAb3BqaKXZydStAAAAAAAAEBAQ////AAAAAAAA
f3+AapH0k5+/AAAAAAAAAAAAAAAAa3l/NJnvKPH1LsL7OnXWyuL3ns7/GnDrxfD1gZ7vZ2SzvmRo
jlWPXWHLx49PmtJhOHnI2OAbmsqERH2uXYKnV3+rJGbqV3urYXi4GGrSA5L2CJ7/AnXoCIfwFaf/
Injko72qseXkQITVopXgl2K5Ukn8lzH21gf3Qkv9DbWLDtSUAJSyAK2dBO1nDIXXhoO82Z/NS3rj
fn+8yafRdY3rUYvw7P/6UZ71cpHTbpL6BVTrAFn/AEP5B1P4FWj7BvekFp3uApaqJN+9EbHYQoui
JqajJ6anJJ6YH5iMJ6SdH5/fHJj0HZnwHZnvI53vI53tH5rvIp3vHp3wIJ/wEpbyXa7ivrSo18Cq
08G2xru3tKikgoF8ZGtkY2pejo5+oaCOqqWQj45zcHpkSJCuH5nwG5XyHpXsHZLqHZTqHpruHp7w
MWH1p5LbyaTdaG56AAAAAAAAAAAAAAAAMDAwhpSom1H/thX+rHf/Pz9AAAAAAAAAAAAAuLuvep/M
eZGuAAAAAAAAPz9A1treAAAAAAAAAAAAoLznh6C+AAAAAAAAOz1AR3f4YJv/AAAAAAAAAAAAAAAA
EBAQYGBghLXKIuWAArp+DJO2F9uCMdOGZW1+AAAAAAAAAAAAAAAAMDAwfpmrPej3TtfaHh8gAAAA
b3F+yrf/AAAAAAAAZ3Kec6z5PD5AAAAAAAAAAAAAAAAAUFBQ1+V3QYrJytinAAAAAAAAW1xg8Nnr
AAAAAAAAbWx/W4f6b4S8AAAAAAAAAAAAAAAAX3B9SrP2Mv3tAJPVbqr31+//X4/TS6H22P//cpDj
YF2ssVdboGehWV3Ht4A/hL1LQILR5u4of65pUou9YoarVn6rI2XpWn6uXHSzKXzkDJ//AITvCHbq
HZz/AYbuJXrnzujVi7/AOn7Iyb31nWjBU0n+iyTt5hf+Q038CLCFBMaFAJKwDL2tAN9YCX7QnZvU
ypC+QnLbmJrWtZO9WHDRksz/1+3rIW7istH8dpn5CVnwAFX+AEP8CFr7FGf4Be2aAH/ZH7nMKeLB
AJO7VJ61laHgmKbmSUtYJyUfcHaaQqX4F5jwHJjxJJ3vUbvlQ67cRrDaRbPcUbnaPq/rGILgEmrH
JWS3XIa1o52az7ee3cGotaaUw7Wmua6dsqySj457eoF7UXSCK3i/GXXUF2XFGmC6Gl66G27KHHXO
IKLzH57wlYO205/XeHX2VbTBe+m+gcrbgNTNi/qiXr7drmD1vhTxcED3cVv31lb8oqj0xsPd6v3a
gbnwcpOyus/FiK/TiLHukKm5YYrihqzY5fP7qc//WIzY5/L0wNr8d6X+YX78HVr8Jm3/X434h67y
rMjI8vGPzNbAh6TCweRBSLikAJC5B8uEFs+SIYDVnMK0wr/5m7H31Mfmz8fwb6jqPc3ZIOL3Iovh
Wdjkfej5ZZHvu0z/zGj7h5v9w1r4hnD0YJz9esD2jM7/f7j8msbW5/F1TYbjqsA3zPBTibnStbTk
3r3ZiZrVlavg98zacZL4IGX7L2L9Z5j9f6/+irP8kc79RaTrQvz7LaH/J4LVrvj8frf4PXrd7+z1
j7v6WG6u5mlIcWOUZXK6vFpjil6FKYmx7+cPar+ZTpl3uNBUap2HEmnsb4CbJ4qvI3DJLpTkM4/9
CnTzBpP+F5T/HGvcwc22t9fyPnXQqsWgre3QT2Trtxv/vhL1Lkz/0h78fVvbI4fAAMR4BdqEAoTQ
LaqP5aLEKXD3kYa0tKHeVXrccabl6vv/UYfoaqXZ6///Spj/C1L+Dzz0FlX2BmHrBmTxC4j5AKaw
Bu7AAKHdJpmbh/VSSoH5TIL4Ok+MN0N1Rme4KZv8HJrwHJjxJqDuU7zoRrLiUrzeUbncYcLYPrDq
GYDfGFKvE1CyDVa4ImCyZJG8ocfNr8rEq87Ml8vLYLjVK26yH2G3GGTDFWPDGWXAFlawHGfDGF+7
GnLMHHnOH6T2H5vwsqDTv4vDY1/mNrS/Csp/AJCxBb6wFelBAIu8jS7nxBP3fEz6UDjoxw7/Tlnz
wLvtze6yPILEncDhts/DNHWzIG7hYYWcM2jYTorQvNf0QX3ZdLH/5PH/XYvOAVj1GD/3EVX/BlX9
AEnzDWbuaZ+g7ewriJt0aI+5yO88QKGOAJvEDtiRArd6Gn/Zibyqe3TkQm7zuqDVinrMIIPsLuf1
ALTKEYXlFej6BbjcLF7dnRfzvyD/MlP+ox7pZErqFG76GZ//CYr3AG33W6zEytgmM3LZwthOtd4r
Ooauk5HoxJa9XnO8cpXq5JmxN2LuA0r5AET8BFv8AFDtCVj5EHzqO7r6KfnoAnXsXLj/pfD+R4DN
ebb49fP/VIDlXXOu3F4+fHCgVWKqu1limGyUOJnB+fUdT6R+X6qJwdhdZpmEEWjrcIGcJomuJXLM
Ko/fH3ruBXf0CJz/An/0L3/v3+vUhqbBTIPY2fPDd7euPVHlqQz9zSL6LEn/wg7ydlTUJYnCDteK
AMl0BYPPRMGl0I2vJW3wqp/LoY3LSG7PqNz6wtPwN27qqeT/x9vjHWrgAEP4GUb9H1/7AFXfAFzp
AHHnA8XPA+O2AI3JQLy/gOpKAY3qAYzqDZbpD5jsCJPnF5fvH5rxHJnxH5vvJqDqLqjsL6nvNKfn
JpzpJJ3qG5HrG4rjHYrjG4HaGoDdD4XmJKLtM63uJqbqMKrtJqT0E4flGX/aHY3oHYTfHIfgG4Pc
HY3mG4rhHZHmHpTnH5zzHZnwAAA=
) );
}
__END__

Re: [perl-win32-gui-users] How to dynamically combine bitmaps in toolbar

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

On 26/08/2007, Robert May <rob...@us...> wrote:
> On 22/08/07, Waldemar Biernacki <wb...@sa...> wrote:
> > Hello everyone!
> >
> > I've found usefull notes on toolbar. However I have not found how to combine
> > different images to get one toolbar. Later on is my code. I have three
> > bitmaps: one, two and both. If you call the script as follows:
> >
> > perl script.pl both
> >
> > then you get two-images toolbar. But if you call
> >
> > perl script.pl whatever
> >
> > then you dont get proper toolbar bitmap (Perl complains that it needs a list
> > and the second addbitmap: $TB->AddBitmap($two, 2); is incorrect.
> >
> > Is someone able to help me and show how to combine inline bitmaps dynamically
> > in toolbar?
>
> Sorry, I don't have time to look at this properly, but it looks to me
> like the code for AddBitmap() is broken - I don't think it should be
> croak()ing if the toolbar already has an imagelist as it should just
> add to the end of the list ...

OK, I've investigated forther, and made a change to
Win32::GUI::Toolbar::AddBitmap(), so that it can be called multiple
times to add bitmaps to the toolbar internal image list.

You can now replace the relavent part of you code with:

if (( $ARGV[0] ) && ( $ARGV[0] eq 'both' )) {
       print $TB->AddBitmap($both, 2), "\n";
} else {
    print $TB->AddBitmap($one, 1), "\n";
    print $TB->AddBitmap($two, 1), "\n";
}

And both paths have the same result.

This fix should make it into the next (1.06) release.

Regards,
Rob.

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

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

On 13/01/2008, Reini Urban <ru...@x-...> wrote:
> [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.

I'll apply your fix.  If you have the time to write a test case that
would be much appreciated.

Thanks,
Rob.

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

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

On 11/01/2008, Michael <mic...@12...> wrote:
> 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.

Enter key processing is a complicated area with Textfields,
particularly when they are used in a DialogBox rather than a main
window.  You did not post any code showing the exact problem you are
having, so I don't know if I'm answering your exact question.  Below
is some code the prints 'Return pressed' every time the enter key is
pressed in the Textfield.

Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI 1.05 qw(CW_USEDEFAULT);

my $mw = Win32::GUI::Window->new(
    -title => "Enter Key and Textfield",
    -left  => CW_USEDEFAULT,
    -size  => [400,300],
);

$mw->AddTextfield(
    -pos       => [10,10],
    -size      => [100,100],
    -multiline => 1,
    -onChar    => \&char,
);

$mw->Show();
Win32::GUI::Dialog();
$mw->Hide();
exit(0);

sub char {
    my ($self, undef, $keyCode) = @_;

    if ($keyCode == 13) {
        print "Return pressed\n";
    }

    return 1;
}
__END__

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

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

On 12/12/2007, a98...@gm... <a98...@gm...> wrote:
> hi rob,
> thanks for your support.
>
> I've created a small working example of my script.

Sorry I took so long to get round to looking at this.  I cut your
script down to be *short* and something that I could run without
having to install lots of other modules.  My script attached below.

I see the problem.  It is only a problem with 'blend' - 'slide' and
'center' work fine.

I don't have time to work out exactly why this is (but suspect it's a
non-trivial interaction with the way AnimateWindow() works and way
DefWindowProc handles the WM_PRINT message).  I've included a simple
work-around in my script - uncomment the extra line in my animate()
function.

How that's useful.
Rob.

#!perl.exe -w
use strict;
use warnings;

use Win32::GUI 1.05 qw( CW_USEDEFAULT );

my $mw = Win32::GUI::Window->new(
    -title       => "Configuration",
    -left        => CW_USEDEFAULT,
    -size        => [ 600, 450 ],
);

$mw->AddTextfield(
    -prompt => [ "Prompt: " , 50 ],
    -text   => "Default Setting",
    -pos    => [10,10],
    -size   => [150, 20],
);

#$mw->Show();
animate($mw);
Win32::GUI::Dialog();
$mw->Hide();
exit(0);

sub animate {
    my ($self) = @_;

    $self->Animate(
        -show      => 1,
        -activate  => 1,
        -animation => "blend",
        -direction => "rl",
        -time      => 400,
    );
    # Add next line to fix problem with 'blend' mode
    #$self->InvalidateRect(0);

    return;
}
__END__

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

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

Ugh.

Once again, I write up another response without completely reading =20
what you're trying to do.

Instead of determining the OS and then using backticks to execute =20
shell/OS specific commands, why don't you use OS independent libraries =20
to manipulate files and directories?  Check out File::Copy or the Perl =20
builtins opendir and readdir (use DirHandle for a more OOP way to do =20
it).  Or you could use "ExtUtils::Command" and keep only the unix =20
style commands.

Thanks,
Charles Alderman



Quoting Charles Alderman <cha...@al...>:

> http://perldoc.perl.org/perlvar.html#$OSNAME
>
> $^O or "use English" and $OSNAME will tell you a little more than what
> you're trying to do.  What you're trying kind of reminds me of how
> 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
> Windows.  But, you can always run your Perl code from the command line
> by explicitly calling perl.  Example: "%> perl myscript.pl".  That
> works no matter the OS you're using.
>
> Under Windows, you can optionally associate files with .pl extensions
> with the perl.exe executable.  That shouldn't be too hard to figure out
> in your windows explorer: just double click a .pl file.  Windows
> associations also work from the command line.  Although, if you're
> running your scripts as cgi scripts under apache on Windows, you can do
> both the shebang line or windows file extension associations.  Just
> check out your apache configuration file....
>
> Just to let you know, your question was posted to mailing list for the
> Win32-GUI module, so it wasn't really topical for this mailing list.
> If you have any other questions regarding running Perl under windows or
> unix, they would be better addressed in a different mailing list.
> Activestate hosts a bunch like perl-win32-users or perl-unix-users.
> 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  =20
>> should  I do it?
>>
>>  Your answers are greatly appreciated.
>>
>>
>>  Thanks,
>>
>>
>>  Gary
>>
>>
>>
>>
>> ---------------------------------
>> Looking for last minute shopping deals?  Find them fast with Yahoo! Searc=
h.

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

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

Gary Yang schrieb:
> 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?

None of you questions are in any way related to this library.
They should be asked at your local perl support group.

$usingUNIX = ^O ne 'MSWin32';

> if ($usingUNIX)
>     {
>     $directory = `ls`;   #UNIX version.
>     $copyCommand = `cp`;   #UNIX version.
>     }
> else
>     {
>     $directory = `dir`;  #Win32 version.
>     $copyCommand = `COPY`;  #Win32 version.
>     }

Use the MakeMaker utils instead:

   perl -MExtUtils::Command -e mv source... destination
   perl -MExtUtils::Command -e cp source... destination

`ls` is usually done via glob() or readdir() / use DirHandle.

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

The unix she-bang works ok on windows if your perl is in the path.

#! perl
is usually used, though the official way is to go through pl2bat for the 
windows version.

> Your answers are greatly appreciated.
> Thanks,
> Gary
-- 
Reini Urban
http://phpwiki.org/  http://murbreak.at/
http://helsinki.at/  http://spacemovie.mur.at/