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

[perl-win32-gui-users] Win32-GUI Installation

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

Guys/galls..
I am behind a firewall and can't install from the net using PPM , the only
way I can install is to download it and install it Locally,





C:\>ppm
PPM interactive shell (2.1.2) - type 'help' for available commands.
PPM> install --location=c:/ win32-gui
Install package 'win32-gui?' (y/N): y
Installing package 'win32-gui'...
Can't find unicode character property definition via main->e or e.pl at
unicode/
Is/e.pl line 0

-----Original Message-----
From: tho...@ba... [mailto:tho...@ba...]
Sent: 30 January 2001 09:47
To: - *per...@li...
Subject: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation


Hello,

I installed Win32-GUI 0.0.502 via PPM successfully but would like to use
0.0.558. Running "make" failed with both Borland's and Dev-C++'s
"make":

C:\Perl\Win32-GUI-0.0.558>\borland\bcc55\bin\make
MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
Fatal makefile 799: No terminator specified for in-line file operator

C:\Perl\Win32-GUI-0.0.558>\dev-c++\bin\make
Makefile:303: *** missing separator.  Stop.

C:\Perl\Win32-GUI-0.0.558>

Any ideas?

best regards,
Thomas

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

[perl-win32-gui-users] Checkbox properties

[Joel O. <a94...@du...>]

Hello all,
It's possible to make something like this (to get a checked box):
$WD->AddCheckbox(-text=>'&Company',-name=>'Company',-left=>8,-top=>18,
-width=>68,-height=>15,-Checked=>1);

I'm trying to avoid:
$WD->AddCheckbox(-text=>'&Company',-name=>'Company',-left=>8,-top=>18,
-width=>68,-height=>15,-Checked=>1);
$WD->Company->Checked(1);

Thanks,

	Joel Oliveira

--------------------------------------------

Recall: [perl-win32-gui-users] Win32-GUI Installation

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

Butler, Eoin would like to recall the message, "[perl-win32-gui-users]
Win32-GUI Installation".

Antwort: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Instal

[<tho...@ba...>]

No, it is not but WinNT but as Aldo pointed out I am using the wrong compiler...

Thomas

[perl-win32-gui-users] a win32 RASE question

[christopher s. <chr...@ya...>]

hi all

Please tell me if this question is totally off topic here .
If it is , can anyone suggest a suitable mailing list for this question
I thought since the finest win32 api minds hang out here I would post it =
here

The code is taken from the actual example
---------------------------------------------------------------------

$|=3D1;
use Win32::RASE;

print "\nI'm dialing via the first RAS entry: $first_RAS_entry\n\n";

($UserName, $Password) =3D RasGetUserPwd($first_RAS_entry)
 or die Win32::RASE::FormatMessage;

print "UserName:";
!$UserName ? chomp($UserName=3D<>) : print "$UserName\n";

print "Password:";
!$Password ? chomp($Password=3D<>) : print "$Password\n";


$hrasconn =3D RasDial($first_RAS_entry, undef , $UserName, $Password)
 or die Win32::RASE::FormatMessage;

#($err, $status) =3D RasDial("CLICK", "DP 110-6511" , $UserName, =
$Password,undef,undef)
# or die Win32::RASE::FormatMessage;

print "Connected, \$hrasconn=3D$hrasconn\n";
print "\n\n------next line---\n\n";


#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D don't edit under this =
line =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
sub FindOpenedFolders () {
# returns array of hwnd's of the opened folders
  my $findAfter =3D 0;
  my @folders;
  $FindWindowEx ||=3D new Win32::API("user32", "FindWindowEx", =
[N,N,P,P], N);

  while($findAfter =3D $FindWindowEx->Call(0, $findAfter, =
"CabinetWClass", 0)) {
     push @folders, $findAfter;
  }

  $findAfter =3D 0;
  while($findAfter =3D $FindWindowEx->Call(0, $findAfter, =
"ExploreWClass", 0)) {
     push @folders, $findAfter;
  }
  @folders;
}

sub CloseWindow ($) {
# arg - hwnd
  $PostMessage ||=3D new Win32::API("user32", "PostMessage", [N,N,N,N], =
I);
  $WN_CLOSE =3D 0x10;

  $PostMessage->Call(shift, $WN_CLOSE, 0, 0);
}

BEGIN {
  require Win32::API;

  unless ($hwnd =3D (FindOpenedFolders())[0]) {
    system 'start explorer /n,C:\\';
    $start_time =3D time;
    while (!($hwnd =3D (FindOpenedFolders())[0]) && $start_time+3 < =
time) {}

    $hwnd or die "Could not open C:\\ window\n";
    $hwnd_opened =3D 1;
  }

  $first_RAS_entry =3D (RasEnumEntries())[0]
    or die "No one RAS entry were found\n";
}

