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

Re: [perl-win32-gui-users] how to have scrollbars in the main-window if it is too small?

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

On 29/08/2007, Robert May <rob...@us...> wrote:
>
> The first article (which only starts to set the scene) can be found at:
> http://blog.robmay.me.uk/2007/08/scrolbars-part-1-scratch-program.html
>
> I'll post more over the next days.  The series will probably run to 12
> or so short articles.

Part 2 is now available at:
http://blog.robmay.me.uk/2007/08/scrolbars-part-2-adding-large-control.html

That finishes setting up the framework. In the next article we'll add
some scrollbars.

regards,
Rob.

Re: [perl-win32-gui-users] how to have scrollbars in the main-window if it is too small?

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

On 28/08/2007, a98...@gm... <a98...@gm...> wrote:
> I want to create a window with some buttons, labels, and textfields.
> but the window is too small - how can I realize working scrollbars?

Scrollbars are quite a complex topic, and I can't do them justice in a
quick response to your email.  I've been thinking about writing a
series of articles explaining them, and how they work ... this seems
like a good opportunity to cross one thing off my todo list.

The first article (which only starts to set the scene) can be found at:
http://blog.robmay.me.uk/2007/08/scrolbars-part-1-scratch-program.html

I'll post more over the next days.  The series will probably run to 12
or so short articles.

Regards,
Rob.

[perl-win32-gui-users] how to have scrollbars in the main-window if it is too small?

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

Hi,

I want to create a window with some buttons, labels, and textfields.
but the window is too small - how can I realize working scrollbars?

I already can the scrollbars but they aren't working ... see my code-snipplet below.

thx
juergen

[snip]
  $main = Win32::GUI::Window->new(
      -name  => 'Main',
      -left => CW_USEDEFAULT,
      -width => 100,
      -height => 100,
      -text   => $cfg{title_string},
      -menu => $cfg{mainmenu},
      -vscroll => 1,
      -hscroll => 1,
      -size        => [800,550],
      -helpbutton  => 0,
      -maximizebox => 0,
      -resizable   => 1,    
      -background => {0x00FF00},
      -foreground => {0x33AABB},
      -dialogui    => 1,
      -accel      => $cfg{accelerator},
      -noflicker => 1,
      -onMinimize => \&toggle_show_state,
      -eventmodel => both,    
      );
[/snip]
-- 
Ist Ihr Browser Vista-kompatibel? Jetzt die neuesten 
Browser-Versionen downloaden: http://www.gmx.net/de/go/browser

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

[<edz...@ve...>]

I'm not sure if I understand correctly, but let's see if this helps.
Basically, I think you want to create an imagelist object.
Alterations to the code below.

----- Original Message -----
From: "Waldemar Biernacki" <wb...@sa...>
To: <per...@li...>
Sent: Wednesday, August 22, 2007 2:15 PM
Subject: [perl-win32-gui-users] How to dynamically combine bitmaps in
toolbar


