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

RE: Re[2]: [perl-win32-gui-users] desktop

[Frazier, J. J. <Joe...@Pe...>]

if ("LST" =3D~ /[qt|et1|et2|si|rlt]/i)  means the same as

if ("LST" =3D~ /[qtet1et2sirlt|]/i);  The pipe(|) character has no =
special
meaning INSIDED [bracketed] regex, so basically, this regex matches any
character in the list if it is anywhere in the string to be searched.
As max stated, putting () around the characters would be the correct way
to do the regex.  That is, unless you always want the if statement to
return false.

From perlre:=20

    Also remember that "|" is interpreted as a literal within square
    brackets, so if you write `[fee|fie|foe]' you're really only
    matching `[feio|]'.



Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
su...@pe...



> -----Original Message-----
> From: Max Kozlov [mailto:max...@te...]
> Sent: Friday, March 30, 2001 6:05 AM
> To: Eoi...@de...
> Subject: Re[2]: [perl-win32-gui-users] desktop
>=20
>=20
> Hello Eoin,
>=20
> Friday, March 30, 2001, you wrote:
>=20
> Edc>   if ("LST" =3D~ /[qt|et1|et2|si|rlt]/i)
> =20
> Edc> Can Anybody Tell Me Why the expression above is matching.
> Edc> According to everything I've read it shouldn't.=20
> Edc> I'm going soft again ....
> Edc> Any help would be greatly appriciated
>=20
>  if ("LST" =3D~ /(qt|et1|et2|si|rlt)/i)
>=20
>  feel the difference ;-)
>=20
> Best regards,
>  Max                            mailto:max...@te...
>=20
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

Re: [perl-win32-gui-users] Building a HOWTO for Win32-GUI

[Erick J. B. <er...@je...>]

| About the (numerous) [TBD]s in the doku
I'm sorry Harald, it's probably just me, but what is "the doku"? The modules pakage?

erick
never stop questioning
www.jeb.ca

Re[2]: [perl-win32-gui-users] desktop

[Max K. <max...@te...>]

Hello Eoin,

Friday, March 30, 2001, you wrote:

Edc>   if ("LST" =~ /[qt|et1|et2|si|rlt]/i)
 
Edc> Can Anybody Tell Me Why the expression above is matching.
Edc> According to everything I've read it shouldn't. 
Edc> I'm going soft again ....
Edc> Any help would be greatly appriciated

 if ("LST" =~ /(qt|et1|et2|si|rlt)/i)

 feel the difference ;-)

Best regards,
 Max                            mailto:max...@te...

RE: [perl-win32-gui-users] desktop

[<Eoi...@de...>]

Anyone ...... 
 
  if ("LST" =~ /[qt|et1|et2|si|rlt]/i) 
 
Can Anybody Tell Me Why the expression above is matching.
According to everything I've read it shouldn't. 
I'm going soft again ....
Any help would be greatly appriciated
Rgds  Eoin: 

mailto:Eoi...@de... <mailto:Eoi...@de...>  

 
 

RE: [perl-win32-gui-users] Building a HOWTO for Win32-GUI

[Piske, H. <Har...@bo...>]

Erick,

About the (numerous) [TBD]s in the doku - at least the one I have.
I was wondering if it was a good idea to just point to the dokus on the
msdn. For instance, I wanted to set up an ImageList and needed to know what
to put in the FLAG parameter. It took me a couple of minutes to locate the
page. If there was a link to

http://msdn.microsoft.com/library/devprods/vs6/visualc/vcmfc/_mfc_cimagelist
.3a3a.create.htm

in the doku, that would work - at least until the msdn undergoes a rework.
Quoting the doku is not permitted (see the msdn terms of use), so the
alternative would be to read it and then write it from memory, which is
annoying and time-consuming.

Just a thought.
Harald

RE: [perl-win32-gui-users] tk or win32:gui builder

[<Chr...@ti...>]

ActiveState

-----Original Message-----
From: Jeremy Aiyadurai [mailto:bc...@te...]
Sent: Thursday, March 29, 2001 11:14 AM
To: per...@li...
Subject: [perl-win32-gui-users] tk or win32:gui builder


I heard that there is a tk or win32:gui builder plugin for the (visual
studio) Visual Basic ide.
which one is it for,(tk or win32:Gui) and where can i find download it.

Jeremy


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] tk or win32:gui builder

[Jeremy A. <bc...@te...>]