END { CloseWindow($hwnd) if $hwnd_opened }



The above code when run , starts dialing right away ...

but I want  sample codes for=20

1)  invoking the default original  windows  DUN dialog .
2)  to check  whether the user is connected to the internet
3) to disconnet from internet

any help will be greatly appreciated

or should I use any other perl module ?


chris
www.perl-resume.com

Re: [perl-win32-gui-users] Combobox in a listview?

[David H. <dh...@wh...>]

  Related to this - is there a way to allow editing of a listview cell?

  Sort of like in spreadsheet.

  David Hiltz


> I don't think there is a way to do that.  I would recommend that you =
> test what has been selected in the listbox and if the desired item is =
> selected, then display (or enable) a combobox based on that selection.
> 
> Jonathan Southwick
> Technical & Network Services
> Allegheny College, Meadsville, PA
> jso...@al...
>   ----- Original Message -----=20
>   From: Erick J. Bourgeois=20
>   To: per...@li...=20
>   Sent: Tuesday, January 30, 2001 4:47 PM
>   Subject: [perl-win32-gui-users] Combobox in a listview?
> 
> 
>   Is there a way to add a combobox to a listview, that is, let one of =
> the elements be a combobox?
>   =20
>   erick
>   never stop questioning
>   www.jeb.ca
> 
> ------=_NextPart_000_013C_01C08ADE.108F1840
> Content-Type: text/html;
> 	charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable
> 
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
> <HTML><HEAD>
> <META content=3D"text/html; charset=3Diso-8859-1" =
> http-equiv=3DContent-Type>
> <META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
> <STYLE></STYLE>
> </HEAD>
> <BODY bgColor=3D#ffffff>
> <DIV><FONT face=3DArial size=3D2>Erick,</FONT></DIV>
> <DIV>&nbsp;</DIV>
> <DIV><FONT face=3DArial size=3D2>I don't think there is a way to do=20
> that.&nbsp;&nbsp;I would recommend that you&nbsp;test what has been =
> selected in=20
> the listbox and if the desired item is selected, then display (or =
> enable) a=20
> combobox based on that selection.</FONT></DIV>
> <DIV>&nbsp;</DIV>
> <DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical &amp; =
> Network=20
> Services<BR>Allegheny College, Meadsville, PA<BR><A=20
> href=3D"mailto:jso...@al...">jso...@al...</A></FONT><=
> /DIV>
> <DIV><FONT face=3DArial size=3D2>
> <BLOCKQUOTE=20
> style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
> 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
>   <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
>   <DIV=20
>   style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
> black"><B>From:</B>=20
>   <A href=3D"mailto:er...@e-..." title=3D...@e-...>Erick J. =
> Bourgeois</A>=20
>   </DIV>
>   <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
>   href=3D"mailto:per...@li..."=20
>   =
> title=3Dp...@li...>perl-win32-gui-users@l=
> ists.sourceforge.net</A>=20
>   </DIV>
>   <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, January 30, 2001 =
> 4:47=20
>   PM</DIV>
>   <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> [perl-win32-gui-users] =
> Combobox=20
>   in a listview?</DIV>
>   <DIV><BR></DIV>
>   <DIV><FONT color=3D#000080 face=3DArial size=3D2>Is there a way to add =
> a combobox to=20
>   a listview, that is, let one of the elements be a =
> combobox?</FONT></DIV>
>   <DIV><FONT color=3D#000080 face=3DArial size=3D2></FONT>&nbsp;</DIV>
>   <DIV><FONT color=3D#000080 face=3DArial size=3D2>erick<BR>never stop=20
>   questioning<BR><A=20
> href=3D"http://www.jeb.ca">www.jeb.ca</A></FONT></DIV></BLOCKQUOTE></FONT=
> ></DIV></BODY></HTML>
> 
> ------=_NextPart_000_013C_01C08ADE.108F1840--
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Re: [perl-win32-gui-users] Combobox in a listview?

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

Erick,

I don't think there is a way to do that.  I would recommend that you =
test what has been selected in the listbox and if the desired item is =
selected, then display (or enable) a combobox based on that selection.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...
  ----- Original Message -----=20
  From: Erick J. Bourgeois=20
  To: per...@li...=20
  Sent: Tuesday, January 30, 2001 4:47 PM
  Subject: [perl-win32-gui-users] Combobox in a listview?


  Is there a way to add a combobox to a listview, that is, let one of =
the elements be a combobox?
  =20
  erick
  never stop questioning
  www.jeb.ca

[perl-win32-gui-users] Combobox in a listview?

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

Is there a way to add a combobox to a listview, that is, let one of the =
elements be a combobox?

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