> 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?
>
> Regards
>
> Waldemar
>
>
> ###########################################################
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use Win32::GUI qw();
> use Win32::GUI::BitmapInline ();
>
> my $one = new Win32::GUI::BitmapInline( q(
> Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAATCwAAEwsAAAAAAAAAAAAA////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAA
> AAAA////////////////////////////////////////////////AAAAAAAA////////////////
> ////////////////////////////////////////AAAAAAAA////////////////////////////
> ////////////////////////////AAAAAAAA////////////////////////////////////////
> ////////////////AAAAAAAA////////////////////////////////////////////////////
> ////AAAAAAAA////////////////////////////////////////////////////////AAAAAAAA
> ////////////////////////////////////////////////////////AAAAAAAA////////////
> ////////////////////////////////////////////AAAAAAAA////////////////////////
> ////////////////////////AAAAAAAAAAAAAAAA////////////////////////////////////
> ////////////////////AAAAAAAA////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////
> ) );
> my $two = new Win32::GUI::BitmapInline( q(
> Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAATCwAAEwsAAAAAAAAAAAAA////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAA
> AAAAAAAA////////////////////////////////AAAAAAAA////////////////////////////
> ////////////////////////////////AAAAAAAA////////////////////////////////////
> ////////////////////////AAAAAAAAAAAA////////////////////////////////////////
> ////////////////////AAAAAAAA////////////////////////////////////////////////
> ////////////AAAAAAAA////////////////////////////////////////////////////////
> ////AAAAAAAA////////////////////////////////////////////////////////AAAAAAAA
> ////////////////////////////AAAAAAAA////////////////////AAAAAAAA////////////
> ////////////////AAAAAAAA////////////////AAAAAAAA////////////////////////////
> ////////AAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////
> ) );
> my $both = new Win32::GUI::BitmapInline( q(
> Qk02BgAAAAAAADYAAAAoAAAAIAAAABAAAAABABgAAAAAAAAGAAATCwAAEwsAAAAAAAAAAAAA////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////AAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////
> AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////////////
> ////AAAAAAAA////////////////////////////////////////////AAAAAAAA////////////
> ////////////////////////////////////////////////////////AAAAAAAA////////////
> ////////////////////////////////////AAAAAAAA////////////////////////////////
> ////////////////////////////////AAAAAAAA////////////////////////////////////
> ////////////////AAAAAAAAAAAA////////////////////////////////////////////////
> ////////AAAAAAAA////////////////////////////////////////////////////////////
> AAAAAAAA////////////////////////////////////////////////////AAAAAAAA////////
> ////////////////////////////////////////////////////////AAAAAAAA////////////
> ////////////////////////////////////AAAAAAAA////////////////////////////////
> ////////////////////////////////////AAAAAAAA////////////////////////////////
> ////////////AAAAAAAA////////////////////////////////////////////////////////
> ////////////AAAAAAAA////////////////////////////////////////////AAAAAAAA////
> ////////////////////////////////////AAAAAAAA////////////////////AAAAAAAA////
> ////////////////////////////////AAAAAAAAAAAAAAAA////////////////////////////
> ////////////AAAAAAAA////////////////AAAAAAAA////////////////////////////////
> ////////////////AAAAAAAA////////////////////////////////////////////AAAAAAAA
> AAAAAAAAAAAAAAAA////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////
> ) );
>
> my $W = Win32::GUI::Window->new(-name=>'W',-size=>[400,400],);
>
my $images = Win32::GUI::ImageList->new( 16, 16, 1, 2, 2 );  #added
> my $TB = $W->AddToolbar(-name=>"Toolbar",);
my $TB = $W->AddToolbar(-name=>"Toolbar",-imagelist=>$images);#changed
>
> $TB->SetBitmapSize(16, 16); #extraneous
#already taken care of, in the imagelist declaration
>
> if (( $ARGV[0] ) && ( $ARGV[0] eq 'both' )) {
> $TB->AddBitmap($both, 1);
$images->AddBitmap($both,1); #changed
> } else {
> $TB->AddBitmap($one, 1);
> $TB->AddBitmap($two, 2);
$images->AddBitmap($one,1); #changed
$images->AddBitmap($two,2); #changed
> }
>
> $TB->AddButtons( 2, 0,0,4,0,0, 1,1,4,0,1, );
>
> $W->Show();
> Win32::GUI::Dialog();
> exit(0);
>

Does that help?
Ed Zarger
AG Aegis Company, Inc.

Re: [perl-win32-gui-users] AddTextField() does not work

[Geoffrey S. <geo...@gm...>]

You want a Textfield, not a TextField.  Perl is case sensitive.

On 8/27/07, a98...@gm... <a98...@gm...> wrote:
> hi,
>
> I'm trying to create a window with a TextField to put text in it.
> in some scripts it works fine.
> but in my main script it doesn't work.
> so I cut down my script to the essential functions (see the attached code=
) - it doesn't work.
> I get the message:
> [snip]
> Can't locate auto/AddTextFiel.al in @INC (@INC contains: C:/Perl588/site/=
lib C:/Perl588/lib .) at test_with_AddTextField.pl line 55
> [/]
>
> Can anybody tell me whats the problem?
> thx
> juergen
>
> [snip]
> use strict;
> no strict qw(subs);
>
> use constant NAME =3D> "Script";
> use constant VERSION =3D> "0.2";
>
> # GUI
> use Win32::GUI 1.05 qw( CW_USEDEFAULT
>                         WM_HOTKEY
>                         VK_J
>                         IDI_DEFAULTICON
>                         MB_OK
>                         MB_ICONHAND
>                         ES_WANTRETURN
>                         WS_CLIPCHILDREN
>                         WS_EX_TOPMOST
>                         );
>
> use Win32::GUI::Constants ();
> use Win32::API();
> use Win32::Sound;
> use Win32::ChangeNotify;
> use Win32::GUI::SplashScreen();
>
> my $main;
> my %config;
> my $mh;
> my $mw;
> my $cfg_window;
> my %cfg;
>
> create_MainWindow();
> $main->Center();
> $main->Show();
> Win32::GUI::Dialog();
>
>
> sub create_MainWindow
> {
>   $main =3D Win32::GUI::Window->new(
>       -name  =3D> 'Main',
>       -left =3D> CW_USEDEFAULT,
>       -width =3D> 100,
>       -height =3D> 100,
>       -text   =3D> "title",
>       #-menu =3D> $cfg{mainmenu},
>       -vscroll =3D> 1,
>       -hscroll =3D> 1,
>       -size        =3D> [800,550],
>       -helpbutton  =3D> 0,
>       -maximizebox =3D> 0,
>   #    -minimizebox =3D> 0,
>       -resizable   =3D> 1,
>       -background =3D> {0x00FF00},
>       -foreground =3D> {0x33AABB},
>       -dialogui    =3D> 1,
>       #-accel      =3D> $cfg{accelerator},
>       -noflicker =3D> 1,
>       #-onMinimize =3D> \&toggle_show_state,
>       -eventmodel =3D> both,
>       );
>
>       my $TF =3D $main->AddTextField(
>         -name =3D> "aaa",
>         -text =3D> "bbb",
>         -pos =3D> [ 50, 50 ],
>
>       );
> }
> [/snip]
> --
> Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen!
> Ideal f=FCr Modem und ISDN: http://www.gmx.net/de/go/smartsurfer
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems?  Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >>  http://get.splunk.com/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


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