I heard that there is a tk or win32:gui builder plugin for the (visual
studio) Visual Basic ide.
which one is it for,(tk or win32:Gui) and where can i find download it.

Jeremy

Re: [perl-win32-gui-users] desktop

[Jonathan S. <jso...@al...>]

Harold,

Thanks!!! I think that will work well enough for me.

Jonathan
  ----- Original Message -----=20
  From: Piske, Harald=20
  To: 'per...@li...'=20
  Sent: Wednesday, March 28, 2001 5:46 PM
  Subject: RE: [perl-win32-gui-users] desktop


  Hi Jonathan.
  =20
  I found a way - not exactly easy, probably far from perfect, but it =
works. I hide all windows - walking backwards through the chain of =
desktop children, to avoid making each active just before hiding it. =
Then I cover the background with a big, fat, ugly, black rectangle and =
show my own window. Note I restore all the hidden stuff in END{}. =
Otherwise, if your program dies, you'll end up with a perfectly =
invisible OS. On the other hand, that might avoid a few annoying windows =
faults ...
  =20
  Have fun
  Harald
  =20
  use Win32::GUI;
  use Win32::API;

  BEGIN
  {
   undef $blank;
   undef @hidden;
   $CreateWindowEx =3D new Win32::API ('user32', $_ =3D =
'CreateWindowEx',
    [N,P,P,N,I,I,I,I,I,I,I,P], I) or die $_;
   $ShowWindow =3D new Win32::API ('user32', $_ =3D 'ShowWindow', [I, =
I], I)
    or die $_;
   $DestroyWindow =3D new Win32::API ('user32', $_ =3D 'DestroyWindow', =
[I], I)
    or die $_;
  }
  END
  {
   $ShowWindow->Call ($_, 8) for @hidden;
   $DestroyWindow->Call ($blank) if $blank;
   undef $CreateWindowEx;
   undef $DestroyWindow;
   undef $ShowWindow;
  }
  $Main =3D new Win32::GUI::Window (-name =3D> 'Main',
   -pos =3D> [100, 100], -size =3D> [400, 300]);
  sub Main_Terminate {-1}
  $Main->AddLabel (-name =3D> $_ =3D 'All alone!',
   -text =3D> $_, -pos =3D> [160, 110]);
  $desktop =3D $Main->GetDesktopWindow ();
  $_ =3D Win32::GUI::GetWindow ($desktop, GW_CHILD);
  $_ =3D Win32::GUI::GetWindow ($_, GW_HWNDLAST);
  do {
   if (Win32::GUI::IsVisible ($_)) {
    push @hidden, $_;
    $ShowWindow->Call ($_, 0);}
  } while $_ =3D Win32::GUI::GetWindow ($_, GW_HWNDPREV);
  @area =3D Win32::GUI::GetWindowRect ($desktop);
  $blank =3D $CreateWindowEx->Call (0, $_ =3D 'STATIC', '',=20
   0x5C000004, @area, $desktop, 0, 0, 0) or die $_;
  $Main->Show ();
  Win32::GUI::Dialog ();

    -----Original Message-----
    From: Jonathan Southwick [mailto:jso...@al...]
    Sent: Wednesday, March 28, 2001 10:31
    To: per...@ht...
    Subject: [perl-win32-gui-users] desktop


    Is there any way to blackout the desktop (as a screensaver would) =
using the GUI module?  I still want to be able to show my own windows I =
create in my program.

    Jonathan Southwick
    Technical & Network Services
    Allegheny College, Meadville, PA
    jso...@al...

Re: [perl-win32-gui-users] ListView disappearing

[Jonathan S. <jso...@al...>]

Erick,

Hey, thanks for letting me know what you did to correct it so that I don't
make the same mistake in the future.  I was racking my brain trying to
figure out what was wrong.

Jonathan

----- Original Message -----
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Wednesday, March 28, 2001 2:37 PM
Subject: [perl-win32-gui-users] ListView disappearing


> I posted a message a while back saying that I had a problem when I tried
to resize the
> columns in a ListView, the data (ie. that which was in the listview
control) would
> disappear. Well, I isolated the problem. This only occurs if you create a
label that
> covers the whole window. (The reason why I created this label was to get a
desired
> background color.) Long and the short, if you want to do this, you have to
declare the
> (background)label AFTER the the ListView control, as the window is
updated, the Listview
> gets hidden (well, all, except the columns).
>
> Thanks anyways Johnathan.
>
> erick
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] Looping Question