[Sam <sa...@se...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

which OS are you running? (ie is it that ugly 9x?)

> Hello,
> 
> I installed Win32-GUI 0.0.502 via PPM successfully but would like to use
> 0.0.558. Running "make" failed with both Borland's and Dev-C++'s
> "make":
> 
> C:\Perl\Win32-GUI-0.0.558>\borland\bcc55\bin\make
> MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
> Fatal makefile 799: No terminator specified for in-line file operator
> 
> C:\Perl\Win32-GUI-0.0.558>\dev-c++\bin\make
> Makefile:303: *** missing separator.  Stop.
> 
> C:\Perl\Win32-GUI-0.0.558>
> 
> Any ideas?
> 
> best regards,
> Thomas
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 



-----BEGIN PGP SIGNATURE-----
Version: N/A

iQA/AwUBOnaMJJsRND2Z+TaWEQKzJACgy1y5bVzRelx88Dc//vRNbmC+w3sAoJ6I
TJ9VOPKVFHfcrD2juPn52RTb
=t+Tq
-----END PGP SIGNATURE-----

Sam Jacobson
R & D Manager / Software Engineer
Selective Communications
Ph +64 9 302 1142
www.selective.co.nz

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

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

pau...@or... wrote:
> Hi Aldo
>
> I've created a zip file containing a ppd of 0.0.558 which I've
> tested on a clean build of ActiveState 5.6.0 Build 623. The
> package installs fine and when I run perl -MWin32::GUI -e
> "print Win32::GUI::Version" gives 0.0.558.
>
> I haven't tested it further than that but if you let me know
> the best way to get it to you I'll happily pass it on.

you can e-mail it to me (NOT THE LIST, me PERSONALLY :-).
I'll give it a look and if everything is fine, I'll put it on
SourceForge, and you will probably become the "PPM man"
for now and ever more ;-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

[<pau...@or...>]

Hi Aldo

I've created a zip file containing a ppd of 0.0.558 which I've tested on a clean
build of ActiveState 5.6.0 Build 623. The package installs fine and when I run
perl -MWin32::GUI -e "print Win32::GUI::Version" gives 0.0.558.

I haven't tested it further than that but if you let me know the best way to get
it to you I'll happily pass it on.

Cheers

Paul



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

[<fel...@mo...>]

Hello all,

I was also able to build ( and install ) 0.0.558 with Visual C++ version 6.0 and
using ActiveState Perl 5.6 build 623.     I used a few of my scripts to test
this version and it appears that it's working fine.    I'm going to test some
more but, to me, everything looks good.

Felice




pau...@or... on 01/30/2001 09:16:02 AM

Please respond to per...@li...

To:   per...@li...
cc:    (bcc: Felice Vittoria/Aut/Schneider)
Subject:  Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation






Hi

Might be a silly question but did you do perl Makefile.PL first ?

I have built and installed 0.0.558  today with Visual C++ version 6 with no
problems.

perl Makefile.PL
nmake
nmake install

If someone knows where there is documentation on how to build a PPD file for PPM
I would be happy to help ?
(Although I know Aldo perhaps didn't want a PPM yet ?)


Cheers

Paul



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

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

Antwort: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Instal

[<tho...@ba...>]

Yes, "perl makefile.pl" produced a makefile of 23.483 bytes size.

Thomas

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

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

pau...@or... wrote:
> If someone knows where there is documentation on how to build a PPD
> file for PPM I would be happy to help ?
> (Although I know Aldo perhaps didn't want a PPM yet ?)

take a look at http://jenda.krynicky.cz

basically, you need:

nmake ppd

then with a tar utility make a tarball of the blib directory,
then gzip'it, then edit the PPD file and add the name of the
.tar.gz file you produced... quite a bit of work :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

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

tho...@ba... wrote:
> Hello,
>
> I installed Win32-GUI 0.0.502 via PPM successfully but would like
> to use 0.0.558. Running "make" failed with both Borland's and
> Dev-C++'s "make":
>
> C:\Perl\Win32-GUI-0.0.558>\borland\bcc55\bin\make
> MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
> Fatal makefile 799: No terminator specified for in-line file
> operator
>
> C:\Perl\Win32-GUI-0.0.558>\dev-c++\bin\make
> Makefile:303: *** missing separator.  Stop.

to correctly build a module, most of the times (if not always)
you should have built the Perl executable with the same compiler
you want to use to build the module.

this is because ExtUtils::MakeMaker uses a lot of information
from the Config module, which is built together with Perl.
your Perl binary is probably instructed to build a Makefile
which is not suitable for either Borland's or Dev-C++'s needs.

you can try to manually patch Config.pm and specify your
compiler, libraries, include paths, and so on, but it's
probably simpler if recompile Perl instead :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation

[<pau...@or...>]

Hi

Might be a silly question but did you do perl Makefile.PL first ?

I have built and installed 0.0.558  today with Visual C++ version 6 with no
problems.

perl Makefile.PL
nmake
nmake install

If someone knows where there is documentation on how to build a PPD file for PPM
I would be happy to help ?
(Although I know Aldo perhaps didn't want a PPM yet ?)


Cheers

Paul



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

Re: [perl-win32-gui-users] a tabstrip question

[christopher s. <chr...@ya...>]

oops sorry I asked the question and answered it too

$ModuleWindow->Tab->Select(0);

works like a charm !

chris
www.perl-resume.com


----- Original Message ----- 
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Tuesday, January 30, 2001 4:57 PM
Subject: [perl-win32-gui-users] a tabstrip question


to put it very simply

$current_tab = $ModuleWindow->Tab->SelectedItem();

Now how to force the script to choose a particular tab

Im intending to do something like

$ModuleWindow->Tab->SelectedItem(0);

where 0 is the tabindex

or something like

$ModuleWindow->Tab->Select(0);

anybody has ideas ?

chris
www.perl-resume.com




_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com


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



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

[perl-win32-gui-users] a tabstrip question

[christopher s. <chr...@ya...>]

to put it very simply

$current_tab = $ModuleWindow->Tab->SelectedItem();

Now how to force the script to choose a particular tab

Im intending to do something like

$ModuleWindow->Tab->SelectedItem(0);

where 0 is the tabindex

or something like

$ModuleWindow->Tab->Select(0);

anybody has ideas ?

chris
www.perl-resume.com




_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

[perl-win32-gui-users] Win32-GUI 0.0.558 Installation

[<tho...@ba...>]

Hello,

I installed Win32-GUI 0.0.502 via PPM successfully but would like to use
0.0.558. Running "make" failed with both Borland's and Dev-C++'s
"make":

C:\Perl\Win32-GUI-0.0.558>\borland\bcc55\bin\make
MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
Fatal makefile 799: No terminator specified for in-line file operator

C:\Perl\Win32-GUI-0.0.558>\dev-c++\bin\make
Makefile:303: *** missing separator.  Stop.

C:\Perl\Win32-GUI-0.0.558>

Any ideas?

best regards,
Thomas

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

[Laurent R. <ro...@cl...>]

From: "Aldo Calpini"

> fixed, the new release is available on CVS.

    Thank you.
    I compile it and test some script. It work very well now.

> if you are not familiar with CVS you can download the updated
> GUI.xs from:
> 
> http://cvs.sourceforge.net/cgi-bin/cvsweb.cgi/?cvsroot=perl-win32-gui


    I'm trying to install CVS but i have config problem.
    I have download some documentation and need to read it now ;o)


Laurent.

Re: [perl-win32-gui-users] Column lists

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

Erick J. Bourgeois wrote:
> Has anyone tried using the "column lists"? For example, the "Find"
> program in the Start menu, has a list of files found under the
> column "Name" and another column "In Folder". Another interesting
> thing about these controls is that if you click on those tabs
> (eg. "Name"), each item will be sorted accordingly. (What is the
> real name for these controls?)

the listview.pl sample shows how to use multiple columns in a
ListView. basically, you use InsertColumn to prepare the columns,
then InsertItem to fill the first column, followed by SetItem(s)
to fill the remaining columns.
the ListView control has a ColumnClick event that can be used
to sort (manually, eg. with Perl :-) the list content.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Richedit Copy

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

Jonathan Southwick wrote:
> I have some text in a Richedit object.  I'd like to be able to
> copy any text that I select but it doesn't work.  Is there
> sojmething special I have to do?

what do you mean by copy? in the clipboard?
if so, you need the Win32::Clipboard module.

cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

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

Laurent ROCHER wrote:
> It's probably the GetWindowLong call before a SetWindowLong.
> The first message is a WM_GETMINMAXINFO and not a WM_CREATE.

fixed, the new release is available on CVS.
if you are not familiar with CVS you can download the updated
GUI.xs from:

http://cvs.sourceforge.net/cgi-bin/cvsweb.cgi/?cvsroot=perl-win32-gui


cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

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

Laurent ROCHER wrote:
> Error: Runtime exception
>
> It's probably the GetWindowLong call before a SetWindowLong.
> The first message is a WM_GETMINMAXINFO and not a WM_CREATE.

yes, probably something with the PerlObject not initialized
correctly. I'll look into it, thanks for pointing this out! :-)

cheers,
Aldo

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

[perl-win32-gui-users] Column lists

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

Has anyone tried using the "column lists"? For example, the "Find" =
program in the Start menu, has a list of files found under the column =
"Name" and another column "In Folder". Another interesting thing about =
these controls is that if you click on those tabs (eg. "Name"), each =
item will be sorted accordingly. (What is the real name for these =
controls?)

erick
never stop questioning
www.jeb.ca