[perl-win32-gui-users] AddTextField() does not work

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

hi,

I'm trying to create a window with a TextField to put text in it.
in some scripts it works fine.
but in my main script it doesn't work.
so I cut down my script to the essential functions (see the attached code) - it doesn't work.
I get the message:
[snip]
Can't locate auto/AddTextFiel.al in @INC (@INC contains: C:/Perl588/site/lib C:/Perl588/lib .) at test_with_AddTextField.pl line 55
[/]

Can anybody tell me whats the problem?
thx
juergen

[snip]
use strict;
no strict qw(subs);

use constant NAME => "Script";
use constant VERSION => "0.2";

# GUI
use Win32::GUI 1.05 qw( CW_USEDEFAULT
                        WM_HOTKEY
                        VK_J
                        IDI_DEFAULTICON
                        MB_OK 
                        MB_ICONHAND 
                        ES_WANTRETURN 
                        WS_CLIPCHILDREN 
                        WS_EX_TOPMOST 
                        );

use Win32::GUI::Constants ();
use Win32::API();
use Win32::Sound;
use Win32::ChangeNotify;
use Win32::GUI::SplashScreen();

my $main;
my %config;
my $mh;
my $mw;
my $cfg_window;
my %cfg;

create_MainWindow();
$main->Center();
$main->Show();
Win32::GUI::Dialog();


sub create_MainWindow
{
  $main = Win32::GUI::Window->new(
      -name  => 'Main',
      -left => CW_USEDEFAULT,
      -width => 100,
      -height => 100,
      -text   => "title",
      #-menu => $cfg{mainmenu},
      -vscroll => 1,
      -hscroll => 1,
      -size        => [800,550],
      -helpbutton  => 0,
      -maximizebox => 0,
  #    -minimizebox => 0,
      -resizable   => 1,    
      -background => {0x00FF00},
      -foreground => {0x33AABB},
      -dialogui    => 1,
      #-accel      => $cfg{accelerator},
      -noflicker => 1,
      #-onMinimize => \&toggle_show_state,
      -eventmodel => both,    
      );
      
      my $TF = $main->AddTextField(
        -name => "aaa",
        -text => "bbb",
        -pos => [ 50, 50 ],
        
      );
}
[/snip]
-- 
Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen! 
Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer

Re: [perl-win32-gui-users] PL_memory_wrap...

[Marco H. <mar...@gm...>]

I'm sorry Rob, but I can't do that again. Meanwhile I found in PPM that I could upgrade PAR from 0.9 to 0.976 and Par-Dist from 0.21 to 0.25. So I removed the old packages and installed the new ones. After that I encountered that PAR-0.976 does not include pp anymore. So I installed PAR-Packer as described in their project page. (With perl makefile.pl, nmake, nmake test, nmake install. I had to install MinGW first, never did that before that way...). 'nmake test' delivers some errors, but in spite of that, pp worked after 'nmake install'.
So now I don't have that problems with Win32::GUI() and pp anymore.

> My suspicion is that the version of PAR you have installed is built
> against a perl prior to perl 5.8.7(? if I remember correctly thiswas
> when PL_memory wrap was introduced).
Yes, I think you are right with your suspicion. That could be, but I'm not sure. Next time I will wait for your advices.

Thanks a lot. Regards,
Marco



-------- Original-Nachricht --------
> Datum: Mon, 27 Aug 2007 08:15:03 +0530
> Von: "Robert May" <rob...@us...>
> An: "marco hofmann" <mar...@gm...>
> CC: per...@li...
> Betreff: Re: [perl-win32-gui-users] PL_memory_wrap...

> On 27/08/07, marco hofmann <mar...@gm...> wrote:
> > As script the report is:
> >
> > Can't call method "VERSION" on an undefined value at perlversion.pl line
> 2.
> 
> Sorry, that should have been:
> 
> print "$]\n";
> print ActivePerl->VERSION(), "\n";
> 
> Can you try again - if I got it right this time, the second line
> should print the ActivePerl build number.
> 
> My suspicion is that the version of PAR you have installed is built
> against a perl prior to perl 5.8.7(? if I remember correctly thiswas
> when PL_memory wrap was introduced).
> 
> (Really we should be building Win32::GUI against an older perl too,
> but 1.05 was built against 5.8.7.)
> 
> Regards,
> Rob.