[Piske, H. <Har...@bo...>]

| Win32::GUI? I have several sleeps in my loop and I want the 
| rest of the gui
| script to be accessible while this part is "asleep". Any suggestions?

Hi Thomas

The basic knack is
Win32::GUI::DoEvents() while Win32::GUI::PeekMessage(0,0,0);

You can call this even from inside an event. Here's a complete example,
taking care of avoiding restarting the busy loop before it completed, and of
aborting the busy loop when the program terminates.

have fun,
Harald

use Win32::GUI;

$Main = new Win32::GUI::Window (-name => 'Main',
	-pos => [100, 100], -size => [400, 300]);
sub Main_Terminate {-1}

$Main->AddButton (-name => $_ = 'Click',
	-text => $_, -pos => [160, 80]);
sub Click_Click {$Main->MessageBox ("Don't do that")}

$Main->AddButton (-name => $_ = 'Busy',
	-text => $_, -pos => [160, 120]);
sub Busy_Click
{
	return 0 if $busy++;
	for ($i = 0; $i < 1e5; $i++)
	{
		print "$i\r";
		while (Win32::GUI::PeekMessage(0,0,0))
		{
			return -1 if Win32::GUI::DoEvents() < 0;
		}
	}
	$busy = 0;
}

$Main->Show ();
Win32::GUI::Dialog ();

RE: [perl-win32-gui-users] desktop

[Piske, H. <Har...@bo...>]

Hi Jonathan.
 
I found a way - not exactly easy, probably far from perfect, but it works. I
hide all windows - walking backwards through the chain of desktop children,
to avoid making each active just before hiding it. Then I cover the
background with a big, fat, ugly, black rectangle and show my own window.
Note I restore all the hidden stuff in END{}. Otherwise, if your program
dies, you'll end up with a perfectly invisible OS. On the other hand, that
might avoid a few annoying windows faults ...
 
Have fun
Harald
 
use Win32::GUI;
use Win32::API;
 
BEGIN
{
 undef $blank;
 undef @hidden;
 $CreateWindowEx = new Win32::API ('user32', $_ = 'CreateWindowEx',
  [N,P,P,N,I,I,I,I,I,I,I,P], I) or die $_;
 $ShowWindow = new Win32::API ('user32', $_ = 'ShowWindow', [I, I], I)
  or die $_;
 $DestroyWindow = new Win32::API ('user32', $_ = 'DestroyWindow', [I], I)
  or die $_;
}
END
{
 $ShowWindow->Call ($_, 8) for @hidden;
 $DestroyWindow->Call ($blank) if $blank;
 undef $CreateWindowEx;
 undef $DestroyWindow;
 undef $ShowWindow;
}
$Main = new Win32::GUI::Window (-name => 'Main',
 -pos => [100, 100], -size => [400, 300]);
sub Main_Terminate {-1}
$Main->AddLabel (-name => $_ = 'All alone!',
 -text => $_, -pos => [160, 110]);
$desktop = $Main->GetDesktopWindow ();
$_ = Win32::GUI::GetWindow ($desktop, GW_CHILD);
$_ = Win32::GUI::GetWindow ($_, GW_HWNDLAST);
do {
 if (Win32::GUI::IsVisible ($_)) {
  push @hidden, $_;
  $ShowWindow->Call ($_, 0);}
} while $_ = Win32::GUI::GetWindow ($_, GW_HWNDPREV);
@area = Win32::GUI::GetWindowRect ($desktop);
$blank = $CreateWindowEx->Call (0, $_ = 'STATIC', '', 
 0x5C000004, @area, $desktop, 0, 0, 0) or die $_;
$Main->Show ();
Win32::GUI::Dialog ();


-----Original Message-----
From: Jonathan Southwick [mailto:jso...@al...]
Sent: Wednesday, March 28, 2001 10:31
To: per...@ht...
Subject: [perl-win32-gui-users] desktop


Is there any way to blackout the desktop (as a screensaver would) using the
GUI module?  I still want to be able to show my own windows I create in my
program.
 
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
jso...@al... <mailto:jso...@al...> 

[perl-win32-gui-users] Looping Question

[Thomas, T. B <tim...@lm...>]