-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

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

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

Thank you Robert!,

I tried to do this imageList instead, however documentation is not clear=20
enough for me... :(

Temporaly solution is making a serial independent Buttons.

Thanks again,

Waldemar


Dnia niedziela, 26 sierpnia 2007 13:21, Robert May napisa=B3:
> 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 ...
>
> Have you tried using an ImageList instead?
>
> I'll be back home in a week or so, and have some examples there if you
> still haven't got anywhere.
>
> Regards,
> Rob.

Re: [perl-win32-gui-users] PL_memory_wrap...

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

On 27/08/07, marco hofmann <mar...@gm...> wrote:
> As script the report is:
>
> Can't call method "VERSION" on an undefined value at perlversion.pl line 2.

Sorry, that should have been:

print "$]\n";
print ActivePerl->VERSION(), "\n";

Can you try again - if I got it right this time, the second line
should print the ActivePerl build number.

My suspicion is that the version of PAR you have installed is built
against a perl prior to perl 5.8.7(? if I remember correctly thiswas
when PL_memory wrap was introduced).

(Really we should be building Win32::GUI against an older perl too,
but 1.05 was built against 5.8.7.)

Regards,
Rob.

Re: [perl-win32-gui-users] PL_memory_wrap...

[marco h. <mar...@gm...>]

As script the report is:

Can't call method "VERSION" on an undefined value at perlversion.pl line 2.
5.008008

and the pp packed exe reports:

Can't call method "VERSION" on an undefined value at
script/perlversion.pl line 2.
5.008

I think I get the versions of PAR and pp from the ActiveState Repository.

Regards,
Marco

Robert May schrieb:
> On 24/08/07, Marco Hofmann <mar...@gm...> wrote:
>> I have problems with pp and win32::gui() package. If I pack
>> a script containing only the line
>>
>> use Win32::GUI();
>>
>> with
>>
>> pp -o test.exe test.pl
>>
>> I get the error message, when starting test.exe:
>>
>> The procedure entry point "PL_memory_wrap" can't be located in
>> DLL"perl58.dll"
> 
> Where did you get your version of PAR and pp from, and what version of
> perl was it built against?
> 
> Create a script that prints the perl version:
> 
> print "$]\n";
> print $ActivePerl->VERSION(), "\n";
> 
> and report what it says when run as a script using your current perl,
> and as a pp packed exe.
> 
> Regards,
> Rob.
> 

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

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

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

Have you tried using an ImageList instead?

I'll be back home in a week or so, and have some examples there if you
still haven't got anywhere.

Regards,
Rob.

Re: [perl-win32-gui-users] PL_memory_wrap...

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

On 24/08/07, Marco Hofmann <mar...@gm...> wrote:
> I have problems with pp and win32::gui() package. If I pack
> a script containing only the line
>
> use Win32::GUI();
>
> with
>
> pp -o test.exe test.pl
>
> I get the error message, when starting test.exe:
>
> The procedure entry point "PL_memory_wrap" can't be located in
> DLL"perl58.dll"

Where did you get your version of PAR and pp from, and what version of
perl was it built against?

Create a script that prints the perl version:

print "$]\n";
print $ActivePerl->VERSION(), "\n";

and report what it says when run as a script using your current perl,
and as a pp packed exe.

Regards,
Rob.

[perl-win32-gui-users] PL_memory_wrap...

[Marco H. <mar...@gm...>]

Hi all,
I have problems with pp and win32::gui() package. If I pack a script containing only the line

use Win32::GUI();

with 

pp -o test.exe test.pl

I get the error message, when starting test.exe:

The procedure entry point "PL_memory_wrap" can't be located in DLL"perl58.dll"

DOS window outputs:

Can't load 'C:\DOKUME~1\MHOFFM~1\LOKALE~1\Temp\par-mhofmann\cache-1187959330\3e0cf77d.dll' for module Win32::GUI: load_file:Die angegebene Prozedur wurde nicht gefunden at D:/cpanrun/build/5-8-0/lib/DynaLoader.pm line 229.
 at ../blib/lib/PAR/Heavy.pm line 107
Compilation failed in require at script/test.pl line 10.
BEGIN failed--compilation aborted at script/test.pl line 10.

Is that a problem of Win32::GUI or PAR or something else? I use XP and the latest ActivePerl 5.8.8 Build 822.

Thanks for help,
Regards,
Marco


-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

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

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

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?

Regards

Waldemar


###########################################################
#!/usr/bin/perl

use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::BitmapInline ();

my $one = new Win32::GUI::BitmapInline( q(
Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAATCwAAEwsAAAAAAAAAAAAA////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAA
AAAA////////////////////////////////////////////////AAAAAAAA////////////////
////////////////////////////////////////AAAAAAAA////////////////////////////
////////////////////////////AAAAAAAA////////////////////////////////////////
////////////////AAAAAAAA////////////////////////////////////////////////////
////AAAAAAAA////////////////////////////////////////////////////////AAAAAAAA
////////////////////////////////////////////////////////AAAAAAAA////////////
////////////////////////////////////////////AAAAAAAA////////////////////////
////////////////////////AAAAAAAAAAAAAAAA////////////////////////////////////
////////////////////AAAAAAAA////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////
) );
my $two = new Win32::GUI::BitmapInline( q(
Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAATCwAAEwsAAAAAAAAAAAAA////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA////////////////////////////////AAAAAAAA////////////////////////////
////////////////////////////////AAAAAAAA////////////////////////////////////
////////////////////////AAAAAAAAAAAA////////////////////////////////////////
////////////////////AAAAAAAA////////////////////////////////////////////////
////////////AAAAAAAA////////////////////////////////////////////////////////
////AAAAAAAA////////////////////////////////////////////////////////AAAAAAAA
////////////////////////////AAAAAAAA////////////////////AAAAAAAA////////////
////////////////AAAAAAAA////////////////AAAAAAAA////////////////////////////
////////AAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////
) );
my $both = new Win32::GUI::BitmapInline( q(
Qk02BgAAAAAAADYAAAAoAAAAIAAAABAAAAABABgAAAAAAAAGAAATCwAAEwsAAAAAAAAAAAAA////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////AAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////////////
////AAAAAAAA////////////////////////////////////////////AAAAAAAA////////////
////////////////////////////////////////////////////////AAAAAAAA////////////
////////////////////////////////////AAAAAAAA////////////////////////////////
////////////////////////////////AAAAAAAA////////////////////////////////////
////////////////AAAAAAAAAAAA////////////////////////////////////////////////
////////AAAAAAAA////////////////////////////////////////////////////////////
AAAAAAAA////////////////////////////////////////////////////AAAAAAAA////////
////////////////////////////////////////////////////////AAAAAAAA////////////
////////////////////////////////////AAAAAAAA////////////////////////////////
////////////////////////////////////AAAAAAAA////////////////////////////////
////////////AAAAAAAA////////////////////////////////////////////////////////
////////////AAAAAAAA////////////////////////////////////////////AAAAAAAA////
////////////////////////////////////AAAAAAAA////////////////////AAAAAAAA////
////////////////////////////////AAAAAAAAAAAAAAAA////////////////////////////
////////////AAAAAAAA////////////////AAAAAAAA////////////////////////////////
////////////////AAAAAAAA////////////////////////////////////////////AAAAAAAA
AAAAAAAAAAAAAAAA////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
) );

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

my $TB = $W->AddToolbar(-name=>"Toolbar",);

$TB->SetBitmapSize(16, 16);

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

$TB->AddButtons( 2, 0,0,4,0,0, 1,1,4,0,1, );

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

Re: [perl-win32-gui-users] How to print text in COLOR in Textfield

[Jason P. <jp...@da...>]

To do this you will not be able to make use of the standard multi-line text
field. If you wanted all messages in the field to be of one color this would
be fine, however, to have multiple colors in the field you will need to make
use of the RichEdit control. Beware of dependancies on older systems :-)

 

  _____  

From: per...@li...
[mailto:per...@li...] On Behalf Of
Maxmelbin Neson (RBIN/EMT1)
Sent: Wednesday, August 22, 2007 6:16 AM
To: per...@li...
Subject: [perl-win32-gui-users] How to print text in COLOR in Textfield

 

 

Hello All, 

I have a multiline Textfield which acts as my output console. 

$main = Win32::GUI::Window->new(-name => 'Main', 
                                -text => 'Perl Win32 GUI', 
                                -width => 550, 
                                -height => 660, 
                                -maximizebox => 0, 
                                 ); 

$outputText  = $main->AddTextfield( 
               -name =>"outputTextField", 
               -width => 500, 
               -height => 290, 
               -left   => 20, 
               -top    => 290, 
               -readonly => 0, 
               -multiline => 1, 
               -vscroll =>1, 
               -hsscroll => 1, 
                ); 

 

Now I want to print the messages in this text filed in different colours .. 
Like . 

$outputText->Append("The list file $opt_list is invalid.\r\n"); 

How can I print in some color say Red . 
Or should I use something else? 

Thanks and Regards 
Maxmelbin Neson 
----------------------------------------------------------------------------
------------------------------------- 
Robert Bosch India Limited 
Engineering Services - DS - Methods and Tools (RBIN/EMT1) 
123 Industrial Layout  -  Hosur Road -  Bangalore 560 095  -  INDIA 
Telephone: +91 80 6657-4532      Fax: +91 80 6657-1404 
max...@in... 
 <file:///\\www.bosch.com> www.bosch.com 

 