I have a Win32::GUI script that needs to loop. I tried using a timer =
for
each instance of the loop, but it doesn't always take the same amount =
of
time for each time through. I had this as a command line program and =
just
put the whole thing in a while (1=3D=3D1). How can I do the same thing =
with
Win32::GUI? I have several sleeps in my loop and I want the rest of the =
gui
script to be accessible while this part is "asleep". Any suggestions?
	Thanks,
		Tim

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------

[perl-win32-gui-users] ListView disappearing

[Erick J. B. <er...@e-...>]

I posted a message a while back saying that I had a problem when I tried to resize the
columns in a ListView, the data (ie. that which was in the listview control) would
disappear. Well, I isolated the problem. This only occurs if you create a label that
covers the whole window. (The reason why I created this label was to get a desired
background color.) Long and the short, if you want to do this, you have to declare the
(background)label AFTER the the ListView control, as the window is updated, the Listview
gets hidden (well, all, except the columns).

Thanks anyways Johnathan.

erick
never stop questioning
www.jeb.ca

[perl-win32-gui-users] desktop

[Jonathan S. <jso...@al...>]

Is there any way to blackout the desktop (as a screensaver would) using =
the GUI module?  I still want to be able to show my own windows I create =
in my program.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
jso...@al...

[perl-win32-gui-users] Missing tutorials 6,7,8?

[Erick J. B. <er...@e-...>]

Aldo,
    Is there a reason why the tutorials jump from 5 to 9. I guess the 9 is upside down ;-)

regards,

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] Win32::GUI FAQ

[Aldo C. <da...@pe...>]

fel...@fr... wrote:
> Hello Aldo
> in order to get started, where can I find the most up-to-date
> WIN32::GUI documentation version? I probably have a very
> outdated one on my PC.

I'll send it to you.

> And a second question, is there any model FAQ document you
> recommend as a basis? Otherwise, I would just take the
> "perlfaq.html" document of the core perl documentation as a
> basis and adopt it. Is that fine for you?

completely fine.


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] Building a HOWTO for Win32-GUI

[Aldo C. <da...@pe...>]

Erick J. Bourgeois wrote:
> Aldo,
>
>     I was wondering if it was ok if I use the tutorials, which
> come with the Win32-GUI, and build an online (and obviously
> off-line) HOWTO? You could distribute the HOWTO with the module.
> Let me know what you think.

God bless you :-)
it's incredibly ok with me!

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

[perl-win32-gui-users] Building a HOWTO for Win32-GUI

[Erick J. B. <er...@e-...>]

Aldo,

    I was wondering if it was ok if I use the tutorials, which come with the Win32-GUI,
and build an online (and obviously off-line) HOWTO? You could distribute the HOWTO with
the module. Let me know what you think.

regards,

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] to erick

[Martin S. <mse...@ho...>]

try ppm install libwww-perl. net::ftp is a subset of it.

If that dosesn't work your ppm configuration is hosed...

----- Original Message -----
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Monday, March 26, 2001 6:09 AM
Subject: Re: [perl-win32-gui-users] to erick


> | was trying to run your ftp client. I can't seem to install the net:ftp
on
> | a win32 activestate perl. where can i find a net:ftp that will install
on
> | win32 . it seems that all modules i get from cpan, i don't know how to
> | install them.
>
>     When I install modules from CPAN, I use the 'nmake' utility instead of
>     the 'make' utility. I have yet to have a problem. I got it from some
>     obscure link at Microsoft. I don't remember the actual link, but I
could
>     send you the needed files (2 of them) directly to you (34.7 KB zip).
>
> | P.S. i am working on an ftp client as well, using the win32:internet
> | module, as i could not install the net:ftp, but i like the net:ftp
module
> | better (more functions).
>
>     I don't know about win32:internet module, but Net::FTP is OOP, it's
easy.
>
> | I like your site.
>
>     Thanks a lot, at least there somebody out there that has seen it, and
>     I'm not doing all of this for nothing :)
>
> erick
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Using both protocols fo AddHyperlink

[Piske, H. <Har...@bo...>]

| that is, put the http after the mailto, then it will always 
| open a the http, for both. It
| falls through and the first one is ignored. 

you must have unique names for the controls. In the sample code, they're
both named "test". The second redefines the first.

[perl-win32-gui-users] Using both protocols fo AddHyperlink

[Erick J. B. <er...@e-...>]

I have a problem when I use both protocols, for the Hyperlink module, one after the other.
The following example will open a the mailto always, for both. And when I switch them,
that is, put the http after the mailto, then it will always open a the http, for both. It
falls through and the first one is ignored. I tried looking at the hyperlink module, but 
I don't see anything wrong. Any thoughts?