[perl-win32-gui-users] How to print text in COLOR in Textfield

[Maxmelbin N. (RBIN/EMT1) <Max...@in...>]

Hello All,

I have a multiline Textfield which acts as my output console.

$main =3D Win32::GUI::Window->new(-name =3D> 'Main',
                                -text =3D> 'Perl Win32 GUI',
                                -width =3D> 550,
                                -height =3D> 660,
                                -maximizebox =3D> 0,
                                 );

$outputText  =3D $main->AddTextfield(
               -name =3D>"outputTextField",
               -width =3D> 500,
               -height =3D> 290,
               -left   =3D> 20,
               -top    =3D> 290,
               -readonly =3D> 0,
               -multiline =3D> 1,
               -vscroll =3D>1,
               -hsscroll =3D> 1,
                );


Now I want to print the messages in this text filed in different colours
..
Like ...

$outputText->Append("The list file $opt_list is invalid.\r\n");=20

How can I print in some color say Red ...
Or should I use something else?

Thanks and Regards
Maxmelbin Neson
------------------------------------------------------------------------
-----------------------------------------
Robert Bosch India Limited
Engineering Services - DS - Methods and Tools (RBIN/EMT1)
123 Industrial Layout  -  Hosur Road -  Bangalore 560 095  -  INDIA
Telephone: +91 80 6657-4532	 Fax: +91 80 6657-1404
max...@in...
www.bosch.com

Re: [perl-win32-gui-users] Actions not firing in Win32GUI

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

Hi,

For some reason I can't see the attached code, but I think I know what is going on. You are using the Old Event Model (OEM) which always assumes the event hndlers are in the main package space. To fix your problem prefix each event handler with :: or use the NEM (new event model).

Cheers,

Jeremy

--Original Message-----
From: "Maxmelbin Neson (RBIN/EMT1)" <Max...@in...>
To: "per...@li..." <per...@li...>
Sent: 22/08/07 07:20
Subject: [perl-win32-gui-users] Actions not firing in Win32GUI


Hello All,

I have a small perl win32 file which generates a GUI window, which
worked pretty fine.
Now, I converted it into a .pm file and called it from an other .pl fie.
The GUI still come up OK, but the actions are not firing .

The main code in the new setup is ..

BEGIN
{
    $0 =~ /^(.*)[\\\/][^\\\/]*$/;

    $path = $1 ? $1 : ".";

    unshift(@INC, $path);
}

use strict;
use ChviewGUI;

my $cwd = `cd`;
chomp($cwd);

&ChviewGUI::gui($cwd);

And the ChviewGUI.pm is attached here.
 <<ChviewGUI.pm>> 

Why is the actions not firing in this case ?
Thanks in advance for any help.

Thanks and Regards
Maxmelbin Neson
------------------------------------------------------------------------
-----------------------------------------
Robert Bosch India Limited
Engineering Services - DS - Methods and Tools (RBIN/EMT1)
123 Industrial Layout  -  Hosur Road -  Bangalore 560 095  -  INDIA
Telephone: +91 80 6657-4532	 Fax: +91 80 6657-1404
max...@in...
www.bosch.com

Re: [perl-win32-gui-users] FindWindow and SendMessage

[tk102 <kci...@ya...>]

Perl Rob wrote:
> 
> I'm attempting to close a window using the FindWindow() and SendMessage()
> functions as documented in MSDN. I can't get it to work, so I was
> wondering
> if anyone might help me see what's wrong with my code:
> 
> use Win32::API;
> my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'P' );
> my $sendMessage = Win32::API->new( 'user32', 'SendMessage', 'PIIN', 'P' );
> my $windowToClose =
> $findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");
> $sendMessage->Call($windowToClose,"WM_CLOSE",0,0);
> 
I see you've already answered your own question regarding the use of
Win32::GUI over Win32::API, but FTR, if you wanted to use Win32::API the
syntax would be

use Win32::API;

my $WM_CLOSE=16;  # you must assign this value manually
my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'N' );
my $sendMessage_lParam_as_number = Win32::API->new( 'user32', 'SendMessage',
'NNNN', 'N' );
my $sendMessage_lParam_as_stringpointer = Win32::API->new( 'user32',
'SendMessage', 'NNNP', 'N' );
my $windowToClose =
$findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");
$sendMessage_lParam_as_number->Call($windowToClose,$WM_CLOSE,0,0);

-- 
View this message in context: http://www.nabble.com/FindWindow-and-SendMessage-tf4274735.html#a12258679
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] FindWindow and SendMessage

[Perl R. <pe...@co...>]

Well, I answered my own question, so I thought I'd post the answer in case
it helps someone else who wants to close a window in this manner. Turns out
I had to create a quoted word list and add WM_CLOSE to it (as a part of my
"use Win32::GUI" line):

 

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

 

use Win32::GUI qw( WM_CLOSE );

 

my $tray = Win32::GUI::FindWindow("PGPtray_Hidden_Window
","PGPtray_Hidden_Window");

Win32::GUI::SendMessage($tray,WM_CLOSE,0,0);

 

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

 

To be perfectly honest, I don't understand *why* that fixed the problem, but
it did. I couldn't get any windows to close until I did that-now I can close
any window (that allows it) by finding its handle and sending it the
WM_CLOSE message.

 

-Rob

 

  _____  

From: Perl Rob [mailto:pe...@co...] 
Sent: Wednesday, August 15, 2007 5:06 PM
To: 'Win32 GUI Users Mailing List'
Subject: RE: FindWindow and SendMessage

 

D'oh!

 

I just saw that FindWindow() and SendMessage() are both listed in the
"Common Methods" of the ActivePerl documentation. I apologize that I didn't
RTFM before posting!

 

However, I can't figure out how to properly call the SendMessage() method.
It requires an object reference, but how can I create an object reference to
a window that isn't mine?

 

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

 

use Win32::GUI;

 

my $windowToClose =
Win32::GUI::FindWindow("PGPtray_Hidden_Window","PGPtray_Hidden_Window"); #
This is a window started by another application

$windowToClose->Win32::GUI::SendMessage("WM_CLOSE",0,0); # This fails
because $windowToClose is not an object reference.

 

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

 

Thanks,

Rob

 

  _____  

From: Perl Rob [mailto:pe...@co...] 
Sent: Wednesday, August 15, 2007 12:17 PM
To: 'Win32 GUI Users Mailing List'
Subject: FindWindow and SendMessage

 

Hi all,

 

I'm attempting to close a window using the FindWindow() and SendMessage()
functions as documented in MSDN. I can't get it to work, so I was wondering
if anyone might help me see what's wrong with my code:

 

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

 

use Win32::API;

 

my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'P' );

my $sendMessage = Win32::API->new( 'user32', 'SendMessage', 'PIIN', 'P' );

 

my $windowToClose =
$findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");

$sendMessage->Call($windowToClose,"WM_CLOSE",0,0);

 

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

 

In particular, I'm not sure whether I'm specifying the correct parameters
for each method. (Should the parameters for FindWindow() be 'PP', with a
return value of 'P'? And should the parameters for SendMessage() be 'PIIN',
with a return value of 'P'?)

 

Thanks in advance,

Rob

Re: [perl-win32-gui-users] FindWindow and SendMessage

[Perl R. <pe...@co...>]

D'oh!

 

I just saw that FindWindow() and SendMessage() are both listed in the
"Common Methods" of the ActivePerl documentation. I apologize that I didn't
RTFM before posting!

 

However, I can't figure out how to properly call the SendMessage() method.
It requires an object reference, but how can I create an object reference to
a window that isn't mine?

 

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

 

use Win32::GUI;

 

my $windowToClose =
Win32::GUI::FindWindow("PGPtray_Hidden_Window","PGPtray_Hidden_Window"); #
This is a window started by another application

$windowToClose->Win32::GUI::SendMessage("WM_CLOSE",0,0); # This fails
because $windowToClose is not an object reference.

 

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

 

Thanks,

Rob

 

  _____  

From: Perl Rob [mailto:pe...@co...] 
Sent: Wednesday, August 15, 2007 12:17 PM
To: 'Win32 GUI Users Mailing List'
Subject: FindWindow and SendMessage

 

Hi all,

 

I'm attempting to close a window using the FindWindow() and SendMessage()
functions as documented in MSDN. I can't get it to work, so I was wondering
if anyone might help me see what's wrong with my code:

 

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

 

use Win32::API;

 

my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'P' );

my $sendMessage = Win32::API->new( 'user32', 'SendMessage', 'PIIN', 'P' );

 

my $windowToClose =
$findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");

$sendMessage->Call($windowToClose,"WM_CLOSE",0,0);

 

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

 

In particular, I'm not sure whether I'm specifying the correct parameters
for each method. (Should the parameters for FindWindow() be 'PP', with a
return value of 'P'? And should the parameters for SendMessage() be 'PIIN',
with a return value of 'P'?)

 

Thanks in advance,

Rob

[perl-win32-gui-users] FindWindow and SendMessage

[Perl R. <pe...@co...>]

Hi all,

 

I'm attempting to close a window using the FindWindow() and SendMessage()
functions as documented in MSDN. I can't get it to work, so I was wondering
if anyone might help me see what's wrong with my code:

 

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

 

use Win32::API;

 

my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'P' );

my $sendMessage = Win32::API->new( 'user32', 'SendMessage', 'PIIN', 'P' );

 

my $windowToClose =
$findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");

$sendMessage->Call($windowToClose,"WM_CLOSE",0,0);

 

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

 

In particular, I'm not sure whether I'm specifying the correct parameters
for each method. (Should the parameters for FindWindow() be 'PP', with a
return value of 'P'? And should the parameters for SendMessage() be 'PIIN',
with a return value of 'P'?)

 