# Script #
use Win32::GUI;
use Win32::GUI::HyperLink;

my $Window = new Win32::GUI::Window(
    -title => 'Win32::GUI::HyperLink demo',
    -pos => [ 100, 100 ],
    -size => [ 150, 100 ],
    -name => 'Window',
);
$Window->AddHyperLink(
    -text => "dada's perl lab",
    -name => "test",
    -pos => [ 25, 15 ],
    -url => "http://dada.perl.it",
);
$Window->AddHyperLink(
    -text => "email dada's perl lab",
    -name => "test",
    -pos => [ 25, 35 ],
    -url => "mailto:dada\@perl.it",
);
$Window->Show();
Win32::GUI::Dialog();

sub Window_Terminate {
    return -1;
}
# EOF #

erick
never stop questioning
www.jeb.ca

[perl-win32-gui-users] Exiting Dialog()

[Johan L. <jp...@bo...>]

I bumped into a little problem yesterday and before figuring out the, 
probably, correct way of exiting the Win32::GUI::Dialog() event loop by 
returning -1 from an event handler routine, I created this little hack to 
do it for me.

Now my question is if my way is a bad, evil thing or perhaps a clever way 
of using an undocumented feature :)

Here is the code (probably with weird line breaks):


=head1 CONSTANTS

=head2 WM_EXITLOOP
	
Custom message to exit from the Dialog() sub.
	
=cut
use constant WM_APP	=> 0x8000;		#From winuser.h (Visual Studio)
use constant WM_EXITLOOP => WM_APP + 1;	#From GUI.xs


=head1 ROUTINES

=head2 exitDialog($winSomewindow)

Exit from the Win32::GUI::Dialog event loop.

$winSomewindow -- A Win32::GUI window object we can send the
WM_EXITLOOP message to.

Return 1 on success, else 0.

=cut
sub exitDialog {
	my ($winSomewindow) = @_;

	$winSomewindow->PostMessage(WM_EXITLOOP, -1, 0);

	return(1);
	}


Now, if this is in fact a healthy thing to do, is there any way of 
"broadcasting" it into the eventloop so I don't have to provide a window 
object?

And if this is a good thing, is there any hope of seeing this merged into 
Win32::GUI? Right now it lives in my very private Win32::GUI::AdHoc module.


/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

Re: [perl-win32-gui-users] Nonblocking sockets?

[Johan L. <jp...@bo...>]

[I'm looking through the archives and found quite a few interesting posts]

Ludvig af Klinteberg didn't get any response on this question:
 >This may not be a straight Win32::GUI question, but I think
 >it might concern those who write networking Perl scripts
 >with a UI for win32. The question is simple: how to make a
 >socket nonblocking in Perl on Windows? The usual
 >fcntl($sock,F_SETFL,O_NONBLOCK) does apparently not work, so
 >what to do? I have a vague memory of some hackish parameters
 >that could do the trick, but I don't remember what...

Check out this thread at PerlMonks:
http://www.perlmonks.org/index.pl?node_id=65814&lastnode_id=3989


/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

Re: [perl-win32-gui-users] to erick

[Jeremy A. <bc...@te...>]

>    
>    When I install modules from CPAN, I use the 'nmake' utility instead of 
>    the 'make' utility. I have yet to have a problem. I got it from some
>    obscure link at Microsoft. I don't remember the actual link, but I could
>    send you the needed files (2 of them) directly to you (34.7 KB zip).

thanx erick,

if you can send it to me, (bc...@te...) it would be appreciated.
also if you can show me how to use nmake to install it on activestate perl,
i will appreciate it.


Jeremy

Re: [perl-win32-gui-users] Tab Strip best practices?

[Johan L. <jp...@bo...>]

Laurent wrote:
>I have made some packages for easy handle tabstrip.
>I use a container object for each page and hide/show it.

Arghh!

I didn't read mail during the weekend and ended up writing my own little 
class: Win32::GUI:TabStripGroup

Oh, well... :)


>You can download it at :
>http://perso.club-internet/rocherl/TabPanel.zip
>http://perso.club-internet/rocherl/TabFrame.zip

Great, I'll look into that, thanks!

To the rest of you, please note that the correct URL (one Google search 
later) is:
http://perso.club-internet.fr/rocherl/TabPanel.zip


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...