Thanks in advance,

Rob

[perl-win32-gui-users] Method for Clicking Menu Items?

[Veli-Pekka <vt...@ma...>]

Hi,
Is there a method I can call to programmatically click a menu item? I'm
planning on calling it in the Ctrl+N handler in my accelerator table. 

Menus do have onClick handlers that seem to work OK for me, but when I
try to execute a click method on a menu item when I know its name, I get
an error like this:

Can't locate object method "Click" via package "Win32::GUI::MenuItem"
...

My Win32::GUI version is 1.05 created 08 Nov 2006

I guess I could call the underlying subs that my menu items call, but
I'd rather have the keyboard control the UI, in stead. Its highly useful
for push buttons, for instance. As the hotkey pushes the button, the
user gets visual feedback and also as a screne reader user, I get
notified of the focus and button state change accordingly. is it
slightly "unorthodox" to click menus in hotkey handlers like that, in
staed of activating the underlying function? As a user I've always
disliked the fact that nothing visual happens when I save using the hot
key. SO I press alt+f, s in stead, and then the screen reader tells me
the file menu opens and closes confirming that something in deed
happened. Part of my desire to try the programmatic clicking of menu
items, too, would be to give this kind of visual feedback, even when the
hotkeys are used.
 
Any help appreciated. I've read through the docs on all menu related
controls and browsed through the Notepad example with no luck so far.
Most of the menu events have not been documented yet, I guess. My menu
is made with the highly useful, undocumented function
Win32::GUI::MakeMenu.


-- 
With kind regards Veli-Pekka Tätilä (vt...@ma...)
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila

Re: [perl-win32-gui-users] Timer not being fired when using threads

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

Robert May schrieb:
> On 02/08/07, Brian Fredette <bfr...@gm...> wrote:
>> Thanks for the explanation.  Now that you mentioned it I recall reading
>> somewhere OEM versus NEM.  Guess I forgot about that.  Thats what I get for
>> using old code without deeper reading.
> 
> No problem.  Reading may not have got you very far - there is notably
> little documentation on the NEM (IIRC none in the official docs).

There are some testcases in
t/05_Timer_01_OEM.t
t/05_Timer_02_NEM.t
t/05_Timer_03_Interval.t
t/05_Timer_04_Kill.t
t/05_Timer_05_DESTROY.t

-- 
Reini

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

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

On 26/06/07, Robert May wrote:
> On 26/06/07, Glenn Linderman wrote:
> > On 6/26/2007 10:57 AM, Perl Rob wrote:
> >
> > > I'm using Win32::GUI::BitmapInline and I have just one problem with
> > > it: the requirement that my script have write access to the current
> > > directory.
>
> Indeed.  If you were to implement a solution that worked generally,
> then we could apply it to the core distribution, and everyone could
> benefit. (There's an outstanding bug report about this)

That's tracker number: 1586643
http://sourceforge.net/tracker/index.php?func=detail&aid=1586643&group_id=16572&atid=116572

> Personally I'd use File::Temp if it is installed on the users system,
> falling back to the current directory (or perhaps $ENV{TEMP} or
> $ENV{TMP} if they exist).  File::Temp goes to a lot of trouble to find
> a writable directory in a suitable (system specific) tmp location.

Turns out File::Temp is only in the Core Perl distribution since 5.8.?
an d we need a solution that works with 5.6.1

So I'm using File::Spec->tmpdir() to get a writable tmp directory.

While I'm at it I'm going to make the module thread-safe (it's
currently possible to use it from 2 threads, and get the same tmp
filename in each case - that would cause problems.

I'll also add some tests.

I've got a trial version available - anyone interested in having a
copy and trying it out - I've only got very limited access to machines
where I don't have write permissions in all the directories?  If so,
drop me a note.

> > On the other hand, if it is possible to avoid writing the temporary
> > file, that would be an even better solution. I think it would be,
> > although I haven't figured out all the details.
>
> It's certainly doable, but significantly harder - it'd require some XS
> stuff to be written either in Win32::GUI::Bitmap or
> Win32::GUI::BitmapInline.

I keep forgetting that we have Win32::GUI::DIBitmap in the
distribution now.  What do people think about the overhead of pulling
in Win32::GUI::DIBitmap in order to avoid having to write a temporary
file?

Regards,
Rob.

Re: [perl-win32-gui-users] Timer not being fired when using threads

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

On 02/08/07, Brian Fredette <bfr...@gm...> wrote:
> Thanks for the explanation.  Now that you mentioned it I recall reading
> somewhere OEM versus NEM.  Guess I forgot about that.  Thats what I get for
> using old code without deeper reading.

No problem.  Reading may not have got you very far - there is notably
little documentation on the NEM (IIRC none in the official docs).

Regards,
Rob.