BAD MSG:
ric,
Add the following to your code:
$HostName ->Select(0);
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, January 23, 2001 1:44 PM
Subject: [perl-win32-gui-users] Combobox
> Why is it that in the following Combobox:
>
> $HostName = $MainWin->AddCombobox(
> -name => "HostName",
> -tabstop => 1,
> -style => WS_VISIBLE | 2 | WS_NOTIFY,
> -left => 205,
> -top => 10,
> -width => 110,
> -height => 160,
> );
> $HostName->InsertItem ("ftp.server1.com");
> $HostName->InsertItem ("ftp.server2.com");
>
> The first item is not showing right away, I have to drop the
> combobox first. I also tried -text=>"ftp.server1.com"
>
> erick
>
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Tue Jan 23 11:13:24 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14L8sd-0000bT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
11:13:24 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id OAA22277 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001 14:13:25 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Combobox
Date: Tue, 23 Jan 2001 14:11:14 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Sorry, I meant Erick! ;]
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, January 23, 2001 1:44 PM
Subject: [perl-win32-gui-users] Combobox
> Why is it that in the following Combobox:
>
> $HostName = $MainWin->AddCombobox(
> -name => "HostName",
> -tabstop => 1,
> -style => WS_VISIBLE | 2 | WS_NOTIFY,
> -left => 205,
> -top => 10,
> -width => 110,
> -height => 160,
> );
> $HostName->InsertItem ("ftp.server1.com");
> $HostName->InsertItem ("ftp.server2.com");
>
> The first item is not showing right away, I have to drop the
> combobox first. I also tried -text=>"ftp.server1.com"
>
> erick
>
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Tue Jan 23 11:24:44 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14L93c-0002WF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
11:24:44 -0800
Received: (qmail 7235 invoked from network); 23 Jan 2001 19:27:30 -0000
Received: from pe1-992.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.241.224)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 19:27:30 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 23 Jan 2001 14:22:29 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0124_01C08547.EB170320"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Combobox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0124_01C08547.EB170320
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Johnathan,
Do you mean $HostName ->Select[0];
I tried both ways, both don't work.
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_0124_01C08547.EB170320
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Johnathan,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Do you mean <FONT=20
face=3D"Times New Roman" color=3D#000000 size=3D3>$HostName=20
->Select[0];</FONT></FONT></DIV>
<DIV>I tried both ways, both don't work.</DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_0124_01C08547.EB170320--
From [EMAIL PROTECTED] Tue Jan 23 11:49:28 2001
Received: from viemta06.chello.at ([195.34.133.56])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14L9RX-0008Lb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
11:49:28 -0800
Received: from sbox.tu-graz.ac.at ([212.186.199.154]) by viemta06.chello.at
(InterMail vK.4.03.01.00 201-232-122 license
9caa03a7df1d31c048ffcc0d31ac5855)
with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 23 Jan 2001 20:49:11 +0100
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 23 Jan 2001 21:49:01 +0200
From: Reini Urban <[EMAIL PROTECTED]>
Organization: http://xarch.tu-graz.ac.at
X-Mailer: Mozilla 4.7 [de] (WinNT; I)
X-Accept-Language: en,de
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo Calpini schrieb:
> BTW, I'm not sure yet that 0.0.558 is stable enough for a
> PPM distribution. I would like to get some feedback from
> 'people with a C compiler' that can build the module and
> test it, before giving it out to everybody.
Ah, you mean me :)
okay:
using my selfbuilt MSVC - GSAR perl 5.005_02 built for MSWin32-x86-thread
>mperl502 Makefile.pl
>nmake
...
cp GUI.pm blib\lib\Win32/GUI.pm
cp BitmapInline.pm blib\lib\Win32/GUI/BitmapInline.pm
cp GridLayout.pm blib\lib\Win32/GUI/GridLayout.pm
Can't open getbuild.bat: No such file or directory
then cl blabla...
GUI.cpp
*** Using a non-Object Core Perl. (which is okay :)
GUI.xs(445) : error C2065: 'SvPV_nolen' : nichtdeklarierter Bezeichner
in which perl was 'SvPV_nolen' introduced?
the prev GUI.xs had
pszName = SvPV(*pHv, PL_na);
instead of the new
pszName = SvPV_nolen(*pHv);
GUI.xs(445) : error C2440: '=' : 'int' kann nicht in 'char *' konvertiert
werden
Die Konvertierung eines ganzzahligen Typs in einen Zeigertyp erfordert
e
in reinterpret_cast-Operator oder eine Typumwandlung im C- oder
Funktionsformat
GUI.xs(448) : error C2440: '=' : 'int' kann nicht in 'char *' konvertiert
werden
Die Konvertierung eines ganzzahligen Typs in einen Zeigertyp erfordert
e
in reinterpret_cast-Operator oder eine Typumwandlung im C- oder
Funktionsformat
GUI.xs(835) : error C2065: 'thr' : nichtdeklarierter Bezeichner
...
and so on of course
--
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
From [EMAIL PROTECTED] Tue Jan 23 11:54:13 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14L9W7-0000B6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
11:54:12 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id OAA30654 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001 14:54:27 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Combobox
Date: Tue, 23 Jan 2001 14:52:21 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_03CF_01C0854C.17380590"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_03CF_01C0854C.17380590
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Erick,
No, actually I meant what I thyped:
$HostName ->Select(0);
It works for me.
Make sure you place that before your Win32::GUI::Dialog() call or =
somewhere where it will get called from a specific sub.
Try this short code and see if it works:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
use Win32::GUI;
my $screen_width =3D Win32::GUI::GetSystemMetrics(0);
my $screen_height =3D Win32::GUI::GetSystemMetrics(1);
my $minwidth =3D 620;
my $minheight =3D 255;
my $MainWindow =3D new Win32::GUI::Window(
-name =3D> "MainWindow",
-top =3D> ($screen_height - $minheight)/2,
-left =3D> ($screen_width - $minwidth)/2,
-width =3D> $minwidth,
-height =3D> $minheight,
-minsize=3D> [$minwidth,$minheight],
-title =3D> "Sample Window",
);
$HostName =3D $MainWindow->AddCombobox(
-name =3D> "HostName",
-tabstop =3D> 1,
-style =3D> WS_VISIBLE | 2 | WS_NOTIFY,
-left =3D> 205,
-top =3D> 10,
-width =3D> 110,
-height =3D> 160,
);
$HostName->InsertItem ("ftp.server1.com");
$HostName->InsertItem ("ftp.server2.com");
$MainWindow->Show();
$HostName->Select(0);
Win32::GUI::Dialog();
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Let me know if it still doesn't work for you.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----=20
From: Erick J. Bourgeois=20
To: [EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 2:22 PM
Subject: [perl-win32-gui-users] Combobox
Johnathan,
Do you mean $HostName ->Select[0];
I tried both ways, both don't work.
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_03CF_01C0854C.17380590
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> </DIV>
<DIV><FONT face=3DArial size=3D2>No, actually I meant what I =
thyped:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>$HostName =
->Select(0);<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>It works for me.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Make sure you place that before your=20
Win32::GUI::Dialog() call or somewhere where it will get called from a =
specific=20
sub.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Try this short code and see if it=20
works:</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>use Win32::GUI;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>my $screen_width =3D=20
Win32::GUI::GetSystemMetrics(0);<BR>my $screen_height =3D=20
Win32::GUI::GetSystemMetrics(1);<BR>my $minwidth =3D 620;<BR>my =
$minheight =3D=20
255;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>my $MainWindow =3D new=20
Win32::GUI::Window(<BR> -name =3D>=20
"MainWindow",<BR> -top =3D> ($screen_height -=20
$minheight)/2,<BR> -left =3D> ($screen_width -=20
$minwidth)/2,<BR> -width =3D> $minwidth,<BR> -height =
=3D>=20
$minheight,<BR> -minsize=3D> =
[$minwidth,$minheight],<BR> -title =20
=3D> "Sample Window",<BR>);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>$HostName =3D=20
$MainWindow->AddCombobox(<BR> =
-name =20
=3D> "HostName",<BR> -tabstop =3D>=20
1,<BR> -style =3D> WS_VISIBLE | 2 =
|=20
WS_NOTIFY,<BR> -left =3D>=20
205,<BR> -top =3D>=20
10,<BR> -width =3D>=20
110,<BR> -height =3D>=20
160,<BR>);<BR>$HostName->InsertItem=20
("ftp.server1.com");<BR>$HostName->InsertItem=20
("ftp.server2.com");</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
size=3D2><BR>$MainWindow->Show();<BR>$HostName->Select(0);</FONT></=
DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
size=3D2><BR>Win32::GUI::Dialog();<BR>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Let me know if it still doesn't work =
for=20
you.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> </DIV></FONT>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadsville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></DIV></=
FONT>
<DIV> </DIV>
<DIV> </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:[EMAIL PROTECTED]" [EMAIL PROTECTED]>Erick J. =
Bourgeois</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net"=20
=
[EMAIL PROTECTED]>[EMAIL PROTECTED]
ists.sourceforge.net</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, January 23, 2001 =
2:22=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> [perl-win32-gui-users] =
Combobox</DIV>
<DIV><BR></DIV>
<DIV><FONT color=3D#000080 face=3DArial =
size=3D2>Johnathan,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>Do you mean <FONT =
color=3D#000000=20
face=3D"Times New Roman" size=3D3>$HostName =
->Select[0];</FONT></FONT></DIV>
<DIV>I tried both ways, both don't work.</DIV>
<DIV> </DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>erick</FONT></DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>never stop =
questioning<BR><A=20
=
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BLOCKQUOTE></FONT=
></DIV></BODY></HTML>
------=_NextPart_000_03CF_01C0854C.17380590--
From [EMAIL PROTECTED] Tue Jan 23 12:14:44 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14L9q0-0003G9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
12:14:44 -0800
Received: (qmail 31120 invoked from network); 23 Jan 2001 20:10:52 -0000
Received: from pe1-992.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.241.224)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 20:10:52 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Combobox
Date: Tue, 23 Jan 2001 15:05:46 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_01C0_01C0854D.F6859720"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_01C0_01C0854D.F6859720
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
It worked Jonathan, thanks. I put the Select method before I inserted =
the items :)
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_01C0_01C0854D.F6859720
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>It worked Jonathan, =
thanks. I put the=20
Select method before I inserted the items :)</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV>erick<BR>never stop questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A><FONT face=3DArial=20
size=3D2></DIV></FONT></BODY></HTML>
------=_NextPart_000_01C0_01C0854D.F6859720--
From [EMAIL PROTECTED] Tue Jan 23 12:55:37 2001
Received: from firewall.co.nz ([203.99.0.100])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LATY-00079G-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
12:55:36 -0800
Received: by gateway.firewall.co.nz id <115213>; Wed, 24 Jan 2001 09:54:26 +1300
From: "Sam" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 24 Jan 2001 10:00:46 +1300
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind
ow
Priority: normal
In-reply-to: <[EMAIL PROTECTED]>
X-PM-Encryptor: IDWPGP-PM32, 4
X-mailer: Pegasus Mail for Win32 (v3.12b)
Message-Id: <[EMAIL PROTECTED]>
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
I didn't say anything before (about the html thing) because it really
didn't matter, but in this case it does.
You don't really want to find file extensions in the registry, you
want to find service providers. It's an academic point with html, but
with mail it's critical for correct operation between mail clients.
look at HKCR/http and HKCR/mailto for the two offending keys
(they should have shell command open thingees if your clients are
good).
same applies for HKCR/ftp, and gopher wais etc etc etc
> Just to tell you Thomas, emails in Outlook have the ending
> .eml
>
> > Deviating from Win32-GUI somewhat:
> > Next step is to figure out how to mimik a
> "mailto:"; for the e-mail
> > link. Should be easy, once we figure out how to determine
> what the default
> > e-mail program is. Not sure what assication is set for
> that. .html for the
> > browser is easy, but what about e-mail's? maybe .msg?
> Here's the ftype info
> > for .msg on my NT system, using outlook for e-mail.
> >
> > C:\>assoc .msg
> > ..msg=msgfile
> >
> > C:\>ftype msgfile
> > msgfile="C:\Program Files\Microsoft
> Office\Office\OUTLOOK.EXE" /f "%1"
> >
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
-----BEGIN PGP SIGNATURE-----
Version: N/A
iQA/AwUBOm1IP5sRND2Z+TaWEQLoxgCeOmCRBRcoYC01SRwr4J5EsFmPas0An1ru
hizFZbFtSrQSEh3RUaEkqngP
=WO0q
-----END PGP SIGNATURE-----
Sam Jacobson
R & D Manager / Software Engineer
Selective Communications
Ph +64 9 302 1142
www.selective.co.nz
From [EMAIL PROTECTED] Tue Jan 23 13:03:39 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14LAbL-0007iN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
13:03:39 -0800
Received: (qmail 9960 invoked from network); 23 Jan 2001 21:06:25 -0000
Received: from pe1-992.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.241.224)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 21:06:25 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 23 Jan 2001 22:01:07 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0236_01C08587.FCE63B80"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] MessageBox?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0236_01C08587.FCE63B80
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Is there a MessageBox constructor? I remember seeing this idea =
somewhere, but I can't find it any more.
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_0236_01C08587.FCE63B80
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Is there a MessageBox =
constructor? I=20
remember seeing this idea somewhere, but I can't find it any =
more.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_0236_01C08587.FCE63B80--
From [EMAIL PROTECTED] Tue Jan 23 13:14:12 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14LAlY-0000cv-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
13:14:12 -0800
Received: (qmail 12151 invoked from network); 23 Jan 2001 21:16:59 -0000
Received: from pe1-992.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.241.224)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 21:16:59 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] MessageBox?
Date: Tue, 23 Jan 2001 22:11:40 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_024A_01C08589.76463420"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_024A_01C08589.76463420
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Sorry, I just found out how to do it.
----- Original Message -----=20
From: Erick J. Bourgeois=20
To: [EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 10:01 PM
Subject: [perl-win32-gui-users] MessageBox?
Is there a MessageBox constructor? I remember seeing this idea =
somewhere, but I can't find it any more.
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_024A_01C08589.76463420
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Sorry, I just found out =
how to do=20
it.</FONT></DIV>
<DIV><A href=3D"http://www.jeb.ca";></A> </DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000080 2px solid; MARGIN-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 [EMAIL PROTECTED] href=3D"mailto:[EMAIL PROTECTED]">Erick J. =
Bourgeois</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
[EMAIL PROTECTED]
=
href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net";>perl-win32-gui=
[EMAIL PROTECTED]</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, January 23, 2001 =
10:01=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> [perl-win32-gui-users] =
MessageBox?</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Is there a MessageBox =
constructor?=20
I remember seeing this idea somewhere, but I can't find it any=20
more.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop=20
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BLOCKQUOTE></BODY=
></HTML>
------=_NextPart_000_024A_01C08589.76463420--
From [EMAIL PROTECTED] Tue Jan 23 13:16:59 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LAoF-0001Ji-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
13:16:59 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id OAA30400
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
14:17:15 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Tue, 23
Jan 2001 14:17:11 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Tue, 23 Jan 2001 14:17:06 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2650.21)
id <D2RRLH26>; Tue, 23 Jan 2001 14:18:20 -0700
Content-return: allowed
Date: Tue, 23 Jan 2001 14:18:12 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] MessageBox?
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-type: MULTIPART/ALTERNATIVE;
BOUNDARY="Boundary_(ID_1UIpLjhKLP3dUkOIPIoZrg)"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--Boundary_(ID_1UIpLjhKLP3dUkOIPIoZrg)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
Win32::MsgBox("Text", 0, "title");
or
$result=3DWin32::MsgBox("Do you want to do this?", 4, "Title");
if ($result=3D=3D6) #yes is clicked
{
#do this stuff
}
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>=20
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 2:01 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] MessageBox?
Is there a MessageBox constructor? I remember seeing this idea =
somewhere,
but I can't find it any more.
=20
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>=20
--Boundary_(ID_1UIpLjhKLP3dUkOIPIoZrg)
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 HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3D"Courier New" size=3D2>
<P>Win32::MsgBox("<SPAN class=3D989551521-23012001>Text</SPAN>", 0, =
"<SPAN=20
class=3D989551521-23012001>t</SPAN><SPAN=20
class=3D989551521-23012001>itle</SPAN>");</P></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D989551521-23012001>or</SPAN></FONT></DIV>
<DIV><FONT face=3DArial><SPAN class=3D989551521-23012001>
<P><FONT color=3D#0000ff face=3D"Courier New" =
size=3D2>$result=3DWin32::MsgBox("<SPAN=20
class=3D989551521-23012001>Do you want </SPAN><SPAN=20
class=3D989551521-23012001>to do this</SPAN>?", 4, "<SPAN=20
class=3D989551521-23012001>Title</SPAN>");</FONT></P>
<P><FONT size=3D2><FONT color=3D#0000ff><FONT face=3D"Courier New">if=20
($result=3D=3D6)<SPAN class=3D989551521-23012001> #yes is=20
clicked</SPAN></FONT></FONT></FONT></P>
<P><FONT size=3D2><FONT color=3D#0000ff><FONT face=3D"Courier =
New">{<SPAN=20
class=3D989551521-23012001></SPAN></FONT></FONT></FONT></P>
<P><FONT size=3D2><FONT color=3D#0000ff><FONT face=3D"Courier =
New"><SPAN=20
class=3D989551521-23012001>#do this =
stuff</SPAN></FONT></FONT></FONT></P>
<P><FONT size=3D2><FONT color=3D#0000ff><FONT face=3D"Courier =
New"><SPAN=20
class=3D989551521-23012001></SPAN><SPAN=20
class=3D989551521-23012001>}</SPAN></FONT></FONT></FONT></P></SPAN></FON=
T></DIV>
<P align=3Dcenter><FONT face=3DTahoma=20
size=3D2>---------------------------------------------------------------=
----------------------------------</FONT></P>
<P align=3Dcenter><B><I><FONT color=3D#0000ff face=3D"Comic Sans MS" =
size=3D5>Tim=20
Thomas</FONT></I></B></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Unix Systems =
Administrator</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Lockheed Martin =
EIS</FONT> <FONT=20
face=3DSystem size=3D4>=B7</FONT><FONT face=3DTahoma size=3D2> Denver =
Data=20
Center</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>303-430-2281</FONT></P>
<P align=3Dcenter><U><FONT color=3D#0000ff face=3DTahoma size=3D2><A=20
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A></FONT></U></P>
<P align=3Dcenter><FONT face=3DTahoma=20
size=3D2>---------------------------------------------------------------=
----------------------------------</FONT></P>
<BLOCKQUOTE style=3D"MARGIN-RIGHT: 0px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Erick J. =
Bourgeois=20
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Tuesday, January 23, 2001 =
2:01=20
PM<BR><B>To:</B> =
perl-win32-gui-users@lists.sourceforge.net<BR><B>Subject:</B>=20
[perl-win32-gui-users] MessageBox?<BR><BR></DIV></FONT>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>Is there a =
MessageBox constructor?=20
I remember seeing this idea somewhere, but I can't find it any=20
more.</FONT></DIV>
<DIV> </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></BOD=
Y></HTML>
--Boundary_(ID_1UIpLjhKLP3dUkOIPIoZrg)--
From [EMAIL PROTECTED] Tue Jan 23 13:52:58 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14LBN4-00070J-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
13:52:58 -0800
Received: (qmail 18346 invoked from network); 23 Jan 2001 21:55:43 -0000
Received: from pe1-346.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.239.90)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 21:55:43 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 23 Jan 2001 22:50:25 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0026_01C0858E.DFD1E920"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] MessageBox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0026_01C0858E.DFD1E920
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Tim,
I tried your way and I got a runtime error, "Undefined subroutine =
&Win32::MsgBox called at ...". However, if I call the method =
MessageBox() on a window object, it's all good. Halfway through this =
email I realized what you did wrong; shouldn't it be:
Win32::GUI::MessageBox(
0,
"Do you want to do this?",
"Title",
MB_ICONINFORMATION | MB_YESNO,
);
well at least this works for me. One question, what does the zero do? =
Make it modal?
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_0026_01C0858E.DFD1E920
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Tim,</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>I tried your way and I =
got a runtime=20
error, "Undefined subroutine &Win32::MsgBox called at ...". However, =
if I=20
call the method MessageBox() on a window object, it's all good. Halfway =
through=20
this email I realized what you did wrong; shouldn't it be:</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>Win32::GUI::MessageBox(</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> =20
0,</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> "<FONT=20
color=3D#0000ff><SPAN class=3D989551521-23012001>Do you =
want </SPAN><SPAN=20
class=3D989551521-23012001>to do this?</SPAN></FONT>",</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> =20
"Title",</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> =20
MB_ICONINFORMATION | MB_YESNO,</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2>);</DIV></FONT>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>well at least this =
works for me. One=20
question, what does the zero do? Make it modal?</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 =
size=3D2></FONT> </DIV></FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_0026_01C0858E.DFD1E920--
From [EMAIL PROTECTED] Tue Jan 23 14:12:24 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LBfs-0001Kj-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
14:12:24 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id PAA06271
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
15:12:42 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Tue, 23
Jan 2001 15:12:37 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Tue, 23 Jan 2001 15:08:26 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2650.21)
id <D2RRLJDA>; Tue, 23 Jan 2001 15:09:39 -0700
Content-return: allowed
Date: Tue, 23 Jan 2001 15:09:31 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] MessageBox
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-type: MULTIPART/ALTERNATIVE;
BOUNDARY="Boundary_(ID_CRxxkpMog3HbVM925r/M2Q)"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--Boundary_(ID_CRxxkpMog3HbVM925r/M2Q)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
Erick - the function I was using was out of the Win32 module, not
Win32::GUI, that explains the differences.
to get the method I use to work you would need: use Win32, as well =
as
use: Win32::Gui.
Tim
=20
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>=20
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 2:50 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] MessageBox
Tim,
I tried your way and I got a runtime error, "Undefined subroutine
&Win32::MsgBox called at ...". However, if I call the method =
MessageBox() on
a window object, it's all good. Halfway through this email I realized =
what
you did wrong; shouldn't it be:
=20
Win32::GUI::MessageBox(
0,
"Do you want to do this?",
"Title",
MB_ICONINFORMATION | MB_YESNO,
);
=20
well at least this works for me. One question, what does the zero do? =
Make
it modal?
=20
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>=20
--Boundary_(ID_CRxxkpMog3HbVM925r/M2Q)
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 HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN =
class=3D465370622-23012001>Erick=20
- the function I was using was out of the Win32 module, not Win32::GUI, =
that=20
explains the differences.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D465370622-23012001> to get the method I use =
to work you=20
would need: use Win32, as well as use: Win32::Gui.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D465370622-23012001> &nb=
sp; =20
Tim</SPAN></FONT></DIV>
<DIV> </DIV>
<P align=3Dcenter><FONT face=3DTahoma=20
size=3D2>---------------------------------------------------------------=
----------------------------------</FONT></P>
<P align=3Dcenter><B><I><FONT color=3D#0000ff face=3D"Comic Sans MS" =
size=3D5>Tim=20
Thomas</FONT></I></B></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Unix Systems =
Administrator</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Lockheed Martin =
EIS</FONT> <FONT=20
face=3DSystem size=3D4>=B7</FONT><FONT face=3DTahoma size=3D2> Denver =
Data=20
Center</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>303-430-2281</FONT></P>
<P align=3Dcenter><U><FONT color=3D#0000ff face=3DTahoma size=3D2><A=20
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A></FONT></U></P>
<P align=3Dcenter><FONT face=3DTahoma=20
size=3D2>---------------------------------------------------------------=
----------------------------------</FONT></P>
<BLOCKQUOTE style=3D"MARGIN-RIGHT: 0px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Erick J. =
Bourgeois=20
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Tuesday, January 23, 2001 =
2:50=20
PM<BR><B>To:</B> =
perl-win32-gui-users@lists.sourceforge.net<BR><B>Subject:</B>=20
[perl-win32-gui-users] MessageBox<BR><BR></DIV></FONT>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>Tim,</FONT></DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>I tried your way and =
I got a=20
runtime error, "Undefined subroutine &Win32::MsgBox called at =
...".=20
However, if I call the method MessageBox() on a window object, it's =
all good.=20
Halfway through this email I realized what you did wrong; shouldn't =
it=20
be:</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New" =
size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New"=20
size=3D2>Win32::GUI::MessageBox(</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New" =
size=3D2> =20
0,</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New" =
size=3D2> "<FONT=20
color=3D#0000ff><SPAN class=3D989551521-23012001>Do you =
want </SPAN><SPAN=20
class=3D989551521-23012001>to do this?</SPAN></FONT>",</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New" =
size=3D2> =20
"Title",</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New" =
size=3D2> =20
MB_ICONINFORMATION | MB_YESNO,</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Courier New" =
size=3D2>);</DIV></FONT>
<DIV><FONT color=3D#000080 face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>well at least this =
works for me.=20
One question, what does the zero do? Make it modal?</FONT></DIV>
<DIV><FONT color=3D#000080 face=3DArial =
size=3D2></FONT> </DIV></FONT></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></BOD=
Y></HTML>
--Boundary_(ID_CRxxkpMog3HbVM925r/M2Q)--
From [EMAIL PROTECTED] Tue Jan 23 15:04:37 2001
Received: from imo-d05.mx.aol.com ([205.188.157.37])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LCUO-000587-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
15:04:36 -0800
Received: from [EMAIL PROTECTED]
by imo-d05.mx.aol.com (mail_out_v29.5.) id 6.c6.105b1024 (4424)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
16:32:57 -0500 (EST)
From: [EMAIL PROTECTED]
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 23 Jan 2001 16:32:56 EST
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow
To: perl-win32-gui-users@lists.sourceforge.net
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="part1_c6.105b1024.279f5288_boundary"
Content-Disposition: Inline
X-Mailer: 6.0 sub 172
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
--part1_c6.105b1024.279f5288_boundary
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
Couldnt you just pass the mailto: link on to the web browser just like a
normal link?
-
______________________________
"Old programmers never die...they just get a fatal error."
--part1_c6.105b1024.279f5288_boundary
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
<HTML><FONT FACE=arial,helvetica><FONT COLOR="#000040" SIZE=2>Couldnt you just
pass the mailto: link on to the web browser just like a
<BR>normal link?
<BR>
<BR><P ALIGN=CENTER>-
<BR>______________________________
<BR>"Old programmers never die...they just get a fatal error."
<BR>
<BR>
<BR></P></FONT></HTML>
--part1_c6.105b1024.279f5288_boundary--
From [EMAIL PROTECTED] Tue Jan 23 15:20:10 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14LCjS-0001R6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
15:20:10 -0800
Received: (qmail 32330 invoked from network); 23 Jan 2001 23:22:57 -0000
Received: from pe1-1081.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.242.57)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 23:22:57 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 24 Jan 2001 00:17:40 +0100
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0017_01C0859B.0FFDF2E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Combobox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0017_01C0859B.0FFDF2E0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0018_01C0859B.0FFDF2E0"
------=_NextPart_001_0018_01C0859B.0FFDF2E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Here you go Bart. This shows how to implement a combobox. Well, at least =
I hope this is what you want. If it isn't just personally email me.
erick
never stop questioning
www.jeb.ca
------=_NextPart_001_0018_01C0859B.0FFDF2E0
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Here you go Bart. This =
shows how to=20
implement a combobox. Well, at least I hope this is what you want. If it =
isn't=20
just personally email me.</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_001_0018_01C0859B.0FFDF2E0--
------=_NextPart_000_0017_01C0859B.0FFDF2E0
Content-Type: application/octet-stream;
name="combobox.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="combobox.pl"
use Win32::GUI;
my $screen_width = Win32::GUI::GetSystemMetrics(0);
my $screen_height = Win32::GUI::GetSystemMetrics(1);
my $minwidth = 620;
my $minheight = 255;
my $MainWindow = new Win32::GUI::Window(
-name => "MainWindow",
-top => ($screen_height - $minheight)/2,
-left => ($screen_width - $minwidth)/2,
-width => $minwidth,
-height => $minheight,
-minsize=> [$minwidth,$minheight],
-title => "Sample Window",
);
$HostName = $MainWindow->AddCombobox(
-name => "HostName",
-tabstop => 1,
-style => WS_VISIBLE | 2 | WS_NOTIFY,
-left => 205,
-top => 10,
-width => 110,
-height => 160,
);
$HostName->InsertItem ("ftp.server1.com");
$HostName->InsertItem ("ftp.server2.com");
$MainWindow->Show();
$HostName->Select(0);
Win32::GUI::Dialog();
------=_NextPart_000_0017_01C0859B.0FFDF2E0--
From [EMAIL PROTECTED] Tue Jan 23 15:25:10 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14LCoI-0001ym-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 23 Jan 2001
15:25:10 -0800
Received: (qmail 767 invoked from network); 23 Jan 2001 23:27:58 -0000
Received: from pe1-1081.dialup.tiscalinet.it (HELO ejbourgeois1978)
(62.10.242.57)
by puppis2.tiscalinet.it with SMTP; 23 Jan 2001 23:27:58 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: [perl-win32-gui-users] MessageBox
Date: Wed, 24 Jan 2001 00:22:40 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_003F_01C0859B.C34CF6C0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_003F_01C0859B.C34CF6C0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I see. Do you have a list of the corresponding icon, button, and =
modality values?
erick
never stop questioning
www.jeb.ca
----- Original Message -----=20
From: Thomas, Timothy B=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Sent: Tuesday, January 23, 2001 11:09 PM
Subject: RE: [perl-win32-gui-users] MessageBox
Erick - the function I was using was out of the Win32 module, not =
Win32::GUI, that explains the differences.
to get the method I use to work you would need: use Win32, as well =
as use: Win32::Gui.
Tim
=
-------------------------------------------------------------------------=
------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
=
-------------------------------------------------------------------------=
------------------------
------=_NextPart_000_003F_01C0859B.C34CF6C0
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>I see. Do you have a =
list of the=20
corresponding icon, button, and modality values?</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV>erick<BR>never stop questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000080 2px solid; MARGIN-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 [EMAIL PROTECTED]
href=3D"mailto:[EMAIL PROTECTED]">Thomas, Timothy B</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
[EMAIL PROTECTED]
=
href=3D"mailto:'perl-win32-gui-users@lists.sourceforge.net'">'perl-win32-=
[EMAIL PROTECTED]'</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, January 23, 2001 =
11:09=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> RE: =
[perl-win32-gui-users]=20
MessageBox</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN=20
class=3D465370622-23012001>Erick - the function I was using was out of =
the Win32=20
module, not Win32::GUI, that explains the =
differences.</SPAN></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN=20
class=3D465370622-23012001> to get the method I use =
to work=20
you would need: use Win32, as well as use: =
Win32::Gui.</SPAN></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN=20
=
class=3D465370622-23012001> &nbs=
p; =20
Tim</SPAN></FONT></DIV>
<DIV> </DIV>
<P align=3Dcenter><FONT face=3DTahoma=20
=
size=3D2>----------------------------------------------------------------=
---------------------------------</FONT></P>
<P align=3Dcenter><B><I><FONT face=3D"Comic Sans MS" color=3D#0000ff =
size=3D5>Tim=20
Thomas</FONT></I></B></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Unix Systems =
Administrator</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Lockheed Martin =
EIS</FONT> <FONT=20
face=3DSystem size=3D4>=B7</FONT><FONT face=3DTahoma size=3D2> Denver =
Data=20
Center</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>303-430-2281</FONT></P>
<P align=3Dcenter><U><FONT face=3DTahoma color=3D#0000ff size=3D2><A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
m</A></FONT></U></P>
<P align=3Dcenter><FONT face=3DTahoma=20
=
size=3D2>----------------------------------------------------------------=
---------------------------------</FONT></P></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_003F_01C0859B.C34CF6C0--
From [EMAIL PROTECTED] Wed Jan 24 01:08:57 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LLvF-0008HF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
01:08:57 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id KAA35470
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
10:09:08 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-OJJoMa; Wed Jan 24 10:09:07 2001
Date: Wed, 24 Jan 2001 10:14:05 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Reini Urban <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Reini Urban wrote:
> in which perl was 'SvPV_nolen' introduced?
> the prev GUI.xs had
> pszName = SvPV(*pHv, PL_na);
> instead of the new
> pszName = SvPV_nolen(*pHv);
yes, sorry, SvPV_nolen was introduced in 5.6.0.
you need to add these lines:
#ifndef SvPV_nolen
# define SvPV_nolen(x) SvPV(x, PL_na)
#endif
BTW, if you wanna go really wild, I have set up
the CVS server, so you can grab the latest development
release directly from there ;-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Jan 24 01:47:01 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LMW4-0000oi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
01:47:00 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id KAA66276
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
10:47:19 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-J98bEa; Wed Jan 24 10:47:18 2001
Date: Wed, 24 Jan 2001 10:52:16 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Thomas, Timothy B" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind
ow
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Thomas, Timothy B wrote:
> Aldo - pretty cool, did you just implement that?
> I seem to be getting a not-very-descriptive error when I
> try your code. See below.
> Tim
>
> D:\Archive\scripts\completed\digitaltool>perl aldourl.gpl
> Wrong number of parameters: expected 0, got 2.
> BEGIN failed--compilation aborted at aldourl.gpl line 2.
sorry, I forgot to mention that you need Win32::API version
0.20.
if you don't want to upgrade Win32::API, you can change the
following lines in HyperLink.pm
13: my $LoadCursor = new Win32::API("user32", "LoadCursor", "NN", "N");
-> my $LoadCursor = new Win32::API("user32", "LoadCursor", [N,N],
"N");
14: my $ShellExecute = new Win32::API("shell32", "ShellExecute", "NPPPPI", "N");
-> my $ShellExecute = new Win32::API("shell32", "ShellExecute",
[N,P,P,P,P,I], "N");
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Jan 24 05:59:08 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LQS3-0004em-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
05:59:07 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id IAA04307 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001 08:59:22 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] MessageBox - a list of the corresponding
icon, button, and modality values
Date: Wed, 24 Jan 2001 08:57:21 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0504_01C085E3.A98B4140"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0504_01C085E3.A98B4140
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Erick,
I think these will work, I haven't tried them all.
Settings
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
0 - display only the OK button
1 - display OK and Cancel buttons
2 - display Abort, Retry, and Ignore buttons
3 - display Yes, No, and Cancel buttons
4 - display Yes and No buttons
5 - display Retry and Cancel buttons
16 - display Critical Message icon
32 - display Warning Query icon
48 - display Warning Message icon
64 - display Information Message icon
0 - set first button as default
256 - set second button as default
512 - set third button as default
768 - set fourth button as default
Return Values
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
1 - OK
2 - Cancel
3 - Abort
4 - Retry
5 - Ignore
6 - Yes
7 - No
Like I said, I think these are right.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----=20
From: Erick J. Bourgeois=20
To: [EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 6:22 PM
Subject: [perl-win32-gui-users] MessageBox
I see. Do you have a list of the corresponding icon, button, and =
modality values?
=20
erick
never stop questioning
www.jeb.ca
----- Original Message -----=20
From: Thomas, Timothy B=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Sent: Tuesday, January 23, 2001 11:09 PM
Subject: RE: [perl-win32-gui-users] MessageBox
Erick - the function I was using was out of the Win32 module, not =
Win32::GUI, that explains the differences.
to get the method I use to work you would need: use Win32, as =
well as use: Win32::Gui.
Tim
=
-------------------------------------------------------------------------=
------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
=
-------------------------------------------------------------------------=
------------------------
------=_NextPart_000_0504_01C085E3.A98B4140
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> </DIV>
<DIV><FONT face=3DArial size=3D2>I think these will work, I haven't =
tried them=20
all.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Settings</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>0 - display only the OK =
button<BR>1 -=20
display OK and Cancel buttons<BR>2 - display Abort, Retry, and =
Ignore=20
buttons<BR>3 - display Yes, No, and Cancel buttons<BR>4 - =
display Yes=20
and No buttons<BR>5 - display Retry and Cancel buttons</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><BR>16 - display Critical Message=20
icon<BR>32 - display Warning Query icon<BR>48 - display =
Warning=20
Message icon<BR>64 - display Information Message =
icon<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>0 - set first button=20
as default<BR>256 - set second button as default<BR>512 - =
set=20
third button as default<BR>768 - set fourth button as=20
default<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Return Values</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<=
/FONT></DIV>
<DIV><FONT face=3DArial size=3D2>1 - OK<BR>2 - =
Cancel<BR>3 -=20
Abort<BR>4 - Retry<BR>5 - Ignore<BR>6 - Yes<BR>7 -=20
No</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Like I said, I think these are =
right.</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadsville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>
<BLOCKQUOTE dir=3Dltr=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:[EMAIL PROTECTED]" [EMAIL PROTECTED]>Erick J. =
Bourgeois</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net"=20
=
[EMAIL PROTECTED]>[EMAIL PROTECTED]
ists.sourceforge.net</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, January 23, 2001 =
6:22=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> [perl-win32-gui-users] =
MessageBox</DIV>
<DIV><BR></DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2>I see. Do you have a =
list of the=20
corresponding icon, button, and modality values?</FONT></DIV>
<DIV><FONT color=3D#000080 face=3DArial size=3D2></FONT> </DIV>
<DIV>erick<BR>never stop questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"BORDER-LEFT: #000080 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:[EMAIL PROTECTED]"=20
[EMAIL PROTECTED]>Thomas, Timothy B</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:'perl-win32-gui-users@lists.sourceforge.net'"=20
=
[EMAIL PROTECTED]>'[EMAIL PROTECTED]
lists.sourceforge.net'</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, January 23, =
2001 11:09=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> RE: =
[perl-win32-gui-users]=20
MessageBox</DIV>
<DIV><BR></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D465370622-23012001>Erick - the function I was using was out =
of the=20
Win32 module, not Win32::GUI, that explains the=20
differences.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D465370622-23012001> to get the method I =
use to work=20
you would need: use Win32, as well as use: =
Win32::Gui.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
=
class=3D465370622-23012001> &nbs=
p; =20
Tim</SPAN></FONT></DIV>
<DIV> </DIV>
<P align=3Dcenter><FONT face=3DTahoma=20
=
size=3D2>----------------------------------------------------------------=
---------------------------------</FONT></P>
<P align=3Dcenter><B><I><FONT color=3D#0000ff face=3D"Comic Sans MS" =
size=3D5>Tim=20
Thomas</FONT></I></B></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Unix Systems=20
Administrator</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Lockheed Martin =
EIS</FONT> <FONT=20
face=3DSystem size=3D4>=B7</FONT><FONT face=3DTahoma size=3D2> =
Denver Data=20
Center</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma =
size=3D2>303-430-2281</FONT></P>
<P align=3Dcenter><U><FONT color=3D#0000ff face=3DTahoma size=3D2><A =
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
m</A></FONT></U></P>
<P align=3Dcenter><FONT face=3DTahoma=20
=
size=3D2>----------------------------------------------------------------=
---------------------------------</FONT></P></BLOCKQUOTE></BLOCKQUOTE></F=
ONT></DIV></BODY></HTML>
------=_NextPart_000_0504_01C085E3.A98B4140--
From [EMAIL PROTECTED] Wed Jan 24 06:40:47 2001
Received: from viemta06.chello.at ([195.34.133.56])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LR6N-00056w-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
06:40:47 -0800
Received: from sbox.tu-graz.ac.at ([212.186.199.154]) by viemta06.chello.at
(InterMail vK.4.03.01.00 201-232-122 license
9caa03a7df1d31c048ffcc0d31ac5855)
with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Wed, 24 Jan 2001 15:41:02 +0100
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 24 Jan 2001 16:41:12 +0200
From: Reini Urban <[EMAIL PROTECTED]>
Organization: http://xarch.tu-graz.ac.at
X-Mailer: Mozilla 4.7 [de] (WinNT; I)
X-Accept-Language: en,de
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
thanks,
my firewall doesn't let the cvs port go through, but
simple http browsing for the xs via cvsweb is okay for me.
(BTW:
http://cvs.sourceforge.net/cgi-bin/cvsweb.cgi/~checkout~/perl-win32-gui/Win32-GUI/GUI.xs
for the latest revision)
Aldo Calpini wrote:
> BTW, if you wanna go really wild, I have set up
> the CVS server, so you can grab the latest development
> release directly from there ;-)
--
Reini Urban
From [EMAIL PROTECTED] Wed Jan 24 08:37:32 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LSvL-0002Ll-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
08:37:32 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id RAA43212
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 24 Jan 2001
17:37:49 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-bbijya; Wed Jan 24 17:37:46 2001
Date: Wed, 24 Jan 2001 17:41:29 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="----------146C2313DD231"
Subject: [perl-win32-gui-users] Win32::GUI::HyperLink 0.02
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
------------146C2313DD231
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
hello perl-win32-gui-users,
I've added cursor and icon support to BitmapInline.pm,
along with a new version of HyperLink.pm that will use
the inlined cursor (harrow.cur) if the default handcursor
is not found (the default handcursor should be available
only in Win2k). enjoy :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
------------146C2313DD231
Content-Type: application/octet-stream; name="BitmapInline.pm"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="BitmapInline.pm"
cGFja2FnZSBXaW4zMjo6R1VJOjpCaXRtYXBJbmxpbmU7DQoNCnJlcXVpcmUgRXhwb3J0ZXI7DQpA
SVNBID0gcXcoRXhwb3J0ZXIpOw0KQEVYUE9SVCA9IHF3KGlubGluZSk7DQoNCiRWRVJTSU9OID0g
IjAuMDIiOw0KDQokQ291bnRlciA9IDE7DQoNCnJlcXVpcmUgV2luMzI6OkdVSTsNCnJlcXVpcmUg
TUlNRTo6QmFzZTY0Ow0KDQpzdWIgbmV3IHsNCiAgICBteSgkY2xhc3MsICRkYXRhKSA9IEBfOw0K
ICAgIG9wZW4oQk1QLCAiPn4kJC50bXAiKSBvciByZXR1cm4gdW5kZWY7DQogICAgYmlubW9kZShC
TVApOw0KICAgIHByaW50IEJNUCBNSU1FOjpCYXNlNjQ6OmRlY29kZSgkZGF0YSk7DQogICAgY2xv
c2UoQk1QKTsgDQogICAgbXkgJEIgPSBuZXcgV2luMzI6OkdVSTo6Qml0bWFwKCJ+JCQudG1wIik7
DQogICAgdW5saW5rKCJ+JCQudG1wIik7DQogICAgcmV0dXJuICRCOyAgDQp9DQoNCnN1YiBuZXdD
dXJzb3Igew0KICAgIG15KCRjbGFzcywgJGRhdGEpID0gQF87DQogICAgb3BlbihCTVAsICI+fiQk
LnRtcCIpIG9yIHJldHVybiB1bmRlZjsNCiAgICBiaW5tb2RlKEJNUCk7DQogICAgcHJpbnQgQk1Q
IE1JTUU6OkJhc2U2NDo6ZGVjb2RlKCRkYXRhKTsNCiAgICBjbG9zZShCTVApOyANCiAgICBteSAk
QiA9IG5ldyBXaW4zMjo6R1VJOjpDdXJzb3IoIn4kJC50bXAiKTsNCiAgICB1bmxpbmsoIn4kJC50
bXAiKTsNCiAgICByZXR1cm4gJEI7ICANCn0NCg0Kc3ViIG5ld0ljb24gew0KICAgIG15KCRjbGFz
cywgJGRhdGEpID0gQF87DQogICAgb3BlbihCTVAsICI+fiQkLnRtcCIpIG9yIHJldHVybiB1bmRl
ZjsNCiAgICBiaW5tb2RlKEJNUCk7DQogICAgcHJpbnQgQk1QIE1JTUU6OkJhc2U2NDo6ZGVjb2Rl
KCRkYXRhKTsNCiAgICBjbG9zZShCTVApOyANCiAgICBteSAkQiA9IG5ldyBXaW4zMjo6R1VJOjpJ
Y29uKCJ+JCQudG1wIik7DQogICAgdW5saW5rKCJ+JCQudG1wIik7DQogICAgcmV0dXJuICRCOyAg
DQp9DQoNCnN1YiBpbmxpbmUgew0KICAgIG15ICgkZmlsZSwgJG5hbWUpID0gQF87DQoNCiAgICAk
bmFtZSA9ICJCaXRtYXAiIC4gJFdpbjMyOjpHVUk6OkJpdG1hcElubGluZTo6Q291bnRlcisrIHVu
bGVzcyAkbmFtZTsNCg0KICAgIG15ICR0eXBlID0gIiI7DQogICAgJGZpbGUgPX4gL1wuaWNvJC9p
IGFuZCAkdHlwZSA9ICJJY29uIjsNCiAgICAkZmlsZSA9fiAvXC5jdXIkL2kgYW5kICR0eXBlID0g
IkN1cnNvciI7DQoNCg0KICAgIG9wZW4oQk1QLCAkZmlsZSkgb3INCiAgICAgICAgJCEgPSAiQml0
bWFwIGZpbGUgJyRmaWxlJyBub3QgZm91bmQiLA0KICAgICAgICByZXR1cm4gdW5kZWY7DQogICAg
bXkgJG9sZHNlcCA9ICQvOw0KICAgIHVuZGVmICQvOw0KICAgIGJpbm1vZGUoQk1QKTsNCiAgICBt
eSAkcmV0ID0gIiI7DQogICAgJHJldCAuPSAiXCQkbmFtZSA9IG5ldyR0eXBlIFdpbjMyOjpHVUk6
OkJpdG1hcElubGluZSggcShcbiI7DQogICAgJHJldCAuPSBNSU1FOjpCYXNlNjQ6OmVuY29kZSgg
PEJNUD4gKTsNCiAgICAkcmV0IC49ICIpICk7XG4iOw0KICAgIGNsb3NlKEJNUCk7DQogICAgJC8g
PSAkb2xkc2VwOw0KICAgIHByaW50ICRyZXQ7DQogICAgcmV0dXJuIGxlbmd0aCgkcmV0KTsNCn0N
Cg0KMTsNCg0KX19FTkRfXw0KDQo9aGVhZDEgTkFNRQ0KDQpXaW4zMjo6R1VJOjpCaXRtYXBJbmxp
bmUgLSBJbmxpbmUgYml0bWFwIHN1cHBvcnQgZm9yIFdpbjMyOjpHVUkNCg0KPWhlYWQxIFNZTk9Q
U0lTDQoNClRvIGNyZWF0ZSBhIEJpdG1hcElubGluZToNCg0KICAgIHBlcmwgLU1XaW4zMjo6R1VJ
OjpCaXRtYXBJbmxpbmUgLWUgaW5saW5lKCdpbWFnZS5ibXAnKSA+PnNjcmlwdC5wbA0KDQpUbyB1
c2UgYSBCaXRtYXBJbmxpbmUgKGluIHNjcmlwdC5wbCk6DQoNCiAgICB1c2UgV2luMzI6OkdVSTsN
CiAgICB1c2UgV2luMzI6OkdVSTo6Qml0bWFwSW5saW5lICgpOw0KICAgIA0KICAgICRCaXRtYXAx
ID0gbmV3IFdpbjMyOjpHVUk6OkJpdG1hcElubGluZSggcSgNCiAgICBRazMyQUFBQUFBQUFBSFlB
QUFBb0FBQUFFQUFBQUJBQUFBQUJBQVFBQUFBQUFJQUFBQUFBQUFBQUFBQUFBQkFBQUFBUUFBQUFB
QUFBDQogICAgQUFDY25BQmp6czRBOS9mM0FKek8vd0NjLy84QXp2Ly9BUC8vL3dELy8vOEEvLy8v
QVAvLy93RC8vLzhBLy8vL0FQLy8vd0QvLy84QQ0KICAgIC8vLy9BSGQzZDNkM2QzZDNkM2QzZDNk
M2QzZHdBQUFBQUFBQUJ4SWlJaUlpSWlJSEZrVkZSVVZFUWdjV1ZWUlVWRlJDQnhaVlZWVkYNCiAg
ICBSVUlIRmxWVlZGUlVVZ2NXVlZWVlZVVkNCeFpWVlZWVVZGSUhGbFZWVlZWVlFnY1dabVptWm1a
U0J4SWlJaUlSRVJGM2NUWmxVUWQzDQogICAgZDNkM0VSRVFkM2QzZDNkM2QzZDNkM2QzDQogICAg
KSApOw0KDQo9aGVhZDEgREVTQ1JJUFRJT04NCg0KVGhpcyBtb2R1bGUgY2FuIGJlIHVzZWQgdG8g
ImlubGluZSIgYSBiaXRtYXAgZmlsZSBpbiB5b3VyIHNjcmlwdCwgc28NCnRoYXQgaXQgZG9lc24n
dCBuZWVkIHRvIGJlIGFjY29tcGFpbmVkIGJ5IHNldmVyYWwgZXh0ZXJuYWwgZmlsZXMgDQoobGVz
cyBoYXNzbGUgd2hlbiB5b3UgbmVlZCB0byByZWRpc3RyaWJ1dGUgeW91ciBzY3JpcHQgb3IgbW92
ZSBpdCANCnRvIGFub3RoZXIgbG9jYXRpb24pLg0KDQpUaGUgQzxpbmxpbmU+IGZ1bmN0aW9uIGlz
IHVzZWQgdG8gY3JlYXRlIGFuIGlubGluZWQgYml0bWFwIHJlc291cmNlOyBpdA0Kd2lsbCBwcmlu
dCBvbiBTVERPVVQgdGhlIHBhY2tlZCBkYXRhIGluY2x1ZGluZyB0aGUgbGluZXMgb2YgUGVybCAg
DQpuZWVkZWQgdG8gdXNlIHRoZSBpbmxpbmVkIGJpdG1hcCByZXNvdXJjZTsgaXQgaXMgaW50ZW5k
ZWQgdG8gYmUgdXNlZCBhcyANCmEgb25lLWxpbmVyIHdob3NlIG91dHB1dCBpcyBhcHBlbmRlZCB0
byB5b3VyIHNjcmlwdC4NCg0KVGhlIGZ1bmN0aW9uIHRha2VzIHRoZSBuYW1lIG9mIHRoZSBiaXRt
YXAgZmlsZSB0byBpbmxpbmUgYXMgaXRzIGZpcnN0DQpwYXJhbWV0ZXI7IGFuIGFkZGl0aW9uYWws
IG9wdGlvbmFsIHBhcmFtZXRlciBjYW4gYmUgZ2l2ZW4gd2hpY2ggd2lsbCBiZSANCnRoZSBuYW1l
IG9mIHRoZSBiaXRtYXAgb2JqZWN0IGluIHRoZSByZXN1bHRpbmcgc2NyaXB0bGV0LCBlZzoNCg0K
ICAgIHBlcmwgLU1XaW4zMjo6R1VJOjpCaXRtYXBJbmxpbmUgLWUgaW5saW5lKCdpbWFnZS5ibXAn
LCdJTUFHRScpDQogICAgDQogICAgJElNQUdFID0gbmV3IFdpbjMyOjpHVUk6OkJpdG1hcElubGlu
ZSggcSggLi4uDQoNCklmIG5vIG5hbWUgaXMgZ2l2ZW4sIHRoZSByZXN1bHRpbmcgb2JqZWN0IG5h
bWUgd2lsbCBiZSAkQml0bWFwMSANCih0aGUgbmV4dCBvbmVzICRCaXRtYXAyICwgJEJpdG1hcDMg
YW5kIHNvIG9uKS4NCg0KTm90ZSB0aGF0IHRoZSBvYmplY3QgcmV0dXJuZWQgYnkgQzxuZXcgV2lu
MzI6OkdVSTo6Qml0bWFwSW5saW5lPiBpcw0KYSByZWd1bGFyIFdpbjMyOjpHVUk6OkJpdG1hcCBv
YmplY3QuDQoNCldpdGggdmVyc2lvbiAwLjAyIHlvdSBjYW4gaW5saW5lIGljb25zIGFuZCBjdXJz
b3JzIHRvby4gTm90aGluZyBjaGFuZ2VzDQppbiB0aGUgaW5saW5pbmcgcHJvY2VzcywganVzdCB0
aGUgZmlsZSBleHRlbnNpb246DQoNCiAgICBwZXJsIC1NV2luMzI6OkdVSTo6Qml0bWFwSW5saW5l
IC1lIGlubGluZSgnaGFycm93LmN1cicsJ0N1cnNvcjEnKSA+PnNjcmlwdC5wbA0KICAgIHBlcmwg
LU1XaW4zMjo6R1VJOjpCaXRtYXBJbmxpbmUgLWUgaW5saW5lKCdndWlwZXJsLmljbycsJ0ljb24x
JykgPj5zY3JpcHQucGwNCg0KVGhlIG1vZHVsZSByZWNvZ25pemVzIGZyb20gdGhlIGV4dGVuc2lv
biB0aGUgdHlwZSBvZiBvYmplY3QgdGhhdCBpdA0Kc2hvdWxkIHJlY3JlYXRlLCBzbyBpdCB3aWxs
IGFkZCB0aGVzZSBsaW5lcyB0byBGPHNjcmlwdC5wbD46DQoNCiAgICAkQ3Vyc29yMSA9IG5ld0N1
cnNvciBXaW4zMjo6R1VJOjpCaXRtYXBJbmxpbmUoIHEoIC4uLg0KICAgICRJY29uMSA9IG5ld0lj
b24gV2luMzI6OkdVSTo6Qml0bWFwSW5saW5lKCBxKCAuLi4NCiAgIA0KQzxuZXdDdXJzb3I+IG9y
IEM8bmV3SWNvbj4gYXJlIHVzZWQgaW4gcGxhY2Ugb2YganVzdCBDPG5ldz4uIEFzIGFib3ZlLA0K
dGhlIHJldHVybmVkIG9iamVjdHMgYXJlIHJlZ3VsYXIgV2luMzI6OkdVSSBvYmplY3RzIChyZXNw
ZWN0aXZlbHksDQpXaW4zMjo6R1VJOjpDdXJzb3IgYW5kIFdpbjMyOjpHVUk6Okljb24pLg0KDQo9
aGVhZDEgV0FSTklOR1MNCg0KPW92ZXIgNA0KDQo9aXRlbSAqIA0KDQpCPFJlcXVpcmVzIE1JTUU6
OkJhc2U2ND4NCg0KLi4uYW5kLCBvZiBjb3Vyc2UsIFdpbjMyOjpHVUkgOi0pDQoNCj1mb3IgaHRt
bCA8UD4NCg0KPWl0ZW0gKiANCg0KQjxEb24ndCB1c2UgaXQgb24gbGFyZ2UgYml0bWFwIGZpbGVz
IT4NCg0KQml0bWFwSW5saW5lIHdhcyBkZXNpZ25lZCBmb3Igc21hbGwgYml0bWFwcywgc3VjaCBh
cw0KdG9vbGJhciBpdGVtcywgaWNvbnMsIGV0IGFsaWE7IGl0IGlzIG5vdCBhdCBhbGwgDQpwZXJm
b3JtYW50Lg0KSW5saW5lZCBkYXRhIHRha2VzIGFwcHJveGltYXRpdmVseSB0aGUgc2l6ZSBvZiB5
b3VyDQpiaXRtYXAgZmlsZSBwbHVzIGEgMzAlOyB0aHVzLCBpZiB5b3UgaW5saW5lIGEgMTAwayBi
aXRtYXAgDQp5b3UncmUgYWRkaW5nIGFib3V0IDEzMGsgb2YgYmFkLWxvb2tpbmcgZGF0YSB0byB5
b3VyIHNjcmlwdC4uLg0KDQo9Zm9yIGh0bWwgPFA+DQoNCj1pdGVtICogDQoNCkI8WW91ciBzY3Jp
cHQgbXVzdCBoYXZlIHdyaXRlIGFjY2VzcyB0byBpdHMgY3VycmVudCBkaXJlY3Rvcnk+DQoNCldo
ZW4gaW5saW5lZCBkYXRhIGFyZSB1c2VkIGluIHlvdXIgc2NyaXB0ICh3aXRoIA0KQzxuZXcgV2lu
MzI6OkdVSTo6Qml0bWFwSW5saW5lLi4uPikNCmEgdGVtcG9yYXJ5IGZpbGUgaXMgY3JlYXRlZCwg
dGhlbiBsb2FkZWQgYXMgYSByZWd1bGFyDQpiaXRtYXAgYW5kIHRoZW4gaW1tZWRpYXRlbHkgZGVs
ZXRlZC4NClRoaXMgd2lsbCBmYWlsIGlmIHlvdXIgc2NyaXB0IGlzIG5vdCBhYmxlIHRvIGNyZWF0
ZSBhbmQgZGVsZXRlDQpmaWxlcyBpbiB0aGUgY3VycmVudCBkaXJlY3RvcnkgYXQgdGhlIG1vbWVu
dCBvZiB0aGUgY2FsbC4NCk9uZSB3b3JrYXJvdW5kIGNvdWxkIGJlIHRvIGNoYW5nZSBkaXJlY3Rv
cnkgdG8gYSBzYWZlciBwbGFjZQ0KYmVmb3JlIGNvbnN0cnVjdGluZyB0aGUgYml0bWFwOg0KDQog
ICAgY2hkaXIoImM6XFx0ZW1wIik7DQogICAgJEJpdG1hcDEgPSBuZXcgV2luMzI6OkdVSTo6Qml0
bWFwSW5saW5lKCAuLi4gKTsNCg0KQSBiZXR0ZXIgc29sdXRpb24gY291bGQgcG9wIHVwIGluIHNv
bWUgZnV0dXJlIHJlbGVhc2UuLi4NCg0KPWZvciBodG1sIDxQPg0KDQo9aXRlbSAqDQoNCkI8VGhl
IHBhY2thZ2UgZXhwb3J0cyBDPGlubGluZT4gYnkgZGVmYXVsdD4NCg0KRm9yIHByYWN0aWNhbCBy
ZWFzb25zIChzZWUgb25lLWxpbmVycyBhYm92ZSksIEM8aW5saW5lPiBpcyANCmV4cG9ydGVkIGJ5
IGRlZmF1bHQgaW50byB5b3VyIEM8bWFpbj4gbmFtZXNwYWNlOyB0byBhdm9pZA0KdGhpcyBzaWRl
LWVmZmVjdCBpcyByZWNvbW1lbmRlZCB0byB1c2UgdGhlIG1vZHVsZSBpbiB5b3VyDQpwcm9kdWN0
aW9uIHNjcmlwdHMgYXMgZm9sbG93czoNCg0KICAgIHVzZSBXaW4zMjo6R1VJOjpCaXRtYXBJbmxp
bmUgKCk7DQoNCj1iYWNrDQoNCj1oZWFkMSBWRVJTSU9ODQoNCldpbjMyOjpHVUk6OkJpdG1hcElu
bGluZSB2ZXJzaW9uIDAuMDIsIDI0IEphbnVhcnkgMjAwMS4NCg0KPWhlYWQxIEFVVEhPUg0KDQpB
bGRvIENhbHBpbmkgKCBDPGRhZGFAZGl2aW5mLml0PiApLg0KDQo9Y3V0
------------146C2313DD231
Content-Type: application/octet-stream; name="HyperLink.pm"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="HyperLink.pm"
DQpwYWNrYWdlIFdpbjMyOjpHVUk6Okh5cGVyTGluazsNCg0KbXkgJFZFUlNJT04gPSAiMC4wMiI7
DQoNCnVzZSBXaW4zMjo6R1VJOw0KdXNlIFdpbjMyOjpHVUk6OkJpdG1hcElubGluZSAwLjAyOw0K
dXNlIFdpbjMyOjpBUEkgMC4yMDsNCiMgdXNlIFdpbjMyOjpQcm9jZXNzOw0KIyB1c2UgV2luMzI6
OlRpZVJlZ2lzdHJ5Ow0KDQpASVNBID0gcXcoIFdpbjMyOjpHVUk6OkxhYmVsICk7DQoNCg0KbXkg
JExvYWRDdXJzb3IgPSBuZXcgV2luMzI6OkFQSSgidXNlcjMyIiwgIkxvYWRDdXJzb3IiLCAiTk4i
LCAiTiIpOw0KbXkgJFNoZWxsRXhlY3V0ZSA9IG5ldyBXaW4zMjo6QVBJKCJzaGVsbDMyIiwgIlNo
ZWxsRXhlY3V0ZSIsICJOUFBQUEkiLCAiTiIpOw0KbXkgJGxpbmtDdXJzb3IgPSAkTG9hZEN1cnNv
ci0+Q2FsbCggMCwgMzI2NDkgKTsNCg0KaWYobm90ICRsaW5rQ3Vyc29yKSB7DQokbGlua0N1cnNv
ciA9IG5ld0N1cnNvciBXaW4zMjo6R1VJOjpCaXRtYXBJbmxpbmUoIHEoDQpBQUFDQUFFQUlDQUFB
QXdBQVFEb0FnQUFGZ0FBQUNnQUFBQWdBQUFBUUFBQUFBRUFCQUFBQUFBQWdBSUFBQUFBQUFBQUFB
QUFBQUFBDQpBQUFBQUFBQUFBQUFBQUNBQUFDQUFBQUFnSUFBZ0FBQUFJQUFnQUNBZ0FBQWdJQ0FB
TURBd0FBQUFQOEFBUDhBQUFELy93RC9BQUFBDQovd0QvQVAvL0FBRC8vLzhBQUFBQUFBQUFBQUFB
QUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFUTVJFUkVRQUFBDQpBQUFBQUFB
QUFBQUV6RVJFUkVBQUFBQUFBQUFBQUFBQUJNeEVSRVJBQUFBQUFBQUFBQUFBQUFUTVJFUkVRQUFB
QUFBQUFBQUFBQUFFDQp6RVJFUkVBQUFBQUFBQUFBQUFBQUFFUUFBQUFBQUFBQUFBQUFBQUFBQUFC
Ly8vLzRBQUFBQUFBQUFBQUFBQUFBZi8vLytBQUFBQUFBDQpBQUFBQUFBQUIvLy8vLytBQUFBQUFB
QUFBQUFBQUgvLy8vLy9nQUFBQUFBQUFBQUFBQWYvLy8vLy8vZ0FBQUFBQUFBQUFBQUgvLy8vDQov
Ly80QUFBQUFBQUFBQUFBZi8vLy8vLy8rQUFBQUFBQUFBQUFBSC8vLy8vLy8vK0FBQUFBQUFBQUFB
Zi8vLy8vLy8vL2dBQUFBQUFBDQpBQUFILzRqLy8vLy8vNEFBQUFBQUFBQUFmL2dBLy8vLy8vK0FB
QUFBQUFBQUFIK0FCLy8vLy85L2dBQUFBQUFBQUFmNEFBZi9mL2Y0DQpENEFBQUFBQUFBQUhjQUFI
K0ErQStBK0FBQUFBQUFBQUFBQUFCL2dQZ1BnSGNBQUFBQUFBQUFBQUFBZjRENEQ0QUFBQUFBQUFB
QUFBDQpBQUFIK0ErQWR3QUFBQUFBQUFBQUFBQUFCL2dIY0FBQUFBQUFBQUFBQUFBQUFBZjRBQUFB
QUFBQUFBQUFBQUFBQUFBSCtBQUFBQUFBDQpBQUFBQUFBQUFBQUFCL2dBQUFBQUFBQUFBQUFBQUFB
QUFBZjRBQUFBQUFBQUFBQUFBQUFBQUFBQWR3QUFBQUFBQUFBQUFBQUFBQUFBDQpBQUFBQUFBQUFB
QUFBQUQvLy8vLy8vLy8vLy9nQS8vLzRBUC8vK0FELy8vZ0EvLy80QVAvLy9BSC8vL3dCLy8vOEFm
Ly8rQUQvLy9BDQpBLy8vZ0FILy80QUIvLzhBQWYvL0FBRC8vZ0FBLy80QUFQLzhBQUQvL0NBQS8v
aGdBUC80NEFELy8rQUIvLy9nQi8vLzRBLy8vK0IvDQovLy9oLy8vLzRmLy8vK0gvLy8vaC8vLy84
Ly8vLy8vLy93PT0NCikgKTsNCn0NCg0KbXkgJWxpbmtGb250ID0gV2luMzI6OkdVSTo6Rm9udDo6
SW5mbyhXaW4zMjo6R1VJOjpHZXRTdG9ja09iamVjdCgxNykpOw0KJGxpbmtGb250ey11bmRlcmxp
bmV9ID0gMTsNCm15ICRsaW5rRm9udCA9IG5ldyBXaW4zMjo6R1VJOjpGb250KCAlbGlua0ZvbnQg
KTsNCm15ICRsaW5rQ2xhc3MgPSBuZXcgV2luMzI6OkdVSTo6Q2xhc3MoDQogICAgLW5hbWUgPT4g
IldpbjMyOjpHVUk6Okh5cGVyTGluayIsDQogICAgLWV4dGVuZHMgPT4gIlNUQVRJQyIsDQogICAg
LWN1cnNvciA9PiAkbGlua0N1cnNvciwNCik7DQoNCnN1YiBuZXcgew0KICAgIG15ICRjbGFzcyA9
IHNoaWZ0Ow0KICAgIG15ICRwYXJlbnQgPSBzaGlmdDsNCiAgICBteSAlb3B0aW9ucyA9IEBfOw0K
ICAgICRvcHRpb25zey1jbGFzc30gPSAkbGlua0NsYXNzOw0KICAgICRvcHRpb25zey1mb3JlZ3Jv
dW5kfSA9IFswLCAwLCAyNTVdIHVubGVzcyBleGlzdHMgJG9wdGlvbnN7LWZvcmVncm91bmR9Ow0K
ICAgICRvcHRpb25zey1mb250fSA9ICRsaW5rRm9udCB1bmxlc3MgZXhpc3RzICRvcHRpb25zey1m
b250fTsNCiAgICAkb3B0aW9uc3stbm90aWZ5fSA9IDE7DQogICAgDQogICAgZXZhbCBxcSgNCiAg
ICAgICAgc3ViIG1haW46OiRvcHRpb25zey1uYW1lfV9DbGljayB7DQogICAgICAgICAgICBXaW4z
Mjo6R1VJOjpIeXBlckxpbms6Ok9wZW5MaW5rKCJcUSRvcHRpb25zey11cmx9XEUiKTsgICAgICAN
CiAgICAgICAgfSAgICAgICAgICAgDQogICAgKTsgICANCiAgICByZXR1cm4gbmV3IFdpbjMyOjpH
VUk6OkxhYmVsKCAkcGFyZW50LCAlb3B0aW9ucyApOyAgDQp9DQoNCnN1YiBXaW4zMjo6R1VJOjpX
aW5kb3c6OkFkZEh5cGVyTGluayB7DQogICAgcmV0dXJuIFdpbjMyOjpHVUk6Okh5cGVyTGluay0+
bmV3KEBfKTsNCn0NCg0Kc3ViIE9wZW5MaW5rIHsNCiAgICAkU2hlbGxFeGVjdXRlLT5DYWxsKCAw
LCAwLCBzaGlmdCwgMCwgMCwgNik7DQp9DQoNCiMgc3ViIE9wZW5MaW5rX29sZCB7DQojICAgICBt
eSgkdXJsKSA9IEBfOyAgDQojICAgICBpZigkZnR5cGU9Z2V0ZnR5cGUoIi5odG1sIikpIHsNCiMg
ICAgICAgICAkZnR5cGU9fnMvIi8vZzsgIyINCiMgICAgICAgICAoJGZ0eXBlZXhlKT0kZnR5cGU9
fi9eLipcXCguKlwuZXhlKSQvaTsNCiMgICAgICAgICBteSAoJHByb2Nlc3MpOw0KIyAgICAgICAg
IFdpbjMyOjpQcm9jZXNzOjpDcmVhdGUoDQojICAgICAgICAgICAgICRwcm9jZXNzLA0KIyAgICAg
ICAgICAgICAkZnR5cGUsDQojICAgICAgICAgICAgICIkZnR5cGVleGUgJHVybCIsDQojICAgICAg
ICAgICAgIDAsDQojICAgICAgICAgICAgIERFVEFDSEVEX1BST0NFU1MsDQojICAgICAgICAgICAg
ICIuIg0KIyAgICAgICAgICkgfHwgd2FybiAiQ3JlYXRlOiAkISI7DQojICAgICB9DQojIH0NCiMg
DQojIHN1YiBnZXRmdHlwZSB7DQojICAgICBpZiAobXkgKCRleHQpID0gQF8pIHsNCiMgICAgICAg
ICBpZiAobXkgJHR5cGVOYW1lID0gJFJlZ2lzdHJ5LT57IkhLRVlfQ0xBU1NFU19ST09UXFwkZXh0
XFxcXCJ9KSB7DQojICAgICAgICAgICAgIGlmIChteSAkY29tbWFuZCA9ICRSZWdpc3RyeS0+eyJI
S0VZX0NMQVNTRVNfUk9PVFxcJHR5cGVOYW1lXFxzaGVsbFxcb3BlblxcY29tbWFuZFxcXFwifSkg
ew0KIyAgICAgICAgICAgICAgICAgbXkgKCRjbWQpOw0KIyAgICAgICAgICAgICAgICAgdW5sZXNz
ICgoJGNtZCkgPSAkY29tbWFuZD1+L14oIi4qIilccysuKiQvKSB7IA0KIyAgICAgICAgICAgICAg
ICAgICAgICgkY21kKSA9ICRjb21tYW5kPX4vXihcUyopXHMvOyANCiMgICAgICAgICAgICAgICAg
IH0NCiMgICAgICAgICAgICAgICAgIHJldHVybiAkY21kOw0KIyAgICAgICAgICAgICB9IGVsc2Ug
eyByZXR1cm4gMDsgfQ0KIyAgICAgICAgIH0gZWxzZSB7IHJldHVybiAwOyB9DQojICAgICB9IGVs
c2UgeyByZXR1cm4gMDsgfQ0KIyB9DQoNCjE7DQoNCg==
------------146C2313DD231--
From [EMAIL PROTECTED] Thu Jan 25 05:58:55 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LmvP-00040O-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001
05:58:55 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id IAA05347 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001 08:59:17 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 25 Jan 2001 08:57:20 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_063B_01C086AC.D34ADE90"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Subject: [perl-win32-gui-users] Tooltips
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_063B_01C086AC.D34ADE90
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
has anyone been successfull in getting tooltips to work?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
------=_NextPart_000_063B_01C086AC.D34ADE90
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>has anyone been successfull in getting =
tooltips to=20
work?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadsville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV></BODY></HTML>
------=_NextPart_000_063B_01C086AC.D34ADE90--
From [EMAIL PROTECTED] Thu Jan 25 08:00:08 2001
Received: from f241.law7.hotmail.com ([216.33.237.241] helo=hotmail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Looi-0000A5-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001
08:00:08 -0800
Received: from mail pickup service by hotmail.com with Microsoft SMTPSVC;
Thu, 25 Jan 2001 08:00:26 -0800
Received: from 63.228.197.179 by lw7fd.law7.hotmail.msn.com with HTTP; Thu, 25
Jan 2001 16:00:26 GMT
X-Originating-IP: [63.228.197.179]
From: "Sean Healy" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Tooltips
Date: Thu, 25 Jan 2001 07:00:26 -0900
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
Message-ID: <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 25 Jan 2001 16:00:26.0358 (UTC)
FILETIME=[EE842960:01C086E7]
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
>has anyone been successfull in getting tooltips to work?
I've played with them, but I always get the message that I'm trying to do
something to an undefined value. I tracked the problem down in GUI.pm, and
I found these two lines:
my $parent = $_[0];
my $new = Win32::GUI->_new(Win32::GUI::constant("WIN32__GUI__TOOLTIP", 0),
@_);
The first should have $_[1], as it is currently assigning
"Win32::GUI::Tooltip" to $parent, rather than the actual name of the parent
object. I tried fixing it, but my object still wouldn't initialize. (That
bad assignment is not actually causing any problems right now, but it
presumably will when the real problem is fixed.)
The real problem is that Win32::GUI->_new is returning undef, which is why I
get that error message. I looked in Win32::GUI->_new, and found that it is
returning undef due to the following line:
my $handle = Win32::GUI::Create($self, $type, @input);
It returns undef because nothing gets assigned to $handle. Unfortunately,
that line is calling something from either GUI.dll or GUI.lib, which I can't
do anything about (unless I learn C++ and get a compiler).
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
From [EMAIL PROTECTED] Thu Jan 25 08:20:14 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Lp89-0008Sp-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001
08:20:13 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id LAA31787 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001 11:20:32 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 25 Jan 2001 11:18:36 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0660_01C086C0.8FC04840"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Subject: [perl-win32-gui-users] Richedit Copy
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0660_01C086C0.8FC04840
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
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?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
------=_NextPart_000_0660_01C086C0.8FC04840
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>I have some text in a Richedit =
object. I'd=20
like to be able to copy any text that I select but it doesn't =
work. Is=20
there sojmething special I have to do?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadsville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV></BODY></HTML>
------=_NextPart_000_0660_01C086C0.8FC04840--
From [EMAIL PROTECTED] Thu Jan 25 08:22:32 2001
Received: from mail1.atx.com ([146.145.36.34])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14LpAO-0001C1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001
08:22:32 -0800
Received: from F_ATX1 by mail1.atx.com
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 25 Jan 2001 16:19:04 UT
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <CVY32P99>; Thu, 25 Jan 2001 11:22:50 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>, "'[EMAIL PROTECTED]'"
<[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Interacting with DOS Shell
Date: Thu, 25 Jan 2001 11:23:09 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
a more windows-ish way might be to open a new window that instructs the user
to input "something" with a textbox for their input and an OK button to
accept, read in their input, and close the input window.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, January 22, 2001 10:21 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Interacting with DOS Shell
Look into the Expect module. (note: I'm not positive it is implemented in
the Win32 environment - so forgive me if it is not..)
[EMAIL PROTECTED]
-----Original Message-----
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Friday, January 19, 2001 7:22 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Interacting with DOS Shell
I'm trying to make a gui interface to a command-line program I have. The
problem is that at certain points, the program wants user input. I tried
backticks, but my script hangs at the point where the program wants input.
Is there a way to interface with DOS so that when a DOS program wants input,
the control switches back to the Perl script, which can ask for input and
then pipe that input into DOS?
Backticks, exec(), and system() all fail to allow for user input after the
initial command. Is there a module or something I can use for this?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Thu Jan 25 08:43:21 2001
Received: from f268.law7.hotmail.com ([216.33.236.146] helo=hotmail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14LpUX-0007Cx-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 25 Jan 2001
08:43:21 -0800
Received: from mail pickup service by hotmail.com with Microsoft SMTPSVC;
Thu, 25 Jan 2001 08:43:40 -0800
Received: from 63.228.197.179 by lw7fd.law7.hotmail.msn.com with HTTP; Thu, 25
Jan 2001 16:43:40 GMT
X-Originating-IP: [63.228.197.179]
From: "Sean Healy" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Interacting with DOS Shell
Date: Thu, 25 Jan 2001 07:43:40 -0900
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
Message-ID: <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 25 Jan 2001 16:43:40.0661 (UTC)
FILETIME=[F8D76250:01C086ED]
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I looked into both these solutions. I couldn't get Expect to work (I'll
guess I'll have to wait for a Win32 version), and the problem with this
other one is that DOS won't relinquish control back to the script until it
has finished running - and since it's waiting for input, it never finishes.
I discovered that I cam make it work if I use the console - DOS will wait
for user input from the console, so you can enter it there.
I checked on the MSDN Library, and it seems that Windows starts an instance
of a 'Virtual Machine' for each DOS prompt. (This is to fool DOS into
thinking it's the only thing running.) What I need is some way to pipe info
into and out of a VM - but I haven't found a way yet. I've looked into
pipes and threads and interprocess communication on the MSDN Library, but
I've found nothing that works yet.
I've shelved this project for a while - I just applied for a job I'm very
likely to get, so I won't have as much free time on my hands - and I'll get
to write Perl! (My last job laid me off - in fact, about 80% of their
developers - a couple of months ago, but they had me writing PHP anyway.)
Wish me luck!
>a more windows-ish way might be to open a new window that instructs the
>user
>to input "something" with a textbox for their input and an OK button to
>accept, read in their input, and close the input window.
>Look into the Expect module. (note: I'm not positive it is implemented in
>the Win32 environment - so forgive me if it is not..)
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
From [EMAIL PROTECTED] Fri Jan 26 09:58:37 2001
Received: from front7m.grolier.fr ([195.36.216.57])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14MD8u-0001lJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 26 Jan 2001
09:58:36 -0800
Received: from lastjedi (nas20-200.wnt.club-internet.fr [213.44.179.200])
by front7m.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
SAA09169
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 26 Jan 2001
18:58:19 +0100 (MET)
Message-ID: <[EMAIL PROTECTED]>
From: "Laurent ROCHER" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
Date: Thu, 25 Jan 2001 23:19:50 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo,
>
> gimme time! this is not an automagical process ;-)
> BTW, I'm not sure yet that 0.0.558 is stable enough for a
> PPM distribution. I would like to get some feedback from
> 'people with a C compiler' that can build the module and
> test it, before giving it out to everybody.
>
I have compile version 0.0.558 under win98, with VC++ and ActivePerl 522.
No problem during compilation. (message : *** Using the 5.005 Perl Object
CPerlObj class)
But when i start any win32gui script, i have a runtime exception.
For example, with hello.pl and strong debug output.
perl Hello.pl
!XS(ParseWindowOptions): from_i=2
!XS(ParseWindowOptions): items=16
!XS(ParseWindowOptions): got option '-title'
!XS(ParseWindowOptions): got option '-left'
!XS(ParseWindowOptions): got option '-top'
!XS(ParseWindowOptions): got option '-width'
!XS(ParseWindowOptions): got option '-height'
!XS(ParseWindowOptions): got option '-name'
!XS(ParseWindowOptions): got option '-visible'
XS(Create): using class 'PerlWin32GUI_STD'
XS(Create): Done parsing parameters...
XS(Create): dwExStyle = 0x0
XS(Create): szClassname = PerlWin32GUI_STD
XS(Create): szName = hello.pl
XS(Create): dwStyle = 0x10cf0000
XS(Create): nX = 100
XS(Create): nY = 100
XS(Create): nWidth = 150
XS(Create): nHeight = 100
XS(Create): hParent = 0
XS(Create): hMenu = 0
XS(Create): hInstance = 0
XS(Create): initializing pPointer...
XS(Create): storing -type/-name...
XS(Create): calling CreateWindowEx...
!XS(WindowMsgLoop) got (3428, 0x24, 0, 6551720)
Error: Runtime exception
It's probably the GetWindowLong call before a SetWindowLong.
The first message is a WM_GETMINMAXINFO and not a WM_CREATE.
Laurent.
From [EMAIL PROTECTED] Mon Jan 29 00:04:47 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14N9It-0006EC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
00:04:47 -0800
Received: (qmail 15811 invoked from network); 29 Jan 2001 08:04:50 -0000
Received: from pe1-574.dialup.tiscalinet.it (HELO stop) (62.10.240.62)
by puppis2.tiscalinet.it with SMTP; 29 Jan 2001 08:04:50 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 29 Jan 2001 09:01:29 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0017_01C089D2.118C03A0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Column lists
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0017_01C089D2.118C03A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
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
------=_NextPart_000_0017_01C089D2.118C03A0
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Has anyone tried using =
the "column=20
lists"? For example, the "Find" program in the Start menu, has a list of =
files=20
found under the column "Name" and another column "In Folder". Another=20
interesting thing about these controls is that if you click on those =
tabs (eg.=20
"Name"), each item will be sorted accordingly. (What is the real name =
for these=20
controls?)</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_0017_01C089D2.118C03A0--
From [EMAIL PROTECTED] Mon Jan 29 03:32:59 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NCYN-0007fQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
03:32:59 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id MAA74072
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
12:32:51 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-jNhC7a; Mon Jan 29 12:32:51 2001
Date: Mon, 29 Jan 2001 12:37:12 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Laurent ROCHER <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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;
From [EMAIL PROTECTED] Mon Jan 29 06:37:41 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NFR6-0006aC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
06:37:41 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA90584
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
15:37:33 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-JPuyUa; Mon Jan 29 15:37:33 2001
Date: Mon, 29 Jan 2001 15:41:54 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Laurent ROCHER <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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;
From [EMAIL PROTECTED] Mon Jan 29 06:38:44 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NFS8-0006eR-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
06:38:44 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA47874
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
15:38:37 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-s8Fyaa; Mon Jan 29 15:38:37 2001
Date: Mon, 29 Jan 2001 15:42:59 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Jonathan Southwick <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Richedit Copy
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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;
From [EMAIL PROTECTED] Mon Jan 29 06:41:20 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NFUe-00076L-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
06:41:20 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA86324
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
15:41:13 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-fhbc7a; Mon Jan 29 15:41:13 2001
Date: Mon, 29 Jan 2001 15:45:34 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Column lists
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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;
From [EMAIL PROTECTED] Mon Jan 29 10:32:57 2001
Received: from front5m.grolier.fr ([195.36.216.55])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NJ6n-0007Xq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
10:32:57 -0800
Received: from lastjedi (nas20-207.wnt.club-internet.fr [213.44.179.207])
by front5m.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
TAA10603
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 29 Jan 2001
19:32:48 +0100 (MET)
Message-ID: <[EMAIL PROTECTED]>
From: "Laurent ROCHER" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Win32::GUI version 0.0.558
Date: Mon, 29 Jan 2001 19:35:24 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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.
From [EMAIL PROTECTED] Tue Jan 30 01:47:26 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14NXNl-0003IY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
01:47:25 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id KAA24812
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Tue, 30 Jan 2001 10:42:35 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040035125; Tue, 30 Jan 2001 10:46:50 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Message-Id: <[EMAIL PROTECTED]>
Date: Tue, 30 Jan 2001 10:46:50 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Subject: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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
From [EMAIL PROTECTED] Tue Jan 30 03:32:55 2001
Received: from smtp5.mail.yahoo.com ([128.11.69.102])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14NZ1r-0002fd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
03:32:55 -0800
Received: from unknown (HELO christop) (202.56.194.99)
by smtp.mail.vip.suc.yahoo.com with SMTP; 30 Jan 2001 11:32:49 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Date: Tue, 30 Jan 2001 16:57:10 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] a tabstrip question
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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
From [EMAIL PROTECTED] Tue Jan 30 03:40:46 2001
Received: from smtp5.mail.yahoo.com ([128.11.69.102])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14NZ9S-0002yZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
03:40:46 -0800
Received: from unknown (HELO christop) (202.56.194.99)
by smtp.mail.vip.suc.yahoo.com with SMTP; 30 Jan 2001 11:40:40 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] a tabstrip question
Date: Tue, 30 Jan 2001 17:05:02 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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 <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Tue Jan 30 06:14:04 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NbXo-00027T-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
06:14:04 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id OAA02208; Tue, 30 Jan 2001 14:13:52 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 30 Jan 2001 14:16:02 +0000
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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.
*******************************************************************************
From [EMAIL PROTECTED] Tue Jan 30 06:15:36 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NbZH-0002YX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
06:15:35 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id PAA45668
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
15:15:29 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-9NCiaa; Tue Jan 30 15:15:28 2001
Date: Tue, 30 Jan 2001 15:19:56 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] 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;
From [EMAIL PROTECTED] Tue Jan 30 06:29:13 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NbmS-00041H-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
06:29:13 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id PAA39162
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
15:29:08 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-0_Eqya; Tue Jan 30 15:29:08 2001
Date: Tue, 30 Jan 2001 15:33:36 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] 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;
From [EMAIL PROTECTED] Tue Jan 30 06:33:04 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14NbqC-0004Qq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
06:33:04 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id PAA18409
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Tue, 30 Jan 2001 15:28:06 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040073274; Tue, 30 Jan 2001 15:32:24 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: Antwort: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Instal
Message-Id: <[EMAIL PROTECTED]>
Date: Tue, 30 Jan 2001 15:32:24 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Yes, "perl makefile.pl" produced a makefile of 23.483 bytes size.
Thomas
From [EMAIL PROTECTED] Tue Jan 30 06:45:56 2001
Received: from fra.modicon.com ([64.69.103.155])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Nc2d-0006lE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
06:45:56 -0800
Received: from andng01.modicon.com (andng01 [139.158.8.104])
by fra.modicon.com (8.9.1/8.9.1) with SMTP id JAA15404
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
09:47:25 -0500 (EST)
Received: by andng01.modicon.com(Lotus SMTP MTA v4.6.4 (830.2 3-23-1999)) id
852569E4.00508C77 ; Tue, 30 Jan 2001 09:39:48 -0500
X-Lotus-FromDomain: AMERICAS
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 30 Jan 2001 09:42:34 -0500
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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
[EMAIL PROTECTED] on 01/30/2001 09:16:02 AM
Please respond to perl-win32-gui-users@lists.sourceforge.net
To: perl-win32-gui-users@lists.sourceforge.net
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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Tue Jan 30 09:13:11 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NeL8-0007IH-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
09:13:11 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id RAA04684; Tue, 30 Jan 2001 17:13:00 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 30 Jan 2001 17:15:51 +0000
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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.
*******************************************************************************
From [EMAIL PROTECTED] Tue Jan 30 09:30:52 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NecG-0000r0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
09:30:52 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id SAA68128
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
18:30:48 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-k1I8aa; Tue Jan 30 18:30:44 2001
Date: Tue, 30 Jan 2001 18:34:54 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] 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;
From [EMAIL PROTECTED] Tue Jan 30 13:31:33 2001
Received: from firewall.co.nz ([203.99.0.100])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NiNA-0007CX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
13:31:33 -0800
Received: by gateway.firewall.co.nz id <115212>; Wed, 31 Jan 2001 10:29:52 +1300
From: "Sam" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 31 Jan 2001 10:40:51 +1300
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Subject: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Installation
Priority: normal
In-reply-to: <[EMAIL PROTECTED]>
X-PM-Encryptor: IDWPGP-PM32, 4
X-mailer: Pegasus Mail for Win32 (v3.12b)
Message-Id: <[EMAIL PROTECTED]>
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
-----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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> 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
From [EMAIL PROTECTED] Tue Jan 30 13:50:42 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14Niff-00026S-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
13:50:40 -0800
Received: (qmail 26153 invoked from network); 30 Jan 2001 21:50:57 -0000
Received: from pe1-859.dialup.tiscalinet.it (HELO stop) (62.10.241.91)
by puppis2.tiscalinet.it with SMTP; 30 Jan 2001 21:50:57 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 30 Jan 2001 22:47:26 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0009_01C08B0E.9E2E2080"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Combobox in a listview?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0009_01C08B0E.9E2E2080
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
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
------=_NextPart_000_0009_01C08B0E.9E2E2080
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>Is there a way to add a =
combobox to a=20
listview, that is, let one of the elements be a combobox?</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_0009_01C08B0E.9E2E2080--
From [EMAIL PROTECTED] Tue Jan 30 14:02:14 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Niqq-0004kQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
14:02:13 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id RAA24217 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001 17:01:59 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Combobox in a listview?
Date: Tue, 30 Jan 2001 16:59:53 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_013C_01C08ADE.108F1840"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_013C_01C08ADE.108F1840
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
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
[EMAIL PROTECTED]
----- Original Message -----=20
From: Erick J. Bourgeois=20
To: [EMAIL PROTECTED]
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> </DIV>
<DIV><FONT face=3DArial size=3D2>I don't think there is a way to do=20
that. I would recommend that you 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> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadsville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</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:[EMAIL PROTECTED]" [EMAIL PROTECTED]>Erick J. =
Bourgeois</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net"=20
=
[EMAIL PROTECTED]>[EMAIL PROTECTED]
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> </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--
From [EMAIL PROTECTED] Tue Jan 30 15:40:56 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NkOO-0006XU-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
15:40:56 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id SAA16802
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
18:40:44 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
SAA24186 for perl-win32-gui-users@lists.sourceforge.net; Tue, 30 Jan 2001
18:40:45 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Combobox in a listview?
To: perl-win32-gui-users@lists.sourceforge.net
Date: Tue, 30 Jan 2001 18:40:45 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "Jonathan Southwick" at Jan 30, 2001
04:59:53 PM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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
> [EMAIL PROTECTED]
> ----- Original Message -----=20
> From: Erick J. Bourgeois=20
> To: [EMAIL PROTECTED]
> 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> </DIV>
> <DIV><FONT face=3DArial size=3D2>I don't think there is a way to do=20
> that. I would recommend that you 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> </DIV>
> <DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
> Network=20
> Services<BR>Allegheny College, Meadsville, PA<BR><A=20
> href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</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:[EMAIL PROTECTED]" [EMAIL PROTECTED]>Erick J. =
> Bourgeois</A>=20
> </DIV>
> <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
> href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net"=20
> =
> [EMAIL PROTECTED]>[EMAIL PROTECTED]
> 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> </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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Tue Jan 30 19:44:49 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NoCN-0004vD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 30 Jan 2001
19:44:48 -0800
Received: from christop (unknown [203.197.137.50])
by md4.vsnl.net.in (Postfix) with SMTP id C6A2B9EF9
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
09:19:08 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Date: Wed, 31 Jan 2001 09:08:58 +0530
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0011_01C08B65.71C70500"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] a win32 RASE question
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0011_01C08B65.71C70500
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
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
------=_NextPart_000_0011_01C08B65.71C70500
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.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>hi all</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Please tell me if this question is =
totally off=20
topic here .</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>If it is , can anyone suggest a =
suitable mailing=20
list for this question</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>I thought since the finest win32 api =
minds hang out=20
here I would post it here</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>The code is taken from the actual=20
example</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2>----------------------------------------------------------------=
-----</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>$|=3D1;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>use Win32::RASE;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "\nI'm dialing via the first RAS =
entry:=20
$first_RAS_entry\n\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>($UserName, $Password) =3D=20
RasGetUserPwd($first_RAS_entry)<BR> or die=20
Win32::RASE::FormatMessage;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "UserName:";<BR>!$UserName ?=20
chomp($UserName=3D<>) : print "$UserName\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "Password:";<BR>!$Password ?=20
chomp($Password=3D<>) : print "$Password\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><BR>$hrasconn =3D =
RasDial($first_RAS_entry, undef ,=20
$UserName, $Password)<BR> or die =
Win32::RASE::FormatMessage;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>#($err, $status) =3D RasDial("CLICK", =
"DP 110-6511" ,=20
$UserName, $Password,undef,undef)<BR># or die=20
Win32::RASE::FormatMessage;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "Connected, =
\$hrasconn=3D$hrasconn\n";<BR>print=20
"\n\n------next line---\n\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial =
size=3D2><BR>#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D don't edit =
under this line=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>sub FindOpenedFolders () =
{<BR># returns array of hwnd's of the=20
opened folders<BR> my $findAfter =3D 0;<BR> my =
@folders;<BR> =20
$FindWindowEx ||=3D new Win32::API("user32", "FindWindowEx", [N,N,P,P],=20
N);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> while($findAfter =3D =
$FindWindowEx->Call(0,=20
$findAfter, "CabinetWClass", 0)) {<BR> push =
@folders,=20
$findAfter;<BR> }</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $findAfter =3D 0;<BR> =
while($findAfter =3D=20
$FindWindowEx->Call(0, $findAfter, "ExploreWClass", 0))=20
{<BR> push @folders, $findAfter;<BR> =
}<BR> =20
@folders;<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>sub CloseWindow ($) {<BR># arg - =
hwnd<BR> =20
$PostMessage ||=3D new Win32::API("user32", "PostMessage", [N,N,N,N],=20
I);<BR> $WN_CLOSE =3D 0x10;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $PostMessage->Call(shift, =
$WN_CLOSE, 0,=20
0);<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>BEGIN {<BR> require =
Win32::API;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> unless ($hwnd =3D =
(FindOpenedFolders())[0])=20
{<BR> system 'start explorer =
/n,C:\\';<BR> =20
$start_time =3D time;<BR> while (!($hwnd =3D=20
(FindOpenedFolders())[0]) && $start_time+3 < time) =
{}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $hwnd or die "Could =
not open=20
C:\\ window\n";<BR> $hwnd_opened =3D 1;<BR> =
}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $first_RAS_entry =3D=20
(RasEnumEntries())[0]<BR> or die "No one RAS entry =
were=20
found\n";<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>END { CloseWindow($hwnd) if =
$hwnd_opened=20
}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>The above code when run , starts =
dialing right away=20
...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>but I want sample codes =
for=20
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>1) invoking the default original =
windows DUN dialog .</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>2) to check whether the user is =
connected to the=20
internet</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>3) to disconnet from =
internet</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>any help will be greatly =
appreciated</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>or should I use any other perl module=20
?</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>chris</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20
href=3D"http://www.perl-resume.com";>www.perl-resume.com</A></FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV></BODY></HTML>
------=_NextPart_000_0011_01C08B65.71C70500--
From [EMAIL PROTECTED] Wed Jan 31 00:13:29 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14NsOO-0005ZX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
00:13:28 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id JAA09660
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Wed, 31 Jan 2001 09:08:32 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040130110; Wed, 31 Jan 2001 09:12:50 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: Antwort: Re: [perl-win32-gui-users] Win32-GUI 0.0.558 Instal
Message-Id: <[EMAIL PROTECTED]>
Date: Wed, 31 Jan 2001 09:12:50 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
No, it is not but WinNT but as Aldo pointed out I am using the wrong compiler...
Thomas
From [EMAIL PROTECTED] Wed Jan 31 04:28:56 2001
Received: from ausxc07.us.dell.com ([143.166.99.215])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NwNc-0008TC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
04:28:56 -0800
Received: by ausxc07.us.dell.com with Internet Mail Service (5.5.2650.21)
id <DZC5BJV2>; Wed, 31 Jan 2001 06:28:17 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Recall: [perl-win32-gui-users] Win32-GUI Installation
Date: Wed, 31 Jan 2001 06:09:30 -0600
Expiry-Date: Fri, 2 Feb 2001 06:29:56 -0600
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Butler, Eoin would like to recall the message, "[perl-win32-gui-users]
Win32-GUI Installation".
From [EMAIL PROTECTED] Wed Jan 31 04:40:33 2001
Received: from [62.229.69.1] (helo=dns.ccg.pt)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NwYq-0001Vk-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
04:40:32 -0800
Received: from portege (portege.ccg.pt [62.229.69.140])
by dns.ccg.pt (8.9.3/8.9.3) with SMTP id MAA85465
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
12:40:29 GMT
(envelope-from [EMAIL PROTECTED])
From: "Joel Oliveira" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 31 Jan 2001 12:42:03 -0000
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2911.0)
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Importance: Normal
In-Reply-To: <[EMAIL PROTECTED]>
Subject: [perl-win32-gui-users] Checkbox properties
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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
--------------------------------------------
From [EMAIL PROTECTED] Wed Jan 31 04:41:58 2001
Received: from ausxc10.us.dell.com ([143.166.98.229])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NwaD-0001i7-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
04:41:57 -0800
Received: by ausxc10.us.dell.com with Internet Mail Service (5.5.2650.21)
id <CFWVCL9W>; Wed, 31 Jan 2001 06:34:07 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Win32-GUI Installation
Date: Wed, 31 Jan 2001 06:09:11 -0600
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: 30 January 2001 09:47
To: - [EMAIL PROTECTED]
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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Wed Jan 31 04:43:02 2001
Received: from ausxc08.us.dell.com ([143.166.99.216])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NwbF-0001mi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
04:43:01 -0800
Received: by ausxc08.us.dell.com with Internet Mail Service (5.5.2650.21)
id <DZDJMFQZ>; Wed, 31 Jan 2001 06:41:02 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED], perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Win32-GUI Installation
Date: Wed, 31 Jan 2001 06:22:22 -0600
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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,
But when I Do I get the following error
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
Rgds Eoin:
EMF2 Test Engineering
mailto:[EMAIL PROTECTED]
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: 30 January 2001 09:47
To: - [EMAIL PROTECTED]
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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Wed Jan 31 05:50:20 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14NxeN-0006QB-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
05:50:20 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id OAA12522
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
14:50:16 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-oUiz7a; Wed Jan 31 14:50:16 2001
Date: Wed, 31 Jan 2001 14:54:51 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: Recall: [perl-win32-gui-users] Win32-GUI Installation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] wrote:
> Butler, Eoin would like to recall the message,
> "[perl-win32-gui-users] Win32-GUI Installation".
I hate this. please stop 'recalling' messages.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Jan 31 05:52:06 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Nxg5-0006dz-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
05:52:06 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id OAA20736
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
14:52:03 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-R5ma7a; Wed Jan 31 14:52:03 2001
Date: Wed, 31 Jan 2001 14:56:38 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Win32-GUI Installation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] wrote:
> 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,
>
> But when I Do I get the following error
>
> 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
seems like your PPM is broken. can you successfully install
other packages?
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Jan 31 07:43:12 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14NzPb-00078S-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
07:43:11 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id QAA18180
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Wed, 31 Jan 2001 16:37:56 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040178458; Wed, 31 Jan 2001 16:42:16 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Message-Id: <[EMAIL PROTECTED]>
Date: Wed, 31 Jan 2001 16:42:16 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Subject: [perl-win32-gui-users] Tabstrips
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hello,
might be a silly question but anyway: How can I remove all Elements from a
Window in case a different Tab on a Tabstrip is
clicked and different Elements should be displayed on the Window accordingly?
Or can I define separate "Panels" with
different Elements for each Tab?
mit freundlichen Grüßen/with best regards
Thomas Emde
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
BAYER AG
IS-CT DPN
D-51386 Leverkusen
Fon: +49 (0) 214/30-81513
Fax: +49 (0) 214/30-31737
E-Mail: [EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Jan 31 08:17:26 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Nzwj-0003GQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
08:17:25 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id LAA20913 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001 11:17:24 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Tabstrips
Date: Wed, 31 Jan 2001 11:15:23 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by pellns.alleg.edu id
LAA20913
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Here is how I did it:
$MainWindow->AddTabStrip(
-name =3D> "FindTabStrip",
-left =3D> 10,
-top =3D> 10,
-width =3D> $MainWindow->ScaleWidth - 250,
-height =3D> 175,
-hottrack =3D> 1,
);
$MainWindow->FindTabStrip->InsertItem(-text =3D> "Name");
$MainWindow->FindTabStrip->InsertItem(-text =3D> "Building");
$MainWindow->FindTabStrip->InsertItem(-text =3D> "Adapter Address");
Then in the subs:
sub FindTabStrip_Click {
if ($MainWindow->FindTabStrip->SelectedItem =3D=3D 0) {
$MainMenu->{FindName}->Checked(1);
$MainMenu->{FindBuilding}->Checked(0);
$MainMenu->{FindAdapter}->Checked(0);
$MainWindow->Bld_Label->Hide();
$Building->Hide();
$MainWindow->SelectFromList->Hide();
$BuildingList->Hide();
$MainWindow->Adapt_Label->Hide();
$Adapter->Hide();
$MainWindow->FN_Label->Show();
$FirstName->Show();
$MainWindow->LN_Label->Show();
$LastName->Show();
$FirstName->SetFocus();
}
if ($MainWindow->FindTabStrip->SelectedItem =3D=3D 1) {
$MainMenu->{FindName}->Checked(0);
$MainMenu->{FindBuilding}->Checked(1);
$MainMenu->{FindAdapter}->Checked(0);
$MainWindow->FN_Label->Hide();
$FirstName->Hide();
$MainWindow->LN_Label->Hide();
$LastName->Hide();
$MainWindow->Adapt_Label->Hide();
$Adapter->Hide();
$MainWindow->Bld_Label->Show();
$Building->Show();
$MainWindow->SelectFromList->Show();
$Building->SetFocus();
}
if ($MainWindow->FindTabStrip->SelectedItem =3D=3D 2) {
$MainMenu->{FindName}->Checked(0);
$MainMenu->{FindBuilding}->Checked(0);
$MainMenu->{FindAdapter}->Checked(1);
$MainWindow->FN_Label->Hide();
$FirstName->Hide();
$MainWindow->LN_Label->Hide();
$LastName->Hide();
$MainWindow->Bld_Label->Hide();
$Building->Hide();
$MainWindow->SelectFromList->Hide();
$BuildingList->Hide();
$MainWindow->Adapt_Label->Show();
$Adapter->Show();
$Adapter->SetFocus();
}
return;
}
maybe there is an easier way but I didn't know about it so that was the w=
ay
i got around it.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, January 31, 2001 10:42 AM
Subject: [perl-win32-gui-users] Tabstrips
> Hello,
>
> might be a silly question but anyway: How can I remove all Elements fro=
m a
> Window in case a different Tab on a Tabstrip is
> clicked and different Elements should be displayed on the Window
accordingly?
> Or can I define separate "Panels" with
> different Elements for each Tab?
>
> mit freundlichen Gr=FC=DFen/with best regards
> Thomas Emde
> nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
> nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
>
> BAYER AG
> IS-CT DPN
> D-51386 Leverkusen
> Fon: +49 (0) 214/30-81513
> Fax: +49 (0) 214/30-31737
> E-Mail: [EMAIL PROTECTED]
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Wed Jan 31 08:33:18 2001
Received: from smtp1.mail.yahoo.com ([128.11.69.60])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14O0C6-0005MS-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
08:33:18 -0800
Received: from unknown (HELO christop) (202.56.194.120)
by smtp.mail.vip.suc.yahoo.com with SMTP; 31 Jan 2001 16:33:06 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Tabstrips
Date: Wed, 31 Jan 2001 21:57:08 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I found this sub in the old win32 GUI archive thought it might be useful
sub Tab_Click {
my $current_tab = $W->Tab->SelectedItem();
foreach $key (keys %{$W->Tab}) {
# Skip these items - what remains should be just widgets.
next if (grep(/^${key}$/,qw(-handle -name -type)));
$ref = $W->Tab->{$key};
if ($debug) {
print "key: $key"," value: ",$W->Tab->{$key},"\n";
print " -name: ",$ref->{-name},"\n";
print " -text: ",$ref->{-text},"\n";
}
# Strip off number from end of -name - use as tabid.
# A better way would be to define something like "-tabid => .."
# But this does not carry over after the widget is defined.
$tabid = substr($ref->{-name},-1);
if ($current_tab == $tabid) {
$ref->Show();
}
else {
$ref->Hide();
}
}
}
Hope that helps
chris
www.perl-resume.com
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, January 31, 2001 9:12 PM
Subject: [perl-win32-gui-users] Tabstrips
Hello,
might be a silly question but anyway: How can I remove all Elements from a
Window in case a different Tab on a Tabstrip is
clicked and different Elements should be displayed on the Window
accordingly?
Or can I define separate "Panels" with
different Elements for each Tab?
mit freundlichen Grüßen/with best regards
Thomas Emde
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
BAYER AG
IS-CT DPN
D-51386 Leverkusen
Fon: +49 (0) 214/30-81513
Fax: +49 (0) 214/30-31737
E-Mail: [EMAIL PROTECTED]
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Wed Jan 31 08:45:04 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14O0NU-0006fI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
08:45:04 -0800
Received: (qmail 16018 invoked from network); 31 Jan 2001 16:44:38 -0000
Received: from pe1-670.dialup.tiscalinet.it (HELO stop) (62.10.240.158)
by puppis2.tiscalinet.it with SMTP; 31 Jan 2001 16:44:38 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 31 Jan 2001 17:41:40 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0048_01C08BAD.11666460"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Listview background color
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0048_01C08BAD.11666460
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I'm sending this email as a last resort. I can't figure out how to =
change the background color of a listview. I tried the following:
$Window->ListView->BackColor(hex("0000FF"));
$Window->ListView->BackGround(hex("0000FF"));
There is an option for text color (TextColor(hex("0000FF"))).
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_0048_01C08BAD.11666460
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>I'm sending this email =
as a last=20
resort. I can't figure out how to change the background color of a =
listview. I=20
tried the following:</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 =
size=3D2></FONT> </DIV><FONT size=3D2>
<DIV align=3Dleft><FONT face=3DArial=20
color=3D#000080>$Window->ListView->BackColor(</FONT></FONT><FONT=20
face=3DArial><FONT color=3D#000080><FONT size=3D2>hex</FONT><FONT=20
size=3D2>("0000FF"));</FONT></FONT></FONT></DIV>
<DIV align=3Dleft><FONT face=3DArial><FONT color=3D#000080=20
size=3D2>$Window->ListView->BackGround(hex("0000FF"));</FONT></FONT=
></DIV>
<DIV align=3Dleft><FONT face=3DArial color=3D#000080 =
size=3D2></FONT> </DIV>
<DIV align=3Dleft><FONT face=3DArial color=3D#000080 size=3D2>There is =
an option for=20
text color (TextColor(hex("0000FF"))).</FONT></DIV>
<DIV align=3Dleft><FONT face=3DArial color=3D#000080 =
size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_0048_01C08BAD.11666460--
From [EMAIL PROTECTED] Wed Jan 31 11:34:15 2001
Received: from mail1.atx.com ([146.145.36.34])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14O31D-00067M-00; Wed, 31 Jan 2001 11:34:15 -0800
Received: from F_ATX1 by mail1.atx.com
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 31 Jan 2001 19:30:12 UT
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <D50C991V>; Wed, 31 Jan 2001 14:34:11 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>, Jonathan Southwick
<perl-win32-gui-users@lists.sourceforge.net>, "'[EMAIL PROTECTED]'"
<[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Richedit Copy
Date: Wed, 31 Jan 2001 14:34:18 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I've noticed that CTRL-c (KeyPress 3), CTRL-v (KeyPress 22), CTRL-x
(KeyPress 24), and CTRL-z (KeyPress 26) do in fact copy/paste/cut/undo
to/from the clipboard without the Win32::Clipboard module, at least it does
in one of my scripts (perl v5.6.0 and Win32::GUI v0.0.490).
But I have had problems making a menu Edit->Copy work. I tried using
Win32::Clipboard in conjuntion with my sub EditCopy_Click but with no luck
-- I haven't been able to figure out how to tell Win32::Clipboard what was
selected.
Any ideas?
-----Original Message-----
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Monday, January 29, 2001 9:43 AM
To: Jonathan Southwick
Subject: Re: [perl-win32-gui-users] Richedit Copy
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;
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Wed Jan 31 22:40:37 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14ODQ4-0003vA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 31 Jan 2001
22:40:36 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id HAA14301
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Thu, 1 Feb 2001 07:35:35 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040223605; Thu, 1 Feb 2001 07:39:54 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: Antwort: Re: [perl-win32-gui-users] Tabstrips
Message-Id: <[EMAIL PROTECTED]>
Date: Thu, 1 Feb 2001 07:39:54 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Thank you! Is the complete script available somewhere?
cheers,
Thomas
From [EMAIL PROTECTED] Thu Feb 01 02:37:48 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OH7b-00086V-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
02:37:48 -0800
Received: from christop (unknown [203.199.236.36])
by md4.vsnl.net.in (Postfix) with SMTP id E7F6A9F71
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 1 Feb 2001
16:11:56 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: Antwort: Re: [perl-win32-gui-users] Tabstrips
Date: Thu, 1 Feb 2001 16:01:22 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Yes it is available at the archives ...
I just copied the subroutine long time ago.
You need to search the archives and find out yourself ..sorry
chris
www.perl-resume.com
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, February 01, 2001 12:09 PM
Subject: Antwort: Re: [perl-win32-gui-users] Tabstrips
Thank you! Is the complete script available somewhere?
cheers,
Thomas
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Thu Feb 01 05:51:28 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14OK92-00072Y-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
05:51:28 -0800
Received: (qmail 32497 invoked from network); 1 Feb 2001 13:51:26 -0000
Received: from pe1-994.dialup.tiscalinet.it (HELO stop) (62.10.241.226)
by puppis2.tiscalinet.it with SMTP; 1 Feb 2001 13:51:26 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 1 Feb 2001 14:48:23 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_004F_01C08C5E.06F04D00"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] GroupBox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_004F_01C08C5E.06F04D00
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
When using, for example:
$Window->AddButton(
-name =3D> "Frame",
-pos =3D> [10, 70],
-size =3D> [275, 200],
-text =3D> "Hello World!",
-style =3D> BS_GROUPBOX,
-visible =3D> 1,
);
to create a Frame (or GroupBox), how do you change the background color =
for the text?
erick
www.jeb.ca
------=_NextPart_000_004F_01C08C5E.06F04D00
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>When using, for =
example:</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>$Window->AddButton(</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> -name=20
=3D> "Frame",</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> =20
-</FONT><FONT face=3D"Courier New" color=3D#000080 =
size=3D2>pos</FONT><FONT=20
face=3D"Courier New" color=3D#000000 size=3D2> =3D> [10, =
70],</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> -size=20
=3D> [275, 200],</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> -text=20
=3D> "Hello World!",</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> -style=20
=3D> BS_GROUPBOX,</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> -visible=20
=3D> 1,</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2>);</DIV></FONT>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>to create a Frame (or =
GroupBox), how=20
do you change the background color for the text?</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_004F_01C08C5E.06F04D00--
From [EMAIL PROTECTED] Thu Feb 01 09:20:56 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14ONPj-0000zO-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
09:20:55 -0800
Received: (qmail 5075 invoked from network); 1 Feb 2001 17:20:53 -0000
Received: from pe1-994.dialup.tiscalinet.it (HELO stop) (62.10.241.226)
by puppis2.tiscalinet.it with SMTP; 1 Feb 2001 17:20:53 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 1 Feb 2001 18:17:50 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_00D0_01C08C7B.4932B5A0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] AcceleratorTable
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_00D0_01C08C7B.4932B5A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I'm working on an accelerator table and I have written this thus far, =
but it isn't responding to the keys:
use Win32::GUI;
$HotKey =3D new Win32::GUI::AcceleratorTable(
"Ctrl-O" =3D> "OpenHK",
);
$Menu =3D Win32::GUI::MakeMenu(
"&File" =3D> "File",
"> &Open Ctrl+O" =3D> "Open",
);
$MainWin =3D new Win32::GUI::Window(
-name =3D> "MainWin",
-text =3D> "Accelerator Table",
-accel =3D> $HotKey,
-size =3D> [200, 200],
-pos =3D> [70, 70],
-menu =3D> $Menu,
);
$MainWin->Show();
Win32::GUI::Dialog();
sub MainWin_Terminate {
$MainWin->Hide();
return -1;
}
sub Open_Click {
my $file=3DGUI::GetOpenFileName(-title=3D>"File To Open", =
-filter=3D>["*.*"],);
}
sub OpenHK_Click {
Open_Click();
}
#------------EOF---------------#
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_00D0_01C08C7B.4932B5A0
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>I'm working on an =
accelerator table=20
and I have written this thus far, but it isn't responding to the=20
keys:</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000080 =
size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" color=3D#000080 size=3D2>use</FONT><FONT =
face=3D"Courier New" color=3D#000000 size=3D2> Win32::GUI;</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> </DIV></FONT>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>$HotKey =3D new=20
Win32::GUI::AcceleratorTable(</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> "Ctrl-O" =3D>=20
"OpenHK",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>);</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000 =
size=3D2>$Menu =3D=20
Win32::GUI::MakeMenu(</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> =20
"&File" &n=
bsp; =20
=3D> "File",</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> "> &</FONT><FONT face=3D"Courier New" =
color=3D#000080 size=3D2>Open</FONT><FONT face=3D"Courier New" =
color=3D#000000=20
size=3D2> =
Ctrl+O"=20
=3D> "</FONT><FONT face=3D"Courier New" color=3D#000080 =
size=3D2>Open</FONT><FONT=20
face=3D"Courier New" color=3D#000000 =
size=3D2>",</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>);</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>$MainWin =3D new =
Win32::GUI::Window(</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -name =3D>=20
"MainWin",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -text =3D> "Accelerator=20
Table",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -accel =3D>=20
$HotKey,</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -size =3D> [200,=20
200],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -</FONT><FONT =
face=3D"Courier New"=20
color=3D#000080 size=3D2>pos</FONT><FONT face=3D"Courier New" =
color=3D#000000 size=3D2>=20
=3D> [70, 70],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -menu =3D> =
$Menu,</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>);</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>$MainWin->Show();</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>Win32::GUI::Dialog();</DIV></FONT>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000080=20
size=3D2>sub</FONT><FONT face=3D"Courier New" color=3D#000000 size=3D2>=20
MainWin_Terminate {</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> =
$MainWin->Hide();</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000080=20
size=3D2> return</FONT><FONT face=3D"Courier New" =
color=3D#000000=20
size=3D2> -1;</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>}</DIV></FONT></FONT></FONT>
<DIV><FONT face=3D"Courier New" color=3D#000080 size=3D2>sub</FONT><FONT =
face=3D"Courier New" color=3D#000000 size=3D2> Open_Click {</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> =20
</FONT><FONT face=3D"Courier New" color=3D#000080 =
size=3D2>my</FONT><FONT=20
face=3D"Courier New" color=3D#000000 size=3D2>=20
$file=3DGUI::GetOpenFileName(-title=3D>"File To </FONT><FONT =
face=3D"Courier New"=20
color=3D#000080 size=3D2>Open</FONT><FONT face=3D"Courier New" =
color=3D#000000 size=3D2>",=20
-filter=3D>["*.*"],);</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2>}</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000080 size=3D2>sub</FONT><FONT =
face=3D"Courier New" color=3D#000000 size=3D2><FONT color=3D#000080> =
OpenHK</FONT>_Click=20
{</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> =20
Open_Click();</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2>}</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080=20
size=3D2>#------------EOF---------------#</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BODY></HTML>
------=_NextPart_000_00D0_01C08C7B.4932B5A0--
From [EMAIL PROTECTED] Thu Feb 01 14:14:21 2001
Received: from front6m.grolier.fr ([195.36.216.56])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14ORzh-0005mC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
14:14:21 -0800
Received: from lastjedi (nas8-119.wnt.club-internet.fr [213.44.167.119])
by front6m.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
XAA15618
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 1 Feb 2001
23:14:21 +0100 (MET)
Message-ID: <[EMAIL PROTECTED]>
From: "Laurent ROCHER" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Tabstrips
Date: Thu, 1 Feb 2001 23:17:00 +0100
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_002F_01C08CA5.1493D8E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_002F_01C08CA5.1493D8E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Hello,
An other solution for hide and show TabStrip page.
This is a TabStrip test, i have made.
I use a GroupBox for each Page, and attach elements on it.
Then, just show and hide the good GroupBox.
Laurent.
----- Original Message -----
From: <[EMAIL PROTECTED]>
> might be a silly question but anyway: How can I remove all Elements from a
> Window in case a different Tab on a Tabstrip is
> clicked and different Elements should be displayed on the Window
accordingly?
> Or can I define separate "Panels" with
> different Elements for each Tab?
> Thomas Emde
------=_NextPart_000_002F_01C08CA5.1493D8E0
Content-Type: application/x-zip-compressed;
name="TabStrip.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="TabStrip.zip"
UEsDBBQAAAAIAKG5QSrXkw7d8wEAAAQHAAALAAAAVGFiU3RyaXAucGzNVVFr2zAQfg/kP9ycPXgQ
D9slMBIaGB20gTIGSclDGUWOb7aoIhtbWbqF/PdKlqwocwZp14f5JdHdd/fd99k+D96VWLF+b1Mj
1KKiKzHRh+Xs60U8Hl/fzWSg3xsMBrCkPC226rT+Be/lCS6B41bFDXQ81hi/3wN5BQx/CPl7OYUo
DIcmKIoSOsEtTUXeBONDMEea5eKPICdr1OWeJvNsY3wybN6CJHOppoQF1kIBPlgVbUqdlYhg+jlN
Ld7vssicpTgIOiHnhBhNMF8RhksV7CpzEDdN0A6rM5I9mM54jZWYCVz7rlY13TeSIYTea6qiV1XF
x3Zq/iMzr6tiUybFk6m3ZtoeYesnBGVRg0ndA4yG8k5/t8ma/m7r7qNP4RCiUZN1Z5Z8tyRB5p/q
OJI1I6eheUIc40CFnHFIhVw4t64Ztys4epng6B8F6+xPWtOEYfuovZ0L0TkuRF0X4pe5EP/fLsTn
uBAfuaAXELCicNbJPJcLUGHcvfiFElZkvi19i0u1qjeJmeJhgdWaciIQdlpChWJTcQgiSbpvwfId
f7jKCc8ozxRQQZ23f+fdkloopd5ervfGGe+jA5gjw5XAtFkQSo7l6dIwunpsOdQno5TNJoZS/ZcE
f6GeHMbaNdB9ML2hKRoDD/VnDHiilb1FzcTPUEsBAhQAFAAAAAgAoblBKteTDt3zAQAABAcAAAsA
AAAAAAAAAQAgALaBAAAAAFRhYlN0cmlwLnBsUEsFBgAAAAABAAEAOQAAABwCAAAAAA==
------=_NextPart_000_002F_01C08CA5.1493D8E0--
From [EMAIL PROTECTED] Thu Feb 01 18:51:20 2001
Received: from httptech.cablemodem.sccoast.net ([206.74.47.217]
helo=linux.httptech.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OWJg-0001Vs-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
18:51:17 -0800
Received: from f_atx1.atx.com (mail1.atx.com [146.145.36.34])
by linux.httptech.com (8.9.3/8.9.3) with ESMTP id VAA13911
for <[EMAIL PROTECTED]>; Thu, 1 Feb 2001 21:59:35 -0500
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <D50C97D6>; Wed, 31 Jan 2001 12:00:14 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "Perl GUI Mail list (E-mail)" <[EMAIL PROTECTED]>
Date: Wed, 31 Jan 2001 12:00:26 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Subject: [perl-win32-gui-users] Progress Bar question
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Anyone know what the maximum allowed value is for the ->SetRange($min,$max)
on Win32::GUI::AddProgressBar? I am trying to have it be set dynamically
based upon a file size and it would appear that if a file is too big the
$max gets set to some default.
for example:
my $ProgressWindow = new Win32::GUI::DialogBox(
-name => "ProgressWindow",
-left => 300,
-top => 300,
-width => 400,
-height => 100,
-title => "Loading file...",
);
$ProgressWindow->AddProgressBar(
-name => "PB",
-left => 20,
-top => 25,
-width => 350,
-height => 20,
-smooth => 1,
);
$max = ((stat($file))[7] / 80); ### assuming 80 chars per line
$ProgressWindow->PB->SetRange(0,$max);
From [EMAIL PROTECTED] Thu Feb 01 18:52:07 2001
Received: from httptech.cablemodem.sccoast.net ([206.74.47.217]
helo=linux.httptech.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OWKT-0001bN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
18:52:06 -0800
Received: from f_atx1.atx.com (mail1.atx.com [146.145.36.34])
by linux.httptech.com (8.9.3/8.9.3) with ESMTP id WAA13938
for <[EMAIL PROTECTED]>; Thu, 1 Feb 2001 22:00:18 -0500
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <D50C01XX>; Thu, 1 Feb 2001 10:29:56 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'Perl GUI Mail list (E-mail)'" <[EMAIL PROTECTED]>
Date: Thu, 1 Feb 2001 10:30:05 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Subject: [perl-win32-gui-users] Progress Bar question
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Anyone know what the maximum allowed value is for the ->SetRange($min,$max)
on Win32::GUI::AddProgressBar? I am trying to have it be set dynamically
based upon a file size and it would appear that if a file is too big the
$max gets set to some default.
for example:
my $ProgressWindow = new Win32::GUI::DialogBox(
-name => "ProgressWindow",
-left => 300,
-top => 300,
-width => 400,
-height => 100,
-title => "Loading file...",
);
$ProgressWindow->AddProgressBar(
-name => "PB",
-left => 20,
-top => 25,
-width => 350,
-height => 20,
-smooth => 1,
);
$max = ((stat($file))[7] / 80); ### assuming 80 chars per line
$ProgressWindow->PB->SetRange(0,$max);
From [EMAIL PROTECTED] Thu Feb 01 23:01:37 2001
Received: from mailgw.prontomail.com ([216.163.180.10]
helo=c0mailgw05.prontomail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OaDw-0002K0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Feb 2001
23:01:36 -0800
Received: from c0web10 (216.163.180.10) by c0mailgw05.prontomail.com (NPlex
5.1.050)
id 3A75FEAC000BA177 for perl-win32-gui-users@lists.sourceforge.net;
Thu, 1 Feb 2001 23:00:48 -0800
From: "Shain Edge" <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Thu, 1 Feb 2001 22:58:18 -0800
X-Priority: Normal
Content-Type: text/plain; charset=ISO-8859-1
To: perl-win32-gui-users@lists.sourceforge.net
X-Mailer: Web Based Pronto
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Documentation
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi. I just installed Win32-GUI and found absolutely _no_ documentation with it.
Where can I find the documents for help on using it?
Thanks,
Shain
Sent by AcmeCity Mail
From [EMAIL PROTECTED] Fri Feb 02 01:07:49 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OcC4-000186-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
01:07:49 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id KAA72934
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Feb 2001
10:07:48 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-pw8.Ua; Fri Feb 2 10:07:48 2001
Date: Fri, 2 Feb 2001 10:12:34 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Shain Edge <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Documentation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Shain Edge wrote:
> Hi. I just installed Win32-GUI and found absolutely _no_
> documentation with it. Where can I find the documents for help
> on using it?
download the source tree (Win32-GUI package on SourceForge) for
samples and documentation.
================================================================
THE PPM DISTRIBUTION CONTAINS ONLY THE PRECOMPILED BINARY MODULE
================================================================
if you don't have a C compiler (getting tired and sick of
repeating this... ;-).
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri Feb 02 01:30:26 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14OcXx-0006fP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
01:30:25 -0800
Received: (qmail 21963 invoked from network); 2 Feb 2001 09:30:29 -0000
Received: from unknown (HELO LIVIN) ([212.123.8.228]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 2 Feb 2001 09:30:29
-0000
Date: Fri, 2 Feb 2001 10:27:31 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] win32::gui
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear perl-win32-gui-users,
i first want to send a real big package of congrats to the
developers of this fasinating module..
It is great.. i already have some nice ideas of using the module,
but as for now it is still in test or development phase ?
In the docs i can find lots of TBD (to be dones), is this refering
only to the documentation or also the total concept of development ?
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
From [EMAIL PROTECTED] Fri Feb 02 01:44:43 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Ocln-0000OL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
01:44:43 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id KAA69010
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Feb 2001
10:44:47 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-1cAnUa; Fri Feb 2 10:44:47 2001
Date: Fri, 2 Feb 2001 10:49:34 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Danny Zak <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] win32::gui
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Danny Zak wrote:
> Dear perl-win32-gui-users,
>
> i first want to send a real big package of congrats to the
> developers of this fasinating module..
thanks :-)
> It is great.. i already have some nice ideas of using the module,
> but as for now it is still in test or development phase ?
it's a beta version, but it's almost mature. there's always
(there will always be?) a lot of space for improvement, but it
can be considered 'robust' enough.
> In the docs i can find lots of TBD (to be dones), is this
> refering only to the documentation or also the total concept of
> development ?
TBD really stands for 'to be documented' :-)
what you'll find in the documentation is developed, but not
yet documented.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri Feb 02 02:26:53 2001
Received: from mailgw.prontomail.com ([216.163.180.10]
helo=c0mailgw07.prontomail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OdQb-00087l-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
02:26:53 -0800
Received: from c0web10 (216.163.180.10) by c0mailgw07.prontomail.com (NPlex
5.1.050)
id 3A7704D400099C5A for perl-win32-gui-users@lists.sourceforge.net;
Fri, 2 Feb 2001 02:25:22 -0800
From: "Shain Edge" <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Fri, 2 Feb 2001 02:22:42 -0800
X-Priority: Normal
Content-Type: text/plain; charset=ISO-8859-1
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Documentation
X-Mailer: Web Based Pronto
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hehe..
The question I would ask is why isn't the documentation in all of the other
distributions, or at least a file to itself with a link to it in the source
code? I found the Win32-GUI accidently by doing a Win32 search on the PPM. It
looked like something that would interest me so I DLed it, looked at it and
blinked, wondering how to use it? Second step was looking around at the files
that were installed and only found the creator's e-mail. Then I searched around
more and found only other types of distributions of the product, but no docs.
So I ended up posting the question.
This goes to another question. What are the primary differences between
Win32-GUI and Perl-Tk?
Shain
---- Begin Original Message ----
Shain Edge wrote:
> Hi. I just installed Win32-GUI and found absolutely _no_
> documentation with it. Where can I find the documents for help
> on using it?
download the source tree (Win32-GUI package on SourceForge) for
samples and documentation.
================================================================
THE PPM DISTRIBUTION CONTAINS ONLY THE PRECOMPILED BINARY MODULE
================================================================
if you don't have a C compiler (getting tired and sick of
repeating this... ;-).
---- End Original Message ----
Sent by AcmeCity Mail
From [EMAIL PROTECTED] Fri Feb 02 05:16:29 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14Og4j-0005iv-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
05:16:29 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id OAA24018
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Fri, 2 Feb 2001 14:11:33 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040378417; Fri, 2 Feb 2001 14:15:57 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: Antwort: Re: [perl-win32-gui-users] Tabstrips
Message-Id: <[EMAIL PROTECTED]>
Date: Fri, 2 Feb 2001 14:15:57 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Laurent,
this is great! Thank's a lot.
Thomas
[EMAIL PROTECTED]@[EMAIL PROTECTED] on 02.02.2001 05:36:52
Bitte antworten an perl-win32-gui-users@lists.sourceforge.net@INTERNET
Gesendet von: [EMAIL PROTECTED]
An: perl-win32-gui-users@lists.sourceforge.net@INTERNET
Kopie:
Thema: Re: [perl-win32-gui-users] Tabstrips
Hello,
An other solution for hide and show TabStrip page.
This is a TabStrip test, i have made.
I use a GroupBox for each Page, and attach elements on it.
Then, just show and hide the good GroupBox.
Laurent.
----- Original Message -----
From: <[EMAIL PROTECTED]>
> might be a silly question but anyway: How can I remove all Elements from a
> Window in case a different Tab on a Tabstrip is
> clicked and different Elements should be displayed on the Window
accordingly?
> Or can I define separate "Panels" with
> different Elements for each Tab?
> Thomas Emde
From [EMAIL PROTECTED] Fri Feb 02 07:13:03 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14OhtX-0000eo-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
07:13:03 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id QAA17872
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Fri, 2 Feb 2001 16:07:53 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040392599; Fri, 2 Feb 2001 16:12:18 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: Antwort: Re: [perl-win32-gui-users] Tabstrips
Message-Id: <[EMAIL PROTECTED]>
Date: Fri, 2 Feb 2001 16:12:18 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi,
seems that my joy was a little too early: If I create a button named "button"
and add it to a certain GroupBox (-parent => $Win->box)
then the subroutine "Button_Click" does not seem to react on my clicks on the
button...
regards,
Thomas
[EMAIL PROTECTED]@[EMAIL PROTECTED] on 02.02.2001 05:36:52
Bitte antworten an perl-win32-gui-users@lists.sourceforge.net@INTERNET
Gesendet von: [EMAIL PROTECTED]
An: perl-win32-gui-users@lists.sourceforge.net@INTERNET
Kopie:
Thema: Re: [perl-win32-gui-users] Tabstrips
Hello,
An other solution for hide and show TabStrip page.
This is a TabStrip test, i have made.
I use a GroupBox for each Page, and attach elements on it.
Then, just show and hide the good GroupBox.
Laurent.
----- Original Message -----
From: <[EMAIL PROTECTED]>
> might be a silly question but anyway: How can I remove all Elements from a
> Window in case a different Tab on a Tabstrip is
> clicked and different Elements should be displayed on the Window
accordingly?
> Or can I define separate "Panels" with
> different Elements for each Tab?
> Thomas Emde
From [EMAIL PROTECTED] Fri Feb 02 14:00:02 2001
Received: from mail1.atx.com ([146.145.36.34] helo=f_atx1.atx.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14OoFO-0006lM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Feb 2001
14:00:02 -0800
Received: by F_ATX1 with Internet Mail Service (5.5.2650.21)
id <11FSFR9S>; Fri, 2 Feb 2001 17:00:06 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] AcceleratorTable
Date: Fri, 2 Feb 2001 17:00:22 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C08D63.7FFB8966"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C08D63.7FFB8966
Content-Type: text/plain;
charset="iso-8859-1"
I may be wrong, but I've found that you cannot call a _Click() directly (you
actually have to Click on something). I'd try this with your subs:
sub Open_Click {
Open();
}
sub Open {
my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
Open;
}
-----Original Message-----
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 01, 2001 12:18 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] AcceleratorTable
I'm working on an accelerator table and I have written this thus far, but it
isn't responding to the keys:
use Win32::GUI;
$HotKey = new Win32::GUI::AcceleratorTable(
"Ctrl-O" => "OpenHK",
);
$Menu = Win32::GUI::MakeMenu(
"&File" => "File",
"> &Open Ctrl+O" => "Open",
);
$MainWin = new Win32::GUI::Window(
-name => "MainWin",
-text => "Accelerator Table",
-accel => $HotKey,
-size => [200, 200],
-pos => [70, 70],
-menu => $Menu,
);
$MainWin->Show();
Win32::GUI::Dialog();
sub MainWin_Terminate {
$MainWin->Hide();
return -1;
}
sub Open_Click {
my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
Open_Click();
}
#------------EOF---------------#
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>
------_=_NextPart_001_01C08D63.7FFB8966
Content-Type: text/html;
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META content="MSHTML 5.00.2722.2800" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#9196d5>
<DIV><FONT face="Courier New" size=2><SPAN class=635165721-02022001>I may be
wrong, but I've found that you cannot call a _Click() directly (you actually
have to Click on something). I'd try this with your subs:</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN
class=635165721-02022001></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff><SPAN class=635165721-02022001>
<DIV><FONT size=2><FONT face="Courier New"><FONT color=#000080>sub</FONT><FONT
color=#000000> Open_Click {</FONT></FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2><SPAN
class=635165721-02022001> Open();</SPAN></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2><SPAN
class=635165721-02022001>}</SPAN></FONT></DIV>
<DIV> </DIV>
<DIV><FONT color=#000000 face="Courier New" size=2><SPAN
class=635165721-02022001>sub Open {</SPAN></FONT></DIV>
<DIV><FONT size=2><FONT face="Courier New"><FONT
color=#000000> </FONT><FONT color=#000080>my</FONT><FONT
color=#000000> $file=GUI::GetOpenFileName(-title=>"File To </FONT><FONT
color=#000080>Open</FONT><FONT color=#000000>",
-filter=>["*.*"],);</FONT></FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>}</FONT></DIV>
<DIV><FONT size=2><FONT face="Courier New"><FONT color=#000080>sub</FONT><FONT
color=#000000><FONT color=#000080> OpenHK</FONT>_Click
{</FONT></FONT></FONT></DIV>
<DIV><FONT size=2><FONT color=#000000><FONT
face="Courier New"> Open<SPAN
class=635165721-02022001>;</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>}</FONT></SPAN></FONT><FONT
color=#0000ff face="Courier New" size=2><SPAN
class=635165721-02022001></SPAN></FONT></DIV></DIV>
<BLOCKQUOTE style="MARGIN-RIGHT: 0px">
<DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Erick J. Bourgeois
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Thursday, February 01, 2001 12:18
PM<BR><B>To:</B>
perl-win32-gui-users@lists.sourceforge.net<BR><B>Subject:</B>
[perl-win32-gui-users] AcceleratorTable<BR><BR></DIV></FONT>
<DIV><FONT color=#000080 face=Arial size=2>I'm working on an accelerator
table
and I have written this thus far, but it isn't responding to the
keys:</FONT></DIV>
<DIV><FONT color=#000080 face="Courier New" size=2></FONT> </DIV>
<DIV><FONT color=#000080 face="Courier New" size=2>use</FONT><FONT
color=#000000 face="Courier New" size=2> Win32::GUI;</FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2> </DIV></FONT>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2>$HotKey = new
Win32::GUI::AcceleratorTable(</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> "Ctrl-O" =>
"OpenHK",</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2>);</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000000 face="Courier New" size=2>$Menu
= Win32::GUI::MakeMenu(</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000000 face="Courier New"
size=2>
"&File"
=> "File",</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000000 face="Courier New"
size=2> "> &</FONT><FONT color=#000080
face="Courier New" size=2>Open</FONT><FONT color=#000000 face="Courier New"
size=2> Ctrl+O"
=> "</FONT><FONT color=#000080 face="Courier New" size=2>Open</FONT><FONT
color=#000000 face="Courier New" size=2>",</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000000 face="Courier New"
size=2>);</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2>$MainWin = new
Win32::GUI::Window(</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> -name =>
"MainWin",</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> -text => "Accelerator
Table",</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> -accel =>
$HotKey,</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> -size => [200,
200],</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> -</FONT><FONT color=#000080
face="Courier New" size=2>pos</FONT><FONT color=#000000 face="Courier New"
size=2> => [70, 70],</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2> -menu =>
$Menu,</FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2>);</FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2></FONT> </DIV>
<DIV><FONT color=#000000 face="Courier New"
size=2>$MainWin->Show();</FONT></DIV>
<DIV><FONT color=#000000 face="Courier New"
size=2>Win32::GUI::Dialog();</DIV></FONT>
<DIV> </DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000080 face="Courier New"
size=2>sub</FONT><FONT color=#000000 face="Courier New" size=2>
MainWin_Terminate {</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000000 face="Courier New"
size=2> $MainWin->Hide();</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000080 face="Courier New"
size=2> return</FONT><FONT color=#000000 face="Courier New"
size=2> -1;</FONT></FONT></FONT></DIV>
<DIV><FONT color=#008000 face="Courier New" size=2><FONT color=#000000
face="Courier New" size=2><FONT color=#000000 face="Courier New"
size=2>}</DIV></FONT></FONT></FONT>
<DIV><FONT color=#000080 face="Courier New" size=2>sub</FONT><FONT
color=#000000 face="Courier New" size=2> Open_Click {</FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>
</FONT><FONT color=#000080 face="Courier New" size=2>my</FONT><FONT
color=#000000 face="Courier New" size=2>
$file=GUI::GetOpenFileName(-title=>"File To </FONT><FONT color=#000080
face="Courier New" size=2>Open</FONT><FONT color=#000000 face="Courier New"
size=2>", -filter=>["*.*"],);</FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>}</FONT></DIV>
<DIV><FONT color=#000080 face="Courier New" size=2>sub</FONT><FONT
color=#000000 face="Courier New" size=2><FONT color=#000080>
OpenHK</FONT>_Click {</FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>
Open_Click();</FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>}</FONT></DIV>
<DIV><FONT color=#000080 face=Arial
size=2>#------------EOF---------------#</FONT></DIV>
<DIV><FONT color=#000080 face=Arial size=2></FONT> </DIV>
<DIV><FONT color=#000080 face=Arial size=2>erick<BR>never stop
questioning<BR><A
href="http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></BLOCKQUOTE></BODY></HTML>
------_=_NextPart_001_01C08D63.7FFB8966--
From [EMAIL PROTECTED] Sat Feb 03 08:03:40 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14P5A3-0006yd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
08:03:40 -0800
Received: (qmail 12829 invoked from network); 3 Feb 2001 16:03:33 -0000
Received: from pe1-741.dialup.tiscalinet.it (HELO stop) (62.10.240.229)
by puppis2.tiscalinet.it with SMTP; 3 Feb 2001 16:03:33 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AcceleratorTable
Date: Sat, 3 Feb 2001 16:00:27 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0018_01C08DFA.6CBF7140"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0018_01C08DFA.6CBF7140
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
The subs that you supplied do not respond to the keys either. Any more =
ideas?
erick
never stop questioning
www.jeb.ca
----- Original Message -----=20
From: Peter Eisengrein=20
I may be wrong, but I've found that you cannot call a _Click() =
directly (you actually have to Click on something). I'd try this with =
your subs:
sub Open_Click {
Open();
}
sub Open {
my $file=3DGUI::GetOpenFileName(-title=3D>"File To Open", =
-filter=3D>["*.*"],);
}
sub OpenHK_Click {
Open;
}
------=_NextPart_000_0018_01C08DFA.6CBF7140
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>The subs that you =
supplied do not=20
respond to the keys either. Any more ideas?</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV>erick<BR>never stop questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000080 2px solid; MARGIN-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 [EMAIL PROTECTED] =
href=3D"mailto:[EMAIL PROTECTED]">Peter=20
Eisengrein</A> </DIV>
<DIV><BR></DIV>
<DIV><FONT face=3D"Courier New" size=3D2><SPAN =
class=3D635165721-02022001>I may be=20
wrong, but I've found that you cannot call a _Click() directly (you =
actually=20
have to Click on something). I'd try this with your =
subs:</SPAN></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#0000ff size=3D2><SPAN=20
class=3D635165721-02022001></SPAN></FONT> </DIV>
<DIV><FONT color=3D#0000ff><SPAN class=3D635165721-02022001>
<DIV><FONT size=3D2><FONT face=3D"Courier New"><FONT =
color=3D#000080>sub</FONT><FONT=20
color=3D#000000> Open_Click {</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><SPAN=20
class=3D635165721-02022001> =
Open();</SPAN></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><SPAN=20
class=3D635165721-02022001>}</SPAN></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><SPAN=20
class=3D635165721-02022001>sub Open {</SPAN></FONT></DIV>
<DIV><FONT size=3D2><FONT face=3D"Courier New"><FONT=20
color=3D#000000> </FONT><FONT =
color=3D#000080>my</FONT><FONT=20
color=3D#000000> $file=3DGUI::GetOpenFileName(-title=3D>"File To =
</FONT><FONT=20
color=3D#000080>Open</FONT><FONT color=3D#000000>",=20
-filter=3D>["*.*"],);</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2>}</FONT></DIV>
<DIV><FONT size=3D2><FONT face=3D"Courier New"><FONT =
color=3D#000080>sub</FONT><FONT=20
color=3D#000000><FONT color=3D#000080> OpenHK</FONT>_Click=20
{</FONT></FONT></FONT></DIV>
<DIV><FONT size=3D2><FONT color=3D#000000><FONT=20
face=3D"Courier New"> Open<SPAN=20
class=3D635165721-02022001>;</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>}</FONT></SPAN></FONT></DIV></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_0018_01C08DFA.6CBF7140--
From [EMAIL PROTECTED] Sat Feb 03 08:34:36 2001
Received: from smtp5.mail.yahoo.com ([128.11.69.102])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14P5e0-0001kV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
08:34:36 -0800
Received: from unknown (HELO christop) (202.56.194.119)
by smtp.mail.vip.suc.yahoo.com with SMTP; 3 Feb 2001 16:34:40 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Date: Sat, 3 Feb 2001 21:58:58 +0530
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0020_01C08E2C.82A48860"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Ok I posted it once but now Im posting it in a
different color
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0020_01C08E2C.82A48860
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
hi all
I posted this question before and I didnt even get once response.
So Im posting it in a different color.
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 }
=20
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
------=_NextPart_000_0020_01C08E2C.82A48860
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.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>hi all</FONT></DIV>
<DIV> </DIV>
<DIV>I posted this question before and I didnt even get once =
response.</DIV>
<DIV>So Im posting it in a different color.</DIV>
<DIV><FONT face=3DArial size=3D2>Please tell me if this question is =
totally off=20
topic here .</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>If it is , can anyone suggest a =
suitable mailing=20
list for this question</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>I thought since the finest win32 api =
minds hang out=20
here I would post it here</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>The code is taken from the actual=20
example</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2>----------------------------------------------------------------=
-----</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>$|=3D1;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>use Win32::RASE;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "\nI'm dialing via the first RAS =
entry:=20
$first_RAS_entry\n\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>($UserName, $Password) =3D=20
RasGetUserPwd($first_RAS_entry)<BR> or die=20
Win32::RASE::FormatMessage;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "UserName:";<BR>!$UserName ?=20
chomp($UserName=3D<>) : print "$UserName\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "Password:";<BR>!$Password ?=20
chomp($Password=3D<>) : print "$Password\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><BR>$hrasconn =3D =
RasDial($first_RAS_entry, undef ,=20
$UserName, $Password)<BR> or die =
Win32::RASE::FormatMessage;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>#($err, $status) =3D RasDial("CLICK", =
"DP 110-6511" ,=20
$UserName, $Password,undef,undef)<BR># or die=20
Win32::RASE::FormatMessage;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>print "Connected, =
\$hrasconn=3D$hrasconn\n";<BR>print=20
"\n\n------next line---\n\n";</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial =
size=3D2><BR>#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D don't edit =
under this line=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>sub FindOpenedFolders () =
{<BR># returns array of hwnd's of the=20
opened folders<BR> my $findAfter =3D 0;<BR> my =
@folders;<BR> =20
$FindWindowEx ||=3D new Win32::API("user32", "FindWindowEx", [N,N,P,P],=20
N);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> while($findAfter =3D =
$FindWindowEx->Call(0,=20
$findAfter, "CabinetWClass", 0)) {<BR> push =
@folders,=20
$findAfter;<BR> }</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $findAfter =3D 0;<BR> =
while($findAfter =3D=20
$FindWindowEx->Call(0, $findAfter, "ExploreWClass", 0))=20
{<BR> push @folders, $findAfter;<BR> =
}<BR> =20
@folders;<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>sub CloseWindow ($) {<BR># arg - =
hwnd<BR> =20
$PostMessage ||=3D new Win32::API("user32", "PostMessage", [N,N,N,N],=20
I);<BR> $WN_CLOSE =3D 0x10;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $PostMessage->Call(shift, =
$WN_CLOSE, 0,=20
0);<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>BEGIN {<BR> require =
Win32::API;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> unless ($hwnd =3D =
(FindOpenedFolders())[0])=20
{<BR> system 'start explorer =
/n,C:\\';<BR> =20
$start_time =3D time;<BR> while (!($hwnd =3D=20
(FindOpenedFolders())[0]) && $start_time+3 < time) =
{}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $hwnd or die "Could =
not open=20
C:\\ window\n";<BR> $hwnd_opened =3D 1;<BR> =
}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> $first_RAS_entry =3D=20
(RasEnumEntries())[0]<BR> or die "No one RAS entry =
were=20
found\n";<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>END { CloseWindow($hwnd) if =
$hwnd_opened=20
}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>The above code when run , starts =
dialing right away=20
...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>but I want sample codes =
for=20
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>1) invoking the default original=20
windows DUN dialog .</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>2) to check whether the user is =
connected to the=20
internet</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>3) to disconnet from =
internet</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>any help will be greatly =
appreciated</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>or should I use any other perl module=20
?</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>chris</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20
href=3D"http://www.perl-resume.com";>www.perl-resume.com</A></FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV></FONT></BODY></HTML>
------=_NextPart_000_0020_01C08E2C.82A48860--
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Sat Feb 03 09:44:24 2001
Received: from front3.grolier.fr ([194.158.96.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14P6jX-0000Ym-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
09:44:23 -0800
Received: from lastjedi (nas14-195.wnt.club-internet.fr [213.44.173.195])
by front3.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
SAA17813
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 3 Feb 2001
18:44:17 +0100 (MET)
Message-ID: <[EMAIL PROTECTED]>
From: "Laurent ROCHER" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: Antwort: Re: [perl-win32-gui-users] Tabstrips
Date: Sat, 3 Feb 2001 18:46:58 +0100
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_00CF_01C08E11.B02CFB20"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_00CF_01C08E11.B02CFB20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Hello
Yes, i have the same problem ;o)
I made a new version with click event working.
I remove Groupbox and use a specific class for the Page of the TabStrip.
So, event react now.
I have a problem for read or use elements in this class without a
specific reference.
For exemple, $Win->Page0->SimpleLabel->Text("Click !!!") in the click
event don't work.
In the second sample, i attach an create all with $Win->Tab.
I can use elements like this
$Win->Tab->Page0->{"SimpleLabel"}->Text("Click !!!").
Don't understand why, but work.
Laurent.
----- Original Message -----
From: <[EMAIL PROTECTED]>
Subject: Antwort: Re: [perl-win32-gui-users] Tabstrips
> Hi,
>
> seems that my joy was a little too early: If I create a button named
"button"
> and add it to a certain GroupBox (-parent => $Win->box)
> then the subroutine "Button_Click" does not seem to react on my clicks on
the
> button...
>
> regards,
> Thomas
>
------=_NextPart_000_00CF_01C08E11.B02CFB20
Content-Type: application/x-zip-compressed;
name="TabStrip.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="TabStrip.zip"
UEsDBBQAAgAIAFyQQyqCT67wnwIAABgKAAAMAAAAVGFiU3RyaXAyLnBs3VVbi9pAFH4X/A9j7EMW
TEnSCkVZoV7oCkIXY+vDUiSa0xgak5CMtVvrf++cmRgnFzFb2pfmxZlz/75znNNuRRD7zUZ7nwBJ
aOxtaL/ZwMvSC96Yvd6HT1MmYAbtNoqc8IC33TN5xW7kngRwkEx7PWGjNhuEfZoPXyn7vR8QQ9c7
qZCGESkJD55Dt1xoXoRb8NwtLQgDewfCXRHJlCww/EizKQt7bTE0EVlAQtHgLkPxaAfgk5FvJ8kZ
ChdxCUMko+EybcBAqvnsPAl3ywc/58U7MqQN3jtOVoxahsB0Wf0Xtiq4qmBKJLA2tg9LFJZpkywe
uDArVmhYdm1wVGZ2Qh9tF5QTw6/gSVeKVtMggZhOKexUmW7BgwtEV6pi3/IybniRajez2FIsoBCE
ET+z1+CnEYqtQ4ydsyoKE5KqngjpdojZ/ZIpE+/n2e/JeKd3iPFW1tJnP23m0lp9nlrT4WxCfuFl
9DCdjcVx+HE+nsxJ5rXhwya6eJm+Ki4YjOGe0jCoxCFU1UC6rNSufqk0/Xtwv5Hvbb4RFqfVakne
dgwBlWaLV8C5ulLadYYtbxf5wPXXy2MPQDXPSLMp6epUlk2C8dJJMP7BJJSb/4fdz5det8GCCIKi
Ov01yiyaL2XR/E9ZNGuzaOZYFNuJ+GEorQNry7Yj2shrZuzZfuiqmevf+DBUsl+nVawWEO+8wKZA
jgJHDHQfB0QzWNITGufM58C7dEQxWktAhUotLZ/ysrnrn2NjZOa8Gm3twPUC9xz4xhZSXksGFviw
oeDwZYJUZRiMUhr+uqU5cMFHLFg/TYlnluBK6n6xLG5/0gYPngNphy5BalR5LV42CKT0omFF8vPJ
rBdsAlVFEQEzrOL1z8OtH024Tb7jMLdwD0jRfwNQSwMEFAACAAgAdo9DKomhnsCYAgAApwkAAAsA
AABUYWJTdHJpcC5wbN1VW4+aQBR+N/E/jNgHNtEGaE0azZrUS7okJt2IrQ+bxqCcIukIBMa6W+t/
71xgGIRGbdqX8gJzrt/5zuFMuxVDgpuN9j4FlJIk2JBBs8EOyyB8Y/X7Hz7ZVEAN2m0m8qIDO+1e
0Ct6QvcohINi2u8LG73ZQPTpYvhK6Pt+iEzD6GRCEsWoIjwEHtlyoVUItxD4W3ImDN0dCHdNJNNk
YHjOsmkLd+3QamK0gJQwgztZxaMbAkZj7KZpXgoXcQmtSK2Gy7pDWqRezs6TcLdy8DwvOzOGusP3
nifB6NUSqE7iL9iq4aqGKZHA2bgYlkxYpU2xeOBCCVZoaPbu8KjN3JQ8uj5oJ1q/xr4M7dzKDlNI
iE1gp6t0Cx58QIZWF/uSl/lHXtZ5R1n+EuUzdw04cz5vGquuk6viKEWZ6gmhXgdZvS9SmQY/cr8n
853RQeZbVUtecNbGpbP6bDv2aDZFP9lh/GDPJuJz9HE+mc6R9NrwMRP9K+bujAVawWhPSBTWliBU
9TX0KMqeUYDM/gnuN8bB5huicVqtluLtJhASZaA4QxIQ+z+cYBdj4JzSAbmCZMXh9zDp319PNWPa
UnQXEMoRMG8YAfMfjEC167e3vYz62s6K8hETXWisWaXNuoE26/+jzbqGNqtEm7h3EI4ivugLJM6W
3n3MTr1EJoGLI1+X7n/jYaHS/TpDslpAsgtClwA6ijISIPskRF2TJj0JhIr5HHh/jkzMrJXVK1R6
5WqpXiV3gzw2i0ydV+OtG/pB6OeBL9wx2mvFwAEMGwIeX/qMKlmDWUnD11iWg62nmAYbZCnZt9xR
ldSDAtaRm566w4fAg6w5hf8VAGtCyfYriMWyLoMubVQan86fnm3n6Xc2fC22oZVAvwBQSwECFAAU
AAIACABckEMqgk+u8J8CAAAYCgAADAAAAAAAAAABACAAtoEAAAAAVGFiU3RyaXAyLnBsUEsBAhQA
FAACAAgAdo9DKomhnsCYAgAApwkAAAsAAAAAAAAAAQAgALaByQIAAFRhYlN0cmlwLnBsUEsFBgAA
AAACAAIAcwAAAIoFAAAAAA==
------=_NextPart_000_00CF_01C08E11.B02CFB20--
From [EMAIL PROTECTED] Sat Feb 03 11:01:14 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14P7vu-00022y-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
11:01:14 -0800
Received: (qmail 3098 invoked from network); 3 Feb 2001 19:01:24 -0000
Received: from pe1-114.dialup.tiscalinet.it (HELO stop) (62.10.238.114)
by puppis2.tiscalinet.it with SMTP; 3 Feb 2001 19:01:24 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sat, 3 Feb 2001 19:58:12 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0019_01C08E1B.A3A16B20"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Style Option Bug?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0019_01C08E1B.A3A16B20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
When I create a label and/or combobox, give them color attributes and =
then try and use the -style option, the colors are completely ignored. =
That is, if I just use the control without the -style option, then the =
colors work. For example, the following works great:
use Win32::GUI;
$MainWin =3D new Win32::GUI::Window(
-name =3D> "MainWin",
-text =3D> "Style Option",
-size =3D> [200, 200],
-pos =3D> [70, 70],
);
$MainWin->AddLabel(
-text =3D> "Hello World!",
-size =3D> [$MainWin->Width, $MainWin->Height],
-pos =3D> [0, 0],
-background =3D> [0,51,102],
-foreground =3D> [255,255,255],
);
$MainWin->Show();
Win32::GUI::Dialog();
sub MainWin_Terminate {
$MainWin->Hide();
return -1;
}
#--------------EOF---------------#
However, this ignores the color option altogether:
use Win32::GUI;
$MainWin =3D new Win32::GUI::Window(
-name =3D> "MainWin",
-text =3D> "Style Option",
-size =3D> [200, 200],
-pos =3D> [70, 70],
);
$MainWin->AddLabel(
-text =3D> "Hello World!",
-size =3D> [$MainWin->Width, $MainWin->Height],
-pos =3D> [0, 0],
-style =3D> ES_CENTER | WS_VISIBLE,
-background =3D> [0,51,102],
-foreground =3D> [255,255,255],
);
$MainWin->Show();
Win32::GUI::Dialog();
sub MainWin_Terminate {
$MainWin->Hide();
return -1;
}
#--------------EOF---------------#
erick
never stop questioning
www.jeb.ca
------=_NextPart_000_0019_01C08E1B.A3A16B20
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#9196d5>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>When I create a label=20
and/or combobox, give them color attributes and then try and use =
the -style=20
option, the colors are completely ignored. That is, if I just use the =
control=20
without the -style option, then the colors work. For example, the =
following=20
works great:</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV>
<DIV><FONT face=3D"Courier New" color=3D#000080 size=3D2>use</FONT><FONT =
face=3D"Courier New" color=3D#000000 size=3D2> Win32::GUI;</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> </DIV></FONT>
<DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2></FONT></FONT></FONT></DIV><FONT face=3D"Courier New" =
color=3D#008000=20
size=3D2><FONT face=3D"Courier New" color=3D#000000 size=3D2>$MainWin =
=3D new=20
Win32::GUI::Window(</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -name =3D>=20
"MainWin",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -text =3D> "Style=20
Option",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -size =3D> [200,=20
200],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -</FONT><FONT =
face=3D"Courier New"=20
color=3D#000080 size=3D2>pos</FONT><FONT face=3D"Courier New" =
color=3D#000000 size=3D2>=20
=3D> [70, 70],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>);</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>$MainWin->AddLabel(</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -text =3D> "Hello=20
World!",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -size =3D> =
[$MainWin->Width,=20
$MainWin->Height],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -</FONT><FONT =
face=3D"Courier New"=20
color=3D#000080 size=3D2>pos</FONT><FONT face=3D"Courier New" =
color=3D#000000 size=3D2>=20
=3D> [0</FONT><FONT face=3D"Courier New" color=3D#000000 size=3D2>,=20
0],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> -background =3D>=20
[0,51,102],</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> -foreground =3D> [255,255,255],</DIV>
<DIV></FONT></FONT></FONT><FONT face=3D"Courier New" color=3D#000000 =
size=3D2><FONT=20
face=3D"Courier New" color=3D#000000 size=3D2>);</FONT></FONT><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2></DIV></FONT></FONT>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>$MainWin->Show();</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>Win32::GUI::Dialog();</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000080=20
size=3D2>sub</FONT><FONT face=3D"Courier New" color=3D#000000 size=3D2>=20
MainWin_Terminate {</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> =
$MainWin->Hide();</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000080=20
size=3D2> return</FONT><FONT face=3D"Courier New" =
color=3D#000000=20
size=3D2> -1;</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>}</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2>#--------------EOF---------------#</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>However, this ignores =
the color=20
option altogether:</FONT></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2></FONT> </DIV>
<DIV>
<DIV><FONT face=3D"Courier New" color=3D#000080 size=3D2>use</FONT><FONT =
face=3D"Courier New" color=3D#000000 size=3D2> Win32::GUI;</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 =
size=3D2> </DIV></FONT>
<DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2></FONT></FONT></FONT></DIV><FONT face=3D"Courier New" =
color=3D#008000=20
size=3D2><FONT face=3D"Courier New" color=3D#000000 size=3D2>$MainWin =
=3D new=20
Win32::GUI::Window(</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -name =3D>=20
"MainWin",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -text =3D> "Style=20
Option",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -size =3D> [200,=20
200],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -</FONT><FONT =
face=3D"Courier New"=20
color=3D#000080 size=3D2>pos</FONT><FONT face=3D"Courier New" =
color=3D#000000 size=3D2>=20
=3D> [70, 70],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>);</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2>$MainWin->AddLabel(</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> </FONT></FONT><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000 =
size=3D2>-text =3D>=20
"Hello World!",</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -size =3D> =
[$MainWin->Width,=20
$MainWin->Height],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2> -</FONT><FONT =
face=3D"Courier New"=20
color=3D#000080 size=3D2>pos</FONT><FONT face=3D"Courier New" =
color=3D#000000 size=3D2>=20
=3D> [0</FONT><FONT face=3D"Courier New" color=3D#000000 size=3D2>,=20
0],</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> -style =
=3D> ES_CENTER |=20
WS_VISIBLE,</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> -background =3D>=20
[0,51,102],</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> -foreground =3D> [255,255,255],</DIV>
<DIV></FONT></FONT></FONT><FONT face=3D"Courier New" color=3D#000000 =
size=3D2><FONT=20
face=3D"Courier New" color=3D#000000 size=3D2>);</FONT></FONT><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2></DIV></FONT></FONT>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>$MainWin->Show();</FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>Win32::GUI::Dialog();</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000080=20
size=3D2>sub</FONT><FONT face=3D"Courier New" color=3D#000000 size=3D2>=20
MainWin_Terminate {</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2> =
$MainWin->Hide();</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000080=20
size=3D2> return</FONT><FONT face=3D"Courier New" =
color=3D#000000=20
size=3D2> -1;</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" color=3D#008000 size=3D2><FONT =
face=3D"Courier New"=20
color=3D#000000 size=3D2><FONT face=3D"Courier New" color=3D#000000=20
size=3D2>}</FONT></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2>#--------------EOF---------------#</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV></DIV></DIV>
<DIV><FONT face=3DArial color=3D#000080 size=3D2>erick<BR>never stop =
questioning<BR><A=20
href=3D"http://www.jeb.ca";>www.jeb.ca</A></FONT></DIV></DIV></DIV></BODY>=
</HTML>
------=_NextPart_000_0019_01C08E1B.A3A16B20--
From [EMAIL PROTECTED] Sat Feb 03 11:45:40 2001
Received: from web4105.mail.yahoo.com ([216.115.104.125])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14P8cu-0002JZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
11:45:40 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [207.252.146.201] by web4105.mail.yahoo.com; Sat, 03 Feb 2001
11:45:49 PST
Date: Sat, 3 Feb 2001 11:45:49 -0800 (PST)
From: Jeremy Blonde <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Style Option Bug?
To: perl-win32-gui-users@lists.sourceforge.net
In-Reply-To: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick,
It looks like it's only the ES_CENTER style that is
not being handled/not being used properly.
I tried adding "-align => center" and not modifying
"-style", and it ends up with the same result.
Perhaps others can give a little more insight as to
why the style is not being applied correctly.
In any case, I believe it would be better to move away
from modifying "-style" directly and instead use
"-align => center", to align the label. Or at least
use "-addstyle" or "-pushstyle" instead of just
"-style".
Jeremy Blonde
[EMAIL PROTECTED]
--- "Erick J. Bourgeois" <[EMAIL PROTECTED]> wrote:
> When I create a label and/or combobox, give them
> color attributes and then try and use the -style
> option, the colors are completely ignored. That is,
> if I just use the control without the -style option,
> then the colors work. For example, the following
> works great:
>
> use Win32::GUI;
>
> $MainWin = new Win32::GUI::Window(
> -name => "MainWin",
> -text => "Style Option",
> -size => [200, 200],
> -pos => [70, 70],
> );
> $MainWin->AddLabel(
> -text => "Hello World!",
> -size => [$MainWin->Width, $MainWin->Height],
> -pos => [0, 0],
> -background => [0,51,102],
> -foreground => [255,255,255],
> );
> $MainWin->Show();
> Win32::GUI::Dialog();
>
> sub MainWin_Terminate {
> $MainWin->Hide();
> return -1;
> }
> #--------------EOF---------------#
>
> However, this ignores the color option altogether:
>
> use Win32::GUI;
>
> $MainWin = new Win32::GUI::Window(
> -name => "MainWin",
> -text => "Style Option",
> -size => [200, 200],
> -pos => [70, 70],
> );
> $MainWin->AddLabel(
> -text => "Hello World!",
> -size => [$MainWin->Width, $MainWin->Height],
> -pos => [0, 0],
> -style => ES_CENTER | WS_VISIBLE,
> -background => [0,51,102],
> -foreground => [255,255,255],
> );
> $MainWin->Show();
> Win32::GUI::Dialog();
>
> sub MainWin_Terminate {
> $MainWin->Hide();
> return -1;
> }
> #--------------EOF---------------#
>
>
>
> erick
> never stop questioning
> www.jeb.ca
>
__________________________________________________
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
From [EMAIL PROTECTED] Sat Feb 03 12:21:28 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14P9BY-0008UJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
12:21:28 -0800
Received: (qmail 13606 invoked from network); 3 Feb 2001 20:21:38 -0000
Received: from pe1-989.dialup.tiscalinet.it (HELO stop) (62.10.241.221)
by puppis2.tiscalinet.it with SMTP; 3 Feb 2001 20:21:38 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Style Option Bug?
Date: Sat, 3 Feb 2001 21:18:27 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Jeremy,
I didn't know that there was an -align option, but that is
not really what I was concerned with, it's the colors.
Why can't you use the two color options (ie. -background
and -foreground) ALL the time, with any control?
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Jeremy Blonde <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Saturday, February 03, 2001 8:45 PM
Subject: Re: [perl-win32-gui-users] Style Option Bug?
> Erick,
>
> It looks like it's only the ES_CENTER style that is
> not being handled/not being used properly.
>
> I tried adding "-align => center" and not modifying
> "-style", and it ends up with the same result.
> Perhaps others can give a little more insight as to
> why the style is not being applied correctly.
>
> In any case, I believe it would be better to move away
> from modifying "-style" directly and instead use
> "-align => center", to align the label. Or at least
> use "-addstyle" or "-pushstyle" instead of just
> "-style".
>
> Jeremy Blonde
> [EMAIL PROTECTED]
From [EMAIL PROTECTED] Sat Feb 03 15:17:15 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14PBve-0004CM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Feb 2001
15:17:15 -0800
Received: (qmail 23984 invoked from network); 3 Feb 2001 23:17:19 -0000
Received: from unknown (HELO LIVIN) ([213.224.225.207]) (envelope-sender
<[EMAIL PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 3 Feb 2001 23:17:19
-0000
Date: Sun, 4 Feb 2001 00:14:19 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] wishlist :)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear perl-win32-gui-users,
hm.. again .. i'm really happy with the win32 development..
i got some simple questions (or more like a wishlist :) )
* is there a spreadsheet (grid) look-a-like solution or component ?
* is there a inline webbrowser somewhere ? or a HTML or XML parser ?
* is there support for JPG or common image formats like .PNG or
.GIF? since i only found how to open a BITMAP image (i assume this
is a .BMP file)
what about licensing ? if i develop a product in perl with usage of
the win32::gui module, and I spread (well lets asume for FREE) to
the public.. is it still under GNU license or do we have to pay the
win32::gui team something ?
GREAT.. the win32::gui
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
From [EMAIL PROTECTED] Sun Feb 04 12:13:12 2001
Received: from front9.grolier.fr ([194.158.96.59])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14PVX6-0005v2-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 04 Feb 2001
12:13:12 -0800
Received: from lastjedi (nas16-27.wnt.club-internet.fr [213.44.175.27])
by front9.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
VAA11048
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 4 Feb 2001
21:13:20 +0100 (MET)
Message-ID: <[EMAIL PROTECTED]>
From: "Laurent ROCHER" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Tabstrips
Date: Sun, 4 Feb 2001 21:16:02 +0100
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0015_01C08EEF.ADAB8180"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0015_01C08EEF.ADAB8180
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Hello
Find in attach file, a package for easy use of TabStrip.
- Panel.pm : implement a container window
- TabPanel.pm : implement a tabstrip with Panel for each page.
- Panel.pl : test Panel class
- TabPanel.pl : test TabPanel class
Question for improvement :
- How get size of display area of a tab control ?
(Actualy i use size of Tab control, but not working with multiline
or imagelist)
- Any idea for better implement of tab click event ?
(I use a a global hash for keep reference of TabPanel)
- Better name for class ? (my english isn't very good ;o)
Laurent.
------=_NextPart_000_0015_01C08EEF.ADAB8180
Content-Type: application/x-zip-compressed;
name="TabPanel.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="TabPanel.zip"
UEsDBBQAAgAIAFikRCqAGUdiLwIAAMUIAAALAAAAVGFiUGFuZWwucGzNVdtq20AQfTf4H0Z2KTJY
oJUTKC5x6Y3G0ECoXfIQipGtqS261gppHacN/ffszbrbTUQeqhezZ2bPnDmz3u1bMSa029mlCClP
whV/qxc3YTTyxuMv36c1YDye+8trP0IqQt1Ov9+XwYDt5Wr7G16JFVxAhPvSJp1jdzsgPofiTy5+
LyZAXHdoQM5iqIH7MOAbBXo5uMFwveEVMPK3qLf3dLFeRoz3plpPaJ+JRmOYY8plwiDr4tCWXMsm
nMn7IDiAYNeriFhWIlZJCr7215gzayaR6kymUYoJn3Lc2nVhche4Gd+SJQEmMuK2oyINVKQdlddA
5bWjGjVQjdpRnTVQnZUGqi2tEEvQVaP96i+RGvbiaFWJWbiNKaqUQx09Z5aCybk9d4dw7v4ohtPw
z4Hi9o0Ie+Ww6UFVuERKGbhgWY2HJdf5Ycc5i44J1VH3pEjxdzoq4yMNV79A8LlWUUnBQdKgjLyc
g1Vxz7aQnLKQPNlC8pw5NzoohVi9+hH0GnR5/4WB3zBFDu+Ouuc92T2vrXtKQi7gtb66FwKWbdiD
yiMDlLE4VzrbiDdF5hSfmk+hT9k63/oSn6RKd0ujYjHHZBtGPkd40H0lyHdJBA4RRf9Wkk0vDxIG
KFh8xe5Ei0TNUKotBfUu2/S58ineqKfQEQMdQgG+1I+hxAfF6uZmWOjzWa9ubpjCMRMBMRnbnOjP
dxhxdUGJU63NrHCTk9zkn9zkBLdX5q44g9zOdj0CUEsDBBQAAgAIAOGkRCoa60wnawIAAN0HAAAI
AAAAUGFuZWwucGytVGtrGkEU/S74H65ayi51qY8KwSWBJm1joYXSWPwQiqzuRIeOM7I7xrTif++8
nX3UhtL9ssy955577plHp7VFGWk2mo3OLkeQ8wwvedxsyMUM0+FgPL799rESGI+/JBSRWBV2OjKT
sr1cbX7CC7GCS6BoX6jQmKDZAPFFBD1w8b+8gn6v1zVBzrZQCe5xytcqODgF1wiv1rwUpMkG6fK2
btZ2xOjJdGsr4TBFOZfZ0I2g4nIh5UdXb9NUI4MquUo47i3Ljej7URdG3218wbIUZWoY10hzq3rV
4lOyqLZQPe7wZkuQypen8PIgQy6f41+2/v6i1xXWODEJwStqSpeIcpS1/yjqesc5o7Wqrjm1zlUU
3RC8/AGFdL0g4zlMcIogoSncrdkeFqprYQO0EKOjRoqss72cGmWOSfjzPYNPCqrlswmr/Gad0BUS
s4r8P+ieeptWcfFEXTyfH1i2RPAVSU9l7KU+4nMdCcLSXQTC2PakSjqiMP6NfIcTwlan0v/xSap8
tzAq5lOUbTBNOIKDnjdDfJdRiPqi6bEE1qNIpMTKl8TefTBTLBOCZjIWW4R9CHzERMViTVM43aZD
YIgj8c50HUcEw2EYn2rMiYiuPrNHUQMw8rGDQQkrLXbY0Xms3F6LdVouetUaZ5EaoOQQfoAAPeGc
54b5oFDH0AJqTTRWlLysddOHFkwt2eo9VnqqwE71GgahGOaNGC2w7CbW74VxDZd5Yp7L88rwSKaj
55fZvLl+lQ41Z0Gmg4LHZhPP1Lhr5NfIzTxX45sjsUF7gghhMGMZSaHVarWrjLnH+Hc+DX3/KB52
n+83UEsDBBQAAgAIAJKkRCrAWNQviAEAAOUDAAAIAAAAUGFuZWwucG2Nk19vgjAUxd9N+A43zkVI
dPHPniAYEZgjYbqA070ZkLqRIToKUaN895WKoGJ0hIdye/q7p/R0Zc1+rC8EE9dvt3i+/6Hx/Lvl
I09gSkxpsYXKWDVMbTgAEcqNp0azTCcifLqElrqaKRHR75o9ZZGxs1xzVFGhYNmzMCZCH63PutI6
y5SAPHXfWqBkIHagWrBWrTGlA/GBvJCQ6BBHNqXukimAxPyMNiMcwN/uPBSO9ZUVID8s1B+Xq9Bd
+om97lQ4YCppbVensJjMnWxEOJfgcOuhRDIxp2PN1Hq6CvvkQ37VdKVARJtsQQMi30PELNq4OMRX
ROlqdw5sQWMvAwcFMXDHzV8xBbCnvnpDQ1ENyJ+EWESJIjQ54ZKVOT6w1M+pOZJGmqwqffUmq/Uf
lqxr6mB0l9Uusi72qOj9F0N6U+/v8ZlL/2ucpwYjb34lobplI49Ns1PLwnIEBCiMAh9seoqUUUsD
SARxHtfi9eB5yXFoprIc3xLlZ5y2LNyQeod4Z7tT7tD5D1BLAwQUAAIACACppEQqUyY4AZQDAACl
CgAACwAAAFRhYlBhbmVsLnBttVZbTxpBFH438T+coE12I2tQ48tSiEZJS9oqkVofTGMW9gBTl13c
HaSW7H/vmftyqbUPBRJmzv3yzZmZRcPHaIxwx9KT4zD8cNsNw6/RoBelmDR3d3Z3pi+w/61z0+9e
X0ELao3DxlFNMuZFVau5TghDZ+Os2z8n5aeFt+amz3M2842fd9204FE6RJJdlpK6Rz9IcSFXxXwg
1rAUHAAR2TCJigKAFIoJG/Gmoc+iHFO+QX+XzTjL0oLoZw9NZ2YmQpVmajLqWhNgDy5xFM0TDpIE
V9EUlYYWb8G+NrcMJKUENgL8yQpebLC0sz24ogRM5sZ9gcmIzIncthUIPJ1P3SagaqYsdlPGgZnS
PUc5iwYJykCF4aC9DD5HBe+pEFvQaK7wNB1k+io1G+wnxBlkgx845JDjCCmIobJsWrV0iaZUoFI4
kKatjfM4houEDR+h80w5KDI+Rwk8PXlqJz+iu9OIpWG4ZvJBaS+tpPjkyOd5av62oTdoSz3p1Fsz
6TetsVKufB2utkf1I1jJPOoaZCRQWkSKpPp98mRxWY2A1nG2CEMSMsEYzMLrERMCvLMHf8UXVRpz
Dp0Ep7J82qEidzlOq+dBI+mvoFdtiUC22x6mbE5npmWgcSG2nm/PlKgcOLZBzqHSq5ymBYv5pCJ5
J/YVQxNkYxKw/I+0n1Q9DbI8xlxDVRDpXHkbB0tJlb5BhlPbkBEC5fpxt/6pFDIVT4MiUJlSBm2V
dd0wZlkBmnF/Wofj0++WVbBfRudeVyCAo0bdphvAScOJ61ilC7WWLN/25zpNXqiP2QJGLC84dWqM
bvhQ0ViMng/zVELVM82jmvkrPa7OGp1v/7bXuQlDhyBvdaxYkNppUEH+DYpMLQzVdgOCmxPZgmKV
bLFgyJtxaheeMmEL6lcQ90fkSmvaddCifqjZZ1rSop5oqVGWkwsmQQf0/15bFZuDAwsyBZ8xbjsH
TE8Vw5CCZdBWCWyLX6LSFZcEkUNYLS7tX6vtmwrwH1O7xILn2YuaeJ5NacvlQ+L27jHwWm8zqphd
QS4xQY5yyLmqVIi6NDFDqKmJujJQIYQvyCdZjFWlNOOwyPJHlo5rq9h2F4Z15khveXbYwbHRIFTj
W9TWXZ3yLqq8WcZa2UhXO1AhudvcnnQxDUDQoWfmhFMwzVIjw+r0xXARz5EtKqsvBsfo02rIMZZT
Q7XbYuYfgt4anohHh1eq1434HhHhN1BLAQIUABQAAgAIAFikRCqAGUdiLwIAAMUIAAALAAAAAAAA
AAEAIAC2gQAAAABUYWJQYW5lbC5wbFBLAQIUABQAAgAIAOGkRCoa60wnawIAAN0HAAAIAAAAAAAA
AAEAIAC2gVgCAABQYW5lbC5wbFBLAQIUABQAAgAIAJKkRCrAWNQviAEAAOUDAAAIAAAAAAAAAAEA
IAC2gekEAABQYW5lbC5wbVBLAQIUABQAAgAIAKmkRCpTJjgBlAMAAKUKAAALAAAAAAAAAAEAIAC2
gZcGAABUYWJQYW5lbC5wbVBLBQYAAAAABAAEAN4AAABUCgAAAAA=
------=_NextPart_000_0015_01C08EEF.ADAB8180--
From [EMAIL PROTECTED] Mon Feb 05 05:39:11 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14PlrL-0003fJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
05:39:11 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id OAA86672
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Feb 2001
14:39:22 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-f7.9aa; Mon Feb 5 14:39:21 2001
Date: Mon, 5 Feb 2001 14:44:25 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Peter Eisengrein <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Progress Bar question
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Peter Eisengrein wrote:
> Anyone know what the maximum allowed value is for the
> ->SetRange($min,$max) on Win32::GUI::AddProgressBar? I am trying
> to have it be set dynamically based upon a file size and it would
> appear that if a file is too big the $max gets set to some default.
the storage is actually 16 bit. I've just found that there is
a way to store values up to 32 bits. I'll add this functionality
in the next release. thanks for pointing this out :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 05 05:59:30 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14PmB0-0003yE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
05:59:30 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id OAA38924
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Feb 2001
14:59:43 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-.F0gia; Mon Feb 5 14:59:43 2001
Date: Mon, 5 Feb 2001 15:04:50 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Danny Zak <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] wishlist :)
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Danny Zak wrote:
> Dear perl-win32-gui-users,
>
> hm.. again .. i'm really happy with the win32 development..
>
> i got some simple questions (or more like a wishlist :) )
>
> * is there a spreadsheet (grid) look-a-like solution or
> component ?
no, but I'm thinking about implementing one (just thinking
for now :-).
> * is there a inline webbrowser somewhere ? or a HTML or
> XML parser ?
no, and I don't think I will try to implement one :-)
you should instead look at Win32::OLE, to see if you can
embed an InternetExplorer instance in a window.
that said, it seems that RichEdit 3.0 (available in
Windows 2000) has a lot of nice features, that I'll try to
implement if time permits.
> * is there support for JPG or common image formats like
> .PNG or .GIF? since i only found how to open a BITMAP image
> (i assume this is a .BMP file)
yes, support is for .BMP files only. there is something in
the Win32 API about JPGs, but I have not yet investigated it
thoroughly.
> what about licensing ? if i develop a product in perl with
> usage of the win32::gui module, and I spread (well lets asume
> for FREE) to the public.. is it still under GNU license or do
> we have to pay the win32::gui team something ?
no, you don't have to pay anything. I'm not a lawyer and I don't
want to pay a lawyer :-)
Win32::GUI is released under the Artistic License, eg. you can
redistribute it under the same terms of Perl itself.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 05 06:07:27 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14PmIh-000497-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
06:07:27 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA39540;
Mon, 5 Feb 2001 15:07:36 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-0gGIya; Mon Feb 5 15:07:36 2001
Date: Mon, 5 Feb 2001 15:12:43 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
CC: <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Style Option Bug?
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> Jeremy,
>
> I didn't know that there was an -align option, but that is
> not really what I was concerned with, it's the colors.
> Why can't you use the two color options (ie. -background
> and -foreground) ALL the time, with any control?
because there are either bugs in my code, OR the Win32 SDK
does not support what you want to do. I can fix bugs, but
I can't provide what the SDK does not provide :-)
that said, I've fixed Win32::GUI for your case (I have
removed a check that avoided coloring if the Label has
the SS_SIMPLE style. don't know why it didn't worked, but
now it seems to work. if you explicitly add the SS_SIMPLE
style to the Label, however, you don't get the background
color, but this should not be a problem :-).
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 05 06:13:54 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14PmOw-0004Km-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
06:13:54 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA102534;
Mon, 5 Feb 2001 15:14:02 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-Z0RR7a; Mon Feb 5 15:14:02 2001
Date: Mon, 5 Feb 2001 15:19:09 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Shain Edge" <[EMAIL PROTECTED]>
CC: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Documentation
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Shain Edge wrote:
> Hehe..
>
> The question I would ask is why isn't the documentation in all
> of the other distributions, or at least a file to itself with a
> link to it in the source code? I found the Win32-GUI accidently
> by doing a Win32 search on the PPM. It looked like something that
> would interest me so I DLed it, looked at it and blinked,
> wondering how to use it? Second step was looking around at the
> files that were installed and only found the creator's e-mail.
> Then I searched around more and found only other types of
> distributions of the product, but no docs. So I ended up posting
> the question.
you're correct, and pardon my nervous attitude :-)
I usually announce releases on this mailing list, so I presumed
that users of this mailing list were aware of the fact that the PPM
distribution is only there to help people without a C compiler,
not to provide a complete package.
the documentation is not stable at this point, so it can't be
added to the PPM (would leave a mess of half-written files here
and there with every new release :-).
> This goes to another question. What are the primary differences
> between Win32-GUI and Perl-Tk?
this is candidate #1 for the yet-to-be-written FAQ :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 05 13:41:48 2001
Received: from mail1.atx.com ([146.145.36.34] helo=f_atx1.atx.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14PtOO-0001sO-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
13:41:48 -0800
Received: by F_ATX1 with Internet Mail Service (5.5.2650.21)
id <11FSGBCX>; Mon, 5 Feb 2001 16:41:38 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Progress Bar question
Date: Mon, 5 Feb 2001 16:41:51 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Thanks. Do you know if this same 16-bit size also applies to the size of the
RichEdit buffer? I have a problem with Win98 machines losing data from the
RichEdit window once there is "too much" data.
-----Original Message-----
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Monday, February 05, 2001 8:44 AM
To: Peter Eisengrein
Subject: Re: [perl-win32-gui-users] Progress Bar question
Peter Eisengrein wrote:
> Anyone know what the maximum allowed value is for the
> ->SetRange($min,$max) on Win32::GUI::AddProgressBar? I am trying
> to have it be set dynamically based upon a file size and it would
> appear that if a file is too big the $max gets set to some default.
the storage is actually 16 bit. I've just found that there is
a way to store values up to 32 bits. I'll add this functionality
in the next release. thanks for pointing this out :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Mon Feb 05 08:34:22 2001
Received: from mail1.atx.com ([146.145.36.34] helo=f_atx1.atx.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Poas-0008R5-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
08:34:22 -0800
Received: by F_ATX1 with Internet Mail Service (5.5.2650.21)
id <11FSF75R>; Mon, 5 Feb 2001 11:34:26 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] AcceleratorTable
Date: Mon, 5 Feb 2001 11:34:36 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C08F91.807E2C1A"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C08F91.807E2C1A
Content-Type: text/plain;
charset="iso-8859-1"
I've never been able to get the -accel's to work either. Good luck, I am
looking forward to seeing the resolution on this.
-----Original Message-----
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Saturday, February 03, 2001 10:00 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] AcceleratorTable
The subs that you supplied do not respond to the keys either. Any more
ideas?
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>
----- Original Message -----
From: Peter Eisengrein <mailto:[EMAIL PROTECTED]>
I may be wrong, but I've found that you cannot call a _Click() directly (you
actually have to Click on something). I'd try this with your subs:
sub Open_Click {
Open();
}
sub Open {
my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
Open;
}
------_=_NextPart_001_01C08F91.807E2C1A
Content-Type: text/html;
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META content="MSHTML 5.00.2722.2800" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#9196d5>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN
class=960413216-05022001>I've never been able to get the -accel's to work
either. Good luck, I am looking forward to seeing the resolution on
this.</SPAN></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Erick J. Bourgeois
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Saturday, February 03, 2001 10:00
AM<BR><B>To:</B>
perl-win32-gui-users@lists.sourceforge.net<BR><B>Subject:</B>
Re: [perl-win32-gui-users] AcceleratorTable<BR><BR></DIV></FONT>
<DIV><FONT color=#000080 face=Arial size=2>The subs that you supplied do not
respond to the keys either. Any more ideas?</FONT></DIV>
<DIV><FONT color=#000080 face=Arial size=2></FONT> </DIV>
<DIV>erick<BR>never stop questioning<BR><A
href="http://www.jeb.ca";>www.jeb.ca</A></DIV>
<BLOCKQUOTE dir=ltr
style="BORDER-LEFT: #000080 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px;
PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color:
black"><B>From:</B>
<A href="mailto:[EMAIL PROTECTED]"
[EMAIL PROTECTED]>Peter Eisengrein</A> </DIV>
<DIV><BR></DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=635165721-02022001>I may
be
wrong, but I've found that you cannot call a _Click() directly (you
actually
have to Click on something). I'd try this with your
subs:</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN
class=635165721-02022001></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff><SPAN class=635165721-02022001>
<DIV><FONT size=2><FONT face="Courier New"><FONT
color=#000080>sub</FONT><FONT color=#000000> Open_Click
{</FONT></FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2><SPAN
class=635165721-02022001> Open();</SPAN></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2><SPAN
class=635165721-02022001>}</SPAN></FONT></DIV>
<DIV> </DIV>
<DIV><FONT color=#000000 face="Courier New" size=2><SPAN
class=635165721-02022001>sub Open {</SPAN></FONT></DIV>
<DIV><FONT size=2><FONT face="Courier New"><FONT
color=#000000> </FONT><FONT color=#000080>my</FONT><FONT
color=#000000> $file=GUI::GetOpenFileName(-title=>"File To </FONT><FONT
color=#000080>Open</FONT><FONT color=#000000>",
-filter=>["*.*"],);</FONT></FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New" size=2>}</FONT></DIV>
<DIV><FONT size=2><FONT face="Courier New"><FONT
color=#000080>sub</FONT><FONT color=#000000><FONT color=#000080>
OpenHK</FONT>_Click {</FONT></FONT></FONT></DIV>
<DIV><FONT size=2><FONT color=#000000><FONT
face="Courier New"> Open<SPAN
class=635165721-02022001>;</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT color=#000000 face="Courier New"
size=2>}</FONT></SPAN></FONT></DIV></DIV></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------_=_NextPart_001_01C08F91.807E2C1A--
From [EMAIL PROTECTED] Mon Feb 05 14:46:49 2001
Received: from web4104.mail.yahoo.com ([216.115.104.124])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14PuPJ-0004Yb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Feb 2001
14:46:49 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [208.210.221.70] by web4104.mail.yahoo.com; Mon, 05 Feb 2001
14:47:03 PST
Date: Mon, 5 Feb 2001 14:47:03 -0800 (PST)
From: Jeremy Blonde <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: [perl-win32-gui-users] MouseUp and MouseDown
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Has anyone gotten _MouseUp or _MouseDown working?
I've tried but the event doesn't seem to be called
from what I can tell.
Thanks,
Jeremy Blonde
[EMAIL PROTECTED]
__________________________________________________
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
From [EMAIL PROTECTED] Tue Feb 06 18:07:39 2001
Received: from f88.law7.hotmail.com ([216.33.237.88] helo=hotmail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QK1D-0001Oi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 06 Feb 2001
18:07:39 -0800
Received: from mail pickup service by hotmail.com with Microsoft SMTPSVC;
Tue, 6 Feb 2001 18:07:50 -0800
Received: from 63.228.197.179 by lw7fd.law7.hotmail.msn.com with HTTP; Wed, 07
Feb 2001 02:07:50 GMT
X-Originating-IP: [63.228.197.179]
From: "Sean Healy" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Tue, 06 Feb 2001 17:07:50 -0900
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
Message-ID: <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 07 Feb 2001 02:07:50.0901 (UTC)
FILETIME=[C61D1A50:01C090AA]
Subject: [perl-win32-gui-users] web browser
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
>you should instead look at Win32::OLE, to see if you can
>embed an InternetExplorer instance in a window.
Has anyone succeeded at this? I played around with it, and while I can get
an instance of IE to come up, I haven't been able to figure out how to embed
it in a Win32::GUI window (it always wants to be in its own top-level
window). On the MSDN site, they mention something called WebBrowser, which
is an ActiveX control, which apparently _can_ be embedded in another window.
Anyone have any ideas?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
From [EMAIL PROTECTED] Wed Feb 07 04:03:48 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14QTK8-0005kA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
04:03:48 -0800
Received: from BYE473.BAYER-AG.DE (bye473.bayer-ag.com) by bayer2.bayer-ag.de
with SMTP id MAA15436
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Wed, 7 Feb 2001 12:58:34 +0100
Received: by BYE473.BAYER-AG.DE (Soft-Switch LMS 3.2) with snapi via MT0044
id 0006800040713608; Wed, 7 Feb 2001 13:03:17 +0100
From: [EMAIL PROTECTED]
To: " - [EMAIL PROTECTED]"
<perl-win32-gui-users@lists.sourceforge.net>
Message-Id: <[EMAIL PROTECTED]>
Date: Wed, 7 Feb 2001 13:03:17 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Subject: [perl-win32-gui-users] Event routines
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Is Win32::GUI designed to support something like this:
$subtxt = "Simple_Click";
eval qq (
sub main::$subtxt {
print "button clicked\n";
$W->SimpleLabel->Text("Got a click");
}
);
(Actually this piece of code does not work...)
The problem is that I would like to create a number of controls dynamically
because I know the number of controls to
create only at runtime.
regards,
Thomas
From [EMAIL PROTECTED] Wed Feb 07 04:54:50 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QU7W-0006mw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
04:54:50 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id NAA30224
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
13:55:09 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-djmiqa; Wed Feb 7 13:55:08 2001
Date: Wed, 7 Feb 2001 14:00:29 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Event routines
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] wrote:
> Is Win32::GUI designed to support something like this:
>
> $subtxt = "Simple_Click";
> eval qq (
> sub main::$subtxt {
> print "button clicked\n";
> $W->SimpleLabel->Text("Got a click");
> }
> );
>
> (Actually this piece of code does not work...)
yes, Win32::GUI supports things like these (it's really Perl that
supports it :-), but your code is wrong. $W is interpreted as a
variable in your eval string, you need to escape it:
eval qq (
sub main::$subtxt {
print "button clicked\n";
\$W->SimpleLabel->Text("Got a click");
}
);
...and always check for $@ after an eval!
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 07 05:03:39 2001
Received: from dilbrt.alcan.com ([142.14.12.104])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QUG3-000731-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
05:03:39 -0800
Received: from alcan.com by KRDC.INT.ALCAN.CA (PMDF V5.2-31 #33211)
id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Wed, 7 Feb 2001 08:03:35 EST
Date: Wed, 07 Feb 2001 13:01:02 +0000 (GMT)
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] Event routines
To: [EMAIL PROTECTED]
Cc: perl-win32-gui-users@lists.sourceforge.net
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
Content-type: MULTIPART/MIXED; BOUNDARY="Boundary_(ID_lQf+mc9zjlr+snOsC03BXQ)"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
--Boundary_(ID_lQf+mc9zjlr+snOsC03BXQ)
Content-type: TEXT/PLAIN
Content-transfer-encoding: 7BIT
Thomas,
It is possible to dynamically create windows. I wrote the
accompanying script in response to a query quite a while
ago. It creates 4 windows and hides all but one of them.
Clicking OK brings up the next window.
Hope this helps.
Kev.
[EMAIL PROTECTED] on 07/02/2001 12:03:17
To: perl-win32-gui-users@lists.sourceforge.net @ INTERNET
cc:
Subject: [perl-win32-gui-users] Event routines
Is Win32::GUI designed to support something like this:
$subtxt = "Simple_Click";
eval qq (
sub main::$subtxt {
print "button clicked\n";
$W->SimpleLabel->Text("Got a click");
}
);
(Actually this piece of code does not work...)
The problem is that I would like to create a number of controls dynamically
because I know the number of controls to
create only at runtime.
regards,
Thomas
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
--Boundary_(ID_lQf+mc9zjlr+snOsC03BXQ)
Content-type: APPLICATION/OCTET-STREAM; NAME=dynamic.pl
Content-disposition: attachment; filename=dynamic.pl
Content-transfer-encoding: BASE64
dXNlIFdpbjMyOjpHVUk7DQoNCiRSRVBFQVRfQ09VTlQgPSA0Ow0KbXkgQFdpbnM7
DQoNCmZvcigkaT0wOyAkaTwkUkVQRUFUX0NPVU5UIDskaSsrKSB7DQogc2V0X2hv
bGRfaW50ZXJ2YWwoJGkpOw0KfQ0KDQokV2luc1swXS0+U2hvdygpOw0KV2luMzI6
OkdVSTo6QnJpbmdXaW5kb3dUb1RvcCgkV2luc1tpXSk7DQokV2luc1tpXS0+aG9s
ZF9pbnRlcnZhbC0+U2V0Rm9jdXMoKTsNCg0KV2luMzI6OkdVSTo6RGlhbG9nKCk7
DQoNCnN1YiBzZXRfaG9sZF9pbnRlcnZhbCgpDQp7DQogbXkgJGk9c2hpZnQ7ICAg
ICAgICAjIGluc3RhbmNlIG9mIGRpYWxvZyBib3ggdG8gY3JlYXRlDQogDQogbXkg
JGNvZGU9IiANCiBcJFdpbnNbJGldPSBuZXcgV2luMzI6OkdVSTo6RGlhbG9nQm94
KA0KICAgICAtbmFtZSAgID0+IFwiaG9sZF9pbnRlcnZhbF9kaWFsb2dfYm94JGlc
IiwNCiAgICAgLXRleHQgICA9PiBcIlNldCBIb2xkIEludGVydmFsICRpXCIsDQog
ICAgIC1sZWZ0ICAgPT4gMTUwLA0KICAgICAtdG9wICAgID0+IDE2MCwNCiAgICAg
LXdpZHRoICA9PiAyNTAsDQogICAgIC1oZWlnaHQgPT4gMTAwLA0KICAgICAtc3R5
bGUgID0+IFdTX01BWElNSVpFQk9YLA0KICk7DQoNCiBcJFdpbnNbJGldLT5BZGRU
ZXh0ZmllbGQoDQogICAgIC1uYW1lICAgICAgPT4gXCJob2xkX2ludGVydmFsXCIs
DQogICAgIC1sZWZ0ICAgICAgPT4gMjUsDQogICAgIC10b3AgICAgICAgPT4gMTAs
DQogICAgIC13aWR0aCAgICAgPT4gMTAwLA0KICAgICAtaGVpZ2h0ICAgID0+IDIy
LA0KICAgICAtdGV4dCAgICAgID0+IDEsDQogICAgIC1wcm9tcHQgICAgPT4gWyBc
IkhvbGQgSW50ZXJ2YWw6XCIsIDkwIF0sDQogICAgIC10YWJzdG9wICAgPT4gMSwN
CiApOw0KDQogXCRXaW5zWyRpXS0+QWRkQnV0dG9uKA0KICAgICAtbmFtZSAgICAg
PT4gXCJIb2xkSW50ZXJ2YWxPSyRpXCIsDQogICAgIC1sZWZ0ICAgICA9PiA1OCwN
CiAgICAgLXRvcCAgICAgID0+IFwkV2luc1skaV0tPkhlaWdodC01NSwNCiAgICAg
LXdpZHRoICAgID0+IDYwLA0KICAgICAtdGV4dCAgICAgPT4gXCImT0tcIiwNCiAg
ICAgLW9rICAgICAgID0+IDEsDQogICAgIC1kZWZhdWx0ICA9PiAxLA0KICAgICAt
dGFic3RvcCAgPT4gMSwNCiApOw0KIA0KIFwkV2luc1skaV0tPkFkZEJ1dHRvbigN
CiAgICAgLW5hbWUgICAgID0+IFwiSG9sZEludGVydmFsQ2xvc2UkaVwiLA0KICAg
ICAtbGVmdCAgICAgPT4gMTI4LA0KICAgICAtdG9wICAgICAgPT4gXCRXaW5zWyRp
XS0+SGVpZ2h0LTU1LA0KICAgICAtd2lkdGggICAgPT4gNjAsDQogICAgIC10ZXh0
ICAgICA9PiBcIiZDYW5jZWxcIiwNCiAgICAgLWNhbmNlbCAgID0+ICRIT0xEX0lO
VEVSVkFMLA0KICAgICAtdGFic3RvcCAgPT4gMSwNCiApOw0KDQpzdWIgSG9sZElu
dGVydmFsT0skaVxfQ2xpY2sgew0KIG15IFwkaT0kaTsNCiBPS19DbGljaygkaSk7
DQp9DQoNCnN1YiBIb2xkSW50ZXJ2YWxDbG9zZSRpXF9DbGljayB7DQogIHJldHVy
biAtMTsNCn0iOw0KDQojcHJpbnQgIiRjb2RlXG4iOw0KIzw+Ow0KZXZhbCAkY29k
ZTsNCg0KfQ0KDQpzdWIgT0tfQ2xpY2sgew0KIG15ICRpPXNoaWZ0OyAgICAgICAg
ICAgICAgICAgICAgICAgIyBDdXJyZW50IFdpbmRvdw0KIG15ICRuPSAoJGkrIDEp
ICUgJFJFUEVBVF9DT1VOVDsgICAgIyBOZXh0IFdpbmRvdw0KIyBwcmludCAiSW4g
JGlcbiI7DQogJFdpbnNbJG5dLT5TaG93KCk7DQogJEhPTERfSU5URVJWQUwgPSAk
V2luc1skaV0tPmhvbGRfaW50ZXJ2YWwtPlRleHQ7DQogJFdpbnNbJGldLT5IaWRl
KCk7DQogV2luMzI6OkdVSTo6QnJpbmdXaW5kb3dUb1RvcCgkV2luc1skbl0pOw0K
ICRXaW5zWyRuXS0+aG9sZF9pbnRlcnZhbC0+U2V0Rm9jdXMoKTsNCn0NCg0K
--Boundary_(ID_lQf+mc9zjlr+snOsC03BXQ)--
From [EMAIL PROTECTED] Wed Feb 07 06:50:32 2001
Received: from postoffice.princeton.edu ([128.112.129.120] helo=Princeton.EDU)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QVvU-0002pu-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
06:50:32 -0800
Received: from smtpserver1.Princeton.EDU (mail.Princeton.EDU [128.112.129.14])
by Princeton.EDU (8.9.3/8.9.3) with ESMTP id JAA21257
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
09:50:49 -0500 (EST)
Received: from princeton.edu (xanthor.Princeton.EDU [128.112.234.50])
by smtpserver1.Princeton.EDU (8.9.3/8.9.3) with ESMTP id JAA29186
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
09:50:50 -0500 (EST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 07 Feb 2001 09:50:49 -0500
From: Bob Stango <[EMAIL PROTECTED]>
Organization: Princeton University - CIT
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: en,pdf
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Limit size of text field
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: [EMAIL PROTECTED]
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi all,
I am using this to create a text field:
# Create text field for Computer Name entry
$Win->AddTextfield(
-MaxLength => 15,
-text => "",
-name => "Host_Name",
-left => 285,
-top => 243,
-tabstop => 1,
-width => 100,
-height => 20,
);
I found the MaxLength option in the docs but it does not seem to limit the
field. What I want is to be able to have the field restricted to 15
characters. So no more characters could be typed in. Is this possible? Have
I just used the wrong syntax? Thanks for any help.
Bob
From [EMAIL PROTECTED] Wed Feb 07 07:02:01 2001
Received: from postoffice.princeton.edu ([128.112.129.120] helo=Princeton.EDU)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QW6b-0003KZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
07:02:01 -0800
Received: from smtpserver1.Princeton.EDU (smtpserver1.Princeton.EDU
[128.112.129.65])
by Princeton.EDU (8.9.3/8.9.3) with ESMTP id KAA25734
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
10:02:18 -0500 (EST)
Received: from princeton.edu (xanthor.Princeton.EDU [128.112.234.50])
by smtpserver1.Princeton.EDU (8.9.3/8.9.3) with ESMTP id KAA07076
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
10:02:18 -0500 (EST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 07 Feb 2001 10:02:16 -0500
From: Bob Stango <[EMAIL PROTECTED]>
Organization: Princeton University - CIT
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: en,pdf
MIME-Version: 1.0
To: Perl List <perl-win32-gui-users@lists.sourceforge.net>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Need Gui Builder
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: [EMAIL PROTECTED]
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Did the GUI Builder written by David Hiltz ever find a download home? I need
to re-install it and was wondering where I can find it. Thanks.
Bob
From [EMAIL PROTECTED] Wed Feb 07 07:39:06 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QWgT-0005jj-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
07:39:05 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id QAA17260
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
16:39:23 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-UzJxaa; Wed Feb 7 16:39:22 2001
Date: Wed, 7 Feb 2001 16:44:35 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Bob Stango <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Limit size of text field
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Bob Stango wrote:
> I found the MaxLength option in the docs but it does not seem
> to limit the field. What I want is to be able to have the field
> restricted to 15 characters. So no more characters could be
> typed in. Is this possible? Have I just used the wrong syntax?
> Thanks for any help.
MaxLength is a METHOD, not an OPTION. change your code to this:
$Win->AddTextfield(
-text => "",
-name => "Host_Name",
-pos => [ 285, 243 ],
-size => [ 100, 20 ],
-tabstop => 1,
);
$Win->Host_Name->MaxLength( 15 );
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 07 08:40:24 2001
Received: from postoffice.princeton.edu ([128.112.129.120] helo=Princeton.EDU)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QXdo-0000Bt-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
08:40:24 -0800
Received: from smtpserver1.Princeton.EDU (smtpserver1.Princeton.EDU
[128.112.129.65])
by Princeton.EDU (8.9.3/8.9.3) with ESMTP id LAA00995
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
11:40:41 -0500 (EST)
Received: from princeton.edu (xanthor.Princeton.EDU [128.112.234.50])
by smtpserver1.Princeton.EDU (8.9.3/8.9.3) with ESMTP id LAA07660
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
11:40:42 -0500 (EST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 07 Feb 2001 11:40:41 -0500
From: Bob Stango <[EMAIL PROTECTED]>
Organization: Princeton University - CIT
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: en,pdf
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Limit size of text field
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: [EMAIL PROTECTED]
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo Calpini wrote:
> Bob Stango wrote:
> > I found the MaxLength option in the docs but it does not seem
> > to limit the field. What I want is to be able to have the field
> > restricted to 15 characters. So no more characters could be
> > typed in. Is this possible? Have I just used the wrong syntax?
> > Thanks for any help.
>
> MaxLength is a METHOD, not an OPTION. change your code to this:
>
> $Win->AddTextfield(
> -text => "",
> -name => "Host_Name",
> -pos => [ 285, 243 ],
> -size => [ 100, 20 ],
> -tabstop => 1,
> );
> $Win->Host_Name->MaxLength( 15 );
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
Thanks Aldo. Just more stuff I have to learn about.
:-)
From [EMAIL PROTECTED] Wed Feb 07 13:59:28 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QccZ-0000j4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
13:59:28 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id QAA20918
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
16:59:38 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
QAA02793 for perl-win32-gui-users@lists.sourceforge.net; Wed, 7 Feb 2001
16:59:39 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 7 Feb 2001 16:59:39 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "Bob Stango" at Feb 07, 2001 10:02:16 AM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
>
> Did the GUI Builder written by David Hiltz ever find a download home? I
> need to re-install it and was wondering where I can find it. Thanks.
Sorry that I didn't get something out earlier (I've been so busy).
Someday I would like to get the GUI Builder stuff out on sourceforge. For
now you can pick up my latest copy of GB (calling it Build 109) off our
anonymous ftp server:
ftp://ftp.wh.whoi.edu/pub
Look for 'gb109.zip'.
There is a readme.txt inside the zip that should explain stuff.
David Hiltz
From [EMAIL PROTECTED] Wed Feb 07 14:39:27 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14QdFH-0001cV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
14:39:27 -0800
Received: (qmail 12523 invoked from network); 7 Feb 2001 22:39:47 -0000
Received: from unknown (HELO LIVIN) ([213.224.225.20]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 7 Feb 2001 22:39:47
-0000
Date: Wed, 7 Feb 2001 23:36:42 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] ppm rep dada -maybe of topic
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear perl-win32-gui-users,
i tried to install win32::api since the GB (from david hiltz) needs
it..
the easiest way seemed me to install it via the ppm reposotory
(http://Dada.perl.it/ppm)
although .. this isn't working for me, i have to use a firewall ..
is there a special way to state this request of installation ?
If you have any questions, whatsoever, please feel free to contact us.
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
From [EMAIL PROTECTED] Wed Feb 07 14:47:22 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14QdMw-0003OS-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
14:47:22 -0800
Received: (qmail 452 invoked from network); 7 Feb 2001 22:47:39 -0000
Received: from pe1-516.dialup.tiscalinet.it (HELO stop) (62.10.240.4)
by puppis2.tiscalinet.it with SMTP; 7 Feb 2001 22:47:39 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] ppm rep dada -maybe of topic
Date: Wed, 7 Feb 2001 23:44:15 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Get it from CPAN at
http://search.cpan.org/search?dist=Win32-API , then unpack
it and build it using nmake (follow the usual steps for
making). Should work great. :)
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Wed Feb 07 14:59:15 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14QdYR-0005hd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
14:59:15 -0800
Received: (qmail 1258 invoked from network); 7 Feb 2001 22:59:36 -0000
Received: from unknown (HELO LIVIN) ([213.224.225.20]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <[EMAIL PROTECTED]>; 7 Feb 2001 22:59:36 -0000
Date: Wed, 7 Feb 2001 23:56:32 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
CC: perl-win32-gui-users@lists.sourceforge.net
Subject: Re[2]: [perl-win32-gui-users] ppm rep dada -maybe of topic
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear Erick,
thanks
but .. i can't get any of these compiled on my machine..
errors like these
C:\gb\api\Win32-API-0.20>nmake
Microsoft (R) Program Maintenance Utility Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.
cl.exe -c -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FC
RYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1 -MD -
DNDEBUG -DVERSION=\"0.20\" -DXS_VERSION=\"0.20\" -IE:\Perl\lib\CORE API.
c
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 11.00.7022 for 80x86
Copyright (C) Microsoft Corp 1984-1997. All rights reserved.
API.c
Command line error D2027 : cannot execute 'c1'
NMAKE : fatal error U1077: 'C:\WIN2K\system32\cmd.exe' : return code '0x2'
Stop.
appear al the time ..
i think i'm missing something pretty important :(
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
-------------------------------------------------------------------
Wednesday, February 07, 2001, 11:44:15 PM, you wrote:
EJB> Get it from CPAN at
EJB> http://search.cpan.org/search?dist=Win32-API , then unpack
EJB> it and build it using nmake (follow the usual steps for
EJB> making). Should work great. :)
EJB> erick
EJB> never stop questioning
EJB> www.jeb.ca
EJB> _______________________________________________
EJB> Perl-Win32-GUI-Users mailing list
EJB> Perl-Win32-GUI-Users@lists.sourceforge.net
EJB> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Wed Feb 07 16:13:59 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Qeil-0008Up-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
16:13:59 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id TAA27978
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Feb 2001
19:14:11 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
TAA05527 for perl-win32-gui-users@lists.sourceforge.net; Wed, 7 Feb 2001
19:14:12 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: Re[2]: [perl-win32-gui-users] ppm rep dada -maybe of topic
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 7 Feb 2001 19:14:12 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "Danny Zak" at Feb 07, 2001 11:56:32 PM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
There is an easier way.
Go out to ActiveState site and download the ZIP for Win32::API, unzip then
run:
ppm install Win32-API.ppd
> but .. i can't get any of these compiled on my machine..
>
> errors like these
>
> C:\gb\api\Win32-API-0.20>nmake
>
> Microsoft (R) Program Maintenance Utility Version 1.50
> Copyright (c) Microsoft Corp 1988-94. All rights reserved.
>
> cl.exe -c -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
> -DHAVE_DES_FC
> RYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1
> -MD -
> DNDEBUG -DVERSION=\"0.20\" -DXS_VERSION=\"0.20\" -IE:\Perl\lib\CORE
> API.
> c
> Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 11.00.7022 for 80x86
> Copyright (C) Microsoft Corp 1984-1997. All rights reserved.
>
> API.c
> Command line error D2027 : cannot execute 'c1'
> NMAKE : fatal error U1077: 'C:\WIN2K\system32\cmd.exe' : return code '0x2'
> Stop.
From [EMAIL PROTECTED] Thu Feb 08 01:20:24 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QnFY-0007g8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
01:20:24 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id JAA16742; Thu, 8 Feb 2001 09:20:38 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 8 Feb 2001 09:19:56 +0000
Subject: Re: Re[2]: [perl-win32-gui-users] ppm rep dada -maybe of topic
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi Danny
I use PPM through our proxy / firewall. There are instructions in the PPM FAQ
but basically you set environment variables in the shell before calling PPM.
There are 3 to set :
HTTP_proxy=http://your.proxy.server:portnumber
HTTP_proxy_user=username (if required)
HTTP_proxy_pass=password (if required)
Depending on your firewall / proxy you may or may not have to set the latter 2.
(Make sure you remember to supply the http:// on the front of the proxy
address!)
Hope this helps !
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.
*******************************************************************************
From [EMAIL PROTECTED] Thu Feb 08 02:46:32 2001
Received: from panoramix.valinux.com ([198.186.202.147] helo=mail2.valinux.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Qoat-0002mt-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
02:46:31 -0800
Received: from hurontario.net ([209.135.104.2] ident=root)
by mail2.valinux.com with esmtp (Exim 3.16 #1 (Debian))
id 14Qd5R-00083e-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Feb 2001
14:29:17 -0800
Received: from gagauthi-lap (remote91-212.hurontario.net [209.135.91.212])
by hurontario.net (8.9.3/8.9.0) with SMTP id VAA02597
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 6 Feb 2001
21:59:45 -0500 (EST)
Message-ID: <[EMAIL PROTECTED]>
From: "gary gauthier" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 6 Feb 2001 21:58:13 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0010_01C09087.E7243B70"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 4.72.3110.5
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Subject: [perl-win32-gui-users] Run-time Exception using Win32-GUI-0.0.558 and
Visual Studio 6.0
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0010_01C09087.E7243B70
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I've built the 558 version of Win32-GUI for ActiveState v522, but get a =
Run-time Exception when I try to run anything. I've seen this before, =
but can't remmber why it happens. Has anyone any ideas? The 502 version =
of Win32-GUI builds and runs programs just fine on the same =
machine/configuration.
Regards;
Gary Gauthier
------=_NextPart_000_0010_01C09087.E7243B70
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>I've built the 558 version of =
Win32-GUI for=20
ActiveState v522, but get a Run-time Exception when I try to run =
anything. I've=20
seen this before, but can't remmber why it happens. Has anyone any =
ideas? The=20
502 version of Win32-GUI builds and runs programs just fine on the same=20
machine/configuration.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Regards;</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>Gary =
Gauthier</FONT></DIV></BODY></HTML>
------=_NextPart_000_0010_01C09087.E7243B70--
From [EMAIL PROTECTED] Thu Feb 08 03:04:38 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QosQ-0003MD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
03:04:38 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id MAA09992
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
12:04:59 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-nBvmUa; Thu Feb 8 12:04:57 2001
Date: Thu, 8 Feb 2001 12:10:14 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: gary gauthier <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Run-time Exception using Win32-GUI-0.0.558
and Visual Studio 6.0
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
gary gauthier wrote:
> I've built the 558 version of Win32-GUI for ActiveState v522,
> but get a Run-time Exception when I try to run anything. I've
> seen this before, but can't remmber why it happens. Has anyone
> any ideas?
> The 502 version of Win32-GUI builds and runs programs just fine
> on the same machine/configuration.
I've introduced some bugs in build 558 expecially for the
PERL_OBJECT build :-)
please grab the latest GUI.xs from CVS and try building it
with this file:
(note that the URL is on one line)
http://cvs.sourceforge.net/cgi-bin/cvsweb.cgi/Win32-GUI/GUI.xs?cvsroot=perl-win32-gui
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Feb 08 07:34:14 2001
Received: from mailrelay1.tfn.com ([198.80.144.7])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14Qt5K-0005ep-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
07:34:14 -0800
Received: from 198.80.144.9 by mailrelay1.tfn.com (InterScan E-Mail VirusWall
NT); Thu, 08 Feb 2001 10:34:32 -0500 (Eastern Standard Time)
Received: from tfsmamsg2.tfn.com (tfsmamsg2.tfn.com [164.179.16.1]) by
r2.tfn.com (8.11.0/8.6.9) with ESMTP id f18FYWZ23884 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001 10:34:32 -0500
(EST)
Received: by tfsmamsg2.tfn.com with Internet Mail Service (5.5.2653.19)
id <C5X6A83X>; Thu, 8 Feb 2001 10:34:31 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Moore, Larry" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 8 Feb 2001 10:34:29 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain;
charset="iso-8859-1"
Subject: [perl-win32-gui-users] Textfield method
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I would like to assign the highlighted portion of a textfield to $var. I
have the Textfield created with stuff in it but I don't see a method which
will let me make the assignment.
Larry
From [EMAIL PROTECTED] Thu Feb 08 07:32:09 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Qt3J-0005XD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
07:32:09 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id PAA20500; Thu, 8 Feb 2001 15:32:20 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 8 Feb 2001 15:28:44 +0000
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Has anyone managed to download it ? I can see the file but not download it - it
says that the file cannot be found.
Help
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.
*******************************************************************************
From [EMAIL PROTECTED] Thu Feb 08 07:43:41 2001
Received: from postoffice.princeton.edu ([128.112.129.120] helo=Princeton.EDU)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QtET-0005z4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
07:43:41 -0800
Received: from smtpserver1.Princeton.EDU (smtpserver1.Princeton.EDU
[128.112.129.65])
by Princeton.EDU (8.9.3/8.9.3) with ESMTP id KAA20904
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
10:43:58 -0500 (EST)
Received: from princeton.edu (xanthor.Princeton.EDU [128.112.234.50])
by smtpserver1.Princeton.EDU (8.9.3/8.9.3) with ESMTP id KAA05073
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
10:42:39 -0500 (EST)
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 08 Feb 2001 10:42:38 -0500
From: Bob Stango <[EMAIL PROTECTED]>
Organization: Princeton University - CIT
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: en,pdf
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
References: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: [EMAIL PROTECTED]
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
[EMAIL PROTECTED] wrote:
> Has anyone managed to download it ? I can see the file but not download it -
> it
> says that the file cannot be found.
>
> Help
>
> Cheers
>
> Paul
>
I got it this morning with no problems.
Bob
From [EMAIL PROTECTED] Thu Feb 08 07:46:25 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QtH6-0006Cj-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
07:46:24 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id QAA78500
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
16:46:43 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-8Kpaia; Thu Feb 8 16:46:41 2001
Date: Thu, 8 Feb 2001 16:50:39 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Moore, Larry" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Textfield method
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Moore, Larry wrote:
> I would like to assign the highlighted portion of a textfield to
> $var. I have the Textfield created with stuff in it but I don't
> see a method which will let me make the assignment.
there is a Selection method that returns the start and end of
the selection. then you just make a substr on the Textfield
content:
($from, $to) = $Textfield->Selection();
$var = substr($Textfield->Text, $from, $to-$from);
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Feb 08 08:13:55 2001
Received: from mailrelay2.tfn.com ([198.80.144.8])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14Qthj-0008Jq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
08:13:55 -0800
Received: from 198.80.144.9 by mailrelay2.tfn.com (InterScan E-Mail VirusWall
NT); Thu, 08 Feb 2001 11:14:12 -0500 (Eastern Standard Time)
Received: from tfsmamsg3.tfn.com (tfsmamsg3.tfn.com [164.179.16.8]) by
r2.tfn.com (8.11.0/8.6.9) with ESMTP id f18GDmZ00641 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001 11:13:48 -0500
(EST)
Received: by tfsmamsg3.tfn.com with Internet Mail Service (5.5.2653.19)
id <D0LDPTXA>; Thu, 8 Feb 2001 11:13:34 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Moore, Larry" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Textfield method
Date: Thu, 8 Feb 2001 11:13:28 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Simple,
Beautiful,
Thanks!
-----Original Message-----
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 08, 2001 10:51 AM
To: Moore, Larry
Subject: Re: [perl-win32-gui-users] Textfield method
Moore, Larry wrote:
> I would like to assign the highlighted portion of a textfield to
> $var. I have the Textfield created with stuff in it but I don't
> see a method which will let me make the assignment.
there is a Selection method that returns the start and end of
the selection. then you just make a substr on the Textfield
content:
($from, $to) = $Textfield->Selection();
$var = substr($Textfield->Text, $from, $to-$from);
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Thu Feb 08 08:22:31 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Qtq3-0000Pd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
08:22:31 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id LAA10181
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
11:22:47 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
LAA28832 for perl-win32-gui-users@lists.sourceforge.net; Thu, 8 Feb 2001
11:22:46 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
To: perl-win32-gui-users@lists.sourceforge.net
Date: Thu, 8 Feb 2001 11:22:46 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "[EMAIL PROTECTED]" at Feb 08, 2001
03:28:44 PM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
> Has anyone managed to download it ? I can see the file but not download it -
> it
> says that the file cannot be found.
I just emailed you a copy of the zip file.
David Hiltz
From [EMAIL PROTECTED] Thu Feb 08 09:07:19 2001
Received: from [130.205.151.242] (helo=ns.belgonet.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QuXO-0002C3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
09:07:18 -0800
Received: (from [EMAIL PROTECTED])
by ns.belgonet.com (8.9.3/8.9.3) id MAA03300;
Thu, 8 Feb 2001 12:06:15 -0500
Date: Thu, 8 Feb 2001 12:06:15 -0500
Message-Id: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
To: perl-win32-gui-users@lists.sourceforge.net
Cc:
X-Originating-IP: 213.132.151.186
X-Mailer: Webmin 0.83
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="--------981651975"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
----------981651975
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
strange things happens ..
i just installed activeperl on a other machine ..
installed (via the ppm!) the win32::gui & api..
downloaded the gp109.zip (without any probs)
when i try to run gb.pl the screen comes up and falls back to the prompt..
this is the error i get returned
D:\perlgui>perl gb
--Inside: main::Read_Preferences, Called from line: 51
--Inside: main::Setup_Menu, Called from line: 53
--Inside: main::CWin_Resize, Called from line: 108
Your vendor has not defined Win32::GUI macro ToolBar, used at gb line 1502. at D
:/Perl/site/lib/Win32/GUI.pm line 347.
D:\perlgui>
i'm running the same operating system as on my other computer (win2k) ?
why does this error occures here ?
thanks
Danny Zak
euro-pictures/BelGOnet.com
----------981651975--
From [EMAIL PROTECTED] Thu Feb 08 09:18:57 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Quif-0002px-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
09:18:57 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id RAA11270; Thu, 8 Feb 2001 17:19:11 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 8 Feb 2001 16:28:36 +0000
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Has anyone managed to download it ? I can see the file but not download it - it
says that the file cannot be found.
Thanks
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.
*******************************************************************************
From [EMAIL PROTECTED] Thu Feb 08 09:18:58 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Quif-0002q0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
09:18:57 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id RAA11277; Thu, 8 Feb 2001 17:19:11 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 8 Feb 2001 16:33:47 +0000
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Oops - posted this again as I inadvertently embedded a list command word in it
and got a message saying it was being held by the moderators (sounds painful !)
Sorry - please ignore.
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.
*******************************************************************************
From [EMAIL PROTECTED] Thu Feb 08 09:37:58 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Qv13-00040r-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
09:37:57 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id RAA14644; Thu, 8 Feb 2001 17:38:08 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 8 Feb 2001 17:41:54 +0000
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
David
Many thanks, most helpfull.
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.
*******************************************************************************
From [EMAIL PROTECTED] Thu Feb 08 10:04:46 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14QvR0-0005SN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
10:04:46 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id NAA20736
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
13:05:02 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
NAA01373 for perl-win32-gui-users@lists.sourceforge.net; Thu, 8 Feb 2001
13:05:02 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
To: perl-win32-gui-users@lists.sourceforge.net
Date: Thu, 8 Feb 2001 13:05:02 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "[EMAIL PROTECTED]" at Feb 08, 2001
12:06:15 PM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
> i just installed activeperl on a other machine ..
>
> installed (via the ppm!) the win32::gui & api..
>
> downloaded the gp109.zip (without any probs)
>
> when i try to run gb.pl the screen comes up and falls back to the prompt..
>
> this is the error i get returned
> D:\perlgui>perl gb
> --Inside: main::Read_Preferences, Called from line: 51
> --Inside: main::Setup_Menu, Called from line: 53
> --Inside: main::CWin_Resize, Called from line: 108
> Your vendor has not defined Win32::GUI macro ToolBar, used at gb line 1502.
> at D
> :/Perl/site/lib/Win32/GUI.pm line 347.
>
> D:\perlgui>
>
> i'm running the same operating system as on my other computer (win2k) ?
>
> why does this error occures here ?
>
I'll guess you are running an earlier version of Win32::GUI.
I can run GB under Win2000 Professional with Win32::GUI Build 502.
David Hiltz
From [EMAIL PROTECTED] Thu Feb 08 14:27:50 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14QzXa-0002GY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
14:27:50 -0800
Received: (qmail 16662 invoked from network); 8 Feb 2001 22:28:10 -0000
Received: from unknown (HELO LIVIN) ([212.123.8.91]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 8 Feb 2001 22:28:10
-0000
Date: Thu, 8 Feb 2001 23:25:06 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: David Hiltz <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re[2]: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear David,
i'll try this tomorrow at the office
thanks for the tip
i think the PPM version of win32 that is on dada.perl.it isn't really
uptodate (.502 but you tell me it works for that version)
But i think that my repository wasn't right configured...
the win32gui is from 98 .. is that possible ?
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
-------------------------------------------------------------------
Thursday, February 08, 2001, 7:05:02 PM, you wrote:
>> i just installed activeperl on a other machine ..
>>
>> installed (via the ppm!) the win32::gui & api..
>>
>> downloaded the gp109.zip (without any probs)
>>
>> when i try to run gb.pl the screen comes up and falls back to the prompt..
>>
>> this is the error i get returned
>> D:\perlgui>perl gb
>> --Inside: main::Read_Preferences, Called from line: 51
>> --Inside: main::Setup_Menu, Called from line: 53
>> --Inside: main::CWin_Resize, Called from line: 108
>> Your vendor has not defined Win32::GUI macro ToolBar, used at gb line 1502.
>> at D
>> :/Perl/site/lib/Win32/GUI.pm line 347.
>>
>> D:\perlgui>
>>
>> i'm running the same operating system as on my other computer (win2k) ?
>>
>> why does this error occures here ?
>>
DH> I'll guess you are running an earlier version of Win32::GUI.
DH> I can run GB under Win2000 Professional with Win32::GUI Build 502.
DH> David Hiltz
DH> _______________________________________________
DH> Perl-Win32-GUI-Users mailing list
DH> Perl-Win32-GUI-Users@lists.sourceforge.net
DH> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Thu Feb 08 14:43:35 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Qzmo-0003Le-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
14:43:34 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id RAA14001
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Feb 2001
17:43:49 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
RAA18312 for perl-win32-gui-users@lists.sourceforge.net; Thu, 8 Feb 2001
17:43:49 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: Re[2]: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui
Builder)
To: perl-win32-gui-users@lists.sourceforge.net
Date: Thu, 8 Feb 2001 17:43:49 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "Danny Zak" at Feb 08, 2001 11:25:06 PM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
> i think the PPM version of win32 that is on dada.perl.it isn't really
> uptodate (.502 but you tell me it works for that version)
>
> But i think that my repository wasn't right configured...
>
> the win32gui is from 98 .. is that possible ?
GB-109 also works on Win98.
From [EMAIL PROTECTED] Thu Feb 08 23:17:17 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14R7nw-0007iK-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Feb 2001
23:17:17 -0800
Received: (qmail 19403 invoked from network); 9 Feb 2001 07:17:39 -0000
Received: from unknown (HELO LIVIN) ([212.123.8.241]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 9 Feb 2001 07:17:39
-0000
Date: Fri, 9 Feb 2001 08:14:35 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: David Hiltz <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re[4]: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear David,
no i meant.. the win32gui that install via the ppm is from the year
1998 . i'm almost 100% sure that this is due to an old repository
somewhere..
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
-------------------------------------------------------------------
Thursday, February 08, 2001, 11:43:49 PM, you wrote:
>> i think the PPM version of win32 that is on dada.perl.it isn't really
>> uptodate (.502 but you tell me it works for that version)
>>
>> But i think that my repository wasn't right configured...
>>
>> the win32gui is from 98 .. is that possible ?
DH> GB-109 also works on Win98.
DH> _______________________________________________
DH> Perl-Win32-GUI-Users mailing list
DH> Perl-Win32-GUI-Users@lists.sourceforge.net
DH> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Fri Feb 09 01:40:52 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RA2t-0004Aa-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
01:40:51 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id JAA10336; Fri, 9 Feb 2001 09:41:07 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 9 Feb 2001 09:40:56 +0000
Subject: Re: Re[4]: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui
Builder)
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Danny
The ActiveState repository has an old build of Win32::GUI and if it is in your
repository list before Aldo's site at dada.perl.it you'll probably get that
version.
Easiest bet is to download the .zip file of the 558 build from Source Forge and
install it from that local copy.
http://download.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.558-PPM-5.6.zip
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.
*******************************************************************************
From [EMAIL PROTECTED] Fri Feb 09 02:53:02 2001
Received: from ausxc10.us.dell.com ([143.166.98.229])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RBAk-0005o8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
02:53:02 -0800
Received: by ausxc10.us.dell.com with Internet Mail Service (5.5.2650.21)
id <1SFH7GTR>; Fri, 9 Feb 2001 04:47:45 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder
)
Date: Fri, 9 Feb 2001 04:32:47 -0600
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Guys
I can't get to this site .
is there any other place I can Get it
Rgds Eoin:
EMF2 Test Engineering
mailto:[EMAIL PROTECTED]
-----Original Message-----
From: David Hiltz [mailto:[EMAIL PROTECTED]
Sent: 07 February 2001 22:00
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
>
> Did the GUI Builder written by David Hiltz ever find a download home? I
> need to re-install it and was wondering where I can find it. Thanks.
Sorry that I didn't get something out earlier (I've been so busy).
Someday I would like to get the GUI Builder stuff out on sourceforge. For
now you can pick up my latest copy of GB (calling it Build 109) off our
anonymous ftp server:
ftp://ftp.wh.whoi.edu/pub
Look for 'gb109.zip'.
There is a readme.txt inside the zip that should explain stuff.
David Hiltz
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Fri Feb 09 04:33:31 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14RCjz-00009S-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
04:33:31 -0800
Received: (qmail 15872 invoked from network); 9 Feb 2001 12:33:50 -0000
Received: from pe1-1040.dialup.tiscalinet.it (HELO stop) (62.10.242.16)
by puppis2.tiscalinet.it with SMTP; 9 Feb 2001 12:33:50 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 9 Feb 2001 13:30:24 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Testing a label's visibility
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Is there a way of dynamically checking a labels visibility?
Well, dynamically would be the same as statically, so really
how can you test a label to check whether it is showing.
Something sort of like this:
if ( $MainWin->Label_1->Visible ) {
...
} else { ... }
However, this code doesn't work because there is no method
"Visible" for a label. But, you can set the -visible option
of a label to 0. How do you find out whether it's 0 or 1?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Feb 09 04:57:32 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RD7E-00014S-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
04:57:32 -0800
Received: from imap.wh.whoi.edu (octopus [128.128.104.121])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id HAA13677
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Feb 2001
07:57:49 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by imap.wh.whoi.edu (8.9.3+Sun/8.6.9) id HAA05001
for perl-win32-gui-users@lists.sourceforge.net; Fri, 9 Feb 2001 07:57:51 -0500
(EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder
To: perl-win32-gui-users@lists.sourceforge.net
Date: Fri, 9 Feb 2001 07:57:51 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "[EMAIL PROTECTED]" at Feb 09, 2001
04:32:47 AM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
> Guys
> I can't get to this site .
> is there any other place I can Get it
> Rgds Eoin:
> EMF2 Test Engineering
> mailto:[EMAIL PROTECTED]
>
I'll email you a copy.
dhiltz
> -----Original Message-----
> From: David Hiltz [mailto:[EMAIL PROTECTED]
> Sent: 07 February 2001 22:00
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)
>
>
> >
> > Did the GUI Builder written by David Hiltz ever find a download home? I
> > need to re-install it and was wondering where I can find it. Thanks.
>
> Sorry that I didn't get something out earlier (I've been so busy).
> Someday I would like to get the GUI Builder stuff out on sourceforge. For
> now you can pick up my latest copy of GB (calling it Build 109) off our
> anonymous ftp server:
>
> ftp://ftp.wh.whoi.edu/pub
>
> Look for 'gb109.zip'.
>
> There is a readme.txt inside the zip that should explain stuff.
>
> David Hiltz
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Fri Feb 09 04:59:59 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RD9b-0001BX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
04:59:59 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id OAA24300
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Feb 2001
14:00:19 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-utBZMa; Fri Feb 9 14:00:18 2001
Date: Fri, 9 Feb 2001 14:04:29 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Testing a label's visibility
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> Is there a way of dynamically checking a labels visibility?
> Well, dynamically would be the same as statically, so really
> how can you test a label to check whether it is showing.
> Something sort of like this:
>
>if ( $MainWin->Label_1->Visible ) {
> ...
> } else { ... }
>
> However, this code doesn't work because there is no method
> "Visible" for a label. But, you can set the -visible option
> of a label to 0. How do you find out whether it's 0 or 1?
the method is called "IsVisible".
if ( $MainWin->Label_1->IsVisible ) {
...
} else { ... }
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri Feb 09 09:15:26 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14RH8o-0007oU-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
09:15:26 -0800
Received: (qmail 29012 invoked from network); 9 Feb 2001 17:15:44 -0000
Received: from pe1-862.dialup.tiscalinet.it (HELO stop) (62.10.241.94)
by puppis2.tiscalinet.it with SMTP; 9 Feb 2001 17:15:44 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 9 Feb 2001 18:12:20 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] SaveAsDialog
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Has anyone had success using the SaveAsDialog?
I'm using the SaveAsDialog in the following way:
my %param = (title => "SaveAs",
filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
=>'*.pl;*.pm'});
my $file = SaveAsDialog %param, "foo.txt";
However, this, and other variants I have tried cause "...an
invalid page fault in module PERL56.DLL at 017f:2804feea."
Either there is something wrong with the function or I don't
have the right syntax. Either way, any help would be greatly
appreciated.
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Feb 09 10:33:35 2001
Received: from albatross.prod.itd.earthlink.net ([207.217.120.120])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RIMR-0003Fz-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
10:33:35 -0800
Received: from tom (PPP-155-49.va.sprint-hsd.net [208.33.155.49])
by albatross.prod.itd.earthlink.net (EL-8_9_3_3/8.9.3) with SMTP id
KAA12108
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Feb 2001
10:34:00 -0800 (PST)
From: "Tom Allebrandi" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 9 Feb 2001 13:33:54 -0500
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Importance: Normal
Subject: [perl-win32-gui-users] Interesting behavior
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I'm not sure if I should post this on this list or over on the Perl Win32
Users list.
Under Win32::GUI version 502 and ActiveState build 623, the following script
results in an access violation under NT 4 and an invalid page fault under
Win98. NT is only telling me a memory address where the problem is
occurring. Win98 claims that the invalid page fault is in Perl56.DLL.
#! perl
use Win32::GUI; # ** 1 **
fork(); # ** 2 **
#
# The $' (or the $`) var has to be present in order to cause the crash,
but
# since it's not defined, use the "if (0)" to avoid interpreting it
#
if (0)
{
$'; # ** 3 **
}
If you take out any of the lines marked "# ** n **" the problem goes away!
At one point, I had a
print("Goodbye\n");
as the last statement in the script. I got both of them (one from each
branch of the fork()) which suggests that the problem is occurring in the
rundown of Perl itself.
If I had to guess, something is not getting cloned properly during the
fork() and it's invalid when the GUI destructor(s) get invoked at
termination.
Cute huh?
--- Tom
Tom Allebrandi
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri Feb 09 11:08:48 2001
Received: from [209.191.43.242] (helo=mail.orchidbio.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RIuV-0004oW-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
11:08:47 -0800
Received: by mail.mail.16.172.in-addr.arpa with Internet Mail Service
(5.5.2448.0)
id <D8L86DQQ>; Fri, 9 Feb 2001 14:09:05 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Kuo David <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Interesting behavior
Date: Fri, 9 Feb 2001 14:08:56 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2448.0)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C092CB.C4E91580"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C092CB.C4E91580
Content-Type: text/plain;
charset="iso-8859-1"
A question might be stupid. Is the fork() working in NT or Win98? I tried it
before but failed with message the function is not supported by the OS.
Thanks,
David
-----Original Message-----
From: Tom Allebrandi [mailto:[EMAIL PROTECTED]
Sent: Friday, February 09, 2001 1:34 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Interesting behavior
I'm not sure if I should post this on this list or over on the Perl Win32
Users list.
Under Win32::GUI version 502 and ActiveState build 623, the following script
results in an access violation under NT 4 and an invalid page fault under
Win98. NT is only telling me a memory address where the problem is
occurring. Win98 claims that the invalid page fault is in Perl56.DLL.
#! perl
use Win32::GUI; # ** 1 **
fork(); # ** 2 **
#
# The $' (or the $`) var has to be present in order to cause the
crash, but
# since it's not defined, use the "if (0)" to avoid interpreting it
#
if (0)
{
$'; # ** 3 **
}
If you take out any of the lines marked "# ** n **" the problem goes away!
At one point, I had a
print("Goodbye\n");
as the last statement in the script. I got both of them (one from each
branch of the fork()) which suggests that the problem is occurring in the
rundown of Perl itself.
If I had to guess, something is not getting cloned properly during the
fork() and it's invalid when the GUI destructor(s) get invoked at
termination.
Cute huh?
--- Tom
Tom Allebrandi
[EMAIL PROTECTED]
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
------_=_NextPart_001_01C092CB.C4E91580
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2448.0">
<TITLE>RE: [perl-win32-gui-users] Interesting behavior</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=3D2>A question might be stupid. Is the fork() working in =
NT or Win98? I tried it before but failed with message the function is =
not supported by the OS.</FONT></P>
<P><FONT SIZE=3D2>Thanks,</FONT>
</P>
<P><FONT SIZE=3D2>David </FONT>
</P>
<P><FONT SIZE=3D2>-----Original Message-----</FONT>
<BR><FONT SIZE=3D2>From: Tom Allebrandi [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]</A>]</FONT>
<BR><FONT SIZE=3D2>Sent: Friday, February 09, 2001 1:34 PM</FONT>
<BR><FONT SIZE=3D2>To: =
perl-win32-gui-users@lists.sourceforge.net</FONT>
<BR><FONT SIZE=3D2>Subject: [perl-win32-gui-users] Interesting =
behavior</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>I'm not sure if I should post this on this list or =
over on the Perl Win32</FONT>
<BR><FONT SIZE=3D2>Users list.</FONT>
</P>
<P><FONT SIZE=3D2>Under Win32::GUI version 502 and ActiveState build =
623, the following script</FONT>
<BR><FONT SIZE=3D2>results in an access violation under NT 4 and an =
invalid page fault under</FONT>
<BR><FONT SIZE=3D2>Win98. NT is only telling me a memory address where =
the problem is</FONT>
<BR><FONT SIZE=3D2>occurring. Win98 claims that the invalid page fault =
is in Perl56.DLL.</FONT>
</P>
<P> <FONT SIZE=3D2>#! =
perl</FONT>
</P>
<P> <FONT SIZE=3D2>use =
Win32::GUI; # ** 1 **</FONT>
</P>
<P> <FONT SIZE=3D2>fork(); =
=
# ** 2 **</FONT>
</P>
<P> <FONT SIZE=3D2>#</FONT>
<BR> <FONT SIZE=3D2># The $' =
(or the $`) var has to be present in order to cause the crash, =
but</FONT>
<BR> <FONT SIZE=3D2># since =
it's not defined, use the "if (0)" to avoid interpreting =
it</FONT>
<BR> <FONT SIZE=3D2>#</FONT>
<BR> <FONT SIZE=3D2>if =
(0)</FONT>
<BR> =
<FONT SIZE=3D2>{</FONT>
<BR> =
<FONT =
SIZE=3D2>$'; =
# ** 3 **</FONT>
<BR> =
<FONT SIZE=3D2>}</FONT>
</P>
<P><FONT SIZE=3D2>If you take out any of the lines marked "# ** n =
**" the problem goes away!</FONT>
</P>
<P><FONT SIZE=3D2>At one point, I had a</FONT>
</P>
<P> <FONT =
SIZE=3D2>print("Goodbye\n");</FONT>
</P>
<P><FONT SIZE=3D2>as the last statement in the script. I got both of =
them (one from each</FONT>
<BR><FONT SIZE=3D2>branch of the fork()) which suggests that the =
problem is occurring in the</FONT>
<BR><FONT SIZE=3D2>rundown of Perl itself.</FONT>
</P>
<P><FONT SIZE=3D2>If I had to guess, something is not getting cloned =
properly during the</FONT>
<BR><FONT SIZE=3D2>fork() and it's invalid when the GUI destructor(s) =
get invoked at</FONT>
<BR><FONT SIZE=3D2>termination.</FONT>
</P>
<P><FONT SIZE=3D2>Cute huh?</FONT>
</P>
<P><FONT SIZE=3D2>--- Tom</FONT>
<BR><FONT SIZE=3D2>Tom Allebrandi</FONT>
<BR><FONT SIZE=3D2>[EMAIL PROTECTED]</FONT>
</P>
<BR>
<BR>
<P><FONT =
SIZE=3D2>_______________________________________________</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users mailing list</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users@lists.sourceforge.net</FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=
" =
TARGET=3D"_blank">http://lists.sourceforge.net/lists/listinfo/perl-win32=
-gui-users</A></FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C092CB.C4E91580--
From [EMAIL PROTECTED] Fri Feb 09 11:57:31 2001
Received: from scaup.prod.itd.earthlink.net ([207.217.121.49])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RJff-0007AO-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
11:57:31 -0800
Received: from tom (PPP-155-49.va.sprint-hsd.net [208.33.155.49])
by scaup.prod.itd.earthlink.net (EL-8_9_3_3/8.9.3) with SMTP id LAA19621
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Feb 2001
11:57:56 -0800 (PST)
From: "Tom Allebrandi" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Interesting behavior
Date: Fri, 9 Feb 2001 14:57:50 -0500
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
In-reply-To: <[EMAIL PROTECTED]>
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Importance: Normal
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
David Kuo said:
> A question might be stupid. Is the fork() working in NT or Win98?
> I tried it before but failed with message the function is not
> supported by the OS.
I think you need Perl 5.6 for this to work. In ActiveState speak, that is
the 600 series of builds.
And yes, using ActiveState build 623, the fork works on both NT and 98.
--- Tom
Tom Allebrandi
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri Feb 09 14:07:49 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14RLhk-0003cg-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Feb 2001
14:07:48 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id WAA16344; Fri, 9 Feb 2001 22:08:03 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 9 Feb 2001 22:11:10 +0000
Subject: RE: [perl-win32-gui-users] Interesting behavior
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
David
I *BELIEVE* fork() is supported in Perl 5.6 on Win32 in an emulated form, but
I'm 150 miles away from my documentation and only have a 9600 baud mobile to
connect to the web over so I can't check !
It wasn't supported in older builds.
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.
*******************************************************************************
From [EMAIL PROTECTED] Sat Feb 10 14:01:58 2001
Received: from mailrelay2.tfn.com ([198.80.144.8])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14Ri5e-0002pK-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 10 Feb 2001
14:01:58 -0800
Received: from 198.80.144.9 by mailrelay2.tfn.com (InterScan E-Mail VirusWall
NT); Sat, 10 Feb 2001 17:01:27 -0500 (Eastern Standard Time)
Received: from tfsmamsg1.tfn.com (tfsmamsg1.tfn.com [164.179.16.2]) by
r2.tfn.com (8.11.0/8.6.9) with ESMTP id f1AM1O528829 for
<perl-win32-gui-users@lists.sourceforge.net>; Sat, 10 Feb 2001 17:01:25 -0500
(EST)
Received: by tfsmamsg1.tfn.com with Internet Mail Service (5.5.2653.19)
id <1WGH81LY>; Sat, 10 Feb 2001 17:01:02 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Moore, Larry" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 9 Feb 2001 10:24:59 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain;
charset="iso-8859-1"
Subject: [perl-win32-gui-users] Listbox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Is it possible to change the font/background attributes for each string
added to a listbox, say based on the length of the string? Or is there a
better object for something such as this?
Larry
From [EMAIL PROTECTED] Sun Feb 11 11:02:48 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14S1ln-00035p-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 11 Feb 2001
11:02:47 -0800
Received: (qmail 25059 invoked from network); 11 Feb 2001 19:03:14 -0000
Received: from pe1-41.dialup.tiscalinet.it (HELO stop) (62.10.238.41)
by puppis2.tiscalinet.it with SMTP; 11 Feb 2001 19:03:14 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sun, 11 Feb 2001 19:59:44 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] ListView_ItemClick
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I wish to prevent the user from choosing more than one item
in a Listview and since I didn't find an option
for -multisel, like in a ListBox, I have attempted to
achieve this through the ItemClick event for a ListView.
sub ListView_ItemClick {
if ($Win->ListView->SelectCount() > 1) {
Win32::MsgBox("You can not pick more than one
item!", 48, "Choose Only One");
$Win->ListView->Select(0);
return;
}
}
This displays the MsgBox great the first time, however it
then loops back and displays it again, it fact, I believe it
displays the MsgBox 2**(amount of selected items) times (ie.
2 to the power of). As you may see I tried Selecting the
first item so the sub won't be called again. Any ideas?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Sun Feb 11 11:05:23 2001
Received: from smtphost5.home.se ([195.66.35.201] helo=smtp2.home.se)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14S1oJ-0003AG-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 11 Feb 2001
11:05:23 -0800
Received: from home.se [213.242.183.1] by smtp1.home.se
with Novonyx SMTP Server $Revision: 2.74 $; Sun, 11 Feb 2001
20:04:06 +0100 (ECTD)
Message-ID: <[EMAIL PROTECTED]>
Date: Sun, 11 Feb 2001 20:09:19 +0100
From: Ludvig af Klinteberg <[EMAIL PROTECTED]>
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: sv,en
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] POE + Win32::GUI ?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I just read some about POE (Perl Object Environment -
http://poe.perl.org), and it seems really interesting. I had the idea
that by combining POE and Win32::GUI you could perhaps create a UI
program that doesn't freeze whenever it's doing something time
consuming. (e.g. sending/receiving data over a network)
Some time ago I wrote a small program using Win32::GUI and
LWP::UserAgent that downloaded a web page every X minutes and checked if
it had been updated, and if it had the program popped up a window on the
screen. The only problem was that it was impossible to interact with the
program while it was downloading this (quite large) page from the
(rather slow) server. The idea struck me that maybe rewriting the whole
thing using POE might solve my troubles? As I said, I have no experience
with POE, but if it could be successfully combined with Win32::GUI I
would definitely look into it. So, can it be done? Has anyone with POE
knowledge tried it?
I think that's what I meant...
-Ludde
From [EMAIL PROTECTED] Sun Feb 11 11:42:42 2001
Received: from viemta06.chello.at ([195.34.133.56])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14S2OP-0004Lc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 11 Feb 2001
11:42:42 -0800
Received: from x-ray.at ([212.186.199.154]) by viemta06.chello.at
(InterMail vK.4.03.01.00 201-232-122 license
9caa03a7df1d31c048ffcc0d31ac5855)
with ESMTP id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sun, 11 Feb 2001 20:43:09 +0100
Message-ID: <[EMAIL PROTECTED]>
Date: Sun, 11 Feb 2001 20:43:29 +0100
From: Reini Urban <[EMAIL PROTECTED]>
Organization: http://www.x-ray.at
X-Mailer: Mozilla 4.7 [de] (WinNT; I)
X-Accept-Language: en,de
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] POE + Win32::GUI ?
References: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
If Win32::GUI would be thread-safe :)
POE is for sure a very nice abstraction layer for process management.
I would also recommend reading an ordinary win32 sdk book, the charles petzold
"Programming Windows" probably. http://www.relisoft.com/win32/
if you borrow it from a library you'll get the cd, where the complete text
is in chm! (4mb)
This book would answer 80% if the questions here, btw.
The very good perl cookbook has some good descriptions on process management,
blocking, locks, threads, forks and alarms.
There exists also a fulltext version in html.
I don't fully understand this yet.
but i think that your web monitor example is covered in the cookbook.
Ludvig af Klinteberg schrieb:
> I just read some about POE (Perl Object Environment -
> http://poe.perl.org), and it seems really interesting. I had the idea
> that by combining POE and Win32::GUI you could perhaps create a UI
> program that doesn't freeze whenever it's doing something time
> consuming. (e.g. sending/receiving data over a network)
>
> Some time ago I wrote a small program using Win32::GUI and
> LWP::UserAgent that downloaded a web page every X minutes and checked if
> it had been updated, and if it had the program popped up a window on the
> screen. The only problem was that it was impossible to interact with the
> program while it was downloading this (quite large) page from the
> (rather slow) server. The idea struck me that maybe rewriting the whole
> thing using POE might solve my troubles? As I said, I have no experience
> with POE, but if it could be successfully combined with Win32::GUI I
> would definitely look into it. So, can it be done? Has anyone with POE
> knowledge tried it?
--
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/
From [EMAIL PROTECTED] Mon Feb 12 01:37:40 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SFQS-0001UJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
01:37:40 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id KAA75688
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
10:38:09 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-uht6Ea; Mon Feb 12 10:38:08 2001
Date: Mon, 12 Feb 2001 10:42:40 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] ListView_ItemClick
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> I wish to prevent the user from choosing more than one item
> in a Listview and since I didn't find an option
> for -multisel, like in a ListBox, I have attempted to
> achieve this through the ItemClick event for a ListView.
>
> sub ListView_ItemClick {
> if ($Win->ListView->SelectCount() > 1) {
> Win32::MsgBox("You can not pick more than one
> item!", 48, "Choose Only One");
> $Win->ListView->Select(0);
> return;
> }
> }
>
> This displays the MsgBox great the first time, however it
> then loops back and displays it again, it fact, I believe it
> displays the MsgBox 2**(amount of selected items) times (ie.
> 2 to the power of). As you may see I tried Selecting the
> first item so the sub won't be called again. Any ideas?
yes, doing a:
$Win->ListView->Select(0);
really fires an ItemClick event on the ListView, so you're in
a loop. you can use the -singlesel option on the ListView to
achieve what you want.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 12 01:42:20 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SFUy-0001fy-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
01:42:20 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id KAA68960
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
10:42:52 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-prA.qa; Mon Feb 12 10:42:52 2001
Date: Mon, 12 Feb 2001 10:47:24 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SaveAsDialog
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> Has anyone had success using the SaveAsDialog?
>
> I'm using the SaveAsDialog in the following way:
>
> my %param = (title => "SaveAs",
> filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
> =>'*.pl;*.pm'});
> my $file = SaveAsDialog %param, "foo.txt";
sorry, but where did you got this syntax?
try this:
my $file = Win32::GUI::GetSaveFileName(
-title => "SaveAs",
-filter => [
"Filter 1" => "*.txt;*.doc",
"Filter 2" => "*.pl;*.pm",
],
-file => "foo.txt",
);
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 12 02:35:54 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14SGKo-00049E-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
02:35:54 -0800
Received: (qmail 6762 invoked from network); 12 Feb 2001 10:36:23 -0000
Received: from pe1-578.dialup.tiscalinet.it (HELO stop) (62.10.240.66)
by puppis2.tiscalinet.it with SMTP; 12 Feb 2001 10:36:23 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] SaveAsDialog
Date: Mon, 12 Feb 2001 11:32:53 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
> sorry, but where did you got this syntax?
>From the documentation in FileOp module.
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Aldo Calpini <[EMAIL PROTECTED]>
To: Erick J. Bourgeois
<perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, February 12, 2001 10:47 AM
Subject: Re: [perl-win32-gui-users] SaveAsDialog
> Erick J. Bourgeois wrote:
> > Has anyone had success using the SaveAsDialog?
> >
> > I'm using the SaveAsDialog in the following way:
> >
> > my %param = (title => "SaveAs",
> > filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
> > =>'*.pl;*.pm'});
> > my $file = SaveAsDialog %param, "foo.txt";
>
> sorry, but where did you got this syntax?
>
> try this:
>
> my $file = Win32::GUI::GetSaveFileName(
> -title => "SaveAs",
> -filter => [
> "Filter 1" => "*.txt;*.doc",
> "Filter 2" => "*.pl;*.pm",
> ],
> -file => "foo.txt",
> );
>
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
>
From [EMAIL PROTECTED] Mon Feb 12 02:47:24 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SGVw-00056y-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
02:47:24 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id LAA69008
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
11:47:57 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-1.inet.it via I-SMTP
id queue/s-194.185.211.179-Ac2Raa; Mon Feb 12 11:47:56 2001
Date: Mon, 12 Feb 2001 11:52:29 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SaveAsDialog
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
>> sorry, but where did you got this syntax?
>
> From the documentation in FileOp module.
oh, well, FileOp != Win32::GUI :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Feb 12 11:29:24 2001
Received: from smtphost4.home.se ([195.66.35.200] helo=smtp1.home.se)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SOf5-0008Q7-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
11:29:24 -0800
Received: from home.se [213.242.183.166] by smtp2.home.se
with Novonyx SMTP Server $Revision: 2.74 $; Mon, 12 Feb 2001
20:28:11 +0100 (ECTD)
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 12 Feb 2001 20:33:01 +0100
From: Ludvig af Klinteberg <[EMAIL PROTECTED]>
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: sv,en
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] POE + Win32::GUI ?
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I don't know much about the guts of Win32::GUI (or Win32 in general, or
POE for that matter), but would a combination of POE and Win32::GUI be
successful, or is Win32::GUI not stable enough yet? Or simply not
constructed for that sort of thing? To me the possibilities seem great,
but maybe I'm just following the hype, being too enthusiastic about POE.
My monitoring example is, namely, just an example. It does by the way
use quite a lot of HTTP specific stuff with cookies and redirects, so
that's why I chose to implement the networking with a module instead of
making it neatly non-blocking.
-Ludde
Reini Urban wrote:
>
> If Win32::GUI would be thread-safe :)
> POE is for sure a very nice abstraction layer for process management.
>
> I would also recommend reading an ordinary win32 sdk book, the charles petzold
> "Programming Windows" probably. http://www.relisoft.com/win32/
> if you borrow it from a library you'll get the cd, where the complete text
> is in chm! (4mb)
> This book would answer 80% if the questions here, btw.
>
> The very good perl cookbook has some good descriptions on process management,
> blocking, locks, threads, forks and alarms.
> There exists also a fulltext version in html.
> I don't fully understand this yet.
>
> but i think that your web monitor example is covered in the cookbook.
>
> Ludvig af Klinteberg schrieb:
> > I just read some about POE (Perl Object Environment -
> > http://poe.perl.org), and it seems really interesting. I had the idea
> > that by combining POE and Win32::GUI you could perhaps create a UI
> > program that doesn't freeze whenever it's doing something time
> > consuming. (e.g. sending/receiving data over a network)
> >
> > Some time ago I wrote a small program using Win32::GUI and
> > LWP::UserAgent that downloaded a web page every X minutes and checked if
> > it had been updated, and if it had the program popped up a window on the
> > screen. The only problem was that it was impossible to interact with the
> > program while it was downloading this (quite large) page from the
> > (rather slow) server. The idea struck me that maybe rewriting the whole
> > thing using POE might solve my troubles? As I said, I have no experience
> > with POE, but if it could be successfully combined with Win32::GUI I
> > would definitely look into it. So, can it be done? Has anyone with POE
> > knowledge tried it?
> --
> Reini Urban
> http://xarch.tu-graz.ac.at/home/rurban/
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Mon Feb 12 11:36:09 2001
Received: from mail.stamps.com ([206.29.30.33] helo=sm-corp30.stamps.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SOld-0000Fw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Feb 2001
11:36:09 -0800
Received: by mail.stamps.com with Internet Mail Service (5.5.2650.21)
id <1SC09VGY>; Mon, 12 Feb 2001 11:36:40 -0800
Message-ID: <[EMAIL PROTECTED]>
From: Keith Kiyohara <[EMAIL PROTECTED]>
To: "Perl-Win32-Gui-Users (E-mail)"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 12 Feb 2001 11:36:33 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="windows-1252"
Subject: [perl-win32-gui-users] Missing -name parameter causes access violation
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
The Perl code below will cause an access violation. Uncommenting the -name
parameter will fix it. Took a while to figure this out. The offending line
is in GUI.XS, Create(), line 4512:
strcpy( (perlud->szWindowName), perlcs.szWindowName);
Is this the proper mailing list to report bugs on?
-Keith.
--cut here--cut here--cut here--cut here--cut here--cut here--cut here--cut
here--cut here--
use strict;
use Win32::GUI;
$wndMain = Win32::GUI::Window->new(
-name => 'wndMain',
-title => 'pbLaunch',
-width => 600,
-height => 400
);
$wndStatus = $wndMain->AddStatusBar(
## -name => 'wndStatus',
-width => $wndMain->ScaleWidth
);
From [EMAIL PROTECTED] Tue Feb 13 19:05:25 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SsFw-0008Ji-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Feb 2001
19:05:25 -0800
Received: from christop (unknown [203.199.236.38])
by md4.vsnl.net.in (Postfix) with SMTP id 5ABE8A0E4
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
08:40:23 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Date: Wed, 14 Feb 2001 08:29:22 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] looping in win32 GUI
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
$|=1;
use Win32::RASE;
eval "use Time::HiRes qw(sleep)";
$hrasconn = (RasEnumConnections())[1];
$old_status = -1;
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
if ($status != $old_status) {
print "$status: $status_text\n";
$old_status = $status;
}
sleep ($@ ? 1 : 0.01);
}
# error 6 - Invalid handle
($err = Win32::RASE::GetLastError) != 6 and die
Win32::RASE::FormatMessage($err);
exit;
The above code goes into a while loop and constantly checks for the internet
connection and prints connected or disconnected as appropriate
Now my question is how do I use this loop in Win32 GUI
suppose I use the above loop as it is control , will NOT be transferred to
any other part of the program...
I know that Win32::GUI::Dialog(); actually goes into an indefinite loop
looking for keypresses etc
How can I integrate the while loop also into theWin32::GUI::Dialog(); loop ?
hope Im clear with my question if NOT I will elaborate
Thanks
chris
www.perl-resume.com
From [EMAIL PROTECTED] Wed Feb 14 01:54:34 2001
Received: from dilbrt.alcan.com ([142.14.12.104])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Sydu-0003cN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
01:54:34 -0800
Received: from alcan.com by KRDC.INT.ALCAN.CA (PMDF V5.2-31 #33211)
id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Wed, 14 Feb 2001 04:55:09 EST
Date: Wed, 14 Feb 2001 09:52:12 +0000 (GMT)
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
To: [EMAIL PROTECTED]
Cc: perl-win32-gui-users@lists.sourceforge.net
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
Content-type: MULTIPART/MIXED; BOUNDARY="Boundary_(ID_UCF9w1S9Hfjf2cpPZoFHdQ)"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
--Boundary_(ID_UCF9w1S9Hfjf2cpPZoFHdQ)
Content-type: TEXT/PLAIN
Content-transfer-encoding: 7BIT
Chris,
I guess what you want to do is have a status window on
which you can display the status text from the RASE call?
If that's the case you can do something like this
use Win32::GUI;
my $Win = new Win32::GUI::Window(
-left => 341,
-top => 218,
-width => 300,
-height => 86,
-name => "Win",
-text => "RAS Status"
);
$Win->AddLabel(
-text => " ",
-name => "Label",
-left => 5,
-top => 5,
-width => 280,
-height => 48,
);
sub display { # Update status text
my $text=shift;
$Win->Show();
$Win->BringWindowToTop();
$Win->Refresh();
$Win->Label->Text($text);
$Win->Label->Update();
}
and use display instead of the print in your code
sample.
If you have other windows that you want to run in
the foreground you might want to consider not using
$Win->BringWindowToTop().
Hope that helps.
Kev.
[EMAIL PROTECTED] on 14/02/2001 13:29:22
To: perl-win32-gui-users@lists.sourceforge.net @ INTERNET
cc:
Subject: [perl-win32-gui-users] looping in win32 GUI
$|=1;
use Win32::RASE;
eval "use Time::HiRes qw(sleep)";
$hrasconn = (RasEnumConnections())[1];
$old_status = -1;
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
if ($status != $old_status) {
print "$status: $status_text\n";
$old_status = $status;
}
sleep ($@ ? 1 : 0.01);
}
# error 6 - Invalid handle
($err = Win32::RASE::GetLastError) != 6 and die
Win32::RASE::FormatMessage($err);
exit;
The above code goes into a while loop and constantly checks for the internet
connection and prints connected or disconnected as appropriate
Now my question is how do I use this loop in Win32 GUI
suppose I use the above loop as it is control , will NOT be transferred to
any other part of the program...
I know that Win32::GUI::Dialog(); actually goes into an indefinite loop
looking for keypresses etc
How can I integrate the while loop also into theWin32::GUI::Dialog(); loop ?
hope Im clear with my question if NOT I will elaborate
Thanks
chris
www.perl-resume.com
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
--Boundary_(ID_UCF9w1S9Hfjf2cpPZoFHdQ)--
From [EMAIL PROTECTED] Wed Feb 14 02:12:13 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Syuz-00041w-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
02:12:13 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id LAA54428
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
11:12:51 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-ljsgia; Wed Feb 14 11:12:51 2001
Date: Wed, 14 Feb 2001 11:17:33 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: christopher sagayam <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
christopher sagayam wrote:
> $|=1;
> use Win32::RASE;
> eval "use Time::HiRes qw(sleep)";
> $hrasconn = (RasEnumConnections())[1];
> $old_status = -1;
> while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
> if ($status != $old_status) {
> print "$status: $status_text\n";
> $old_status = $status;
> }
> sleep ($@ ? 1 : 0.01);
> }
> # error 6 - Invalid handle
> ($err = Win32::RASE::GetLastError) != 6 and die
> Win32::RASE::FormatMessage($err);
> exit;
>
> The above code goes into a while loop and constantly checks for
> the internet connection and prints connected or disconnected as
> appropriate
>
> Now my question is how do I use this loop in Win32 GUI
well, it depends on the design of your application. basically, the
Right Way is to use DoEvents.
DoEvents is similar to Dialog, in the sense that it looks for
keypresses, mouse clicks, etc. and fires the appropriate
event(s). the big difference is that DoEvents does not loop,
like Dialog, until it receives a termination message. instead,
if there's nothing to process, DoEvents returns immediately.
you can call DoEvents inside the loop like this:
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
if ($status != $old_status) {
print "$status: $status_text\n";
$old_status = $status;
}
sleep ($@ ? 1 : 0.01);
$MainWindow->DoEvents();
}
this way your application can have a 'Stop' button that may,
for example, break the loop (not *immediately* responsive, but
better than nothing :-).
the loop could be embedded in an event sub (for example,
StartCheck_Click), or you can have no Win32::GUI::Dialog at all,
so that the above loop is the real 'core' of the script. as I said,
it depends on the design of your application.
if this is not clear, please elaborate a bit more about the program
you're trying to write.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 14 02:23:20 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Sz5k-0004HP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
02:23:20 -0800
Received: from christop (unknown [203.197.134.113])
by md4.vsnl.net.in (Postfix) with SMTP id D558FA3CC
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
15:58:05 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
Date: Wed, 14 Feb 2001 15:47:05 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I might be slow to learn but
Actually what Im concerned about is the while loop
How do I get out of the while loop ?
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
}
once the control goes into this loop how it is going to get out ?
Or are these kinds of daemons possible in Win32::GUI ?
chris
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, February 14, 2001 3:22 PM
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
Chris,
I guess what you want to do is have a status window on
which you can display the status text from the RASE call?
If that's the case you can do something like this
use Win32::GUI;
my $Win = new Win32::GUI::Window(
-left => 341,
-top => 218,
-width => 300,
-height => 86,
-name => "Win",
-text => "RAS Status"
);
$Win->AddLabel(
-text => " ",
-name => "Label",
-left => 5,
-top => 5,
-width => 280,
-height => 48,
);
sub display { # Update status text
my $text=shift;
$Win->Show();
$Win->BringWindowToTop();
$Win->Refresh();
$Win->Label->Text($text);
$Win->Label->Update();
}
and use display instead of the print in your code
sample.
If you have other windows that you want to run in
the foreground you might want to consider not using
$Win->BringWindowToTop().
Hope that helps.
Kev.
[EMAIL PROTECTED] on 14/02/2001 13:29:22
To: perl-win32-gui-users@lists.sourceforge.net @ INTERNET
cc:
Subject: [perl-win32-gui-users] looping in win32 GUI
$|=1;
use Win32::RASE;
eval "use Time::HiRes qw(sleep)";
$hrasconn = (RasEnumConnections())[1];
$old_status = -1;
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
if ($status != $old_status) {
print "$status: $status_text\n";
$old_status = $status;
}
sleep ($@ ? 1 : 0.01);
}
# error 6 - Invalid handle
($err = Win32::RASE::GetLastError) != 6 and die
Win32::RASE::FormatMessage($err);
exit;
The above code goes into a while loop and constantly checks for the internet
connection and prints connected or disconnected as appropriate
Now my question is how do I use this loop in Win32 GUI
suppose I use the above loop as it is control , will NOT be transferred to
any other part of the program...
I know that Win32::GUI::Dialog(); actually goes into an indefinite loop
looking for keypresses etc
How can I integrate the while loop also into theWin32::GUI::Dialog(); loop ?
hope Im clear with my question if NOT I will elaborate
Thanks
chris
www.perl-resume.com
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Wed Feb 14 02:25:49 2001
Received: from xenia.renault.fr ([193.194.133.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Sz89-0004KT-00
for <Perl-Win32-GUI-Users@lists.sourceforge.net>; Wed, 14 Feb 2001
02:25:49 -0800
Received: from univers.mc2.renault.fr by xenia.renault.fr id LAA27120 for
<Perl-Win32-GUI-Users@lists.sourceforge.net>; Wed, 14 Feb 2001 11:26:17 +0100
(MET)
Received: from aosus019 by univers.mc2.renault.fr id LAA07762 for
<Perl-Win32-GUI-Users@lists.sourceforge.net>; Wed, 14 Feb 2001 11:26:16 +0100
(MET)
Received: from emicc2c2.mc2.renault.fr by aosus019 with ESMTP for
Perl-Win32-GUI-Users@lists.sourceforge.net; Wed, 14 Feb 2001 11:26:05 +0100
Received: from [172.26.177.202] by emicc2c2.mc2.renault.fr; Wed, 14 Feb 2001
11:20:58 +0100
Message-Id: <[EMAIL PROTECTED]>
From: "Nahum Marc" <[EMAIL PROTECTED]>
To: <Perl-Win32-GUI-Users@lists.sourceforge.net>
Date: Wed, 14 Feb 2001 11:20:56 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0A49_01C09678.33ACD2E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Subject: [perl-win32-gui-users] The cancel cross (upper right) in GUI
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0A49_01C09678.33ACD2E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
How to manage the the cancel cross (upper right) in GUI to do an exit ? =
, not a window exit , but a script exit ...
------=_NextPart_000_0A49_01C09678.33ACD2E0
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 http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4522.1800" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial><FONT size=3D2>How to manage the t</FONT><FONT =
size=3D2>he=20
cancel cross (upper right) in GUI to do an exit ? , not a window exit , =
but a=20
script exit ...</FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML>
------=_NextPart_000_0A49_01C09678.33ACD2E0--
From [EMAIL PROTECTED] Wed Feb 14 02:39:19 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14SzLC-0004e4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
02:39:18 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id LAA81108
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
11:39:57 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-U6xMEa; Wed Feb 14 11:39:56 2001
Date: Wed, 14 Feb 2001 11:44:41 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: christopher sagayam <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
christopher sagayam wrote:
> I might be slow to learn but
> Actually what Im concerned about is the while loop
> How do I get out of the while loop ?
>
> while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
> }
>
> once the control goes into this loop how it is going to get out ?
> Or are these kinds of daemons possible in Win32::GUI ?
as I already said, it depends on your application. and I also add,
it depends on your Perl programming style :-)
a possible way could be:
$stay_in_loop = 1;
while ( $stay_in_loop ) {
($status, $status_text) = RasGetConnectStatus($hrasconn)
or $stay_in_loop = 0;
# ...body of the loop...
$MainWindow->DoEvents();
}
at this point, you could have for example a 'Stop' button which
can control the loop like this:
sub Stop_Click {
$stay_in_loop = 0;
}
but you may prefer a different approach...
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 14 02:56:19 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14Szbe-00053r-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
02:56:18 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id LAA59838
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
11:56:56 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-FMyYMa; Wed Feb 14 11:56:56 2001
Date: Wed, 14 Feb 2001 12:01:36 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Nahum Marc <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Nahum Marc wrote:
> How to manage the the cancel cross (upper right) in GUI to do
> an exit ? , not a window exit , but a script exit ...
pick a sample script, anyone will do, from the samples directory
and study it.
<HINT>
supposing your window is named Window, add this line to your
script:
sub Window_Terminate { -1 }
</HINT>
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 14 03:31:36 2001
Received: from xenia.renault.fr ([193.194.133.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14T09n-0005z8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
03:31:36 -0800
Received: from univers.mc2.renault.fr by xenia.renault.fr id MAA29058 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001 12:32:13 +0100
(MET)
Received: from aosus019 by univers.mc2.renault.fr id MAA09216 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001 12:32:12 +0100
(MET)
Received: from emicc2c2.mc2.renault.fr by aosus019 with ESMTP for
perl-win32-gui-users@lists.sourceforge.net; Wed, 14 Feb 2001 12:32:10 +0100
Received: from [172.26.177.202] by emicc2c2.mc2.renault.fr; Wed, 14 Feb 2001
12:32:09 +0100
Message-Id: <[EMAIL PROTECTED]>
From: "Nahum Marc" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
Date: Wed, 14 Feb 2001 12:32:08 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I do this too ... but it's close the window , and not all the script ...
I can see the process yet in task manager (under NT4)
off course , i hide the dos box so , i need kill the process
----- Original Message -----
From: "Aldo Calpini" <[EMAIL PROTECTED]>
To: "Nahum Marc" <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, February 14, 2001 12:01 PM
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
> Nahum Marc wrote:
> > How to manage the the cancel cross (upper right) in GUI to do
> > an exit ? , not a window exit , but a script exit ...
>
> pick a sample script, anyone will do, from the samples directory
> and study it.
>
> <HINT>
> supposing your window is named Window, add this line to your
> script:
> sub Window_Terminate { -1 }
> </HINT>
>
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Wed Feb 14 04:53:15 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14T1Qp-0008Vm-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
04:53:15 -0800
Received: from christop (unknown [203.197.134.58])
by md4.vsnl.net.in (Postfix) with SMTP id 91F9AA6B1
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
18:27:45 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
Date: Wed, 14 Feb 2001 18:16:45 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Thanks aldo
I will use DO event
but in case there is a better solution do keep me posted
Here is what Im trying to do
I am trying to write a win32 gui perl client which when started will check
whether the computer is connected to internet continuously indefinety in the
meantime other actions should proceed also
So based on your previous example actually there wont be a STOP button at
all since this loop is going to be continuouly executed as along as the
win32 gui script is running
now the catch is during the time the loop is running I need to catch key
presses , button presses , tab presses etc too and do it efficiently
Thanks
chris
----- Original Message -----
From: Aldo Calpini <[EMAIL PROTECTED]>
To: christopher sagayam <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, February 14, 2001 3:47 PM
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
christopher sagayam wrote:
> $|=1;
> use Win32::RASE;
> eval "use Time::HiRes qw(sleep)";
> $hrasconn = (RasEnumConnections())[1];
> $old_status = -1;
> while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
> if ($status != $old_status) {
> print "$status: $status_text\n";
> $old_status = $status;
> }
> sleep ($@ ? 1 : 0.01);
> }
> # error 6 - Invalid handle
> ($err = Win32::RASE::GetLastError) != 6 and die
> Win32::RASE::FormatMessage($err);
> exit;
>
> The above code goes into a while loop and constantly checks for
> the internet connection and prints connected or disconnected as
> appropriate
>
> Now my question is how do I use this loop in Win32 GUI
well, it depends on the design of your application. basically, the
Right Way is to use DoEvents.
DoEvents is similar to Dialog, in the sense that it looks for
keypresses, mouse clicks, etc. and fires the appropriate
event(s). the big difference is that DoEvents does not loop,
like Dialog, until it receives a termination message. instead,
if there's nothing to process, DoEvents returns immediately.
you can call DoEvents inside the loop like this:
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
if ($status != $old_status) {
print "$status: $status_text\n";
$old_status = $status;
}
sleep ($@ ? 1 : 0.01);
$MainWindow->DoEvents();
}
this way your application can have a 'Stop' button that may,
for example, break the loop (not *immediately* responsive, but
better than nothing :-).
the loop could be embedded in an event sub (for example,
StartCheck_Click), or you can have no Win32::GUI::Dialog at all,
so that the above loop is the real 'core' of the script. as I said,
it depends on the design of your application.
if this is not clear, please elaborate a bit more about the program
you're trying to write.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Wed Feb 14 05:24:23 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14T1uw-0000xP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
05:24:22 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id OAA92368
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
14:25:01 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-FS1Jya; Wed Feb 14 14:25:00 2001
Date: Wed, 14 Feb 2001 14:29:42 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: christopher sagayam <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
christopher sagayam wrote:
> Here is what Im trying to do
>
> I am trying to write a win32 gui perl client which when started
> will check whether the computer is connected to internet
> continuously indefinety in the meantime other actions should
> proceed also
>
> So based on your previous example actually there wont be a STOP
> button at all since this loop is going to be continuouly executed
> as along as the win32 gui script is running
>
> now the catch is during the time the loop is running I need to
> catch key presses , button presses , tab presses etc too and do
> it efficiently
I see. in this case, the best thing to do is to setup a Timer
object with a small interval and do your connectivity test once
inside its Timer event, no loop, no sleep :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 14 05:51:45 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14T2LQ-0001rq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
05:51:45 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id OAA62820
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
14:52:24 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-L.zx7a; Wed Feb 14 14:52:23 2001
Date: Wed, 14 Feb 2001 14:57:06 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Nahum Marc <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Nahum Marc wrote:
> I do this too ... but it's close the window , and not all the
> script ... I can see the process yet in task manager (under NT4)
>
> off course , i hide the dos box so , i need kill the process
there must be some error in your script. can you post a piece of
your code that includes at least the window creation, the
Win32::GUI::Dialog() call and the Terminate event?
also, please report which version of Win32::GUI and Perl and
operating system you're using.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 14 06:08:30 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14T2be-0002d1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
06:08:30 -0800
Received: (qmail 12126 invoked from network); 14 Feb 2001 14:09:02 -0000
Received: from pe1-575.dialup.tiscalinet.it (HELO stop) (62.10.240.63)
by puppis2.tiscalinet.it with SMTP; 14 Feb 2001 14:09:02 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 14 Feb 2001 15:04:33 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] ListView setting item as checked
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
When inserting an item, there does not seem to be an option
for setting the item as checked or not. I think I would have
to use the SetItem method, but there is no documentaion on
this. Does anyone know?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Wed Feb 14 06:58:41 2001
Received: from xenia.renault.fr ([193.194.133.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14T3OD-0004iE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
06:58:41 -0800
Received: from univers.mc2.renault.fr by xenia.renault.fr id PAA06017 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001 15:59:18 +0100
(MET)
Received: from aosus019 by univers.mc2.renault.fr id PAA19199 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001 15:59:07 +0100
(MET)
Received: from emicc2c2.mc2.renault.fr by aosus019 with ESMTP for
perl-win32-gui-users@lists.sourceforge.net; Wed, 14 Feb 2001 15:59:05 +0100
Received: from [172.26.177.202] by emicc2c2.mc2.renault.fr; Wed, 14 Feb 2001
15:58:06 +0100
Message-Id: <[EMAIL PROTECTED]>
From: "Nahum Marc" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
Date: Wed, 14 Feb 2001 15:58:05 +0100
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0B27_01C0969E.EB061F20"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0B27_01C0969E.EB061F20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Win32::GUI version 0.0.502
perl version Binary build 522
OS : Windows NT4 wks , SP5
Sincerly,
Marc Nahum
----- Original Message -----
From: "Aldo Calpini" <[EMAIL PROTECTED]>
To: "Nahum Marc" <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, February 14, 2001 2:57 PM
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
> Nahum Marc wrote:
> > I do this too ... but it's close the window , and not all the
> > script ... I can see the process yet in task manager (under NT4)
> >
> > off course , i hide the dos box so , i need kill the process
>
> there must be some error in your script. can you post a piece of
> your code that includes at least the window creation, the
> Win32::GUI::Dialog() call and the Terminate event?
>
> also, please report which version of Win32::GUI and Perl and
> operating system you're using.
>
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
------=_NextPart_000_0B27_01C0969E.EB061F20
Content-Type: application/octet-stream;
name="script.pl"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="script.pl"
# Modification des postes NT de la DR
## V1.0 Nahum Marc - Serlog - Fev. 2001
#########Cache la fenetre DOS
my ($DOS) =3D Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);
use Win32::NetAdmin;
use Win32::GUI;
use Win32::Lanman;
#Definition de variables
$wins1=3D"138.21.29.70";
$wins2=3D"138.21.46.130";
# Recuperation des fichiers reg necessaire
#pour les wins
system ("regedit /e c:\\Temp\\rx0000.txt =
HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\services\\NetBT\\Adapters"=
);
debut:
#fenetre GUI de demande de n=B0 de machine=20
$Win =3D new Win32::GUI::Window(
-left =3D> 300,
-top =3D> 230,
-width =3D> 290,
-height =3D> 100,
-name =3D> "Win",
-text =3D> "Modification des postes NT de la DR",
);
$Win->AddLabel (
-text =3D> "Quel est le n=B0 de la machine ? (6 ou 8 =
chiffres)",
-name =3D> "Label_1",
-top =3D> 5,
-foreground =3D> [255, 0, 0],
-left =3D> 20,
);
$titi=3D"";
$TextField_1=3D$Win->AddTextfield (
-text =3D> "$titi",
-name =3D> "TextField_1",
-left =3D> 20,
-top =3D> 25,
-width =3D> 100,
-height =3D> 25,
);
$Win->AddButton (
-text =3D> "OK",
-name =3D> "Button_1",
-left =3D> 140,
-top =3D> 25
-width =3D> 50,
-default =3D> 1,
);
$font_about =3D Win32::GUI::Font->new(
-name =3D> "Comic Sans MS",=20
-size =3D> 8,
);
$Win->AddButton(=09
-name =3D> "about",
-text =3D> "...",=20
-font =3D>$font_about,
-left =3D> 240,=20
-top =3D> 2,=20
-width =3D> 40,
);
$Listmp=3D$Win->AddListbox(
-name =3D> "Listmp",
-left =3D> 10,
-top =3D> 180,
-width =3D> 100,
-height =3D> 20,
-visible =3D>0,
);
$Listmp->AddString("$titi");
$Listmp->Select(0);
fenetre1b:
$Win->Show();
Win32::GUI::Dialog();
sub about_Click {
goto about;
}
sub Button_1_Click {
my $sel =3D $Listmp->SelectedItem();
if($sel !=3D -1)
{
$nomnt=3D$Listmp->GetString($sel);
return -1;
goto suite;
}=20
Window_Terminate();
goto suite;
}
sub TextField_1_Change {
my $sel =3D $Listmp->SelectedItem();
if ($sel !=3D-1)=20
{
$Listmp->RemoveItem($sel);
$Listmp->InsertItem($TextField_1->Text, $sel);
$Listmp->Select($sel);
}
return 1;
}
$Win->Hide();
suite:
if ($nomnt =3D~ /[^0-9]+/)=20
{
$erreur=3D"Merci de ne saisir que des chiffres ...\n";
messerr();
goto debut;
}
$nbrcar=3Dlength($nomnt);
if ($nbrcar !=3D 8 and $nbrcar !=3D6 )
{
$erreur=3D"Attention 6 ou 8 chiffres uniquement !\n";
messerr();
goto debut;
}
#modif wins
open(IMPORT,"<c:\\Temp\\rx0000.txt"); =09
@rx=3D<IMPORT>; =09
close IMPORT;
foreach $ligne (@rx)
{
if ($ligne =3D~ /"NameServer"/i) =
{$ligne=3D"\"NameServer\"=3D\"$wins1\"\n"};
if ($ligne =3D~ /"NameServerBackup"/i) =
{$ligne=3D"\"NameServerBackup\"=3D\"$wins2\"\n"};
push(@modifnt,$ligne)
}
# Creation du fichier REG de mise a jour wins et nom de machine
push(@modifnt,"[HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\C=
omputerName\\ActiveComputerName]\n");
push(@modifnt,"\"ComputerName\"=3D\"NT$nomnt\"\n");
push(@modifnt,"[HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\C=
omputerName\\ComputerName]\n");
push(@modifnt,"\"ComputerName\"=3D\"NT$nomnt\"\n");
push(@modifnt,"[HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\=
Tcpip\\Parameters]\n");
push(@modifnt,"\"Hostname\"=3D\"NT$nomnt\"\n");
open(EXPORT,">c:\\temp\\modifnt.reg"); =09
print EXPORT (@modifnt); =09
close EXPORT;
#execution du reg
system ("regedit /s /c c:\\Temp\\modifnt.reg");
#Ajout du compte Bureautique=20
$verifbur=3DWin32::NetAdmin::UsersExist("","bureautique");
if ($verifbur=3D=3D1) {goto checkadmin;}
else=20
{
Win32::Lanman::NetUserAdd("", {'name' =3D> 'bureautique',
'password' =3D> 'toto',
'comment' =3D> 'Compte =
Hotline Bureautique',
'flags' =3D> =
UF_DONT_EXPIRE_PASSWD ,
'password_expired' =3D> =
0});
Win32::Lanman::NetLocalGroupAddMembers("",=20
"Administrateurs",=20
['bureautique']);
}
checkadmin:
#Reset du mot de passe admin
$user =3D 'Administrateur';
=20
exit 1
unless Win32::Lanman::NetUserGetInfo("", $user, \%userinfo);
=20
$userinfo{password} =3D "titi";
=20
exit 2
unless Win32::Lanman::NetUserSetInfo("", $user, \%userinfo);
#M=E9nage des fichiers
$delfic1=3D`cmd /c del c:\\Temp\\rx0000.txt >NUL`;
$delfic2=3D`cmd /c del c:\\Temp\\modifnt.reg >NUL`;
messfin:
#Message de fin
$winfin =3D Win32::GUI::Window->new(-name =3D> 'winfin', -text =3D> 'Fin =
de la mise =E0 jour',
-width =3D> 320, -height =3D> 150, =
-top =3D> 100 , -left =3D>100);
$font_about2 =3D Win32::GUI::Font->new(
-name =3D> "Garamond",=20
-size =3D> 24,
);
$winfin->AddLabel(
-text =3D> "Fin de la mise =E0 jour des NT Workstation",
-foreground =3D> [255, 0, 0],
-top =3D>10,
-font =3D>$font_about2,
-left =3D>10,
);
$winfin->AddLabel(
-text =3D> "Merci de redemarrer le poste",
-foreground =3D> [255, 0, 0],
-top =3D>50,
-font =3D>$font_about2,
-left =3D>50,
);
$font_about2 =3D Win32::GUI::Font->new(
-name =3D> "Garamond",=20
-size =3D> 24,
);
$winfin->AddButton(=09
-name =3D> "fin_ok",
-text =3D> "--OK--",=20
-left =3D> 70,=20
-top =3D> 85,=20
-width =3D> 150,
);
$winfin->Show();
$winfin->Dialog();
sub fin_ok_Click
{
$winfin->Hide();
goto fin;
};
sub Window_Terminate {warn ("toto\n"); return -1 }
fin:
#########Retour de la fenetre DOS
Win32::GUI::Show($DOS);
exit;
######################
# Erreur de saisie ###
######################
sub messerr
{
$errwindows=3D Win32::GUI::Window->new(-name =3D> 'errwindows', -text =
=3D> "Erreur !!! ",
-width =3D> 320, -height =3D> 100, =
-left =3D> 100,);
my $font =3D Win32::GUI::Font->new(
-name =3D> "Comic Sans MS",=20
-size =3D> 24,
);
$errwindows->AddLabel (
-text =3D> $erreur,
-name =3D> "Lerrwindows",
-left =3D> 10,=20
-top =3D> 10,
-font =3D> $font,
-foreground =3D> [255, 0, 0],
);
$errwindows->AddButton(=09
-name =3D> "ok",
-text =3D> "OK",=20
-left =3D> 125,=20
-top =3D> 50,=20
-width =3D> 50,
);
$errwindows->Show();
$errwindows->Dialog();
sub ok_Click=20
{
$errwindows->Hide();
goto debut;
};
}
###########
## About ##
###########
about:
$winabout =3D Win32::GUI::Window->new(-name =3D> 'winabout', -text =3D> =
'About ...',
-width =3D> 320, -height =3D> 150);
$font_about2 =3D Win32::GUI::Font->new(
-name =3D> "Garamond",=20
-size =3D> 24,
);
$winabout->AddLabel(
-text =3D> "Modification de postes NT workstation de la =
DR...",
-foreground =3D> [255, 0, 0],
-top =3D>10,
-font =3D>$font_about2,
);
$winabout->AddLabel(
-text =3D> "Version 1.0 - Fev. 2001",
-foreground =3D> [255, 0, 0],
-top =3D>50,
-font =3D>$font_about2,
);
$winabout->AddLabel(
-text =3D> "Nahum Marc - Serlog - DTSI/DTS ",
-foreground =3D> [255, 0, 0],
-top =3D>70,
-font =3D>$font_about2,
);
$font_about2 =3D Win32::GUI::Font->new(
-name =3D> "Garamond",=20
-size =3D> 24,
);
$winabout->AddButton(=09
-name =3D> "about_ok",
-text =3D> "--OK--",=20
-left =3D> 50,=20
-top =3D> 100,=20
-width =3D> 150,
);
$winabout->Show();
$return100=3D $winabout->Dialog();
sub about_ok_Click
{
$winabout->Hide();
goto fenetre1b;
};
------=_NextPart_000_0B27_01C0969E.EB061F20--
From [EMAIL PROTECTED] Wed Feb 14 07:24:37 2001
Received: from slkcpop5.slkc.uswest.net ([206.81.128.5])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14T3nI-0005aq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
07:24:37 -0800
Received: (qmail 69646 invoked by uid 0); 14 Feb 2001 15:25:15 -0000
Received: from slkc6400gw3poold179.slkc.uswest.net (HELO jalopeura)
(63.228.197.179)
by slkcpop5.slkc.uswest.net with SMTP; 14 Feb 2001 15:25:15 -0000
Date: Wed, 14 Feb 2001 08:09:50 -0700
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
Priority: normal
In-reply-to: <[EMAIL PROTECTED]>
X-mailer: Pegasus Mail for Win32 (v3.12c)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
On 14 Feb 2001, at 11:20, Nahum Marc wrote:
> How to manage the the cancel cross (upper right) in GUI to do an exit
> ? = , not a window exit , but a script exit ...
I think I found your problem: When Win32::GUI::Dialog() returns -1,
control returns to the script. After that, you have a bunch of subs
and then your 'suite' section. One of the commands in 'suite' is
'goto debut', so it jumps back up there, and runs through that part
of the script again. Place an 'exit' after your
Win32::GUI::Dialog(), and the script should terminate before getting
to 'suite'.
From [EMAIL PROTECTED] Wed Feb 14 07:44:40 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14T46h-0006HA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
07:44:39 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id QAA37602
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
16:45:19 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-3.inet.it via I-SMTP
id queue/s-194.185.211.179-l4BQaa; Wed Feb 14 16:45:18 2001
Date: Wed, 14 Feb 2001 16:50:03 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Nahum Marc <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Nahum Marc wrote:
> Win32::GUI version 0.0.502
> perl version Binary build 522
> OS : Windows NT4 wks , SP5
c'est tres simple :-)
your window is called 'Win' (-name => "Win"), but your event
is called Window_Terminate. should be Win_Terminate instead!
BTW, you have an horrible use of goto in your script. I
haven't investigated much, but I've seen a lot of possible
problems here and there (for example, returning to 'debut'
will create another copy of your windows, which is something
you should not do!).
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Feb 14 07:51:23 2001
Received: from smtp013.mail.yahoo.com ([216.136.173.57])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14T4DD-0006Tp-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
07:51:23 -0800
Received: from unknown (HELO christop) (210.18.20.89)
by smtp.mail.vip.sc5.yahoo.com with SMTP; 14 Feb 2001 15:50:06 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
Date: Wed, 14 Feb 2001 21:13:23 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Thanks aldo for all your info
chris
www.perl-resume.com
----- Original Message -----
From: Aldo Calpini <[EMAIL PROTECTED]>
To: christopher sagayam <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, February 14, 2001 6:59 PM
Subject: Re: [perl-win32-gui-users] looping in win32 GUI
christopher sagayam wrote:
> Here is what Im trying to do
>
> I am trying to write a win32 gui perl client which when started
> will check whether the computer is connected to internet
> continuously indefinety in the meantime other actions should
> proceed also
>
> So based on your previous example actually there wont be a STOP
> button at all since this loop is going to be continuouly executed
> as along as the win32 gui script is running
>
> now the catch is during the time the loop is running I need to
> catch key presses , button presses , tab presses etc too and do
> it efficiently
I see. in this case, the best thing to do is to setup a Timer
object with a small interval and do your connectivity test once
inside its Timer event, no loop, no sleep :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Wed Feb 14 11:16:30 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14T7Pi-0005Hy-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
11:16:30 -0800
Received: (qmail 13077 invoked from network); 14 Feb 2001 19:17:06 -0000
Received: from pe1-720.dialup.tiscalinet.it (HELO stop) (62.10.240.208)
by puppis2.tiscalinet.it with SMTP; 14 Feb 2001 19:17:06 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 14 Feb 2001 20:13:31 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] SelectedItems method
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I'm trying to test if any items have been selected in a
listview with a button event and I have used the -singlesel
option on the listview. So, therefore, if the user clicks
the button without selecting anything, I would like to have
a MsgBox, else take the value of the the choosen selection
and do some computation.
$MainWin->AddListView(
-name => "ListView",
-pos => [85, 100],
-size => [$MainWin->ScaleWidth-160,
$MainWin->ScaleHeight-170],
-style => WS_CHILD | WS_VISIBLE | 1 |
WS_HSCROLL | WS_VSCROLL,
-fullrowselect => -1,
-gridlines => 0,
-hottrack => 0,
-visible => 0,
-view => 1,
-tabstop => 4,
-singlesel => 1,
);
$width = $MainWin->ListView->ScaleWidth;
$MainWin->ListView->InsertColumn(
-index => 0,
-subitem => 0,
-width => $width-15,
-text => "Column",
);
for (sort keys %SomeHash) {
$MainWin->ListView->InsertItem(-text=>[$_]);
}
$MainWin->AddButton(
-name => "Button",
-text => "&Ok",
-pos => [347, 350],
-height => 20,
);
sub Button_Click {
my @index = $MainWin->ListView->SelectedItems();
if (@index[0] >= 0) { #I need the zero because of the
zero-based index
#do something...
} else {
Win32::MsgBox(...);
}
When "Button" is pressed it always falls through the if
statement. Even in the case of no selection it falls through
because @index[0], in this case, is undef. I know undef is
the same as 0, but how could I get around this?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Wed Feb 14 14:03:38 2001
Received: from web4107.mail.yahoo.com ([216.115.104.127])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14TA1S-0003a7-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
14:03:38 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [208.210.221.70] by web4107.mail.yahoo.com; Wed, 14 Feb 2001
14:04:19 PST
Date: Wed, 14 Feb 2001 14:04:19 -0800 (PST)
From: Jeremy Blonde <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] SelectedItems method
To: perl-win32-gui-users@lists.sourceforge.net
In-Reply-To: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Well, I don't know if this will actually fix your
problem, but you should definitely be using
"$index[0]" instead of "@index[0]".
Just my 2 cents,
jb
--- "Erick J. Bourgeois" <[EMAIL PROTECTED]> wrote:
> I'm trying to test if any items have been selected
> in a
> listview with a button event and I have used the
> -singlesel
> option on the listview. So, therefore, if the user
> clicks
> the button without selecting anything, I would like
> to have
> a MsgBox, else take the value of the the choosen
> selection
> and do some computation.
>
> $MainWin->AddListView(
> -name => "ListView",
> -pos => [85, 100],
> -size => [$MainWin->ScaleWidth-160,
> $MainWin->ScaleHeight-170],
> -style => WS_CHILD | WS_VISIBLE | 1
> |
> WS_HSCROLL | WS_VSCROLL,
> -fullrowselect => -1,
> -gridlines => 0,
> -hottrack => 0,
> -visible => 0,
> -view => 1,
> -tabstop => 4,
> -singlesel => 1,
> );
> $width = $MainWin->ListView->ScaleWidth;
> $MainWin->ListView->InsertColumn(
> -index => 0,
> -subitem => 0,
> -width => $width-15,
> -text => "Column",
> );
> for (sort keys %SomeHash) {
> $MainWin->ListView->InsertItem(-text=>[$_]);
> }
> $MainWin->AddButton(
> -name => "Button",
> -text => "&Ok",
> -pos => [347, 350],
> -height => 20,
> );
>
> sub Button_Click {
> my @index = $MainWin->ListView->SelectedItems();
> if (@index[0] >= 0) { #I need the zero because
> of the
> zero-based index
> #do something...
> } else {
> Win32::MsgBox(...);
> }
>
> When "Button" is pressed it always falls through the
> if
> statement. Even in the case of no selection it falls
> through
> because @index[0], in this case, is undef. I know
> undef is
> the same as 0, but how could I get around this?
>
> erick
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
From [EMAIL PROTECTED] Wed Feb 14 15:21:47 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14TBF4-0007Jg-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Feb 2001
15:21:46 -0800
Received: (qmail 6176 invoked from network); 14 Feb 2001 23:22:22 -0000
Received: from pe1-720.dialup.tiscalinet.it (HELO stop) (62.10.240.208)
by puppis2.tiscalinet.it with SMTP; 14 Feb 2001 23:22:22 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] SelectedItems method
Date: Thu, 15 Feb 2001 00:18:47 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Jeremy, sorry what I gave was a typo, I did indeed have
$Index[0] (Cutting and pasting error :) ). It should look
like this:
$MainWin->AddListView(
-name => "ListView",
-pos => [85, 100],
-size =>
[$MainWin->ScaleWidth-160,$MainWin->ScaleHeight-170],
-style => WS_CHILD | WS_VISIBLE | 1
|WS_HSCROLL | WS_VSCROLL,
-fullrowselect => -1,
-gridlines => 0,
-hottrack => 0,
-visible => 0,
-view => 1,
-tabstop => 4,
-singlesel => 1,
);
$width = $MainWin->ListView->ScaleWidth;
$MainWin->ListView->InsertColumn(
-index => 0,
-subitem => 0,
-width => $width-15,
-text => "Column",
);
for (sort keys %SomeHash) {
$MainWin->ListView->InsertItem(-text=>[$_]);
}
$MainWin->AddButton(
-name => "Button",
-text => "&Ok",
-pos => [347, 350],
-height => 20,
);
sub Button_Click {
my @index = $MainWin->ListView->SelectedItems();
if ($index[0] >= 0) { #I need the zero because of the
zero-based index
#do something...
} else {
Win32::MsgBox(...);
}
Any more ideas are more than welcome.
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Jeremy Blonde <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, February 14, 2001 11:04 PM
Subject: Re: [perl-win32-gui-users] SelectedItems method
> Well, I don't know if this will actually fix your
> problem, but you should definitely be using
> "$index[0]" instead of "@index[0]".
>
> Just my 2 cents,
> jb
>
From [EMAIL PROTECTED] Thu Feb 15 02:12:41 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TLOz-0003Xy-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
02:12:41 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id LAA15780
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
11:13:21 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-IJC5Ua; Thu Feb 15 11:13:19 2001
Date: Thu, 15 Feb 2001 11:17:55 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SelectedItems method
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> [...]
> When "Button" is pressed it always falls through the if
> statement. Even in the case of no selection it falls through
> because @index[0], in this case, is undef. I know undef is
> the same as 0, but how could I get around this?
UNDEF IS NOT THE SAME AS 0! this is, speaking in perl terms,
an heresy and you shall be punished with eternal fire ;-)
undef is *evaluated* as 0 in numerical context and as "" in
string context, but is not 'the same'.
perl has a defined() function to check if something is
'not undef', including 0 and "". your if statement should
look like this:
if( defined( $index[0] ) ) {
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Feb 15 03:14:28 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14TMMm-0006UZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
03:14:28 -0800
Received: (qmail 14747 invoked from network); 15 Feb 2001 11:15:01 -0000
Received: from pe1-830.dialup.tiscalinet.it (HELO stop) (62.10.241.62)
by puppis2.tiscalinet.it with SMTP; 15 Feb 2001 11:15:01 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] SelectedItems method
Date: Thu, 15 Feb 2001 12:11:03 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
> UNDEF IS NOT THE SAME AS 0! this is, speaking in perl
terms,
> an heresy and you shall be punished with eternal fire ;-)
Mia colpa, mia colpa...won't happen again :)
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Thu Feb 15 03:24:19 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14TMWI-0006uL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
03:24:19 -0800
Received: (qmail 19605 invoked from network); 15 Feb 2001 11:24:53 -0000
Received: from pe1-830.dialup.tiscalinet.it (HELO stop) (62.10.241.62)
by puppis2.tiscalinet.it with SMTP; 15 Feb 2001 11:24:53 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SelectedItems method
Date: Thu, 15 Feb 2001 12:20:59 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Sorry to bother the list again, but Aldo, checking it's
undef"ness" with defined does not work either, it falls
through not matter what. I tried putting print
"$index[0]\n"; to see it's value and indeed it is undef (ie.
it did not print anything), so why does it pass the if
statement?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Thu Feb 15 04:17:53 2001
Received: from [212.88.37.5] (helo=neptune.xml.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TNM8-0000We-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
04:17:52 -0800
Received: by NEPTUNE with Internet Mail Service (5.5.2650.21)
id <180QT36Z>; Thu, 15 Feb 2001 12:18:50 -0000
Message-ID: <[EMAIL PROTECTED]>
From: Michael Solomon <[EMAIL PROTECTED]>
To: "Perl Gui (E-mail)" <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 15 Feb 2001 12:18:48 -0000
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C09749.738D8E3C"
Subject: [perl-win32-gui-users] get value from list
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C09749.738D8E3C
Content-Type: text/plain;
charset="iso-8859-1"
I am querying a database and putting the output into a listview
What I would like to next is to click on an item in the list and then
drilldown into the data base
The question is how can I return the value from a List
I am fairly new at using Win32::GUI and apologise if this is a stupid
question.
Should I be using a different type than listview and if so what should I be
using?
use strict;
use Socket;
use Win32::GUI;
use Win32::ODBC;
#set variables
my (%Data, %new, $result, $Window, $width);
my $Dir = "//neptune/tech_dept/databases";
my $DBase = "asset.mdb";
my $DriverType = "Microsoft Access Driver (*.mdb)";
my $Desc = "Description=The Win32::ODBC Test DSN for Perl";
my $DSN = "tmpdsn";
$Window = new GUI::Window(
-name => "Window",
-text => "Win32::GUI::ListView test",
-width => 350,
-height => 500,
-left => 100,
-top => 100,
);
$Window->AddListView(
-name => "ListView",
-left => 10,
-top => 10,
-width => 330,
-height => 383,
-style => WS_VISIBLE | 1,
-gridlines => 1,
);
$width = $Window->ListView->ScaleWidth;
$Window->ListView->InsertColumn(
-index => 0,
-width => $width/2,
-text => "Asset No",
);
$Window->ListView->InsertColumn(
-index => 1,
-width => $width/2,
-text => "IP Address",
);
$Window->AddRadioButton(
-name => "Radio1",
-left => 8,
-top => 410,
-text => "192 Network ",
-tabstop => 1,
);
$Window->AddRadioButton(
-name => "Radio2",
-left => 8,
-top => 430,
-text => "212 XTML ",
-tabstop => 1,
);
$Window->AddRadioButton(
-name => "Radio3",
-left => 8,
-top => 450,
-text => "212 EasyNet ",
-tabstop => 1,
);
#$Window->ListView->TextColor(hex("0000FF"));
$Window->Show();
$Window->Dialog();
sub MAIN {
#set up dsn
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, ("DSN=$DSN",
"Description=The Win32 ODBC Test DSN for Perl", "DBQ=$Dir\\$DBase",
"DEFAULTDIR=$Dir", "UID=", "PWD="));
#open connection as $0
my $cO = new Win32::ODBC($DSN);
#run sql
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where ipaddress
like '${result}%'");
#reset new
%new = ();
# Fetch the next rowset
while($cO->FetchRow()){
%Data = $cO->DataHash();
#convert to binary
$new{inet_aton($Data{ipaddress})} =
"$Data{assetid},$Data{ipaddress}";
}
#close database
$cO->Close();
#remove tempdsn
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, "DSN=$DSN");
#clear items
$Window->ListView->Clear();
foreach (sort keys %new) {
my ($asset, $ip ) = split(",",$new{$_});
$Window->ListView->InsertItem(-text => [ "$asset", "$ip" ]
);
};
}
sub MAIN1 {
#clear items
$Window->ListView->Clear();
foreach (sort numeric values %new) {
my ($asset, $ip ) = split(",",$_);
$Window->ListView->InsertItem(-text => [ "$asset", "$ip" ]
);
};
}
sub numeric { $a <=> $b };
sub Radio1_Click {
if($Window->Radio1->Checked()) {
$result = "192";
&MAIN;
} elsif($Window->Radio2->Checked()) {
$result = "212.88";
&MAIN;
} elsif($Window->Radio3->Checked()) {
$result = "212.74";
&MAIN;
}
}
sub Radio2_Click { Radio1_Click(); }
sub Radio3_Click { Radio1_Click(); }
sub ListView_ColumnClick {
my $column = shift;
if ($result ne "" ) {
if ( $column == 1 ) {&MAIN;}
if ( $column == 0 ) {&MAIN1;}
}
}
__END__
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks.
www.3s-group.com
=========================================================================
------_=_NextPart_001_01C09749.738D8E3C
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2650.12">
<TITLE>get value from list</TITLE>
</HEAD>
<BODY>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I am =
querying a database and putting the output into a listview</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">What I =
would like to next is to click on an item in the list and then =
drilldown into the data base</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">The =
question is how can I return the value from a List</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I am =
fairly new at using Win32::GUI and apologise if this is a stupid =
question.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Should =
I be using a different type than listview and if so what should</FONT> =
<FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I</FONT><FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman"></FONT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">be using?</FONT></P>
<BR>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">use =
strict;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">use =
Socket;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">use =
Win32::GUI;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">use =
Win32::ODBC;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#set =
variables</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
(%Data, %new, $result, $Window, $width);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
$Dir =
=3D =
"//neptune/tech_dept/databases";</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
$DBase =
=3D =
"asset.mdb";</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
$DriverType =3D "Microsoft Access Driver =
(*.mdb)";</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
$Desc =
=3D "Description=3DThe =
Win32::ODBC Test DSN for Perl";</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
$DSN =
=3D =
"tmpdsn";</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window =3D new GUI::Window(</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -name =3D> =
"Window",</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -text =3D> =
"Win32::GUI::ListView test",</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -width =3D> 350,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -height =3D> 500,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -left =3D> 100,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -top =3D> =
100,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->AddListView(</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -name =3D> =
"ListView",</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -left =3D> =
10,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -top =
=3D> 10,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -width =3D> =
330,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -height =3D> =
383,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -style =3D> =
WS_VISIBLE | 1,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -gridlines =3D> 1,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">$width =
=3D $Window->ListView->ScaleWidth;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->ListView->InsertColumn(</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -index =3D> 0,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -width =3D> $width/2,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -text =3D> "Asset =
No",</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->ListView->InsertColumn(</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -index =3D> 1,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -width =3D> =
$width/2,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"> -text =3D> "IP =
Address",</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->AddRadioButton(</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-name =
=3D> "Radio1",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-left =
=3D> 8,</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-top =
=3D> 410,</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-text =
=3D> "192 Network ",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-tabstop =3D> =
1,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->AddRadioButton(</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-name =
=3D> "Radio2",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-left =
=3D> 8,</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-top =
=3D> 430,</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-text =
=3D> "212 XTML ",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-tabstop =3D> =
1,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->AddRadioButton(</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-name =
=3D> "Radio3",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-left =
=3D> 8,</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-top =
=3D> 450,</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-text =
=3D> "212 EasyNet ",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-tabstop =3D> =
1,</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">#$Window->ListView->TextColor(hex("0000FF"));</FO=
NT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->Show();</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->Dialog();</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
MAIN {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#set up dsn</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN", "Description=3DThe Win32 ODBC Test DSN =
for Perl", "DBQ=3D$Dir\\$DBase", =
"DEFAULTDIR=3D$Dir", "UID=3D", =
"PWD=3D"));</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#open connection as =
$0</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">my $cO =3D new =
Win32::ODBC($DSN);</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#run sql</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$cO->Sql("SELECT =
assetid, ipaddress FROM ip_address where ipaddress like =
'${result}%'");</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#reset new</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">%new =3D ();</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman"># Fetch the next =
rowset</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">while($cO->FetchRow()){</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">%Data =3D $cO->DataHash();</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">#convert to binary</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">$new{inet_aton($Data{ipaddress})} =3D =
"$Data{assetid},$Data{ipaddress}";</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">}</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#close database</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$cO->Close();</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#remove tempdsn</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#clear items</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->ListView->Clear(); </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">foreach (sort keys %new) =
{</FONT></P>
<P ALIGN=3DLEFT> =
=
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">my ($asset, $ip ) =3D =
split(",",$new{$_});</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">$Window->ListView->InsertItem(-text =
=3D> [ "$asset", "$ip" ] );</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">};</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
MAIN1 {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">#clear items</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Window->ListView->Clear(); </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">foreach (sort numeric values =
%new) {</FONT></P>
<P ALIGN=3DLEFT> =
=
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">my ($asset, $ip ) =3D =
split(",",$_);</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">$Window->ListView->InsertItem(-text =
=3D> [ "$asset", "$ip" ] );</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">};</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
numeric { $a <=3D> $b };</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
Radio1_Click {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">if($Window->Radio1->Checked()) {</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">$result =3D "192";</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">&MAIN;</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">} =
elsif($Window->Radio2->Checked()) {</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">$result =3D "212.88";</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">&MAIN;</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">} =
elsif($Window->Radio3->Checked()) {</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">$result =3D "212.74";</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">&MAIN;</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
Radio2_Click { Radio1_Click(); }</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
Radio3_Click { Radio1_Click(); }</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
ListView_ColumnClick {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">my $column =3D =
shift;</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">if ($result ne "" =
) {</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">if ( $column =3D=3D 1 ) =
{&MAIN;}</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">if ( $column =3D=3D 0 ) =
{&MAIN1;}</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">}</FONT></P>
<P ALIGN=3DLEFT> </P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">__END__</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Regards</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Mike =
Solomon</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Technical Manager</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Work 01582 831125</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Mobile =
07941 537 172</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">email [EMAIL PROTECTED]</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Important: Any views or opinions expressed by the sender do not =
necessarily</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">represent those of the 3s Group. This e-mail and any =
attachment(s)</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">are =
intended for the above named only and may be confidential. If you =
are not</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">the =
named recipient please notify us immediately. You must not copy =
or disclose</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">the =
contents to any third party.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Internet e-mail is not a fully secure communications =
medium. Please take</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">this =
into account when sending e-mail to us.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Any =
attachment(s) to this e-mail are believed to be free from virus, but =
it</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">is the =
responsibility of the recipient to make all the necessary =
virus</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">checks. </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">www.3s-group.com</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D</FONT></P>
</BODY>
</HTML>
------_=_NextPart_001_01C09749.738D8E3C--
From [EMAIL PROTECTED] Thu Feb 15 07:27:00 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TQJA-00070F-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
07:27:00 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id QAA29272
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
16:27:35 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-eGw.Ea; Thu Feb 15 16:27:33 2001
Date: Thu, 15 Feb 2001 16:32:18 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SelectedItems method
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> Sorry to bother the list again, but Aldo, checking it's
> undef"ness" with defined does not work either, it falls
> through not matter what. I tried putting print
> "$index[0]\n"; to see it's value and indeed it is undef (ie.
> it did not print anything), so why does it pass the if
> statement?
that's true, there's a bug in the XS code: it doesn't really
returns undef, but a false value (eg. 0). will be corrected
in the next release :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Feb 15 08:02:00 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14TQr2-0000Dj-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
08:02:00 -0800
Received: (qmail 18933 invoked from network); 15 Feb 2001 16:02:40 -0000
Received: from pe1-830.dialup.tiscalinet.it (HELO stop) (62.10.241.62)
by puppis2.tiscalinet.it with SMTP; 15 Feb 2001 16:02:40 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] SelectedItems method
Date: Thu, 15 Feb 2001 16:59:01 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo, can I correct it myself and compile it with DJGCC?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Thu Feb 15 08:59:49 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TRkz-00037J-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
08:59:49 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id KAA01737
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
10:00:32 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Thu, 15
Feb 2001 10:00:27 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Thu, 15 Feb 2001 09:47:46 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2650.21)
id <18A1AKS5>; Thu, 15 Feb 2001 09:47:51 -0700
Content-return: allowed
Date: Thu, 15 Feb 2001 09:47:49 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] get value from list
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Someone else has written a win32::Gui program to do just what you are =
trying
to do. I don't seem to have the code anymore. Maybe they can post it =
again,
or you can search the archives.
Here's a piece of code I just wrote that gets all the data, including =
the
image, from a listview, it puts it into a hash.
I used this with the column sort routine that has been floating around, =
by
Jonathan Southwick [EMAIL PROTECTED] I am still working out the
bugs, but this section of code should help you.
# you must already have $totalcols (the # of columns in your
listview)
# I don't think there is a way to pull this from the object.
%data=3D();
$rows=3D$ListView->Count();
for $i(0..$rows-1)
{
$row=3D"";
my %result=3D$ListView->GetItem($i,0);
$image=3D$result{-image};
for $j(0..$totalcols-1)
{
my %result=3D$ListView->GetItem($i,$j);
$text=3D$result{-text};
$row.=3D",$text";
}
$data{$i}=3D"$image$row";
#Win32::MsgBox("data($i)=3D$image$row\n");
}
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 5:19 AM
To: Perl Gui (E-mail)
Subject: [perl-win32-gui-users] get value from list
I am querying a database and putting the output into a listview
What I would like to next is to click on an item in the list and then
drilldown into the data base
The question is how can I return the value from a List
I am fairly new at using Win32::GUI and apologise if this is a stupid
question.
Should I be using a different type than listview and if so what should =
I be
using?
use strict;
use Socket;
use Win32::GUI;
use Win32::ODBC;
#set variables
my (%Data, %new, $result, $Window, $width);
my $Dir =3D "//neptune/tech_dept/databases";
my $DBase =3D "asset.mdb";
my $DriverType =3D "Microsoft Access Driver (*.mdb)";
my $Desc =3D "Description=3DThe Win32::ODBC Test DSN for =
Perl";
my $DSN =3D "tmpdsn";
$Window =3D new GUI::Window(
-name =3D> "Window",
-text =3D> "Win32::GUI::ListView test",
-width =3D> 350,
-height =3D> 500,
-left =3D> 100,
-top =3D> 100,
);
$Window->AddListView(
-name =3D> "ListView",
-left =3D> 10,
-top =3D> 10,
-width =3D> 330,
-height =3D> 383,
-style =3D> WS_VISIBLE | 1,
-gridlines =3D> 1,
);
$width =3D $Window->ListView->ScaleWidth;
$Window->ListView->InsertColumn(
-index =3D> 0,
-width =3D> $width/2,
-text =3D> "Asset No",
);
$Window->ListView->InsertColumn(
-index =3D> 1,
-width =3D> $width/2,
-text =3D> "IP Address",
);
$Window->AddRadioButton(
-name =3D> "Radio1",
-left =3D> 8,
-top =3D> 410,
-text =3D> "192 Network ",
-tabstop =3D> 1,
);
$Window->AddRadioButton(
-name =3D> "Radio2",
-left =3D> 8,
-top =3D> 430,
-text =3D> "212 XTML ",
-tabstop =3D> 1,
);
$Window->AddRadioButton(
-name =3D> "Radio3",
-left =3D> 8,
-top =3D> 450,
-text =3D> "212 EasyNet ",
-tabstop =3D> 1,
);
#$Window->ListView->TextColor(hex("0000FF"));
$Window->Show();
$Window->Dialog();
sub MAIN {
#set up dsn
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN",
"Description=3DThe Win32 ODBC Test DSN for Perl", "DBQ=3D$Dir\\$DBase",
"DEFAULTDIR=3D$Dir", "UID=3D", "PWD=3D"));
#open connection as $0
my $cO =3D new Win32::ODBC($DSN);
#run sql
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress
like '${result}%'");
#reset new
%new =3D ();
# Fetch the next rowset
while($cO->FetchRow()){
%Data =3D $cO->DataHash();
#convert to binary
$new{inet_aton($Data{ipaddress})} =3D
"$Data{assetid},$Data{ipaddress}";
}
#close database
$cO->Close();
#remove tempdsn
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");
#clear items
$Window->ListView->Clear(); =20
foreach (sort keys %new) {
my ($asset, $ip ) =3D split(",",$new{$_});
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]
);
};
}
sub MAIN1 {
#clear items
$Window->ListView->Clear(); =20
foreach (sort numeric values %new) {
my ($asset, $ip ) =3D split(",",$_);
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]
);
};
}
sub numeric { $a <=3D> $b };
sub Radio1_Click {
if($Window->Radio1->Checked()) {
$result =3D "192";
&MAIN;
} elsif($Window->Radio2->Checked()) {
$result =3D "212.88";
&MAIN;
} elsif($Window->Radio3->Checked()) {
$result =3D "212.74";
&MAIN;
}
}
sub Radio2_Click { Radio1_Click(); }
sub Radio3_Click { Radio1_Click(); }
sub ListView_ColumnClick {
my $column =3D shift;
if ($result ne "" ) {
if ( $column =3D=3D 1 ) {&MAIN;}
if ( $column =3D=3D 0 ) {&MAIN1;}
}
=20
}
__END__
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D
Important: Any views or opinions expressed by the sender do not =
necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you =
are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please =
take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, =
but it
is the responsibility of the recipient to make all the necessary virus
checks.=20
www.3s-group.com
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
From [EMAIL PROTECTED] Thu Feb 15 09:10:40 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14TRvT-0003eE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
09:10:39 -0800
Received: (qmail 21411 invoked from network); 15 Feb 2001 17:11:20 -0000
Received: from pe1-830.dialup.tiscalinet.it (HELO stop) (62.10.241.62)
by puppis2.tiscalinet.it with SMTP; 15 Feb 2001 17:11:20 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SelectedItems method
Date: Thu, 15 Feb 2001 18:07:38 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo, I had a look at the GUI.XS (Version: 0.0.558) and I
found the following lines (at line: 9930~) for SelectedItems
return:
scount = ListView_GetSelectedCount(handle);
if(scount > 0) {
index = -1;
tcount = 0;
EXTEND(SP, scount);
index = ListView_GetNextItem(handle, index,
LVNI_SELECTED);
while(tcount < scount && index != -1) {
XST_mIV(tcount, (long) index);
tcount++;
index = ListView_GetNextItem(handle, index,
LVNI_SELECTED);
}
XSRETURN(scount);
} else {
XSRETURN_NO; #Is the problem here?#
}
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Thu Feb 15 09:18:15 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TS2p-0003xZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
09:18:15 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id SAA71518
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
18:18:57 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-wx0h7a; Thu Feb 15 18:18:57 2001
Date: Thu, 15 Feb 2001 18:23:49 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SelectedItems method
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> Aldo, can I correct it myself and compile it with DJGCC?
I hope so :-)
I could not compile it with cygwin's gcc, but I'll be very
happy to know how it goes with djgcc. but please post build
reports and pleas for help on the Perl-Win32-GUI-Hackers
mailing list, since this is a topic that doesn't interest
general Win32::GUI usage.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Feb 15 09:21:10 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TS5d-00046Z-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
09:21:09 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id SAA87750
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
18:21:52 +0100
Received: from alosisdn.inet.it(194.185.211.179) by fe-2.inet.it via I-SMTP
id queue/s-194.185.211.179-Et9Baa; Thu Feb 15 18:21:52 2001
Date: Thu, 15 Feb 2001 18:26:44 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Erick J. Bourgeois" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] SelectedItems method
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick J. Bourgeois wrote:
> XSRETURN_NO; #Is the problem here?#
exxxactly, should be
XSRETURN_UNDEF;
instead.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Feb 15 09:31:06 2001
Received: from [212.88.37.5] (helo=neptune.xml.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TSFG-0004Su-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
09:31:06 -0800
Received: by NEPTUNE with Internet Mail Service (5.5.2650.21)
id <180QT379>; Thu, 15 Feb 2001 17:31:35 -0000
Message-ID: <[EMAIL PROTECTED]>
From: Michael Solomon <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] get value from list
Date: Thu, 15 Feb 2001 17:31:34 -0000
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C09775.2472C7E6"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C09775.2472C7E6
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Tim,
Thanks for this
Unfortunately this gets all the items from the list
What I want to do is to click on an item in the list and just capture =
that
For example
If I have a list showing
1
2
3
if I click on the 3, I want to capture 3
I hope this makes sense
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D
Important: Any views or opinions expressed by the sender do not =
necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you =
are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please =
take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, =
but it
is the responsibility of the recipient to make all the necessary virus
checks.=20
www.3s-group.com
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
-----Original Message-----
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]
Sent: 15 February 2001 16:48
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list
Someone else has written a win32::Gui program to do just what you are =
trying
to do. I don't seem to have the code anymore. Maybe they can post it =
again,
or you can search the archives.
Here's a piece of code I just wrote that gets all the data, including =
the
image, from a listview, it puts it into a hash.
I used this with the column sort routine that has been floating around, =
by
Jonathan Southwick [EMAIL PROTECTED] I am still working out the
bugs, but this section of code should help you.
# you must already have $totalcols (the # of columns in your
listview)
# I don't think there is a way to pull this from the object.
%data=3D();
$rows=3D$ListView->Count();
for $i(0..$rows-1)
{
$row=3D"";
my %result=3D$ListView->GetItem($i,0);
$image=3D$result{-image};
for $j(0..$totalcols-1)
{
my %result=3D$ListView->GetItem($i,$j);
$text=3D$result{-text};
$row.=3D",$text";
}
$data{$i}=3D"$image$row";
#Win32::MsgBox("data($i)=3D$image$row\n");
}
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 5:19 AM
To: Perl Gui (E-mail)
Subject: [perl-win32-gui-users] get value from list
I am querying a database and putting the output into a listview
What I would like to next is to click on an item in the list and then
drilldown into the data base
The question is how can I return the value from a List
I am fairly new at using Win32::GUI and apologise if this is a stupid
question.
Should I be using a different type than listview and if so what should =
I be
using?
use strict;
use Socket;
use Win32::GUI;
use Win32::ODBC;
#set variables
my (%Data, %new, $result, $Window, $width);
my $Dir =3D "//neptune/tech_dept/databases";
my $DBase =3D "asset.mdb";
my $DriverType =3D "Microsoft Access Driver (*.mdb)";
my $Desc =3D "Description=3DThe Win32::ODBC Test DSN for =
Perl";
my $DSN =3D "tmpdsn";
$Window =3D new GUI::Window(
-name =3D> "Window",
-text =3D> "Win32::GUI::ListView test",
-width =3D> 350,
-height =3D> 500,
-left =3D> 100,
-top =3D> 100,
);
$Window->AddListView(
-name =3D> "ListView",
-left =3D> 10,
-top =3D> 10,
-width =3D> 330,
-height =3D> 383,
-style =3D> WS_VISIBLE | 1,
-gridlines =3D> 1,
);
$width =3D $Window->ListView->ScaleWidth;
$Window->ListView->InsertColumn(
-index =3D> 0,
-width =3D> $width/2,
-text =3D> "Asset No",
);
$Window->ListView->InsertColumn(
-index =3D> 1,
-width =3D> $width/2,
-text =3D> "IP Address",
);
$Window->AddRadioButton(
-name =3D> "Radio1",
-left =3D> 8,
-top =3D> 410,
-text =3D> "192 Network ",
-tabstop =3D> 1,
);
$Window->AddRadioButton(
-name =3D> "Radio2",
-left =3D> 8,
-top =3D> 430,
-text =3D> "212 XTML ",
-tabstop =3D> 1,
);
$Window->AddRadioButton(
-name =3D> "Radio3",
-left =3D> 8,
-top =3D> 450,
-text =3D> "212 EasyNet ",
-tabstop =3D> 1,
);
#$Window->ListView->TextColor(hex("0000FF"));
$Window->Show();
$Window->Dialog();
sub MAIN {
#set up dsn
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN",
"Description=3DThe Win32 ODBC Test DSN for Perl", "DBQ=3D$Dir\\$DBase",
"DEFAULTDIR=3D$Dir", "UID=3D", "PWD=3D"));
#open connection as $0
my $cO =3D new Win32::ODBC($DSN);
#run sql
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress
like '${result}%'");
#reset new
%new =3D ();
# Fetch the next rowset
while($cO->FetchRow()){
%Data =3D $cO->DataHash();
#convert to binary
$new{inet_aton($Data{ipaddress})} =3D
"$Data{assetid},$Data{ipaddress}";
}
#close database
$cO->Close();
#remove tempdsn
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");
#clear items
$Window->ListView->Clear(); =20
foreach (sort keys %new) {
my ($asset, $ip ) =3D split(",",$new{$_});
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]
);
};
}
sub MAIN1 {
#clear items
$Window->ListView->Clear(); =20
foreach (sort numeric values %new) {
my ($asset, $ip ) =3D split(",",$_);
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]
);
};
}
sub numeric { $a <=3D> $b };
sub Radio1_Click {
if($Window->Radio1->Checked()) {
$result =3D "192";
&MAIN;
} elsif($Window->Radio2->Checked()) {
$result =3D "212.88";
&MAIN;
} elsif($Window->Radio3->Checked()) {
$result =3D "212.74";
&MAIN;
}
}
sub Radio2_Click { Radio1_Click(); }
sub Radio3_Click { Radio1_Click(); }
sub ListView_ColumnClick {
my $column =3D shift;
if ($result ne "" ) {
if ( $column =3D=3D 1 ) {&MAIN;}
if ( $column =3D=3D 0 ) {&MAIN1;}
}
=20
}
__END__
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D
Important: Any views or opinions expressed by the sender do not =
necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you =
are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please =
take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, =
but it
is the responsibility of the recipient to make all the necessary virus
checks.=20
www.3s-group.com
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
------_=_NextPart_001_01C09775.2472C7E6
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2650.12">
<TITLE>RE: [perl-win32-gui-users] get value from list</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=3D2>Tim,</FONT>
</P>
<P><FONT SIZE=3D2>Thanks for this</FONT>
</P>
<P><FONT SIZE=3D2>Unfortunately this gets all the items from the =
list</FONT>
</P>
<P><FONT SIZE=3D2>What I want to do is to click on an item in the list =
and just capture that</FONT>
</P>
<P><FONT SIZE=3D2>For example</FONT>
</P>
<P><FONT SIZE=3D2>If I have a list showing</FONT>
</P>
<P><FONT SIZE=3D2>1</FONT>
<BR><FONT SIZE=3D2>2</FONT>
<BR><FONT SIZE=3D2>3</FONT>
</P>
<P><FONT SIZE=3D2>if I click on the 3, I want to capture 3</FONT>
</P>
<P><FONT SIZE=3D2>I hope this makes sense</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Regards</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Mike Solomon</FONT>
<BR><FONT SIZE=3D2>Technical Manager</FONT>
<BR><FONT SIZE=3D2>Work 01582 831125</FONT>
<BR><FONT SIZE=3D2>Mobile 07941 537 172</FONT>
<BR><FONT SIZE=3D2>email [EMAIL PROTECTED]</FONT>
</P>
<P><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT>
<BR><FONT SIZE=3D2>Important: Any views or opinions expressed by the =
sender do not necessarily</FONT>
<BR><FONT SIZE=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s)</FONT>
<BR><FONT SIZE=3D2>are intended for the above named only and may be =
confidential. If you are not</FONT>
<BR><FONT SIZE=3D2>the named recipient please notify us =
immediately. You must not copy or disclose</FONT>
<BR><FONT SIZE=3D2>the contents to any third party.</FONT>
</P>
<P><FONT SIZE=3D2>Internet e-mail is not a fully secure communications =
medium. Please take</FONT>
<BR><FONT SIZE=3D2>this into account when sending e-mail to us.</FONT>
<BR><FONT SIZE=3D2>Any attachment(s) to this e-mail are believed to be =
free from virus, but it</FONT>
<BR><FONT SIZE=3D2>is the responsibility of the recipient to make all =
the necessary virus</FONT>
<BR><FONT SIZE=3D2>checks. </FONT>
</P>
<P><FONT SIZE=3D2>www.3s-group.com</FONT>
</P>
<P><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D</FONT>
</P>
<P><FONT SIZE=3D2> -----Original Message-----</FONT>
<BR><FONT SIZE=3D2>From: Thomas, Timothy B [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A>] </FONT>
<BR><FONT SIZE=3D2>Sent: 15 February 2001 16:48</FONT>
<BR><FONT SIZE=3D2>To: =
'perl-win32-gui-users@lists.sourceforge.net'</FONT>
<BR><FONT SIZE=3D2>Subject: =
RE: [perl-win32-gui-users] get value from list</FONT>
</P>
<P><FONT SIZE=3D2>Someone else has written a win32::Gui program to do =
just what you are trying</FONT>
<BR><FONT SIZE=3D2>to do. I don't seem to have the code anymore. Maybe =
they can post it again,</FONT>
<BR><FONT SIZE=3D2>or you can search the archives.</FONT>
</P>
<P><FONT SIZE=3D2>Here's a piece of code I just wrote that gets all the =
data, including the</FONT>
<BR><FONT SIZE=3D2>image, from a listview, it puts it into a =
hash.</FONT>
<BR><FONT SIZE=3D2>I used this with the column sort routine that has =
been floating around, by</FONT>
<BR><FONT SIZE=3D2>Jonathan Southwick [EMAIL PROTECTED] I am =
still working out the</FONT>
<BR><FONT SIZE=3D2>bugs, but this section of code should help =
you.</FONT>
</P>
<P> <FONT SIZE=3D2># you must =
already have $totalcols (the # of columns in your</FONT>
<BR><FONT SIZE=3D2>listview)</FONT>
<BR> <FONT =
SIZE=3D2># I don't think there is a =
way to pull this from the object.</FONT>
<BR> <FONT =
SIZE=3D2>%data=3D();</FONT>
<BR> <FONT =
SIZE=3D2>$rows=3D$ListView->Count();</FONT>
<BR> <FONT SIZE=3D2>for =
$i(0..$rows-1)</FONT>
<BR> =
<FONT SIZE=3D2>{</FONT>
<BR> =
<FONT =
SIZE=3D2>$row=3D"";</FONT>
<BR> =
<FONT SIZE=3D2>my =
%result=3D$ListView->GetItem($i,0);</FONT>
<BR> =
<FONT =
SIZE=3D2>$image=3D$result{-image};</FONT>
<BR> =
<FONT SIZE=3D2>for =
$j(0..$totalcols-1)</FONT>
<BR> =
=
<FONT SIZE=3D2>{</FONT>
<BR> =
=
<FONT SIZE=3D2>my =
%result=3D$ListView->GetItem($i,$j);</FONT>
<BR> =
=
<FONT =
SIZE=3D2>$text=3D$result{-text};</FONT>
<BR> =
=
<FONT =
SIZE=3D2>$row.=3D",$text";</FONT>
<BR> =
=
<FONT SIZE=3D2>}</FONT>
<BR> =
<FONT =
SIZE=3D2>$data{$i}=3D"$image$row";</FONT>
<BR> =
<FONT =
SIZE=3D2>#Win32::MsgBox("data($i)=3D$image$row\n");</FONT>
<BR> =
<FONT SIZE=3D2>}</FONT>
</P>
<BR>
<P><FONT =
SIZE=3D2>---------------------------------------------------------------=
-------------</FONT>
<BR><FONT SIZE=3D2>---------------------</FONT>
<BR><FONT SIZE=3D2>Tim Thomas</FONT>
<BR><FONT SIZE=3D2>Unix Systems Administrator</FONT>
<BR><FONT SIZE=3D2>Lockheed Martin EIS =B7 Denver Data Center</FONT>
<BR><FONT SIZE=3D2>303-430-2281</FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A></FONT>
<BR><FONT =
SIZE=3D2>---------------------------------------------------------------=
-------------</FONT>
<BR><FONT SIZE=3D2>---------------------</FONT>
<BR><FONT SIZE=3D2>-----Original Message-----</FONT>
<BR><FONT SIZE=3D2>From: Michael Solomon [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
.com</A>]</FONT>
<BR><FONT SIZE=3D2>Sent: Thursday, February 15, 2001 5:19 AM</FONT>
<BR><FONT SIZE=3D2>To: Perl Gui (E-mail)</FONT>
<BR><FONT SIZE=3D2>Subject: [perl-win32-gui-users] get value from =
list</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>I am querying a database and putting the output into =
a listview</FONT>
<BR><FONT SIZE=3D2>What I would like to next is to click on an item in =
the list and then</FONT>
<BR><FONT SIZE=3D2>drilldown into the data base</FONT>
<BR><FONT SIZE=3D2>The question is how can I return the value from a =
List</FONT>
<BR><FONT SIZE=3D2>I am fairly new at using Win32::GUI and apologise if =
this is a stupid</FONT>
<BR><FONT SIZE=3D2>question.</FONT>
<BR><FONT SIZE=3D2>Should I be using a different type than listview and =
if so what should I be</FONT>
<BR><FONT SIZE=3D2>using?</FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=3D2>use strict;</FONT>
<BR><FONT SIZE=3D2>use Socket;</FONT>
<BR><FONT SIZE=3D2>use Win32::GUI;</FONT>
<BR><FONT SIZE=3D2>use Win32::ODBC;</FONT>
<BR><FONT SIZE=3D2>#set variables</FONT>
<BR><FONT SIZE=3D2>my (%Data, %new, $result, $Window, $width);</FONT>
<BR><FONT SIZE=3D2>my =
$Dir &n=
bsp; =3D =
"//neptune/tech_dept/databases";</FONT>
<BR><FONT SIZE=3D2>my =
$DBase =
=3D "asset.mdb";</FONT>
<BR><FONT SIZE=3D2>my $DriverType =3D "Microsoft Access =
Driver (*.mdb)";</FONT>
<BR><FONT SIZE=3D2>my =
$Desc &=
nbsp; =3D "Description=3DThe Win32::ODBC Test =
DSN for Perl";</FONT>
<BR><FONT SIZE=3D2>my =
$DSN &n=
bsp; =3D "tmpdsn";</FONT>
<BR><FONT SIZE=3D2>$Window =3D new GUI::Window(</FONT>
<BR><FONT SIZE=3D2> -name =3D> =
"Window",</FONT>
<BR><FONT SIZE=3D2> -text =3D> =
"Win32::GUI::ListView test",</FONT>
<BR><FONT SIZE=3D2> -width =3D> 350,</FONT>
<BR><FONT SIZE=3D2> -height =3D> 500,</FONT>
<BR><FONT SIZE=3D2> -left =3D> =
100,</FONT>
<BR><FONT SIZE=3D2> -top =3D> =
100,</FONT>
<BR><FONT SIZE=3D2>);</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>$Window->AddListView(</FONT>
<BR><FONT SIZE=3D2> =
-name =3D> =
"ListView",</FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 10,</FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 10,</FONT>
<BR><FONT SIZE=3D2> -width =
=3D> 330,</FONT>
<BR><FONT SIZE=3D2> -height =3D> =
383,</FONT>
<BR><FONT SIZE=3D2> -style =
=3D> WS_VISIBLE | 1,</FONT>
<BR><FONT SIZE=3D2> -gridlines =3D> 1,</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT SIZE=3D2>$width =3D =
$Window->ListView->ScaleWidth;</FONT>
<BR><FONT SIZE=3D2>$Window->ListView->InsertColumn(</FONT>
<BR><FONT SIZE=3D2> -index =3D> 0,</FONT>
<BR><FONT SIZE=3D2> -width =3D> $width/2,</FONT>
<BR><FONT SIZE=3D2> -text =3D> "Asset =
No",</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT SIZE=3D2>$Window->ListView->InsertColumn(</FONT>
<BR><FONT SIZE=3D2> -index =3D> =
1,</FONT>
<BR><FONT SIZE=3D2> -width =3D> =
$width/2,</FONT>
<BR><FONT SIZE=3D2> -text =3D> =
"IP Address",</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT SIZE=3D2>$Window->AddRadioButton(</FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "Radio1",</FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 8,</FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 410,</FONT>
<BR><FONT SIZE=3D2> =
-text =3D> "192 Network ",</FONT>
<BR><FONT SIZE=3D2> -tabstop =
=3D> 1,</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT SIZE=3D2>$Window->AddRadioButton(</FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "Radio2",</FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 8,</FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 430,</FONT>
<BR><FONT SIZE=3D2> =
-text =3D> "212 XTML ",</FONT>
<BR><FONT SIZE=3D2> -tabstop =
=3D> 1,</FONT>
<BR><FONT SIZE=3D2>);</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>$Window->AddRadioButton(</FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "Radio3",</FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 8,</FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 450,</FONT>
<BR><FONT SIZE=3D2> =
-text =3D> "212 EasyNet ",</FONT>
<BR><FONT SIZE=3D2> -tabstop =
=3D> 1,</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT =
SIZE=3D2>#$Window->ListView->TextColor(hex("0000FF"));</=
FONT>
<BR><FONT SIZE=3D2>$Window->Show();</FONT>
<BR><FONT SIZE=3D2>$Window->Dialog();</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>sub MAIN {</FONT>
<BR><FONT SIZE=3D2> #set up =
dsn</FONT>
<BR><FONT SIZE=3D2> =
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN",</FONT>
<BR><FONT SIZE=3D2>"Description=3DThe Win32 ODBC Test DSN for =
Perl", "DBQ=3D$Dir\\$DBase",</FONT>
<BR><FONT SIZE=3D2>"DEFAULTDIR=3D$Dir", "UID=3D", =
"PWD=3D"));</FONT>
<BR><FONT SIZE=3D2> #open =
connection as $0</FONT>
<BR><FONT SIZE=3D2> my $cO =
=3D new Win32::ODBC($DSN);</FONT>
<BR><FONT SIZE=3D2> #run =
sql</FONT>
<BR><FONT SIZE=3D2> =
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress</FONT>
<BR><FONT SIZE=3D2>like '${result}%'");</FONT>
<BR><FONT SIZE=3D2> #reset =
new</FONT>
<BR><FONT SIZE=3D2> %new =3D =
();</FONT>
<BR><FONT SIZE=3D2> # Fetch =
the next rowset</FONT>
<BR><FONT SIZE=3D2> =
while($cO->FetchRow()){</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; %Data =3D $cO->DataHash();</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; #convert to binary</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $new{inet_aton($Data{ipaddress})} =
=3D</FONT>
<BR><FONT SIZE=3D2>"$Data{assetid},$Data{ipaddress}";</FONT>
<BR><FONT SIZE=3D2> }</FONT>
<BR><FONT SIZE=3D2> #close =
database</FONT>
<BR><FONT SIZE=3D2> =
$cO->Close();</FONT>
<BR><FONT SIZE=3D2> #remove =
tempdsn</FONT>
<BR><FONT SIZE=3D2> =
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");</FONT>
<BR><FONT SIZE=3D2> #clear =
items</FONT>
<BR><FONT SIZE=3D2> =
$Window->ListView->Clear(); </FONT>
<BR><FONT SIZE=3D2> foreach =
(sort keys %new) {</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; my ($asset, $ip ) =3D split(",",$new{$_});</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $Window->ListView->InsertItem(-text =
=3D> [ "$asset", "$ip" ]</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT SIZE=3D2> };</FONT>
<BR><FONT SIZE=3D2>}</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>sub MAIN1 {</FONT>
<BR><FONT SIZE=3D2> #clear =
items</FONT>
<BR><FONT SIZE=3D2> $Window-&g=
t;ListView->Clear(); </FONT>
<BR><FONT SIZE=3D2> foreach =
(sort numeric values %new) {</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; my ($asset, $ip ) =3D split(",",$_);</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $Window->ListView->InsertItem(-text =
=3D> [ "$asset", "$ip" ]</FONT>
<BR><FONT SIZE=3D2>);</FONT>
<BR><FONT SIZE=3D2> };</FONT>
<BR><FONT SIZE=3D2>}</FONT>
<BR><FONT SIZE=3D2>sub numeric { $a <=3D> $b };</FONT>
<BR><FONT SIZE=3D2>sub Radio1_Click {</FONT>
<BR><FONT SIZE=3D2> =
if($Window->Radio1->Checked()) {</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $result =3D "192";</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &MAIN;</FONT>
<BR><FONT SIZE=3D2> } =
elsif($Window->Radio2->Checked()) {</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $result =3D "212.88";</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &MAIN;</FONT>
<BR><FONT SIZE=3D2> } =
elsif($Window->Radio3->Checked()) {</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $result =3D "212.74";</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &MAIN;</FONT>
<BR><FONT SIZE=3D2> }</FONT>
<BR><FONT SIZE=3D2>}</FONT>
<BR><FONT SIZE=3D2>sub Radio2_Click { Radio1_Click(); }</FONT>
<BR><FONT SIZE=3D2>sub Radio3_Click { Radio1_Click(); }</FONT>
<BR><FONT SIZE=3D2>sub ListView_ColumnClick {</FONT>
<BR><FONT SIZE=3D2> my =
$column =3D shift;</FONT>
<BR><FONT SIZE=3D2> if =
($result ne "" ) {</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; if ( $column =3D=3D 1 ) {&MAIN;}</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; if ( $column =3D=3D 0 ) =
{&MAIN1;}</FONT>
<BR><FONT SIZE=3D2> }</FONT>
<BR><FONT SIZE=3D2> </FONT>
<BR><FONT SIZE=3D2>}</FONT>
<BR><FONT SIZE=3D2>__END__</FONT>
<BR><FONT SIZE=3D2>Regards</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Mike Solomon</FONT>
<BR><FONT SIZE=3D2>Technical Manager</FONT>
<BR><FONT SIZE=3D2>Work 01582 831125</FONT>
<BR><FONT SIZE=3D2>Mobile 07941 537 172</FONT>
<BR><FONT SIZE=3D2>email [EMAIL PROTECTED]</FONT>
<BR><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D</FONT>
<BR><FONT SIZE=3D2>=3D=3D=3D=3D=3D=3D</FONT>
<BR><FONT SIZE=3D2>Important: Any views or opinions expressed by the =
sender do not necessarily</FONT>
<BR><FONT SIZE=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s)</FONT>
<BR><FONT SIZE=3D2>are intended for the above named only and may be =
confidential. If you are</FONT>
<BR><FONT SIZE=3D2>not</FONT>
<BR><FONT SIZE=3D2>the named recipient please notify us =
immediately. You must not copy or</FONT>
<BR><FONT SIZE=3D2>disclose</FONT>
<BR><FONT SIZE=3D2>the contents to any third party.</FONT>
<BR><FONT SIZE=3D2>Internet e-mail is not a fully secure communications =
medium. Please take</FONT>
<BR><FONT SIZE=3D2>this into account when sending e-mail to us.</FONT>
<BR><FONT SIZE=3D2>Any attachment(s) to this e-mail are believed to be =
free from virus, but it</FONT>
<BR><FONT SIZE=3D2>is the responsibility of the recipient to make all =
the necessary virus</FONT>
<BR><FONT SIZE=3D2>checks. </FONT>
<BR><FONT SIZE=3D2>www.3s-group.com</FONT>
<BR><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D</FONT>
</P>
<P><FONT =
SIZE=3D2>_______________________________________________</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users mailing list</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users@lists.sourceforge.net</FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=
" =
TARGET=3D"_blank">http://lists.sourceforge.net/lists/listinfo/perl-win32=
-gui-users</A></FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C09775.2472C7E6--
From [EMAIL PROTECTED] Thu Feb 15 09:51:55 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TSZO-0005Fc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
09:51:54 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id KAA11526
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Feb 2001
10:52:36 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Thu, 15
Feb 2001 10:52:31 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Thu, 15 Feb 2001 10:44:43 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2650.21)
id <18A1AMNK>; Thu, 15 Feb 2001 10:44:47 -0700
Content-return: allowed
Date: Thu, 15 Feb 2001 10:44:41 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] get value from list
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
There is a SelectedItems function you can use.
Here's a bit of code that will get the data from all the selected =
items.
Once you determine which item you have selected you can use that other =
piece
of code to get the data from every column, or you can use this example =
if
you just want the first column.
see the documentation at http://dada.perl.it/gui_docs/gui.html for more
help.
if ($ListView->SelectCount() gt 0)
{
for $i(0..$ListView->SelectCount()-1)
{
=09
%data=3D$ListView->ItemInfo(($ListView->SelectedItems)[$i]);
$filename=3D$data{-text};
...
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 10:32 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list
Tim,=20
Thanks for this=20
Unfortunately this gets all the items from the list=20
What I want to do is to click on an item in the list and just capture =
that=20
For example=20
If I have a list showing=20
1=20
2=20
3=20
if I click on the 3, I want to capture 3=20
I hope this makes sense=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are
not=20
the named recipient please notify us immediately. You must not copy or
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
-----Original Message-----=20
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]
Sent: 15 February 2001 16:48=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Subject: RE: [perl-win32-gui-users] get value from list=20
Someone else has written a win32::Gui program to do just what you are =
trying
to do. I don't seem to have the code anymore. Maybe they can post it =
again,=20
or you can search the archives.=20
Here's a piece of code I just wrote that gets all the data, including =
the=20
image, from a listview, it puts it into a hash.=20
I used this with the column sort routine that has been floating around, =
by=20
Jonathan Southwick [EMAIL PROTECTED] I am still working out the =
bugs, but this section of code should help you.=20
# you must already have $totalcols (the # of columns in your=20
listview)=20
# I don't think there is a way to pull this from the =
object.=20
%data=3D();=20
$rows=3D$ListView->Count();=20
for $i(0..$rows-1)=20
{=20
$row=3D"";=20
my %result=3D$ListView->GetItem($i,0);=20
$image=3D$result{-image};=20
for $j(0..$totalcols-1)=20
{=20
my %result=3D$ListView->GetItem($i,$j);=20
$text=3D$result{-text};=20
$row.=3D",$text";=20
}=20
$data{$i}=3D"$image$row";=20
#Win32::MsgBox("data($i)=3D$image$row\n");=20
}=20
------------------------------------------------------------------------=
----
---------------------=20
Tim Thomas=20
Unix Systems Administrator=20
Lockheed Martin EIS =B7 Denver Data Center=20
303-430-2281=20
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------=20
-----Original Message-----=20
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 5:19 AM=20
To: Perl Gui (E-mail)=20
Subject: [perl-win32-gui-users] get value from list=20
I am querying a database and putting the output into a listview=20
What I would like to next is to click on an item in the list and then=20
drilldown into the data base=20
The question is how can I return the value from a List=20
I am fairly new at using Win32::GUI and apologise if this is a stupid=20
question.=20
Should I be using a different type than listview and if so what should =
I be=20
using?=20
use strict;=20
use Socket;=20
use Win32::GUI;=20
use Win32::ODBC;=20
#set variables=20
my (%Data, %new, $result, $Window, $width);=20
my $Dir =3D "//neptune/tech_dept/databases";=20
my $DBase =3D "asset.mdb";=20
my $DriverType =3D "Microsoft Access Driver (*.mdb)";=20
my $Desc =3D "Description=3DThe Win32::ODBC Test DSN for =
Perl";=20
my $DSN =3D "tmpdsn";=20
$Window =3D new GUI::Window(=20
-name =3D> "Window",=20
-text =3D> "Win32::GUI::ListView test",=20
-width =3D> 350,=20
-height =3D> 500,=20
-left =3D> 100,=20
-top =3D> 100,=20
);=20
$Window->AddListView(=20
-name =3D> "ListView",=20
-left =3D> 10,=20
-top =3D> 10,=20
-width =3D> 330,=20
-height =3D> 383,=20
-style =3D> WS_VISIBLE | 1,=20
-gridlines =3D> 1,=20
);=20
$width =3D $Window->ListView->ScaleWidth;=20
$Window->ListView->InsertColumn(=20
-index =3D> 0,=20
-width =3D> $width/2,=20
-text =3D> "Asset No",=20
);=20
$Window->ListView->InsertColumn(=20
-index =3D> 1,=20
-width =3D> $width/2,=20
-text =3D> "IP Address",=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio1",=20
-left =3D> 8,=20
-top =3D> 410,=20
-text =3D> "192 Network ",=20
-tabstop =3D> 1,=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio2",=20
-left =3D> 8,=20
-top =3D> 430,=20
-text =3D> "212 XTML ",=20
-tabstop =3D> 1,=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio3",=20
-left =3D> 8,=20
-top =3D> 450,=20
-text =3D> "212 EasyNet ",=20
-tabstop =3D> 1,=20
);=20
#$Window->ListView->TextColor(hex("0000FF"));=20
$Window->Show();=20
$Window->Dialog();=20
sub MAIN {=20
#set up dsn=20
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN",=20
"Description=3DThe Win32 ODBC Test DSN for Perl", "DBQ=3D$Dir\\$DBase", =
"DEFAULTDIR=3D$Dir", "UID=3D", "PWD=3D"));=20
#open connection as $0=20
my $cO =3D new Win32::ODBC($DSN);=20
#run sql=20
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress=20
like '${result}%'");=20
#reset new=20
%new =3D ();=20
# Fetch the next rowset=20
while($cO->FetchRow()){=20
%Data =3D $cO->DataHash();=20
#convert to binary=20
$new{inet_aton($Data{ipaddress})} =3D=20
"$Data{assetid},$Data{ipaddress}";=20
}=20
#close database=20
$cO->Close();=20
#remove tempdsn=20
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");=20
#clear items=20
$Window->ListView->Clear(); =20
foreach (sort keys %new) {=20
my ($asset, $ip ) =3D split(",",$new{$_});=20
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]=20
);=20
};=20
}=20
sub MAIN1 {=20
#clear items=20
$Window->ListView->Clear(); =20
foreach (sort numeric values %new) {=20
my ($asset, $ip ) =3D split(",",$_);=20
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]=20
);=20
};=20
}=20
sub numeric { $a <=3D> $b };=20
sub Radio1_Click {=20
if($Window->Radio1->Checked()) {=20
$result =3D "192";=20
&MAIN;=20
} elsif($Window->Radio2->Checked()) {=20
$result =3D "212.88";=20
&MAIN;=20
} elsif($Window->Radio3->Checked()) {=20
$result =3D "212.74";=20
&MAIN;=20
}=20
}=20
sub Radio2_Click { Radio1_Click(); }=20
sub Radio3_Click { Radio1_Click(); }=20
sub ListView_ColumnClick {=20
my $column =3D shift;=20
if ($result ne "" ) {=20
if ( $column =3D=3D 1 ) {&MAIN;}=20
if ( $column =3D=3D 0 ) {&MAIN1;}=20
}=20
=20
}=20
__END__=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are=20
not=20
the named recipient please notify us immediately. You must not copy or =
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
_______________________________________________=20
Perl-Win32-GUI-Users mailing list=20
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20
From [EMAIL PROTECTED] Fri Feb 16 05:57:35 2001
Received: from [212.88.37.5] (helo=neptune.xml.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TlOA-00049Y-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Feb 2001
05:57:34 -0800
Received: by NEPTUNE with Internet Mail Service (5.5.2650.21)
id <180QT39P>; Fri, 16 Feb 2001 13:58:36 -0000
Message-ID: <[EMAIL PROTECTED]>
From: Michael Solomon <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] get value from list
Date: Fri, 16 Feb 2001 13:58:35 -0000
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C09820.8E698C92"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C09820.8E698C92
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Tim,
Thanks for your help with this=20
I realised that as I was supplying the data to the list box I just =
needed to
put it into an array and use:
sub ListView_ItemClick {
$item =3D shift;
print $asset[$item];
=09
}
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D
Important: Any views or opinions expressed by the sender do not =
necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you =
are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please =
take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, =
but it
is the responsibility of the recipient to make all the necessary virus
checks.=20
www.3s-group.com
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
-----Original Message-----
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]
Sent: 15 February 2001 17:45
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list
There is a SelectedItems function you can use.
Here's a bit of code that will get the data from all the selected =
items.
Once you determine which item you have selected you can use that other =
piece
of code to get the data from every column, or you can use this example =
if
you just want the first column.
see the documentation at http://dada.perl.it/gui_docs/gui.html for more
help.
if ($ListView->SelectCount() gt 0)
{
for $i(0..$ListView->SelectCount()-1)
{
=09
%data=3D$ListView->ItemInfo(($ListView->SelectedItems)[$i]);
$filename=3D$data{-text};
...
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 10:32 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list
Tim,=20
Thanks for this=20
Unfortunately this gets all the items from the list=20
What I want to do is to click on an item in the list and just capture =
that=20
For example=20
If I have a list showing=20
1=20
2=20
3=20
if I click on the 3, I want to capture 3=20
I hope this makes sense=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are
not=20
the named recipient please notify us immediately. You must not copy or
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
-----Original Message-----=20
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]
Sent: 15 February 2001 16:48=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Subject: RE: [perl-win32-gui-users] get value from list=20
Someone else has written a win32::Gui program to do just what you are =
trying
to do. I don't seem to have the code anymore. Maybe they can post it =
again,=20
or you can search the archives.=20
Here's a piece of code I just wrote that gets all the data, including =
the=20
image, from a listview, it puts it into a hash.=20
I used this with the column sort routine that has been floating around, =
by=20
Jonathan Southwick [EMAIL PROTECTED] I am still working out the =
bugs, but this section of code should help you.=20
# you must already have $totalcols (the # of columns in your=20
listview)=20
# I don't think there is a way to pull this from the =
object.=20
%data=3D();=20
$rows=3D$ListView->Count();=20
for $i(0..$rows-1)=20
{=20
$row=3D"";=20
my %result=3D$ListView->GetItem($i,0);=20
$image=3D$result{-image};=20
for $j(0..$totalcols-1)=20
{=20
my %result=3D$ListView->GetItem($i,$j);=20
$text=3D$result{-text};=20
$row.=3D",$text";=20
}=20
$data{$i}=3D"$image$row";=20
#Win32::MsgBox("data($i)=3D$image$row\n");=20
}=20
------------------------------------------------------------------------=
----
---------------------=20
Tim Thomas=20
Unix Systems Administrator=20
Lockheed Martin EIS =B7 Denver Data Center=20
303-430-2281=20
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------=20
-----Original Message-----=20
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 5:19 AM=20
To: Perl Gui (E-mail)=20
Subject: [perl-win32-gui-users] get value from list=20
I am querying a database and putting the output into a listview=20
What I would like to next is to click on an item in the list and then=20
drilldown into the data base=20
The question is how can I return the value from a List=20
I am fairly new at using Win32::GUI and apologise if this is a stupid=20
question.=20
Should I be using a different type than listview and if so what should =
I be=20
using?=20
use strict;=20
use Socket;=20
use Win32::GUI;=20
use Win32::ODBC;=20
#set variables=20
my (%Data, %new, $result, $Window, $width);=20
my $Dir =3D "//neptune/tech_dept/databases";=20
my $DBase =3D "asset.mdb";=20
my $DriverType =3D "Microsoft Access Driver (*.mdb)";=20
my $Desc =3D "Description=3DThe Win32::ODBC Test DSN for =
Perl";=20
my $DSN =3D "tmpdsn";=20
$Window =3D new GUI::Window(=20
-name =3D> "Window",=20
-text =3D> "Win32::GUI::ListView test",=20
-width =3D> 350,=20
-height =3D> 500,=20
-left =3D> 100,=20
-top =3D> 100,=20
);=20
$Window->AddListView(=20
-name =3D> "ListView",=20
-left =3D> 10,=20
-top =3D> 10,=20
-width =3D> 330,=20
-height =3D> 383,=20
-style =3D> WS_VISIBLE | 1,=20
-gridlines =3D> 1,=20
);=20
$width =3D $Window->ListView->ScaleWidth;=20
$Window->ListView->InsertColumn(=20
-index =3D> 0,=20
-width =3D> $width/2,=20
-text =3D> "Asset No",=20
);=20
$Window->ListView->InsertColumn(=20
-index =3D> 1,=20
-width =3D> $width/2,=20
-text =3D> "IP Address",=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio1",=20
-left =3D> 8,=20
-top =3D> 410,=20
-text =3D> "192 Network ",=20
-tabstop =3D> 1,=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio2",=20
-left =3D> 8,=20
-top =3D> 430,=20
-text =3D> "212 XTML ",=20
-tabstop =3D> 1,=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio3",=20
-left =3D> 8,=20
-top =3D> 450,=20
-text =3D> "212 EasyNet ",=20
-tabstop =3D> 1,=20
);=20
#$Window->ListView->TextColor(hex("0000FF"));=20
$Window->Show();=20
$Window->Dialog();=20
sub MAIN {=20
#set up dsn=20
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN",=20
"Description=3DThe Win32 ODBC Test DSN for Perl", "DBQ=3D$Dir\\$DBase", =
"DEFAULTDIR=3D$Dir", "UID=3D", "PWD=3D"));=20
#open connection as $0=20
my $cO =3D new Win32::ODBC($DSN);=20
#run sql=20
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress=20
like '${result}%'");=20
#reset new=20
%new =3D ();=20
# Fetch the next rowset=20
while($cO->FetchRow()){=20
%Data =3D $cO->DataHash();=20
#convert to binary=20
$new{inet_aton($Data{ipaddress})} =3D=20
"$Data{assetid},$Data{ipaddress}";=20
}=20
#close database=20
$cO->Close();=20
#remove tempdsn=20
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");=20
#clear items=20
$Window->ListView->Clear(); =20
foreach (sort keys %new) {=20
my ($asset, $ip ) =3D split(",",$new{$_});=20
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]=20
);=20
};=20
}=20
sub MAIN1 {=20
#clear items=20
$Window->ListView->Clear(); =20
foreach (sort numeric values %new) {=20
my ($asset, $ip ) =3D split(",",$_);=20
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]=20
);=20
};=20
}=20
sub numeric { $a <=3D> $b };=20
sub Radio1_Click {=20
if($Window->Radio1->Checked()) {=20
$result =3D "192";=20
&MAIN;=20
} elsif($Window->Radio2->Checked()) {=20
$result =3D "212.88";=20
&MAIN;=20
} elsif($Window->Radio3->Checked()) {=20
$result =3D "212.74";=20
&MAIN;=20
}=20
}=20
sub Radio2_Click { Radio1_Click(); }=20
sub Radio3_Click { Radio1_Click(); }=20
sub ListView_ColumnClick {=20
my $column =3D shift;=20
if ($result ne "" ) {=20
if ( $column =3D=3D 1 ) {&MAIN;}=20
if ( $column =3D=3D 0 ) {&MAIN1;}=20
}=20
=20
}=20
__END__=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are=20
not=20
the named recipient please notify us immediately. You must not copy or =
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
_______________________________________________=20
Perl-Win32-GUI-Users mailing list=20
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
------_=_NextPart_001_01C09820.8E698C92
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2650.12">
<TITLE>RE: [perl-win32-gui-users] get value from list</TITLE>
</HEAD>
<BODY>
<BR>
<BR>
<P><FONT SIZE=3D2>Tim,</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Thanks for your help with this </FONT>
</P>
<P><FONT SIZE=3D2>I realised that as I was supplying the data to the =
list box I just needed to put it into an array and use:</FONT>
</P>
<P><FONT SIZE=3D2>sub ListView_ItemClick {</FONT>
<BR> <FONT SIZE=3D2>$item =3D =
shift;</FONT>
<BR> <FONT SIZE=3D2>print =
$asset[$item];</FONT>
<BR> =20
<BR><FONT SIZE=3D2>}</FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=3D2>Regards</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Mike Solomon</FONT>
<BR><FONT SIZE=3D2>Technical Manager</FONT>
<BR><FONT SIZE=3D2>Work 01582 831125</FONT>
<BR><FONT SIZE=3D2>Mobile 07941 537 172</FONT>
<BR><FONT SIZE=3D2>email [EMAIL PROTECTED]</FONT>
</P>
<P><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT>
<BR><FONT SIZE=3D2>Important: Any views or opinions expressed by the =
sender do not necessarily</FONT>
<BR><FONT SIZE=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s)</FONT>
<BR><FONT SIZE=3D2>are intended for the above named only and may be =
confidential. If you are not</FONT>
<BR><FONT SIZE=3D2>the named recipient please notify us =
immediately. You must not copy or disclose</FONT>
<BR><FONT SIZE=3D2>the contents to any third party.</FONT>
</P>
<P><FONT SIZE=3D2>Internet e-mail is not a fully secure communications =
medium. Please take</FONT>
<BR><FONT SIZE=3D2>this into account when sending e-mail to us.</FONT>
<BR><FONT SIZE=3D2>Any attachment(s) to this e-mail are believed to be =
free from virus, but it</FONT>
<BR><FONT SIZE=3D2>is the responsibility of the recipient to make all =
the necessary virus</FONT>
<BR><FONT SIZE=3D2>checks. </FONT>
</P>
<P><FONT SIZE=3D2>www.3s-group.com</FONT>
</P>
<P><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D</FONT>
</P>
<P><FONT SIZE=3D2> -----Original Message-----</FONT>
<BR><FONT SIZE=3D2>From: Thomas, Timothy B [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A>] </FONT>
<BR><FONT SIZE=3D2>Sent: 15 February 2001 17:45</FONT>
<BR><FONT SIZE=3D2>To: =
'perl-win32-gui-users@lists.sourceforge.net'</FONT>
<BR><FONT SIZE=3D2>Subject: =
RE: [perl-win32-gui-users] get value from list</FONT>
</P>
<P><FONT SIZE=3D2>There is a SelectedItems function you can use.</FONT>
<BR><FONT SIZE=3D2>Here's a bit of code that will get the data from all =
the selected items.</FONT>
<BR><FONT SIZE=3D2>Once you determine which item you have selected you =
can use that other piece</FONT>
<BR><FONT SIZE=3D2>of code to get the data from every column, or you =
can use this example if</FONT>
<BR><FONT SIZE=3D2>you just want the first column.</FONT>
<BR><FONT SIZE=3D2>see the documentation at <A =
HREF=3D"http://dada.perl.it/gui_docs/gui.html"; =
TARGET=3D"_blank">http://dada.perl.it/gui_docs/gui.html</A> for =
more</FONT>
<BR><FONT SIZE=3D2>help.</FONT>
</P>
<P> <FONT SIZE=3D2>if =
($ListView->SelectCount() gt 0)</FONT>
<BR> =
<FONT SIZE=3D2>{</FONT>
<BR> =
<FONT SIZE=3D2>for =
$i(0..$ListView->SelectCount()-1)</FONT>
<BR> =
=
<FONT SIZE=3D2>{</FONT>
<BR> =20
<BR><FONT =
SIZE=3D2>%data=3D$ListView->ItemInfo(($ListView->SelectedItems)[$i=
]);</FONT>
<BR> =
=
<FONT =
SIZE=3D2>$filename=3D$data{-text};</FONT>
<BR> =
=
<FONT SIZE=3D2>...</FONT>
</P>
<P><FONT =
SIZE=3D2>---------------------------------------------------------------=
-------------</FONT>
<BR><FONT SIZE=3D2>---------------------</FONT>
<BR><FONT SIZE=3D2>Tim Thomas</FONT>
<BR><FONT SIZE=3D2>Unix Systems Administrator</FONT>
<BR><FONT SIZE=3D2>Lockheed Martin EIS =B7 Denver Data Center</FONT>
<BR><FONT SIZE=3D2>303-430-2281</FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A></FONT>
<BR><FONT =
SIZE=3D2>---------------------------------------------------------------=
-------------</FONT>
<BR><FONT SIZE=3D2>---------------------</FONT>
<BR><FONT SIZE=3D2>-----Original Message-----</FONT>
<BR><FONT SIZE=3D2>From: Michael Solomon [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
.com</A>]</FONT>
<BR><FONT SIZE=3D2>Sent: Thursday, February 15, 2001 10:32 AM</FONT>
<BR><FONT SIZE=3D2>To: =
'perl-win32-gui-users@lists.sourceforge.net'</FONT>
<BR><FONT SIZE=3D2>Subject: RE: [perl-win32-gui-users] get value from =
list</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Tim, </FONT>
<BR><FONT SIZE=3D2>Thanks for this </FONT>
<BR><FONT SIZE=3D2>Unfortunately this gets all the items from the list =
</FONT>
<BR><FONT SIZE=3D2>What I want to do is to click on an item in the list =
and just capture that </FONT>
<BR><FONT SIZE=3D2>For example </FONT>
<BR><FONT SIZE=3D2>If I have a list showing </FONT>
<BR><FONT SIZE=3D2>1 </FONT>
<BR><FONT SIZE=3D2>2 </FONT>
<BR><FONT SIZE=3D2>3 </FONT>
<BR><FONT SIZE=3D2>if I click on the 3, I want to capture 3 </FONT>
<BR><FONT SIZE=3D2>I hope this makes sense </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Regards </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Mike Solomon </FONT>
<BR><FONT SIZE=3D2>Technical Manager </FONT>
<BR><FONT SIZE=3D2>Work 01582 831125 </FONT>
<BR><FONT SIZE=3D2>Mobile 07941 537 172 </FONT>
<BR><FONT SIZE=3D2>email [EMAIL PROTECTED] </FONT>
<BR><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D</FONT>
<BR><FONT SIZE=3D2>=3D=3D=3D=3D=3D=3D </FONT>
<BR><FONT SIZE=3D2>Important: Any views or opinions expressed by the =
sender do not necessarily </FONT>
<BR><FONT SIZE=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s) </FONT>
<BR><FONT SIZE=3D2>are intended for the above named only and may be =
confidential. If you are</FONT>
<BR><FONT SIZE=3D2>not </FONT>
<BR><FONT SIZE=3D2>the named recipient please notify us =
immediately. You must not copy or</FONT>
<BR><FONT SIZE=3D2>disclose </FONT>
<BR><FONT SIZE=3D2>the contents to any third party. </FONT>
<BR><FONT SIZE=3D2>Internet e-mail is not a fully secure communications =
medium. Please take </FONT>
<BR><FONT SIZE=3D2>this into account when sending e-mail to us. </FONT>
<BR><FONT SIZE=3D2>Any attachment(s) to this e-mail are believed to be =
free from virus, but it </FONT>
<BR><FONT SIZE=3D2>is the responsibility of the recipient to make all =
the necessary virus </FONT>
<BR><FONT SIZE=3D2>checks. </FONT>
<BR><FONT SIZE=3D2>www.3s-group.com </FONT>
<BR><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D </FONT>
<BR><FONT SIZE=3D2> -----Original Message----- </FONT>
<BR><FONT SIZE=3D2>From: Thomas, Timothy B [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A>] </FONT>
<BR><FONT SIZE=3D2>Sent: 15 February 2001 16:48 </FONT>
<BR><FONT SIZE=3D2>To: =
'perl-win32-gui-users@lists.sourceforge.net' </FONT>
<BR><FONT SIZE=3D2>Subject: =
RE: [perl-win32-gui-users] get value from list </FONT>
<BR><FONT SIZE=3D2>Someone else has written a win32::Gui program to do =
just what you are trying</FONT>
</P>
<P><FONT SIZE=3D2>to do. I don't seem to have the code anymore. Maybe =
they can post it again, </FONT>
<BR><FONT SIZE=3D2>or you can search the archives. </FONT>
<BR><FONT SIZE=3D2>Here's a piece of code I just wrote that gets all =
the data, including the </FONT>
<BR><FONT SIZE=3D2>image, from a listview, it puts it into a hash. =
</FONT>
<BR><FONT SIZE=3D2>I used this with the column sort routine that has =
been floating around, by </FONT>
<BR><FONT SIZE=3D2>Jonathan Southwick [EMAIL PROTECTED] I am =
still working out the </FONT>
<BR><FONT SIZE=3D2>bugs, but this section of code should help you. =
</FONT>
<BR><FONT SIZE=3D2> # you =
must already have $totalcols (the # of columns in your </FONT>
<BR><FONT SIZE=3D2>listview) </FONT>
<BR><FONT SIZE=3D2> =
# I don't think there is a way to =
pull this from the object. </FONT>
<BR><FONT SIZE=3D2> =
%data=3D(); </FONT>
<BR><FONT SIZE=3D2> =
$rows=3D$ListView->Count(); </FONT>
<BR><FONT SIZE=3D2> for =
$i(0..$rows-1) </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $row=3D""; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; my %result=3D$ListView->GetItem($i,0); =
</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $image=3D$result{-image}; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; for $j(0..$totalcols-1) </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; my %result=3D$ListView->GetItem($i,$j); </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; $text=3D$result{-text}; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; $row.=3D",$text"; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; } </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $data{$i}=3D"$image$row"; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; =
#Win32::MsgBox("data($i)=3D$image$row\n"); </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; } </FONT>
</P>
<BR>
<P><FONT =
SIZE=3D2>---------------------------------------------------------------=
-------------</FONT>
</P>
<P><FONT SIZE=3D2>--------------------- </FONT>
<BR><FONT SIZE=3D2>Tim Thomas </FONT>
<BR><FONT SIZE=3D2>Unix Systems Administrator </FONT>
<BR><FONT SIZE=3D2>Lockheed Martin EIS =B7 Denver Data Center </FONT>
<BR><FONT SIZE=3D2>303-430-2281 </FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A> </FONT>
<BR><FONT =
SIZE=3D2>---------------------------------------------------------------=
-------------</FONT>
</P>
<P><FONT SIZE=3D2>--------------------- </FONT>
<BR><FONT SIZE=3D2>-----Original Message----- </FONT>
<BR><FONT SIZE=3D2>From: Michael Solomon [<A =
HREF=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
.com</A>] </FONT>
<BR><FONT SIZE=3D2>Sent: Thursday, February 15, 2001 5:19 AM </FONT>
<BR><FONT SIZE=3D2>To: Perl Gui (E-mail) </FONT>
<BR><FONT SIZE=3D2>Subject: [perl-win32-gui-users] get value from list =
</FONT>
</P>
<BR>
<P><FONT SIZE=3D2>I am querying a database and putting the output into =
a listview </FONT>
<BR><FONT SIZE=3D2>What I would like to next is to click on an item in =
the list and then </FONT>
<BR><FONT SIZE=3D2>drilldown into the data base </FONT>
<BR><FONT SIZE=3D2>The question is how can I return the value from a =
List </FONT>
<BR><FONT SIZE=3D2>I am fairly new at using Win32::GUI and apologise if =
this is a stupid </FONT>
<BR><FONT SIZE=3D2>question. </FONT>
<BR><FONT SIZE=3D2>Should I be using a different type than listview and =
if so what should I be </FONT>
<BR><FONT SIZE=3D2>using? </FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=3D2>use strict; </FONT>
<BR><FONT SIZE=3D2>use Socket; </FONT>
<BR><FONT SIZE=3D2>use Win32::GUI; </FONT>
<BR><FONT SIZE=3D2>use Win32::ODBC; </FONT>
<BR><FONT SIZE=3D2>#set variables </FONT>
<BR><FONT SIZE=3D2>my (%Data, %new, $result, $Window, $width); </FONT>
<BR><FONT SIZE=3D2>my =
$Dir &n=
bsp; =3D =
"//neptune/tech_dept/databases"; </FONT>
<BR><FONT SIZE=3D2>my =
$DBase =
=3D "asset.mdb"; </FONT>
<BR><FONT SIZE=3D2>my $DriverType =3D "Microsoft Access =
Driver (*.mdb)"; </FONT>
<BR><FONT SIZE=3D2>my =
$Desc &=
nbsp; =3D "Description=3DThe Win32::ODBC Test =
DSN for Perl"; </FONT>
<BR><FONT SIZE=3D2>my =
$DSN &n=
bsp; =3D "tmpdsn"; </FONT>
<BR><FONT SIZE=3D2>$Window =3D new GUI::Window( </FONT>
<BR><FONT SIZE=3D2> -name =3D> =
"Window", </FONT>
<BR><FONT SIZE=3D2> -text =3D> =
"Win32::GUI::ListView test", </FONT>
<BR><FONT SIZE=3D2> -width =3D> 350, </FONT>
<BR><FONT SIZE=3D2> -height =3D> 500, </FONT>
<BR><FONT SIZE=3D2> -left =3D> 100, =
</FONT>
<BR><FONT SIZE=3D2> -top =3D> =
100, </FONT>
<BR><FONT SIZE=3D2>); </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>$Window->AddListView( </FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "ListView", =
</FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 10, </FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 10, </FONT>
<BR><FONT SIZE=3D2> -width =
=3D> 330, </FONT>
<BR><FONT SIZE=3D2> -height =3D> =
383, </FONT>
<BR><FONT SIZE=3D2> -style =
=3D> WS_VISIBLE | 1, </FONT>
<BR><FONT SIZE=3D2> -gridlines =3D> 1, </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT SIZE=3D2>$width =3D $Window->ListView->ScaleWidth; =
</FONT>
<BR><FONT SIZE=3D2>$Window->ListView->InsertColumn( </FONT>
<BR><FONT SIZE=3D2> -index =3D> 0, </FONT>
<BR><FONT SIZE=3D2> -width =3D> $width/2, </FONT>
<BR><FONT SIZE=3D2> -text =3D> "Asset =
No", </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT SIZE=3D2>$Window->ListView->InsertColumn( </FONT>
<BR><FONT SIZE=3D2> -index =3D> 1, =
</FONT>
<BR><FONT SIZE=3D2> -width =3D> =
$width/2, </FONT>
<BR><FONT SIZE=3D2> -text =3D> &q=
uot;IP Address", </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT SIZE=3D2>$Window->AddRadioButton( </FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "Radio1", </FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 8, </FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 410, </FONT>
<BR><FONT SIZE=3D2> =
-text =3D> "192 Network ", </FONT>
<BR><FONT SIZE=3D2> -tabstop =
=3D> 1, </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT SIZE=3D2>$Window->AddRadioButton( </FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "Radio2", </FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 8, </FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 430, </FONT>
<BR><FONT SIZE=3D2> =
-text =3D> "212 XTML ", </FONT>
<BR><FONT SIZE=3D2> -tabstop =
=3D> 1, </FONT>
<BR><FONT SIZE=3D2>); </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>$Window->AddRadioButton( </FONT>
<BR><FONT SIZE=3D2> =
-name =3D> "Radio3", </FONT>
<BR><FONT SIZE=3D2> =
-left =3D> 8, </FONT>
<BR><FONT SIZE=3D2> =
-top =3D> 450, </FONT>
<BR><FONT SIZE=3D2> =
-text =3D> "212 EasyNet ", </FONT>
<BR><FONT SIZE=3D2> -tabstop =
=3D> 1, </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT =
SIZE=3D2>#$Window->ListView->TextColor(hex("0000FF")); =
</FONT>
<BR><FONT SIZE=3D2>$Window->Show(); </FONT>
<BR><FONT SIZE=3D2>$Window->Dialog(); </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>sub MAIN { </FONT>
<BR><FONT SIZE=3D2> #set up =
dsn </FONT>
<BR><FONT SIZE=3D2> =
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN", </FONT>
<BR><FONT SIZE=3D2>"Description=3DThe Win32 ODBC Test DSN for =
Perl", "DBQ=3D$Dir\\$DBase", </FONT>
<BR><FONT SIZE=3D2>"DEFAULTDIR=3D$Dir", "UID=3D", =
"PWD=3D")); </FONT>
<BR><FONT SIZE=3D2> #open =
connection as $0 </FONT>
<BR><FONT SIZE=3D2> my $cO =
=3D new Win32::ODBC($DSN); </FONT>
<BR><FONT SIZE=3D2> #run sql =
</FONT>
<BR><FONT SIZE=3D2> =
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress </FONT>
<BR><FONT SIZE=3D2>like '${result}%'"); </FONT>
<BR><FONT SIZE=3D2> #reset =
new </FONT>
<BR><FONT SIZE=3D2> %new =3D =
(); </FONT>
<BR><FONT SIZE=3D2> # Fetch =
the next rowset </FONT>
<BR><FONT SIZE=3D2> =
while($cO->FetchRow()){ </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; %Data =3D $cO->DataHash(); </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; #convert to binary </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $new{inet_aton($Data{ipaddress})} =3D =
</FONT>
<BR><FONT SIZE=3D2>"$Data{assetid},$Data{ipaddress}"; </FONT>
<BR><FONT SIZE=3D2> } </FONT>
<BR><FONT SIZE=3D2> #close =
database </FONT>
<BR><FONT SIZE=3D2> =
$cO->Close(); </FONT>
<BR><FONT SIZE=3D2> #remove =
tempdsn </FONT>
<BR><FONT SIZE=3D2> =
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN"); </FONT>
<BR><FONT SIZE=3D2> #clear =
items </FONT>
<BR><FONT SIZE=3D2> =
$Window->ListView->Clear(); </FONT>
<BR><FONT SIZE=3D2> foreach =
(sort keys %new) { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; my ($asset, $ip ) =3D split(",",$new{$_}); </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $Window->ListView->InsertItem(-text =
=3D> [ "$asset", "$ip" ] </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT SIZE=3D2> }; =
</FONT>
<BR><FONT SIZE=3D2>} </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>sub MAIN1 { </FONT>
<BR><FONT SIZE=3D2> #clear =
items </FONT>
<BR><FONT SIZE=3D2> =
$Window->ListView->Clear(); </FONT>
<BR><FONT SIZE=3D2> foreach =
(sort numeric values %new) { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &nb=
sp; my ($asset, $ip ) =3D split(",",$_); </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $Window->ListView->InsertItem(-text =
=3D> [ "$asset", "$ip" ] </FONT>
<BR><FONT SIZE=3D2>); </FONT>
<BR><FONT SIZE=3D2> }; =
</FONT>
<BR><FONT SIZE=3D2>} </FONT>
<BR><FONT SIZE=3D2>sub numeric { $a <=3D> $b }; </FONT>
<BR><FONT SIZE=3D2>sub Radio1_Click { </FONT>
<BR><FONT SIZE=3D2> =
if($Window->Radio1->Checked()) { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $result =3D "192"; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &MAIN; </FONT>
<BR><FONT SIZE=3D2> } =
elsif($Window->Radio2->Checked()) { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $result =3D "212.88"; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &MAIN; </FONT>
<BR><FONT SIZE=3D2> } =
elsif($Window->Radio3->Checked()) { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; $result =3D "212.74"; </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; &MAIN; </FONT>
<BR><FONT SIZE=3D2> } </FONT>
<BR><FONT SIZE=3D2>} </FONT>
<BR><FONT SIZE=3D2>sub Radio2_Click { Radio1_Click(); } </FONT>
<BR><FONT SIZE=3D2>sub Radio3_Click { Radio1_Click(); } </FONT>
<BR><FONT SIZE=3D2>sub ListView_ColumnClick { </FONT>
<BR><FONT SIZE=3D2> my =
$column =3D shift; </FONT>
<BR><FONT SIZE=3D2> if =
($result ne "" ) { </FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; if ( $column =3D=3D 1 ) {&MAIN;} =
</FONT>
<BR><FONT =
SIZE=3D2> &nb=
sp; if ( $column =3D=3D 0 ) {&MAIN1;} =
</FONT>
<BR><FONT SIZE=3D2> } </FONT>
<BR><FONT SIZE=3D2> </FONT>
<BR><FONT SIZE=3D2>} </FONT>
<BR><FONT SIZE=3D2>__END__ </FONT>
<BR><FONT SIZE=3D2>Regards </FONT>
</P>
<BR>
<P><FONT SIZE=3D2>Mike Solomon </FONT>
<BR><FONT SIZE=3D2>Technical Manager </FONT>
<BR><FONT SIZE=3D2>Work 01582 831125 </FONT>
<BR><FONT SIZE=3D2>Mobile 07941 537 172 </FONT>
<BR><FONT SIZE=3D2>email [EMAIL PROTECTED] </FONT>
<BR><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D</FONT>
</P>
<P><FONT SIZE=3D2>=3D=3D=3D=3D=3D=3D </FONT>
<BR><FONT SIZE=3D2>Important: Any views or opinions expressed by the =
sender do not necessarily </FONT>
<BR><FONT SIZE=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s) </FONT>
<BR><FONT SIZE=3D2>are intended for the above named only and may be =
confidential. If you are </FONT>
<BR><FONT SIZE=3D2>not </FONT>
<BR><FONT SIZE=3D2>the named recipient please notify us =
immediately. You must not copy or </FONT>
<BR><FONT SIZE=3D2>disclose </FONT>
<BR><FONT SIZE=3D2>the contents to any third party. </FONT>
<BR><FONT SIZE=3D2>Internet e-mail is not a fully secure communications =
medium. Please take </FONT>
<BR><FONT SIZE=3D2>this into account when sending e-mail to us. </FONT>
<BR><FONT SIZE=3D2>Any attachment(s) to this e-mail are believed to be =
free from virus, but it </FONT>
<BR><FONT SIZE=3D2>is the responsibility of the recipient to make all =
the necessary virus </FONT>
<BR><FONT SIZE=3D2>checks. </FONT>
<BR><FONT SIZE=3D2>www.3s-group.com </FONT>
<BR><FONT =
SIZE=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D </FONT>
<BR><FONT SIZE=3D2>_______________________________________________ =
</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users mailing list </FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users@lists.sourceforge.net </FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=
" =
TARGET=3D"_blank">http://lists.sourceforge.net/lists/listinfo/perl-win32=
-gui-users</A> </FONT>
</P>
<P><FONT =
SIZE=3D2>_______________________________________________</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users mailing list</FONT>
<BR><FONT SIZE=3D2>Perl-Win32-GUI-Users@lists.sourceforge.net</FONT>
<BR><FONT SIZE=3D2><A =
HREF=3D"http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=
" =
TARGET=3D"_blank">http://lists.sourceforge.net/lists/listinfo/perl-win32=
-gui-users</A></FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C09820.8E698C92--
From [EMAIL PROTECTED] Fri Feb 16 06:55:44 2001
Received: from [212.88.37.5] (helo=neptune.xml.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TmIR-0006J1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Feb 2001
06:55:44 -0800
Received: by NEPTUNE with Internet Mail Service (5.5.2650.21)
id <180QT39W>; Fri, 16 Feb 2001 14:56:46 -0000
Message-ID: <[EMAIL PROTECTED]>
From: Michael Solomon <[EMAIL PROTECTED]>
To: "Perl Gui (E-mail)" <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 16 Feb 2001 14:56:39 -0000
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C09828.AED68202"
Subject: [perl-win32-gui-users] closing windows
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C09828.AED68202
Content-Type: text/plain;
charset="iso-8859-1"
I am having problems closing windows
I have written a script that pulls up a window and asks for users entry
Then it pulls up a second window
My problems are that if the user cancels the first window by hitting the
close window button X at the top of the window the program doesn't end but
still pulls the second window.
The second problem is that the first window is still open on the task bar.
I could use HideWindow on the first window but that still leaves it open. I
would really like to completely kill the first window when I call the
second.
I hope this make sense
The code I am using is as follows:
use Win32::GUI;
use strict;
###########################################################################
#set variables
#variables
my ($Frame,$title,$assetexist,$assetid);
#set font
my $font = Win32::GUI::Font->new(
-size => 24,
-name => "Arial",
);
#Enter Asset Number
$title = "Asset/Network Entry";
&FRAME;
$Frame->AddTextfield(
-name => "aTextField",
-top => 40,
-left => 20,
-height => 40,
-width => 300,
-prompt => "Enter Asset Number",
);
#set field text
$Frame->aTextField->Text($assetid);
#set cursor on field
$Frame->aTextField->SetFocus();
$Frame->AddButton(
-name => "aButton",
-text => "OK",
-top => 180,
-left => 100,
);
$Frame->AddButton(
-name => "cancel",
-text => "CANCEL",
-top => 180,
-left => 200,
);
#display window
$Frame->Show();
Win32::GUI::Dialog();
###########################################################################
#check if asset exists in database
if ($assetexist eq "" ) {
$title = "No Asset Found";
&FRAME;
$Frame->AddLabel(
-name => "aTextField",
-top => 50,
-left => 20,
-text => "Asset ID ${assetid} Does not Exist",
);
$Frame->AddButton(
-name => "cancel",
-text => "OK",
-top => 180,
-left => 150,
);
$Frame->Show();
Win32::GUI::Dialog();
}
sub aFrame_Terminate { -1; }
sub aButton_Click {
$assetid=$Frame->aTextField->Text();
if ($assetid ne "") {&aFrame_Terminate};
}
sub aButton1_Click { &aFrame_Terminate; }
sub cancel_Click {
&aFrame_Terminate;
exit;
}
sub FRAME {
$Frame = new Win32::GUI::Window(
-font => $font,
-name => "aFrame",
-top => 100,
-left => 450,
-width => 350,
-height => 250,
-title => "$title",
);
}
__END__
Regards
Mike Solomon
Technical Manager
Work 01582 831125
Mobile 07941 537 172
email [EMAIL PROTECTED]
============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential. If you are
not
the named recipient please notify us immediately. You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium. Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks.
www.3s-group.com
=========================================================================
------_=_NextPart_001_01C09828.AED68202
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2650.12">
<TITLE>closing windows</TITLE>
</HEAD>
<BODY>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I am =
having problems closing windows</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I have =
written a script that pulls up a window and asks for users =
entry</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Then =
it pulls up a second window</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">My =
problems are that if the user cancel</FONT><FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">s</FONT><FONT COLOR=3D"#000000" FACE=3D"Times =
New Roman"> the first window</FONT><FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman"> by hitting the close window button X at the =
top of the window the program doesn't end but still pulls the second =
window.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">The =
second problem is that the first window is still open on the task =
bar.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I =
could use HideWindow on the first window but that still leaves it =
open.</FONT> <FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">I</FONT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman"></FONT> =
<FONT COLOR=3D"#000000" FACE=3D"Times New Roman">would really like to =
completely kill the first window when I</FONT> <FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">call</FONT><FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman"> the second.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">I hope =
this make sense</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">The =
code I am using is as follows:</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">use =
Win32::GUI; </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">use =
strict;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">#################################################################=
##########</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#set =
variables</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">#variables</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
($Frame,$title,$assetexist,$assetid);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#set =
font</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">my =
$font =3D Win32::GUI::Font->new(</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-size =3D> 24,</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-name =3D> "Arial", </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#Enter =
Asset Number</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">$title =
=3D "Asset/Network Entry";</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">&FRAME;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Frame->AddTextfield( </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-name =3D> =
"aTextField", </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-top =3D> 40, </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-left =3D> 20, =
</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-height =3D> 40, =
</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-width =3D> 300, =
</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-prompt =3D> "Enter =
Asset Number",</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">); =
</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#set =
field text</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Frame->aTextField->Text($assetid);</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#set =
cursor on field</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Frame->aTextField->SetFocus();</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Frame->AddButton( </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-name =3D> =
"aButton", </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-text =3D> =
"OK", </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-top =3D> 180, =
</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-left =3D> 100, =
</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">); =
</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Frame->AddButton( </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-name =3D> =
"cancel", </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-text =3D> =
"CANCEL", </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-top =3D> 180, =
</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">-left =3D> 200, =
</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">); =
</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">#display window</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">$Frame->Show(); </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Win32::GUI::Dialog(); </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">#################################################################=
##########</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">#check =
if asset exists in database</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">if =
($assetexist eq "" ) {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$title =3D "No Asset =
Found";</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">&FRAME;</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$Frame->AddLabel( =
</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-name =3D> "aTextField", =
</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-top =3D> 50, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-left =3D> 20, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-text =3D> "Asset ID =
${assetid} Does not Exist",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">); </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$Frame->AddButton( =
</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-name =3D> "cancel", </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-text =3D> "OK", </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-top =3D> 180, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-left =3D> 150, </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">); </FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$Frame->Show(); =
</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">Win32::GUI::Dialog(); =
</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
aFrame_Terminate { -1; } </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
aButton_Click {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">$assetid=3D$Frame->aTextField->Text();</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">if ($assetid ne =
"") {&aFrame_Terminate};</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
aButton1_Click { &aFrame_Terminate; }</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
cancel_Click {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New =
Roman">&aFrame_Terminate;</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">exit;</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">sub =
FRAME {</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">$Frame =3D new =
Win32::GUI::Window( </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-font =3D> $font,</FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-name =3D> "aFrame", </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-top =3D> 100, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-left =3D> 450, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-width =3D> 350, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-height =3D> 250, </FONT></P>
<P ALIGN=3DLEFT> =
<FONT COLOR=3D"#000000" =
FACE=3D"Times New Roman">-title =3D> "$title",</FONT></P>
<P ALIGN=3DLEFT> <FONT =
COLOR=3D"#000000" FACE=3D"Times New Roman">); </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">}</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">__END__</FONT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman"></FONT> </P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Regards</FONT></P>
<BR>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Mike =
Solomon</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Technical Manager</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Work 01582 831125</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Mobile =
07941 537 172</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">email [EMAIL PROTECTED]</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Important: Any views or opinions expressed by the sender do not =
necessarily</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">represent those of the 3s Group. This e-mail and any =
attachment(s)</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">are =
intended for the above named only and may be confidential. If you =
are not</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">the =
named recipient please notify us immediately. You must not copy =
or disclose</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">the =
contents to any third party.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">Internet e-mail is not a fully secure communications =
medium. Please take</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">this =
into account when sending e-mail to us.</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">Any =
attachment(s) to this e-mail are believed to be free from virus, but =
it</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New Roman">is the =
responsibility of the recipient to make all the necessary =
virus</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">checks. </FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">www.3s-group.com</FONT></P>
<P ALIGN=3DLEFT><FONT COLOR=3D"#000000" FACE=3D"Times New =
Roman">=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D</FONT></P>
</BODY>
</HTML>
------_=_NextPart_001_01C09828.AED68202--
From [EMAIL PROTECTED] Fri Feb 16 11:39:04 2001
Received: from puppis2.tiscalinet.it ([195.130.225.135] helo=tiscali.it)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14Tqie-0000um-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Feb 2001
11:39:04 -0800
Received: (qmail 29696 invoked from network); 16 Feb 2001 19:39:46 -0000
Received: from pe1-387.dialup.tiscalinet.it (HELO stop) (62.10.239.131)
by puppis2.tiscalinet.it with SMTP; 16 Feb 2001 19:39:46 -0000
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 16 Feb 2001 19:36:04 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] ListView Column Resize
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Has anyone had the listview disappear if you try and resize
the column? If I resize it, the first time it disappears,
the second it reappears but without the scrollbars. Any one
else?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Feb 16 12:20:22 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14TrMb-0004Gl-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Feb 2001
12:20:21 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id NAA10310
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Feb 2001
13:20:53 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Fri, 16
Feb 2001 13:20:48 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Fri, 16 Feb 2001 13:20:46 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2650.21)
id <18A1B1GX>; Fri, 16 Feb 2001 13:21:55 -0700
Content-return: allowed
Date: Fri, 16 Feb 2001 13:21:51 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] get value from list
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-type: MULTIPART/ALTERNATIVE;
BOUNDARY="Boundary_(ID_eTzu32pcIt5G6LfmhpQecA)"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--Boundary_(ID_eTzu32pcIt5G6LfmhpQecA)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
It seem that is what most people are doing, I personally like pulling =
the
data directly from the object.
Tim
=20
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>=20
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Friday, February 16, 2001 6:59 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list
Tim,=20
Thanks for your help with this=20
I realised that as I was supplying the data to the list box I just =
needed to
put it into an array and use:=20
sub ListView_ItemClick {=20
$item =3D shift;=20
print $asset[$item];=20
=20
}=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are
not=20
the named recipient please notify us immediately. You must not copy or
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
-----Original Message-----=20
From: Thomas, Timothy B [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]=20
Sent: 15 February 2001 17:45=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Subject: RE: [perl-win32-gui-users] get value from list=20
There is a SelectedItems function you can use.=20
Here's a bit of code that will get the data from all the selected =
items.=20
Once you determine which item you have selected you can use that other =
piece
of code to get the data from every column, or you can use this example =
if=20
you just want the first column.=20
see the documentation at http://dada.perl.it/gui_docs/gui.html
<http://dada.perl.it/gui_docs/gui.html> for more=20
help.=20
if ($ListView->SelectCount() gt 0)=20
{=20
for $i(0..$ListView->SelectCount()-1)=20
{=20
=20
%data=3D$ListView->ItemInfo(($ListView->SelectedItems)[$i]);=20
$filename=3D$data{-text};=20
...=20
------------------------------------------------------------------------=
----
---------------------=20
Tim Thomas=20
Unix Systems Administrator=20
Lockheed Martin EIS =B7 Denver Data Center=20
303-430-2281=20
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> =20
------------------------------------------------------------------------=
----
---------------------=20
-----Original Message-----=20
From: Michael Solomon [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]=20
Sent: Thursday, February 15, 2001 10:32 AM=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Subject: RE: [perl-win32-gui-users] get value from list=20
Tim,=20
Thanks for this=20
Unfortunately this gets all the items from the list=20
What I want to do is to click on an item in the list and just capture =
that=20
For example=20
If I have a list showing=20
1=20
2=20
3=20
if I click on the 3, I want to capture 3=20
I hope this makes sense=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are=20
not=20
the named recipient please notify us immediately. You must not copy or =
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
-----Original Message-----=20
From: Thomas, Timothy B [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]=20
Sent: 15 February 2001 16:48=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Subject: RE: [perl-win32-gui-users] get value from list=20
Someone else has written a win32::Gui program to do just what you are =
trying
to do. I don't seem to have the code anymore. Maybe they can post it =
again,=20
or you can search the archives.=20
Here's a piece of code I just wrote that gets all the data, including =
the=20
image, from a listview, it puts it into a hash.=20
I used this with the column sort routine that has been floating around, =
by=20
Jonathan Southwick [EMAIL PROTECTED] I am still working out the =
bugs, but this section of code should help you.=20
# you must already have $totalcols (the # of columns in your=20
listview)=20
# I don't think there is a way to pull this from the =
object.=20
%data=3D();=20
$rows=3D$ListView->Count();=20
for $i(0..$rows-1)=20
{=20
$row=3D"";=20
my %result=3D$ListView->GetItem($i,0);=20
$image=3D$result{-image};=20
for $j(0..$totalcols-1)=20
{=20
my %result=3D$ListView->GetItem($i,$j);=20
$text=3D$result{-text};=20
$row.=3D",$text";=20
}=20
$data{$i}=3D"$image$row";=20
#Win32::MsgBox("data($i)=3D$image$row\n");=20
}=20
------------------------------------------------------------------------=
----
---------------------=20
Tim Thomas=20
Unix Systems Administrator=20
Lockheed Martin EIS =B7 Denver Data Center=20
303-430-2281=20
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> =20
------------------------------------------------------------------------=
----
---------------------=20
-----Original Message-----=20
From: Michael Solomon [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]=20
Sent: Thursday, February 15, 2001 5:19 AM=20
To: Perl Gui (E-mail)=20
Subject: [perl-win32-gui-users] get value from list=20
I am querying a database and putting the output into a listview=20
What I would like to next is to click on an item in the list and then=20
drilldown into the data base=20
The question is how can I return the value from a List=20
I am fairly new at using Win32::GUI and apologise if this is a stupid=20
question.=20
Should I be using a different type than listview and if so what should =
I be=20
using?=20
use strict;=20
use Socket;=20
use Win32::GUI;=20
use Win32::ODBC;=20
#set variables=20
my (%Data, %new, $result, $Window, $width);=20
my $Dir =3D "//neptune/tech_dept/databases";=20
my $DBase =3D "asset.mdb";=20
my $DriverType =3D "Microsoft Access Driver (*.mdb)";=20
my $Desc =3D "Description=3DThe Win32::ODBC Test DSN for =
Perl";=20
my $DSN =3D "tmpdsn";=20
$Window =3D new GUI::Window(=20
-name =3D> "Window",=20
-text =3D> "Win32::GUI::ListView test",=20
-width =3D> 350,=20
-height =3D> 500,=20
-left =3D> 100,=20
-top =3D> 100,=20
);=20
$Window->AddListView(=20
-name =3D> "ListView",=20
-left =3D> 10,=20
-top =3D> 10,=20
-width =3D> 330,=20
-height =3D> 383,=20
-style =3D> WS_VISIBLE | 1,=20
-gridlines =3D> 1,=20
);=20
$width =3D $Window->ListView->ScaleWidth;=20
$Window->ListView->InsertColumn(=20
-index =3D> 0,=20
-width =3D> $width/2,=20
-text =3D> "Asset No",=20
);=20
$Window->ListView->InsertColumn(=20
-index =3D> 1,=20
-width =3D> $width/2,=20
-text =3D> "IP Address",=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio1",=20
-left =3D> 8,=20
-top =3D> 410,=20
-text =3D> "192 Network ",=20
-tabstop =3D> 1,=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio2",=20
-left =3D> 8,=20
-top =3D> 430,=20
-text =3D> "212 XTML ",=20
-tabstop =3D> 1,=20
);=20
$Window->AddRadioButton(=20
-name =3D> "Radio3",=20
-left =3D> 8,=20
-top =3D> 450,=20
-text =3D> "212 EasyNet ",=20
-tabstop =3D> 1,=20
);=20
#$Window->ListView->TextColor(hex("0000FF"));=20
$Window->Show();=20
$Window->Dialog();=20
sub MAIN {=20
#set up dsn=20
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, =
("DSN=3D$DSN",=20
"Description=3DThe Win32 ODBC Test DSN for Perl", "DBQ=3D$Dir\\$DBase", =
"DEFAULTDIR=3D$Dir", "UID=3D", "PWD=3D"));=20
#open connection as $0=20
my $cO =3D new Win32::ODBC($DSN);=20
#run sql=20
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where =
ipaddress=20
like '${result}%'");=20
#reset new=20
%new =3D ();=20
# Fetch the next rowset=20
while($cO->FetchRow()){=20
%Data =3D $cO->DataHash();=20
#convert to binary=20
$new{inet_aton($Data{ipaddress})} =3D=20
"$Data{assetid},$Data{ipaddress}";=20
}=20
#close database=20
$cO->Close();=20
#remove tempdsn=20
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, =
"DSN=3D$DSN");=20
#clear items=20
$Window->ListView->Clear(); =20
foreach (sort keys %new) {=20
my ($asset, $ip ) =3D split(",",$new{$_});=20
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]=20
);=20
};=20
}=20
sub MAIN1 {=20
#clear items=20
$Window->ListView->Clear(); =20
foreach (sort numeric values %new) {=20
my ($asset, $ip ) =3D split(",",$_);=20
$Window->ListView->InsertItem(-text =3D> [ "$asset", =
"$ip" ]=20
);=20
};=20
}=20
sub numeric { $a <=3D> $b };=20
sub Radio1_Click {=20
if($Window->Radio1->Checked()) {=20
$result =3D "192";=20
&MAIN;=20
} elsif($Window->Radio2->Checked()) {=20
$result =3D "212.88";=20
&MAIN;=20
} elsif($Window->Radio3->Checked()) {=20
$result =3D "212.74";=20
&MAIN;=20
}=20
}=20
sub Radio2_Click { Radio1_Click(); }=20
sub Radio3_Click { Radio1_Click(); }=20
sub ListView_ColumnClick {=20
my $column =3D shift;=20
if ($result ne "" ) {=20
if ( $column =3D=3D 1 ) {&MAIN;}=20
if ( $column =3D=3D 0 ) {&MAIN1;}=20
}=20
=20
}=20
__END__=20
Regards=20
Mike Solomon=20
Technical Manager=20
Work 01582 831125=20
Mobile 07941 537 172=20
email [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=20
Important: Any views or opinions expressed by the sender do not =
necessarily=20
represent those of the 3s Group. This e-mail and any attachment(s)=20
are intended for the above named only and may be confidential. If you =
are=20
not=20
the named recipient please notify us immediately. You must not copy or =
disclose=20
the contents to any third party.=20
Internet e-mail is not a fully secure communications medium. Please =
take=20
this into account when sending e-mail to us.=20
Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
is the responsibility of the recipient to make all the necessary virus=20
checks.=20
www.3s-group.com=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=20
_______________________________________________=20
Perl-Win32-GUI-Users mailing list=20
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users> =20
_______________________________________________=20
Perl-Win32-GUI-Users mailing list=20
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users> =20
--Boundary_(ID_eTzu32pcIt5G6LfmhpQecA)
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 HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<TITLE>RE: [perl-win32-gui-users] get value from list</TITLE>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR></HEAD>
<BODY>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN =
class=3D148132020-16022001>It=20
seem that is what most people are doing, I personally like pulling the =
data=20
directly from the object.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D148132020-16022001>Tim</SPAN></FONT></DIV>
<DIV> </DIV>
<P align=3Dcenter><FONT face=3DTahoma=20
size=3D2>---------------------------------------------------------------=
----------------------------------</FONT></P>
<P align=3Dcenter><B><I><FONT color=3D#0000ff face=3D"Comic Sans MS" =
size=3D5>Tim=20
Thomas</FONT></I></B></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Unix Systems =
Administrator</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>Lockheed Martin =
EIS</FONT> <FONT=20
face=3DSystem size=3D4>=B7</FONT><FONT face=3DTahoma size=3D2> Denver =
Data=20
Center</FONT></P>
<P align=3Dcenter><FONT face=3DTahoma size=3D2>303-430-2281</FONT></P>
<P align=3Dcenter><U><FONT color=3D#0000ff face=3DTahoma size=3D2><A=20
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A></FONT></U></P>
<P align=3Dcenter><FONT face=3DTahoma=20
size=3D2>---------------------------------------------------------------=
----------------------------------</FONT></P>
<BLOCKQUOTE style=3D"MARGIN-RIGHT: 0px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Michael Solomon=20
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Friday, February =
16, 2001=20
6:59 AM<BR><B>To:</B>=20
'perl-win32-gui-users@lists.sourceforge.net'<BR><B>Subject:</B> RE:=20
[perl-win32-gui-users] get value from =
list<BR><BR></DIV></FONT><BR><BR>
<P><FONT size=3D2>Tim,</FONT> </P><BR>
<P><FONT size=3D2>Thanks for your help with this </FONT></P>
<P><FONT size=3D2>I realised that as I was supplying the data to the =
list box I=20
just needed to put it into an array and use:</FONT> </P>
<P><FONT size=3D2>sub ListView_ItemClick {</FONT>=20
<BR> <FONT size=3D2>$item =
=3D=20
shift;</FONT> <BR> <FONT=20
size=3D2>print $asset[$item];</FONT>=20
<BR> <BR><FONT =
size=3D2>}</FONT>=20
</P><BR><BR>
<P><FONT size=3D2>Regards</FONT> </P><BR>
<P><FONT size=3D2>Mike Solomon</FONT> <BR><FONT size=3D2>Technical =
Manager</FONT>=20
<BR><FONT size=3D2>Work 01582 831125</FONT> =
<BR><FONT=20
size=3D2>Mobile 07941 537 172</FONT> <BR><FONT =
size=3D2>email =20
[EMAIL PROTECTED]</FONT> </P>
<P><FONT=20
=
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT>=20
<BR><FONT size=3D2>Important: Any views or opinions expressed by the =
sender do=20
not necessarily</FONT> <BR><FONT size=3D2>represent those of the 3s =
Group. This=20
e-mail and any attachment(s)</FONT> <BR><FONT size=3D2>are intended =
for the=20
above named only and may be confidential. If you are not</FONT> =
<BR><FONT size=3D2>the named recipient please notify us =
immediately. You=20
must not copy or disclose</FONT> <BR><FONT size=3D2>the contents to =
any third=20
party.</FONT> </P>
<P><FONT size=3D2>Internet e-mail is not a fully secure =
communications=20
medium. Please take</FONT> <BR><FONT size=3D2>this into account =
when=20
sending e-mail to us.</FONT> <BR><FONT size=3D2>Any attachment(s) to =
this e-mail=20
are believed to be free from virus, but it</FONT> <BR><FONT =
size=3D2>is the=20
responsibility of the recipient to make all the necessary =
virus</FONT>=20
<BR><FONT size=3D2>checks. </FONT></P>
<P><FONT size=3D2>www.3s-group.com</FONT> </P>
<P><FONT=20
=
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D</FONT>=20
</P>
<P><FONT size=3D2> -----Original Message-----</FONT> <BR><FONT =
size=3D2>From:=20
Thomas, Timothy B [<A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A>]=20
</FONT><BR><FONT size=3D2>Sent: 15 February 2001 =
17:45</FONT>=20
<BR><FONT size=3D2>To: =20
'perl-win32-gui-users@lists.sourceforge.net'</FONT> <BR><FONT=20
size=3D2>Subject: RE:=20
[perl-win32-gui-users] get value from list</FONT> </P>
<P><FONT size=3D2>There is a SelectedItems function you can =
use.</FONT>=20
<BR><FONT size=3D2>Here's a bit of code that will get the data from =
all the=20
selected items.</FONT> <BR><FONT size=3D2>Once you determine which =
item you have=20
selected you can use that other piece</FONT> <BR><FONT size=3D2>of =
code to get=20
the data from every column, or you can use this example if</FONT> =
<BR><FONT=20
size=3D2>you just want the first column.</FONT> <BR><FONT =
size=3D2>see the=20
documentation at <A href=3D"http://dada.perl.it/gui_docs/gui.html"=20
target=3D_blank>http://dada.perl.it/gui_docs/gui.html</A> for =
more</FONT>=20
<BR><FONT size=3D2>help.</FONT> </P>
<P> <FONT size=3D2>if=20
($ListView->SelectCount() gt 0)</FONT>=20
<BR> =20
<FONT size=3D2>{</FONT>=20
<BR> =20
<FONT size=3D2>for=20
$i(0..$ListView->SelectCount()-1)</FONT>=20
<BR> =20
=20
<FONT size=3D2>{</FONT>=20
<BR> <BR><FONT=20
=
size=3D2>%data=3D$ListView->ItemInfo(($ListView->SelectedItems)[$i=
]);</FONT>=20
<BR> =20
=20
<FONT=20
size=3D2>$filename=3D$data{-text};</FONT>=20
<BR> =20
=20
<FONT size=3D2>...</FONT> =
</P>
<P><FONT=20
=
size=3D2>---------------------------------------------------------------=
-------------</FONT>=20
<BR><FONT size=3D2>---------------------</FONT> <BR><FONT =
size=3D2>Tim=20
Thomas</FONT> <BR><FONT size=3D2>Unix Systems Administrator</FONT> =
<BR><FONT=20
size=3D2>Lockheed Martin EIS =B7 Denver Data Center</FONT> <BR><FONT=20
size=3D2>303-430-2281</FONT> <BR><FONT size=3D2><A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A></FONT>=20
<BR><FONT=20
=
size=3D2>---------------------------------------------------------------=
-------------</FONT>=20
<BR><FONT size=3D2>---------------------</FONT> <BR><FONT =
size=3D2>-----Original=20
Message-----</FONT> <BR><FONT size=3D2>From: Michael Solomon [<A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
.com</A>]</FONT>=20
<BR><FONT size=3D2>Sent: Thursday, February 15, 2001 10:32 AM</FONT> =
<BR><FONT=20
size=3D2>To: 'perl-win32-gui-users@lists.sourceforge.net'</FONT> =
<BR><FONT=20
size=3D2>Subject: RE: [perl-win32-gui-users] get value from =
list</FONT> </P><BR>
<P><FONT size=3D2>Tim, </FONT><BR><FONT size=3D2>Thanks for this =
</FONT><BR><FONT=20
size=3D2>Unfortunately this gets all the items from the list =
</FONT><BR><FONT=20
size=3D2>What I want to do is to click on an item in the list and =
just capture=20
that </FONT><BR><FONT size=3D2>For example </FONT><BR><FONT =
size=3D2>If I have a=20
list showing </FONT><BR><FONT size=3D2>1 </FONT><BR><FONT size=3D2>2=20
</FONT><BR><FONT size=3D2>3 </FONT><BR><FONT size=3D2>if I click on =
the 3, I want=20
to capture 3 </FONT><BR><FONT size=3D2>I hope this makes sense =
</FONT></P><BR>
<P><FONT size=3D2>Regards </FONT></P><BR>
<P><FONT size=3D2>Mike Solomon </FONT><BR><FONT size=3D2>Technical =
Manager=20
</FONT><BR><FONT size=3D2>Work 01582 831125=20
</FONT><BR><FONT size=3D2>Mobile 07941 537 172 </FONT><BR><FONT=20
size=3D2>email [EMAIL PROTECTED] =
</FONT><BR><FONT=20
=
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D</FONT>=20
<BR><FONT size=3D2>=3D=3D=3D=3D=3D=3D </FONT><BR><FONT =
size=3D2>Important: Any views or=20
opinions expressed by the sender do not necessarily </FONT><BR><FONT=20
size=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s)=20
</FONT><BR><FONT size=3D2>are intended for the above named only and =
may be=20
confidential. If you are</FONT> <BR><FONT size=3D2>not =
</FONT><BR><FONT=20
size=3D2>the named recipient please notify us immediately. You =
must not=20
copy or</FONT> <BR><FONT size=3D2>disclose </FONT><BR><FONT =
size=3D2>the contents=20
to any third party. </FONT><BR><FONT size=3D2>Internet e-mail is not =
a fully=20
secure communications medium. Please take </FONT><BR><FONT =
size=3D2>this=20
into account when sending e-mail to us. </FONT><BR><FONT size=3D2>Any =
attachment(s) to this e-mail are believed to be free from virus, but =
it=20
</FONT><BR><FONT size=3D2>is the responsibility of the recipient to =
make all the=20
necessary virus </FONT><BR><FONT size=3D2>checks. </FONT><BR><FONT=20
size=3D2>www.3s-group.com </FONT><BR><FONT=20
=
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=20
</FONT><BR><FONT size=3D2> -----Original Message----- =
</FONT><BR><FONT=20
size=3D2>From: Thomas, Timothy B [<A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A>]=20
</FONT><BR><FONT size=3D2>Sent: 15 February 2001 16:48=20
</FONT><BR><FONT size=3D2>To: =20
'perl-win32-gui-users@lists.sourceforge.net' </FONT><BR><FONT=20
size=3D2>Subject: RE:=20
[perl-win32-gui-users] get value from list </FONT><BR><FONT =
size=3D2>Someone=20
else has written a win32::Gui program to do just what you are =
trying</FONT>=20
</P>
<P><FONT size=3D2>to do. I don't seem to have the code anymore. Maybe =
they can=20
post it again, </FONT><BR><FONT size=3D2>or you can search the =
archives.=20
</FONT><BR><FONT size=3D2>Here's a piece of code I just wrote that =
gets all the=20
data, including the </FONT><BR><FONT size=3D2>image, from a listview, =
it puts it=20
into a hash. </FONT><BR><FONT size=3D2>I used this with the column =
sort routine=20
that has been floating around, by </FONT><BR><FONT size=3D2>Jonathan =
Southwick=20
[EMAIL PROTECTED] I am still working out the </FONT><BR><FONT =
size=3D2>bugs, but this section of code should help you. =
</FONT><BR><FONT=20
size=3D2> # you must =
already have=20
$totalcols (the # of columns in your </FONT><BR><FONT =
size=3D2>listview)=20
</FONT><BR><FONT size=3D2> =20
# I don't think there is a way to =
pull=20
this from the object. </FONT><BR><FONT=20
size=3D2> %data=3D(); =
</FONT><BR><FONT=20
size=3D2> =
$rows=3D$ListView->Count();=20
</FONT><BR><FONT size=3D2> =
for=20
$i(0..$rows-1) </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
{ </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$row=3D""; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
my %result=3D$ListView->GetItem($i,0); </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$image=3D$result{-image}; </FONT><BR><FONT=20
size=3D2> &=
nbsp; =20
for $j(0..$totalcols-1) </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
{ </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
my %result=3D$ListView->GetItem($i,$j); </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
$text=3D$result{-text}; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
$row.=3D",$text"; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
} </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$data{$i}=3D"$image$row"; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
#Win32::MsgBox("data($i)=3D$image$row\n"); </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
} </FONT></P><BR>
<P><FONT=20
=
size=3D2>---------------------------------------------------------------=
-------------</FONT>=20
</P>
<P><FONT size=3D2>--------------------- </FONT><BR><FONT size=3D2>Tim =
Thomas=20
</FONT><BR><FONT size=3D2>Unix Systems Administrator </FONT><BR><FONT =
size=3D2>Lockheed Martin EIS =B7 Denver Data Center </FONT><BR><FONT=20
size=3D2>303-430-2281 </FONT><BR><FONT size=3D2><A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
om</A>=20
</FONT><BR><FONT=20
=
size=3D2>---------------------------------------------------------------=
-------------</FONT>=20
</P>
<P><FONT size=3D2>--------------------- </FONT><BR><FONT =
size=3D2>-----Original=20
Message----- </FONT><BR><FONT size=3D2>From: Michael Solomon [<A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]
.com</A>]=20
</FONT><BR><FONT size=3D2>Sent: Thursday, February 15, 2001 5:19 AM=20
</FONT><BR><FONT size=3D2>To: Perl Gui (E-mail) </FONT><BR><FONT =
size=3D2>Subject:=20
[perl-win32-gui-users] get value from list </FONT></P><BR>
<P><FONT size=3D2>I am querying a database and putting the output =
into a=20
listview </FONT><BR><FONT size=3D2>What I would like to next is to =
click on an=20
item in the list and then </FONT><BR><FONT size=3D2>drilldown into =
the data base=20
</FONT><BR><FONT size=3D2>The question is how can I return the value =
from a List=20
</FONT><BR><FONT size=3D2>I am fairly new at using Win32::GUI and =
apologise if=20
this is a stupid </FONT><BR><FONT size=3D2>question. </FONT><BR><FONT =
size=3D2>Should I be using a different type than listview and if so =
what should=20
I be </FONT><BR><FONT size=3D2>using? </FONT></P><BR><BR>
<P><FONT size=3D2>use strict; </FONT><BR><FONT size=3D2>use Socket;=20
</FONT><BR><FONT size=3D2>use Win32::GUI; </FONT><BR><FONT =
size=3D2>use=20
Win32::ODBC; </FONT><BR><FONT size=3D2>#set variables =
</FONT><BR><FONT size=3D2>my=20
(%Data, %new, $result, $Window, $width); </FONT><BR><FONT size=3D2>my =
=
$Dir &n=
bsp; =20
=3D "//neptune/tech_dept/databases"; </FONT><BR><FONT size=3D2>my=20
=
$DBase =
=20
=3D "asset.mdb"; </FONT><BR><FONT size=3D2>my $DriverType =3D =
"Microsoft=20
Access Driver (*.mdb)"; </FONT><BR><FONT size=3D2>my=20
=
$Desc &=
nbsp; =20
=3D "Description=3DThe Win32::ODBC Test DSN for Perl"; =
</FONT><BR><FONT size=3D2>my=20
$DSN =
=20
=3D "tmpdsn"; </FONT><BR><FONT size=3D2>$Window =3D new GUI::Window(=20
</FONT><BR><FONT size=3D2> -name =
=3D> "Window",=20
</FONT><BR><FONT size=3D2> -text =
=3D>=20
"Win32::GUI::ListView test", </FONT><BR><FONT =
size=3D2> =20
-width =3D> 350, </FONT><BR><FONT =
size=3D2> -height=20
=3D> 500, </FONT><BR><FONT size=3D2> =
-left =3D>=20
100, </FONT><BR><FONT size=3D2> =
-top =3D>=20
100, </FONT><BR><FONT size=3D2>); </FONT></P><BR>
<P><FONT size=3D2>$Window->AddListView( </FONT><BR><FONT=20
size=3D2> -name =
=3D>=20
"ListView", </FONT><BR><FONT size=3D2> =20
-left =3D> 10, </FONT><BR><FONT=20
size=3D2> -top =
=3D> 10,=20
</FONT><BR><FONT size=3D2> =
-width =20
=3D> 330, </FONT><BR><FONT size=3D2> =20
-height =3D> 383, </FONT><BR><FONT=20
size=3D2> -style =3D> =
WS_VISIBLE | 1,=20
</FONT><BR><FONT size=3D2> -gridlines =3D> 1,=20
</FONT><BR><FONT size=3D2>); </FONT><BR><FONT size=3D2>$width =3D=20
$Window->ListView->ScaleWidth; </FONT><BR><FONT=20
size=3D2>$Window->ListView->InsertColumn( </FONT><BR><FONT=20
size=3D2> -index =3D> 0, </FONT><BR><FONT=20
size=3D2> -width =3D> $width/2, </FONT><BR><FONT =
size=3D2> -text =3D> "Asset No", =
</FONT><BR><FONT=20
size=3D2>); </FONT><BR><FONT =
size=3D2>$Window->ListView->InsertColumn(=20
</FONT><BR><FONT size=3D2> -index =
=3D> 1,=20
</FONT><BR><FONT size=3D2> -width =
=3D> $width/2,=20
</FONT><BR><FONT size=3D2> -text =
=3D> "IP=20
Address", </FONT><BR><FONT size=3D2>); </FONT><BR><FONT=20
size=3D2>$Window->AddRadioButton( </FONT><BR><FONT=20
size=3D2> =
-name =20
=3D> "Radio1", </FONT><BR><FONT=20
size=3D2> =
-left =20
=3D> 8, </FONT><BR><FONT =
size=3D2> =20
-top =3D> 410, </FONT><BR><FONT=20
size=3D2> =
-text =20
=3D> "192 Network ", </FONT><BR><FONT=20
size=3D2> -tabstop =3D> =
1,=20
</FONT><BR><FONT size=3D2>); </FONT><BR><FONT =
size=3D2>$Window->AddRadioButton(=20
</FONT><BR><FONT size=3D2> =20
-name =3D> "Radio2", </FONT><BR><FONT=20
size=3D2> =
-left =20
=3D> 8, </FONT><BR><FONT =
size=3D2> =20
-top =3D> 430, </FONT><BR><FONT=20
size=3D2> =
-text =20
=3D> "212 XTML ", </FONT><BR><FONT=20
size=3D2> -tabstop =3D> =
1,=20
</FONT><BR><FONT size=3D2>); </FONT></P><BR>
<P><FONT size=3D2>$Window->AddRadioButton( </FONT><BR><FONT=20
size=3D2> =
-name =20
=3D> "Radio3", </FONT><BR><FONT=20
size=3D2> =
-left =20
=3D> 8, </FONT><BR><FONT =
size=3D2> =20
-top =3D> 450, </FONT><BR><FONT=20
size=3D2> =
-text =20
=3D> "212 EasyNet ", </FONT><BR><FONT=20
size=3D2> -tabstop =3D> =
1,=20
</FONT><BR><FONT size=3D2>); </FONT><BR><FONT=20
size=3D2>#$Window->ListView->TextColor(hex("0000FF")); =
</FONT><BR><FONT=20
size=3D2>$Window->Show(); </FONT><BR><FONT =
size=3D2>$Window->Dialog();=20
</FONT></P><BR>
<P><FONT size=3D2>sub MAIN { </FONT><BR><FONT=20
size=3D2> #set up dsn =
</FONT><BR><FONT=20
size=3D2> =20
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, ("DSN=3D$DSN",=20
</FONT><BR><FONT size=3D2>"Description=3DThe Win32 ODBC Test DSN for =
Perl",=20
"DBQ=3D$Dir\\$DBase", </FONT><BR><FONT size=3D2>"DEFAULTDIR=3D$Dir", =
"UID=3D",=20
"PWD=3D")); </FONT><BR><FONT =
size=3D2> =20
#open connection as $0 </FONT><BR><FONT=20
size=3D2> my $cO =3D new=20
Win32::ODBC($DSN); </FONT><BR><FONT=20
size=3D2> #run sql =
</FONT><BR><FONT=20
size=3D2> =
$cO->Sql("SELECT assetid,=20
ipaddress FROM ip_address where ipaddress </FONT><BR><FONT =
size=3D2>like=20
'${result}%'"); </FONT><BR><FONT=20
size=3D2> #reset new =
</FONT><BR><FONT=20
size=3D2> %new =3D (); =
</FONT><BR><FONT=20
size=3D2> # Fetch the next =
rowset=20
</FONT><BR><FONT size=3D2> =20
while($cO->FetchRow()){ </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
%Data =3D $cO->DataHash(); </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
#convert to binary </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$new{inet_aton($Data{ipaddress})} =3D </FONT><BR><FONT=20
size=3D2>"$Data{assetid},$Data{ipaddress}"; </FONT><BR><FONT=20
size=3D2> } =
</FONT><BR><FONT=20
size=3D2> #close database=20
</FONT><BR><FONT size=3D2> =20
$cO->Close(); </FONT><BR><FONT=20
size=3D2> #remove tempdsn=20
</FONT><BR><FONT size=3D2> =20
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, "DSN=3D$DSN");=20
</FONT><BR><FONT size=3D2> =
#clear=20
items </FONT><BR><FONT =
size=3D2> =20
$Window->ListView->Clear(); </FONT><BR><FONT=20
size=3D2> foreach (sort =
keys %new) {=20
</FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
my ($asset, $ip ) =3D split(",",$new{$_}); </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$Window->ListView->InsertItem(-text =3D> [ "$asset", "$ip" ] =
</FONT><BR><FONT size=3D2>); </FONT><BR><FONT=20
size=3D2> }; =
</FONT><BR><FONT size=3D2>}=20
</FONT></P><BR>
<P><FONT size=3D2>sub MAIN1 { </FONT><BR><FONT=20
size=3D2> #clear items=20
</FONT><BR><FONT size=3D2> =20
$Window->ListView->Clear(); </FONT><BR><FONT=20
size=3D2> foreach (sort =
numeric values=20
%new) { </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; &nb=
sp;=20
my ($asset, $ip ) =3D split(",",$_); </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$Window->ListView->InsertItem(-text =3D> [ "$asset", "$ip" ] =
</FONT><BR><FONT size=3D2>); </FONT><BR><FONT=20
size=3D2> }; =
</FONT><BR><FONT size=3D2>}=20
</FONT><BR><FONT size=3D2>sub numeric { $a <=3D> $b }; =
</FONT><BR><FONT=20
size=3D2>sub Radio1_Click { </FONT><BR><FONT=20
size=3D2> =20
if($Window->Radio1->Checked()) { </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$result =3D "192"; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
&MAIN; </FONT><BR><FONT =
size=3D2> =20
} elsif($Window->Radio2->Checked()) { </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$result =3D "212.88"; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
&MAIN; </FONT><BR><FONT =
size=3D2> =20
} elsif($Window->Radio3->Checked()) { </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
$result =3D "212.74"; </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
&MAIN; </FONT><BR><FONT =
size=3D2> =20
} </FONT><BR><FONT size=3D2>} </FONT><BR><FONT size=3D2>sub =
Radio2_Click {=20
Radio1_Click(); } </FONT><BR><FONT size=3D2>sub Radio3_Click { =
Radio1_Click(); }=20
</FONT><BR><FONT size=3D2>sub ListView_ColumnClick { </FONT><BR><FONT =
size=3D2> my $column =3D =
shift;=20
</FONT><BR><FONT size=3D2> =
if ($result=20
ne "" ) { </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
if ( $column =3D=3D 1 ) {&MAIN;} </FONT><BR><FONT=20
=
size=3D2> &nb=
sp; =20
if ( $column =3D=3D 0 ) {&MAIN1;} </FONT><BR><FONT=20
size=3D2> } =
</FONT><BR><FONT=20
size=3D2> </FONT><BR><FONT =
size=3D2>}=20
</FONT><BR><FONT size=3D2>__END__ </FONT><BR><FONT size=3D2>Regards=20
</FONT></P><BR>
<P><FONT size=3D2>Mike Solomon </FONT><BR><FONT size=3D2>Technical =
Manager=20
</FONT><BR><FONT size=3D2>Work 01582 831125=20
</FONT><BR><FONT size=3D2>Mobile 07941 537 172 </FONT><BR><FONT=20
size=3D2>email [EMAIL PROTECTED] =
</FONT><BR><FONT=20
=
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D</FONT>=20
</P>
<P><FONT size=3D2>=3D=3D=3D=3D=3D=3D </FONT><BR><FONT =
size=3D2>Important: Any views or=20
opinions expressed by the sender do not necessarily </FONT><BR><FONT=20
size=3D2>represent those of the 3s Group. This e-mail and any =
attachment(s)=20
</FONT><BR><FONT size=3D2>are intended for the above named only and =
may be=20
confidential. If you are </FONT><BR><FONT size=3D2>not =
</FONT><BR><FONT=20
size=3D2>the named recipient please notify us immediately. You =
must not=20
copy or </FONT><BR><FONT size=3D2>disclose </FONT><BR><FONT =
size=3D2>the contents=20
to any third party. </FONT><BR><FONT size=3D2>Internet e-mail is not =
a fully=20
secure communications medium. Please take </FONT><BR><FONT =
size=3D2>this=20
into account when sending e-mail to us. </FONT><BR><FONT size=3D2>Any =
attachment(s) to this e-mail are believed to be free from virus, but =
it=20
</FONT><BR><FONT size=3D2>is the responsibility of the recipient to =
make all the=20
necessary virus </FONT><BR><FONT size=3D2>checks. </FONT><BR><FONT=20
size=3D2>www.3s-group.com </FONT><BR><FONT=20
=
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=20
</FONT><BR><FONT =
size=3D2>_______________________________________________=20
</FONT><BR><FONT size=3D2>Perl-Win32-GUI-Users mailing list =
</FONT><BR><FONT=20
size=3D2>Perl-Win32-GUI-Users@lists.sourceforge.net </FONT><BR><FONT =
size=3D2><A=20
=
href=3D"http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=
"=20
=
target=3D_blank>http://lists.sourceforge.net/lists/listinfo/perl-win32-g=
ui-users</A>=20
</FONT></P>
<P><FONT =
size=3D2>_______________________________________________</FONT>=20
<BR><FONT size=3D2>Perl-Win32-GUI-Users mailing list</FONT> <BR><FONT =
size=3D2>Perl-Win32-GUI-Users@lists.sourceforge.net</FONT> <BR><FONT =
size=3D2><A=20
=
href=3D"http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=
"=20
=
target=3D_blank>http://lists.sourceforge.net/lists/listinfo/perl-win32-g=
ui-users</A></FONT>=20
</P></BLOCKQUOTE></BODY></HTML>
--Boundary_(ID_eTzu32pcIt5G6LfmhpQecA)--
From [EMAIL PROTECTED] Sun Feb 18 09:48:33 2001
Received: from smtphost4.home.se ([195.66.35.200] helo=smtp1.home.se)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14UXwn-0003gr-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 18 Feb 2001
09:48:33 -0800
Received: from home.se [213.242.183.212] by smtp2.home.se
with Novonyx SMTP Server $Revision: 2.74 $; Sun, 18 Feb 2001
18:47:34 +0100 (ECTD)
Message-ID: <[EMAIL PROTECTED]>
Date: Sun, 18 Feb 2001 18:53:04 +0100
From: Ludvig af Klinteberg <[EMAIL PROTECTED]>
X-Mailer: Mozilla 4.76 [en] (Windows NT 5.0; U)
X-Accept-Language: sv,en
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Nonblocking sockets?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
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...
-Ludde
From [EMAIL PROTECTED] Mon Feb 19 05:34:34 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14UqSY-0001Jq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Feb 2001
05:34:34 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id IAA30696 for
<perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Feb 2001 08:35:26 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] ListView Column Resize
Date: Mon, 19 Feb 2001 08:33:19 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Eric,
I use a listview in one of my applications I have wriutten and do not have
that problem. What does your listview contruct look like? Is there any
other code that might be responsible for this maybe?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Friday, February 16, 2001 1:36 PM
Subject: [perl-win32-gui-users] ListView Column Resize
> Has anyone had the listview disappear if you try and resize
> the column? If I resize it, the first time it disappears,
> the second it reappears but without the scrollbars. Any one
> else?
>
> erick
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Mon Feb 19 09:36:58 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14UuF8-0006d8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Feb 2001
09:36:58 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id MAA06284 for
<perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Feb 2001 12:37:41 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 19 Feb 2001 12:35:24 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0045_01C09A70.6E728EF0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Subject: [perl-win32-gui-users] Menu and checkmarks
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
This is a multi-part message in MIME format.
------=_NextPart_000_0045_01C09A70.6E728EF0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Is there anyway to make the checkmarks be dots in a menu where a user =
has a choice to select something?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
------=_NextPart_000_0045_01C09A70.6E728EF0
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>Is there anyway to make the checkmarks =
be dots in a=20
menu where a user has a choice to select something?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadsville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV></BODY></HTML>
------=_NextPart_000_0045_01C09A70.6E728EF0--
From [EMAIL PROTECTED] Mon Feb 19 14:04:10 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14UyPh-0005Qv-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Feb 2001
14:04:10 -0800
Received: (qmail 23125 invoked from network); 19 Feb 2001 22:05:03 -0000
Received: from unknown (HELO LIVIN) ([212.123.8.250]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 19 Feb 2001
22:05:03 -0000
Date: Mon, 19 Feb 2001 23:01:49 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.48f) Personal
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] got a pretty strange question :) Printing in
PERL & Gui
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear perl-win32-gui-users,
I have got a database running, and it accessable via the web (normal
perl programmation -> web interface)
Now I want to realize a programmation that will permit to use the
database locally, main reason, I want to write it to CD-ROM and
start distributing it to the general public.
There is no problem with realizing this with the great Win32::GUI
module, BUT ..... I also want a solution that I can print certain
pages of my catalog.
How do I need to cover this topic ? is there somewhere a option in
Win32::GUI to start printing pages with a certain layout.. Can I use
perl for this kind of app that i'm willing to realize? For being
clear, I don't want to make screenshots of the Window :)
If you have any questions, whatsoever, please feel free to contact us.
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
From [EMAIL PROTECTED] Mon Feb 19 22:20:44 2001
Received: from [209.166.55.115] (helo=goldfinger.northeastinternet.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14V6AF-0005mX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Feb 2001
22:20:44 -0800
Received: from a ([209.166.55.126]) by goldfinger.northeastinternet.com
(Post.Office MTA v3.5.3 release 223 ID# 0-0U10L2S100V35)
with SMTP id com
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 20 Feb 2001 01:07:08 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Daniel Brideau" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] got a pretty strange question :) Printing
in PERL & Gui
Date: Tue, 20 Feb 2001 01:25:30 -0500
Organization: Hobby Etc
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: "Daniel Brideau" <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I'm interested in printing (to paper) as well. It seems most solutions involve
plain text files and a command line PRINT or COPY LPT1 scenario.
I would love to print a page with a graphic (bar code) without using a web
browser.
Thanks,
Dan Brideau
http://www.hobbyetc.com/g
> There is no problem with realizing this with the great Win32::GUI
> module, BUT ..... I also want a solution that I can print certain
> pages of my catalog.
From [EMAIL PROTECTED] Tue Feb 20 05:14:58 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14VCd8-0007q0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001
05:14:58 -0800
Received: from stop (151.21.180.81) by smtp3.libero.it (5.5.015.5)
id 3A8BF981000F8A7B for perl-win32-gui-users@lists.sourceforge.net;
Tue, 20 Feb 2001 14:15:52 +0100
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] ListView Column Resize
Date: Tue, 20 Feb 2001 14:11:48 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Jonathan,
Basically what I am doing is creating labels (and controls),
five sets of labels, as non-visible. Then I create the main
window and show the first set of labels. When the user
chooses a menu item under the "View" menu, then I show those
labels and hide the previous ones. So, I basically use the
main window as a blackboard to show what there is in the
"View" menu. Should I update the window before I show the
new labels?
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Jonathan Southwick <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, February 19, 2001 2:33 PM
Subject: Re: [perl-win32-gui-users] ListView Column Resize
> Eric,
>
> I use a listview in one of my applications I have wriutten
and do not have
> that problem. What does your listview contruct look like?
Is there any
> other code that might be responsible for this maybe?
>
> Jonathan Southwick
> Technical & Network Services
> Allegheny College, Meadsville, PA
> [EMAIL PROTECTED]
>
> ----- Original Message -----
> From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Friday, February 16, 2001 1:36 PM
> Subject: [perl-win32-gui-users] ListView Column Resize
>
>
> > Has anyone had the listview disappear if you try and
resize
> > the column? If I resize it, the first time it
disappears,
> > the second it reappears but without the scrollbars. Any
one
> > else?
> >
> > erick
> > never stop questioning
> > www.jeb.ca
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> >
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
> >
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
>
From [EMAIL PROTECTED] Tue Feb 20 05:17:18 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14VCfO-0007xm-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001
05:17:18 -0800
Received: from stop (151.21.180.81) by smtp1.libero.it (5.5.015.5)
id 3A8BE0910010D77C for perl-win32-gui-users@lists.sourceforge.net;
Tue, 20 Feb 2001 14:18:11 +0100
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 20 Feb 2001 14:14:06 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] SS_SIMPLE
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo,
The SS_SIMPLE option is only available with the new release
of the Win32::GUI module?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Tue Feb 20 07:15:13 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14VEVU-0004UT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001
07:15:12 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id KAA08117 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001 10:15:59 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] ListView Column Resize
Date: Tue, 20 Feb 2001 10:12:55 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Erick,
I'm sorry but I am really confused now. Your original question was about
resizing columns in a listview and your reply to my response had nothing to
do with that at all. Am I missing something here?
As to your second question. I do the same thing with a TabStrip. A user
clicks on one tab and only certain labels and textfields appear, a second
tab is clicked and those hide and others are shown. I do not "update" the
window in between showing and hiding the various objects and have not had a
problem.
If you could paste your cose maybe there is a deeper problem. Also it would
help me understand what you are saying is happening.
Thanks.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, February 20, 2001 8:11 AM
Subject: Re: [perl-win32-gui-users] ListView Column Resize
> Jonathan,
>
> Basically what I am doing is creating labels (and controls),
> five sets of labels, as non-visible. Then I create the main
> window and show the first set of labels. When the user
> chooses a menu item under the "View" menu, then I show those
> labels and hide the previous ones. So, I basically use the
> main window as a blackboard to show what there is in the
> "View" menu. Should I update the window before I show the
> new labels?
>
> erick
> never stop questioning
> www.jeb.ca
> ----- Original Message -----
> From: Jonathan Southwick <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Monday, February 19, 2001 2:33 PM
> Subject: Re: [perl-win32-gui-users] ListView Column Resize
>
>
> > Eric,
> >
> > I use a listview in one of my applications I have wriutten
> and do not have
> > that problem. What does your listview contruct look like?
> Is there any
> > other code that might be responsible for this maybe?
> >
> > Jonathan Southwick
> > Technical & Network Services
> > Allegheny College, Meadsville, PA
> > [EMAIL PROTECTED]
> >
> > ----- Original Message -----
> > From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
> > To: <perl-win32-gui-users@lists.sourceforge.net>
> > Sent: Friday, February 16, 2001 1:36 PM
> > Subject: [perl-win32-gui-users] ListView Column Resize
> >
> >
> > > Has anyone had the listview disappear if you try and
> resize
> > > the column? If I resize it, the first time it
> disappears,
> > > the second it reappears but without the scrollbars. Any
> one
> > > else?
> > >
> > > erick
> > > never stop questioning
> > > www.jeb.ca
> > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Perl-Win32-GUI-Users@lists.sourceforge.net
> > >
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
> sers
> > >
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> >
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
> sers
> >
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Tue Feb 20 08:15:55 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14VFSF-0007BL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001
08:15:55 -0800
Received: from stop (151.21.181.81) by smtp3.libero.it (5.5.015.5)
id 3A8BF9810010444F for perl-win32-gui-users@lists.sourceforge.net;
Tue, 20 Feb 2001 17:16:42 +0100
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL
PROTECTED]>
Subject: Re: [perl-win32-gui-users] ListView Column Resize
Date: Tue, 20 Feb 2001 17:12:38 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Jonathan,
You asked me: "What does your listview contruct look like?
Is there any other code that might be responsible for this
maybe?". So I described (described being the opertive
word)how I constructed it and I introduced the fact that I
do have other code that code be responsible. I'm sorry if I
was not completly explicit. One of the controls that I
create and show is a ListView. So, this listview needs to be
hiden and shown many times (as the case may be). When I show
the listview and start resiszing the columns it goes all
wacky. Here is the code for the listview:
$MainWin->AddListView(
-name => "ListView",
-pos => [45, 110],
-size => [$MainWin->ScaleWidth-90,
$MainWin->ScaleHeight-170],
-style => WS_CHILD | WS_VISIBLE | 1 |
WS_HSCROLL | WS_VSCROLL,
-fullrowselect => 0,
-gridlines => 0,
-hottrack => 0,
-view => 1,
-visible => 0, #As you can see the initial
state is non-visible
-tabstop => 1,
-checkboxes => 1,
-singlesel => 1,
);
my $width = $MainWin->ListView->ScaleWidth;
$MainWin->ListView->InsertColumn(
-index => 0,
-subitem => 0,
-width => ($width/2)+10,
-text => "Column1",
);
$MainWin->ListView->InsertColumn(
-index => 1,
-subitem => 1,
-width => $width/2,
-text => "Column2",
);
for (sort keys %Hash) {
$MainWin->ListView->InsertItem( -text=>[$_,
$Hash{$_}] );
# I have another problem here, I want to set the
checkbox to "checked"
}
$MainWin->ListView->TextColor([255,150,55]);
$MainWin->ListView->TextBkColor([0, 59, 102]);
Sorry about the confusion :-)
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Jonathan Southwick <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, February 20, 2001 4:12 PM
Subject: Re: [perl-win32-gui-users] ListView Column Resize
> Erick,
>
> I'm sorry but I am really confused now. Your original
question was about
> resizing columns in a listview and your reply to my
response had nothing to
> do with that at all. Am I missing something here?
>
> As to your second question. I do the same thing with a
TabStrip. A user
> clicks on one tab and only certain labels and textfields
appear, a second
> tab is clicked and those hide and others are shown. I do
not "update" the
> window in between showing and hiding the various objects
and have not had a
> problem.
>
> If you could paste your cose maybe there is a deeper
problem. Also it would
> help me understand what you are saying is happening.
>
>
> Thanks.
>
>
> Jonathan Southwick
> Technical & Network Services
> Allegheny College, Meadsville, PA
> [EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Feb 20 12:37:19 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.16 #1 (Debian))
id 14VJXD-0004F0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001
12:37:19 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id PAA07201 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Feb 2001 15:38:10 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL
PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] ListView Column Resize
Date: Tue, 20 Feb 2001 15:35:44 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, February 20, 2001 11:12 AM
Subject: Re: [perl-win32-gui-users] ListView Column Resize
> $MainWin->AddListView(
> -name => "ListView",
> -pos => [45, 110],
> -size => [$MainWin->ScaleWidth-90,
> $MainWin->ScaleHeight-170],
> -style => WS_CHILD | WS_VISIBLE | 1 |
> WS_HSCROLL | WS_VSCROLL,
> -fullrowselect => 0,
> -gridlines => 0,
> -hottrack => 0,
> -view => 1,
> -visible => 0, #As you can see the initial
> state is non-visible
> -tabstop => 1,
> -checkboxes => 1,
> -singlesel => 1,
> );
aaahhhhhhh .... the ListView construct ;]
in looking over your code here I could not come up with an idea as to what
might be wrong. would you have a problem in sending me the entire program
so i could run it and try to make a determination from that and looking at
the full source code at the same time?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
> Jonathan,
>
> You asked me: "What does your listview contruct look like?
> Is there any other code that might be responsible for this
> maybe?". So I described (described being the opertive
> word)how I constructed it and I introduced the fact that I
> do have other code that code be responsible. I'm sorry if I
> was not completly explicit. One of the controls that I
> create and show is a ListView. So, this listview needs to be
> hiden and shown many times (as the case may be). When I show
> the listview and start resiszing the columns it goes all
> wacky. Here is the code for the listview:
>
> $MainWin->AddListView(
> -name => "ListView",
> -pos => [45, 110],
> -size => [$MainWin->ScaleWidth-90,
> $MainWin->ScaleHeight-170],
> -style => WS_CHILD | WS_VISIBLE | 1 |
> WS_HSCROLL | WS_VSCROLL,
> -fullrowselect => 0,
> -gridlines => 0,
> -hottrack => 0,
> -view => 1,
> -visible => 0, #As you can see the initial
> state is non-visible
> -tabstop => 1,
> -checkboxes => 1,
> -singlesel => 1,
> );
> my $width = $MainWin->ListView->ScaleWidth;
> $MainWin->ListView->InsertColumn(
> -index => 0,
> -subitem => 0,
> -width => ($width/2)+10,
> -text => "Column1",
> );
> $MainWin->ListView->InsertColumn(
> -index => 1,
> -subitem => 1,
> -width => $width/2,
> -text => "Column2",
> );
> for (sort keys %Hash) {
> $MainWin->ListView->InsertItem( -text=>[$_,
> $Hash{$_}] );
> # I have another problem here, I want to set the
> checkbox to "checked"
> }
> $MainWin->ListView->TextColor([255,150,55]);
> $MainWin->ListView->TextBkColor([0, 59, 102]);
>
> Sorry about the confusion :-)
>
> erick
> never stop questioning
> www.jeb.ca
>
> ----- Original Message -----
> From: Jonathan Southwick <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Tuesday, February 20, 2001 4:12 PM
> Subject: Re: [perl-win32-gui-users] ListView Column Resize
>
>
> > Erick,
> >
> > I'm sorry but I am really confused now. Your original
> question was about
> > resizing columns in a listview and your reply to my
> response had nothing to
> > do with that at all. Am I missing something here?
> >
> > As to your second question. I do the same thing with a
> TabStrip. A user
> > clicks on one tab and only certain labels and textfields
> appear, a second
> > tab is clicked and those hide and others are shown. I do
> not "update" the
> > window in between showing and hiding the various objects
> and have not had a
> > problem.
> >
> > If you could paste your cose maybe there is a deeper
> problem. Also it would
> > help me understand what you are saying is happening.
> >
> >
> > Thanks.
> >
> >
> > Jonathan Southwick
> > Technical & Network Services
> > Allegheny College, Meadsville, PA
> > [EMAIL PROTECTED]
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Wed Feb 21 13:51:44 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.16 #1 (Debian))
id 14VhAk-0001cR-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Feb 2001
13:51:44 -0800
Received: (qmail 16155 invoked from network); 21 Feb 2001 21:52:35 -0000
Received: from unknown (HELO livin) ([212.123.9.180]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <[EMAIL PROTECTED]>; 21 Feb 2001 21:52:35 -0000
Date: Wed, 21 Feb 2001 22:49:18 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.49) UNREG / CD5BF9353B3B7091
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Reini Urban <[EMAIL PROTECTED]>
CC: perl-win32-gui-users@lists.sourceforge.net
Subject: Re[2]: [perl-win32-gui-users] got a pretty strange question :)
Printing in PERL & Gui
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear Reini,
hmm not the best solution :)
i'm thinking of using some component and writing data to it .. (such
as parsing html manually :) ) .. and then printing
i did a expirement with VB (yuk i know) and a OCX created by somebody
.. it works really great .. is it maybe possible to use a OCX on a
way or a other ?
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
-------------------------------------------------------------------
Wednesday, February 21, 2001, 5:43:05 PM, you wrote:
RU> printing is generally easier on Windows than elsewhere
RU> but nevertheless it's a pain.
RU> I would recommend to transparently dump the content to PDF,
RU> provide the acrobat reader installer in the CD and the rest does the
browser.
RU> For the simplier solution forget PDF, just use HTML, and also print from
RU> the browser.
RU> These ways you don't need Win32::GUI at all, and it's much less code.
RU> Local html solutions querying a database from the CD needs some kind
RU> of installation efforts, but it's much easier than let the user install
RU> Win32::GUI.
RU> Danny Zak schrieb:
>> I have got a database running, and it accessable via the web (normal
>> perl programmation -> web interface)
>>
>> Now I want to realize a programmation that will permit to use the
>> database locally, main reason, I want to write it to CD-ROM and
>> start distributing it to the general public.
>>
>> There is no problem with realizing this with the great Win32::GUI
>> module, BUT ..... I also want a solution that I can print certain
>> pages of my catalog.
>>
>> How do I need to cover this topic ? is there somewhere a option in
>> Win32::GUI to start printing pages with a certain layout.. Can I use
>> perl for this kind of app that i'm willing to realize? For being
>> clear, I don't want to make screenshots of the Window :)
From [EMAIL PROTECTED] Thu Feb 22 12:04:31 2001
Received: from [195.119.187.242] (helo=cuk.atlas.cz)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14W1yX-0006PL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Feb 2001
12:04:29 -0800
Received: from ladislab (unverified [194.228.134.76]) by cuk.atlas.cz
(Vircom SMTPRS 4.5.186) with ESMTP id <[EMAIL PROTECTED]> for
<perl-win32-gui-users@lists.sourceforge.net>;
Thu, 22 Feb 2001 21:05:51 +0100
From: "A" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Thu, 22 Feb 2001 21:13:32 +0100
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: normal
X-mailer: Pegasus Mail for Win32 (v3.12c)
Subject: [perl-win32-gui-users] How to refresh a window
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: [EMAIL PROTECTED]
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi,
I have an application that uses Win32::GUI.
This program creates a window and writes, as it is running , some
information to this window. This application runs for a quite long
time(about 20 minutes or longer).So far so good. A problem begins
when a user switches from this program to another program and
after some time
returns back to my program.The window created by my program is
not
refreshed immediately to the state before switching but I must wait
until my program writes to that window. And because the window is
not
refreshed quickly it seems that the program does not run any
longer.
What is the best way how to refresh the window and show users
that
the program is still running? Thank you for any good idea.
Ladislav
From [EMAIL PROTECTED] Thu Feb 22 17:43:47 2001
Received: from smtp2.trusted.co.nz ([146.171.16.21] helo=smtp02.trusted.co.nz)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14W7Gs-0008AR-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Feb 2001
17:43:46 -0800
Received: from 10.222.200.52 by smtp02.trusted.co.nz with ESMTP (SMTP
Relay (MMS v4.7)); Fri, 23 Feb 2001 14:44:46 +1300
X-Server-Uuid: 80b15476-7d0b-11d3-9ede-009027af8f7a
Received: from mars.tegel.co.nz ([127.0.0.1]) by mars.tegel.co.nz with
MailMarshal (3,3,0,0) id <B00046a1a>; Fri, 23 Feb 2001 14:44:47 +1300
Received: by mars.tegel.co.nz with Internet Mail Service (5.5.2650.21)
id <FLQG694N>; Fri, 23 Feb 2001 14:44:47 +1300
Message-ID: <[EMAIL PROTECTED]>
From: "Simon Taylor - Tegel" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 23 Feb 2001 14:44:46 +1300
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
X-WSS-ID: 168B1F042486-01-01
Content-Type: text/plain;
charset=iso-8859-1
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Dr Watson
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
Build 623. However when I try to run a Perl script that uses Win32::GUI, I
get a Dr Watson: application exception number c00000005 (access violation).
I also tried installing 0.0.558 from the source distribution using the nmake
utility but I'm probably missing something important like the Visual C++
compiler/linker (cl.exe?).
I didn't get the Dr Watson problem when running 0.0.502 but I was getting
lots of strange GUI behaviour, so I thought I'd try the latest version. So
far, no joy.
My burning question: Is Win32::GUI okay on Windows 2000?
Thanks
Simon Taylor
Technology Analyst
Tegel Foods Ltd, Auckland, New Zealand
mailto:[EMAIL PROTECTED]
CAUTION:
This message and any attachments contain privileged and confidential
information. If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error please
notify the sender immediately via email and then destroy this message and any
attachments.
Any views expressed in this message are those of the individual sender and may
not necessarily reflect the views of Tegel Foods Ltd.
From [EMAIL PROTECTED] Fri Feb 23 01:03:05 2001
Received: from news-gw1.orange.co.uk ([193.35.129.99] helo=ren.orange.co.uk)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14WE80-00044A-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Feb 2001
01:03:05 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id JAA23261; Fri, 23 Feb 2001 09:04:02 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 23 Feb 2001 09:10:51 +0000
Subject: Re: [perl-win32-gui-users] Dr Watson
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi Simon
I'm running Win2K Pro and have no problems running Win32::GUI apps from the
0.0.558 PPM.
I created the code in the PPM on NT 4 SP 6a but it doesn't seem to be causing me
a problem. If you want to send me your code (or a snipit if you know where it
seems to be crashing) I could check it out for you. What build of Perl do you
have BTW ?
Is anyone else having problems with this distribution on W2K ?
Cheers
Paul
"Simon Taylor - Tegel" <[EMAIL PROTECTED]> on 23/02/2001 01:44:46
Please respond to perl-win32-gui-users@lists.sourceforge.net
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
cc: (bcc: Paul BARKER/IT/HTLUK)
Subject: [perl-win32-gui-users] Dr Watson
I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
Build 623. However when I try to run a Perl script that uses Win32::GUI, I
get a Dr Watson: application exception number c00000005 (access violation).
I also tried installing 0.0.558 from the source distribution using the nmake
utility but I'm probably missing something important like the Visual C++
compiler/linker (cl.exe?).
I didn't get the Dr Watson problem when running 0.0.502 but I was getting
lots of strange GUI behaviour, so I thought I'd try the latest version. So
far, no joy.
My burning question: Is Win32::GUI okay on Windows 2000?
Thanks
Simon Taylor
Technology Analyst
Tegel Foods Ltd, Auckland, New Zealand
mailto:[EMAIL PROTECTED]
CAUTION:
This message and any attachments contain privileged and confidential
information. If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error please
notify the sender immediately via email and then destroy this message and any
attachments.
Any views expressed in this message are those of the individual sender and may
not necessarily reflect the views of Tegel Foods Ltd.
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
*******************************************************************************
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.
*******************************************************************************
From [EMAIL PROTECTED] Fri Feb 23 06:03:06 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14WIoL-00049B-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Feb 2001
06:03:05 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id JAA15726 for
<perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Feb 2001 09:04:09 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Dr Watson
Date: Fri, 23 Feb 2001 09:01:46 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I use Win32::GUI on my machine running Windows 2000. If you installed a
newer version of Perl over what you already had and didn't reinstall the GUI
module I can guarantee you will run into problems. Maybe this is what
happened?
Try reinstalling the Win::GUI module and see what happens.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Simon Taylor - Tegel" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, February 22, 2001 8:44 PM
Subject: [perl-win32-gui-users] Dr Watson
> I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
> SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
> Build 623. However when I try to run a Perl script that uses Win32::GUI,
I
> get a Dr Watson: application exception number c00000005 (access
violation).
>
> I also tried installing 0.0.558 from the source distribution using the
nmake
> utility but I'm probably missing something important like the Visual C++
> compiler/linker (cl.exe?).
>
> I didn't get the Dr Watson problem when running 0.0.502 but I was getting
> lots of strange GUI behaviour, so I thought I'd try the latest version.
So
> far, no joy.
>
> My burning question: Is Win32::GUI okay on Windows 2000?
>
> Thanks
> Simon Taylor
> Technology Analyst
> Tegel Foods Ltd, Auckland, New Zealand
> mailto:[EMAIL PROTECTED]
>
>
> CAUTION:
> This message and any attachments contain privileged and confidential
information. If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error
please notify the sender immediately via email and then destroy this message
and any attachments.
> Any views expressed in this message are those of the individual sender and
may not necessarily reflect the views of Tegel Foods Ltd.
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Fri Feb 23 20:37:19 2001
Received: from mailserver.anlon.com ([208.156.161.190] helo=mail.anlon.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14WWSM-0000Ng-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Feb 2001
20:37:18 -0800
Received: from kangas ([208.156.161.134]) by mail.anlon.com
(Netscape Messaging Server 3.56) with SMTP id 171
for <perl-win32-gui-users@lists.sourceforge.net>;
Fri, 23 Feb 2001 22:48:05 +0000
From: "Mike Kangas" <[EMAIL PROTECTED]>
To: "Win32-GUI" <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 23 Feb 2001 22:38:51 -0600
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2911.0)
Importance: Normal
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Subject: [perl-win32-gui-users] CardLayout
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Haven't played with Win32-GUI in a long time. Downloaded the latest greatest
version if Win32-GUI but no CardLayout.pm.
Any one know where I can find one?
Thanks
Mike Kangas
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Sun Feb 25 16:41:23 2001
Received: from smtp3.trusted.co.nz ([146.171.16.22] helo=smtp01.trusted.co.nz)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14XBj8-0005VD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 25 Feb 2001
16:41:22 -0800
Received: from 10.222.200.52 by smtp01.trusted.co.nz with ESMTP (SMTP
Relay (MMS v4.7)); Mon, 26 Feb 2001 13:42:32 +1300
X-Server-Uuid: 80b15476-7d0b-11d3-9ede-009027af8f7a
Received: from mars.tegel.co.nz ([127.0.0.1]) by mars.tegel.co.nz with
MailMarshal (3,3,0,0) id <B000471a0>; Mon, 26 Feb 2001 13:42:33 +1300
Received: by mars.tegel.co.nz with Internet Mail Service (5.5.2650.21)
id <FLQG7ARY>; Mon, 26 Feb 2001 13:42:33 +1300
Message-ID: <[EMAIL PROTECTED]>
From: "Simon Taylor - Tegel" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Dr Watson
Date: Mon, 26 Feb 2001 13:42:31 +1300
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
X-WSS-ID: 168779F2214602-01-01
Content-Type: text/plain;
charset=iso-8859-1
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi Paul
> If you want to send me your code .....
Actually, I can get it to crash just by running any of the sample Win32::GUI
scripts (eg. combobox.pl). If I run any script that doesn't use Win32::GUI,
it's fine. Doesn't sound promising does it? I've now gone back to the
0.0.502 PPM so that at least I'm not getting the Dr Watsons (but still not
having a lot of fun).
> What build of Perl do you have BTW ?
Build 623.
Thanks - Simon.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Friday, February 23, 2001 10:11 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Dr Watson
Hi Simon
I'm running Win2K Pro and have no problems running Win32::GUI apps from the
0.0.558 PPM.
I created the code in the PPM on NT 4 SP 6a but it doesn't seem to be
causing me
a problem. If you want to send me your code (or a snipit if you know where
it
seems to be crashing) I could check it out for you. What build of Perl do
you
have BTW ?
Is anyone else having problems with this distribution on W2K ?
Cheers
Paul
"Simon Taylor - Tegel" <[EMAIL PROTECTED]> on 23/02/2001 01:44:46
Please respond to perl-win32-gui-users@lists.sourceforge.net
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
cc: (bcc: Paul BARKER/IT/HTLUK)
Subject: [perl-win32-gui-users] Dr Watson
I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
Build 623. However when I try to run a Perl script that uses Win32::GUI, I
get a Dr Watson: application exception number c00000005 (access violation).
I also tried installing 0.0.558 from the source distribution using the nmake
utility but I'm probably missing something important like the Visual C++
compiler/linker (cl.exe?).
I didn't get the Dr Watson problem when running 0.0.502 but I was getting
lots of strange GUI behaviour, so I thought I'd try the latest version. So
far, no joy.
My burning question: Is Win32::GUI okay on Windows 2000?
Thanks
Simon Taylor
Technology Analyst
Tegel Foods Ltd, Auckland, New Zealand
mailto:[EMAIL PROTECTED]
CAUTION:
This message and any attachments contain privileged and confidential
information. If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error
please
notify the sender immediately via email and then destroy this message and
any
attachments.
Any views expressed in this message are those of the individual sender and
may
not necessarily reflect the views of Tegel Foods Ltd.
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
****************************************************************************
***
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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
CAUTION:
This message and any attachments contain privileged and confidential
information. If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error please
notify the sender immediately via email and then destroy this message and any
attachments.
Any views expressed in this message are those of the individual sender and may
not necessarily reflect the views of Tegel Foods Ltd.
From [EMAIL PROTECTED] Wed Feb 28 09:43:47 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YAdf-0007V6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
09:43:47 -0800
Received: from netzero.net (putc221612001159.cts.com [216.120.1.159])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id JAA16933
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
09:45:06 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 28 Feb 2001 09:45:06 -0800
From: Glenn Linderman <[EMAIL PROTECTED]>
Organization: Glenn and Elaine Linderman, at home
X-Mailer: Mozilla 4.76 [en] (WinNT; U)
X-Accept-Language: en
MIME-Version: 1.0
To: "Win32::GUI" <perl-win32-gui-users@lists.sourceforge.net>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Timers?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I guess this list is new, and the archive not accessible yet, so my
apologies if my question has been asked before.
I've just "discovered" Win32::GUI, and think it is just great to be able
to write Windows GUI programs using perl. So I had a couple
applications in mind, and started writing! It seems that Win32::GUI is
quite strong enough to handle the first one completely, although I've
not yet finished the complete program, I've finished most of the user
interface.
The other one needs to do some background monitoring, in addition to
supporting a user interface. To do that, it seems like a timer would be
the documented metaphor for doing such monitoring using the Win32::GUI
package. I attempted to initiate a timer, and got an error about "Your
vendor hasn't supplied a timer...", so either I must have done something
wrong (quite possible) or Timer maybe isn't supported yet in Win32::GUI?
Does someone know for sure if Timer is supported? Does someone have
some code that illustrates a working Timer? Maybe I just went about it
all wrong.
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Wed Feb 28 09:44:00 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YAds-0007Wd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
09:44:00 -0800
Received: from netzero.net (putc221612001159.cts.com [216.120.1.159])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id JAA17098
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
09:45:21 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 28 Feb 2001 09:45:22 -0800
From: Glenn Linderman <[EMAIL PROTECTED]>
Organization: Glenn and Elaine Linderman, at home
X-Mailer: Mozilla 4.76 [en] (WinNT; U)
X-Accept-Language: en
MIME-Version: 1.0
To: "Win32::GUI" <perl-win32-gui-users@lists.sourceforge.net>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Fork?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi,
I'm interested to know if there are any "best practices" for
communicating between two perl-forked threads when one of the threads is
running Win32::GUI::Dialog. Is there a way for the non-gui threads to
send a Windows event to the gui thread? And how would the gui thread
receive it? Or is there some other way that should be used by the gui
thread to poll the status of the other thread? Is non-blocking I/O the
right way to do that, on a pipe?
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Wed Feb 28 13:16:56 2001
Received: from harrier.prod.itd.earthlink.net ([207.217.121.12])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YDxu-0000Ie-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
13:16:54 -0800
Received: from tom (PPP-155-5.va.sprint-hsd.net [208.33.155.5])
by harrier.prod.itd.earthlink.net (EL-8_9_3_3/8.9.3) with SMTP id
NAA04340
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
13:18:13 -0800 (PST)
From: "Tom Allebrandi" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Fork?
Date: Wed, 28 Feb 2001 16:18:02 -0500
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
In-reply-To: <[EMAIL PROTECTED]>
Importance: Normal
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
With regards to fork() and Win32::GUI....
I have been playing with this as well, and while I have not arrived at a
"best practices" I have arrived at a baseline that works. Basically, I fork
the gui thread and then send window messages to it, or, call the appropriate
function on the window object I want to manipulate in a "classless" way.
For example, if you had created a progress bar control, you would normally
call it using
$progressControl->somefunction();
that is
$progressControl->SetPos($amount);
As it turns out, and I don't know if Aldo intended for it to work this way,
if you have a handle to the control, you can also call the routine in the
"classless" way by doing
GUI::ProgressBar::SetPos($progressControlHandle,$amount));
The latter is the way I talk to the controls from the thread that is not
running Win32::GUI::Dialog.
Right now, I am locating the window handle for the dialog itself using
GUI:FindWindow() in the non-gui thread. I'm not happy with this approach,
and am looking at other solutions as well.
Amine Moulay Ramdane's Win32::MemMap package
(http://www.generation.net/~aminer/Perl/) looks like the right solution for
this, at least for me, but I had a problem with it when I tried to use it
and ran out of time to mess with it. I know he recently posted an updated
version, I need to pull that down and see if it still has the same problem.
My initial need was to not have to use GUI::FindWindow() to locate the
dialog and controls. My thought was to serialize a hash in the gui thread
and pass it back to the non gui thread via shared memory - which
Win32::MemMap provides, and unserialize on the non gui side.
You can probably do something similar with pipes, but for some reason, I
thought that the shared memory approach looked better.
I suspect that I've rambled on enough for one day. I've included in this
message a script for a progress bar that runs in a thread by itself taking
positioning commands from another thread.
Oh, by the way, in response to another message on the list today, I think
Win32::MemMap has a timer implementation in it.
Wandering back to the real world.....
--- Tom
Tom Allebrandi
[EMAIL PROTECTED]
#! perl -w
############################################################################
####
############################################################################
####
##
## Subpackage ProgressBar
##
##
package Ta2::UiHelpers::ProgressBar;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
Create
Destroy
Set
);
use Win32::GUI;
use constant CW_USEDEFAULT => 0x80000000;
#
# Reserves ProgressBar in the main namespace for us (uhmmm...)
#
*ProgressBar:: = \%Ta2::UiHelpers::ProgressBar::;
############################################################################
####
#
# Manifest constants
#
use constant TITLE_BAR_HEIGHT => 19;
use constant WINDOW_BORDER => 3;
use constant MARGIN => (7 - WINDOW_BORDER);
############################################################################
####
#
# Create()
#
sub Create
{
#
# Parameters
#
my ($title,$width,$height,$minValue,$maxValue) = @_;
#
# "Local" variables
#
my $handle = 0;
my $i;
my $pid;
#
# Fire off a thread to manage the window
#
$pid = fork();
if (!defined($pid))
{
#
# Failed to fork
#
warn("Failed to fork management thread for ProgressBar\n");
}
elsif ($pid == 0)
{
#
# We are continuing in the child. Do the progress bar
#
doProgressBar($title,$width,$height,$minValue,$maxValue);
exit(0);
}
else
{
#
# We are continuing in the parent. Wait for the window to appear but
# wait no more than 30 seconds
#
$i = 0;
while (($handle == 0)
&& ($i < 30))
{
#
# Look for the window
#
if (($handle = GUI::FindWindow("",$title)) == 0)
{
#
# Not found. Pause and try again
#
sleep(1);
$i++;
}
}
if ($handle == 0)
{
warn("Never saw the ProgressBar appear\n");
}
}
return($handle);
}
############################################################################
####
#
# Destroy()
#
sub Destroy
{
#
# Parameters
#
my ($handle) = @_;
#
# Tell the window procedure to quit
#
# 0x8001 = WM_EXITLOOP = WM_APP+1
return(GUI::PostMessage($handle,0x8001,-1,0));
}
############################################################################
####
#
# Set()
#
sub Set
{
#
# Parameters
#
my ($handle,$amount) = @_;
#
# The progress bar is the first control on the dialog
#
$handle = GUI::GetDlgItem($handle,0);
#
# Set the new progress amount
#
# 1026 == PBM_SETPOS
return(GUI::ProgressBar::SetPos($handle,$amount));
}
############################################################################
####
#
# doProgressBar()
#
sub doProgressBar
{
#
# Parameters
#
my ($title,$width,$height,$minValue,$maxValue) = @_;
#
# "Local" variables
#
my $progressControl;
my $window;
#
# Create a dialog box to hold the progress bar
#
$window = new Win32::GUI::DialogBox(
-text => $title,
-left => CW_USEDEFAULT,
-top => CW_USEDEFAULT,
-width => $width,
-height => $height,
-name => 'Ta2::UiHelpers::ProgressBarDialog',
-remstyle => WS_SYSMENU,
-remexstyle => WS_EX_CONTEXTHELP);
if (!defined($window))
{
warn("Failed to create ProgressBar dialog\n");
goto ABORT;
}
#
# Compute a good size for the progress bar control
#
$width -= (2 * MARGIN) + (2 * WINDOW_BORDER);
$height -= TITLE_BAR_HEIGHT + (2 * MARGIN) + (2 * WINDOW_BORDER);
#
# Put the progress bar on the window
#
$progressControl = $window->AddProgressBar(
-left => MARGIN,
-top => MARGIN,
-width => $width,
-height => $height,
-smooth => 1);
if (!defined($progressControl))
{
warn("Failed to create ProgressBar control\n");
goto ABORT;
}
#
# Set the limits and the initial position
#
$progressControl->SetRange($minValue,$maxValue);
$progressControl->SetPos($minValue);
#
# Put the display on the screen
#
$window->Show();
#
# Activate the dialog
#
Win32::GUI::Dialog();
#
# Take the display off of the screen
#
$window->Hide();
ABORT:
if (defined($window))
{
$window->DestroyWindow();
}
}
############################################################################
####
#
# Support routines
#
sub ProgressBarDialog_Terminate
{
return(-1);
}
############################################################################
####
############################################################################
####
##
## Main program
##
##
#
# "Local" variables
#
my $i;
my $pb;
#
# Create a progress bar
#
$pb = Create("A Progress Bar",200,100,0,30);
#
# Update it once a second for 30 seconds
#
for ($i=0;$i<30;$i++)
{
Set($pb,$i);
sleep(1);
}
#
# Take away the progress bar
#
Destroy($pb);
exit(0);
__END__
From [EMAIL PROTECTED] Wed Feb 28 14:23:14 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YF06-0005jZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
14:23:14 -0800
Received: from netzero.net (putc721612000014.cts.com [216.120.0.14])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id OAA02975
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
14:24:34 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 28 Feb 2001 14:24:35 -0800
From: Glenn Linderman <[EMAIL PROTECTED]>
Organization: Glenn and Elaine Linderman, at home
X-Mailer: Mozilla 4.76 [en] (WinNT; U)
X-Accept-Language: en
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Fork?
References: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Tom Allebrandi wrote:
> With regards to fork() and Win32::GUI....
>
> I have been playing with this as well, and while I have not arrived at a
> "best practices" I have arrived at a baseline that works. Basically, I fork
> the gui thread and then send window messages to it, or, call the appropriate
> function on the window object I want to manipulate in a "classless" way.
Now this is a clever idea. I think that for the particular application I am
working on, that
this technique, or a variation, might suffice. Even without Timer to do
polling.
> For example, if you had created a progress bar control, you would normally
> call it using
>
> $progressControl->somefunction();
>
> that is
>
> $progressControl->SetPos($amount);
>
> As it turns out, and I don't know if Aldo intended for it to work this way,
> if you have a handle to the control, you can also call the routine in the
> "classless" way by doing
>
> GUI::ProgressBar::SetPos($progressControlHandle,$amount));
Well, I suspect it was intended to work that way, because it is documented (see
the tutorial for how to eliminate the console window) that the methods can be
called on any window, using the classless technique. Now a window created by
one thread's Win32::GUI is, to another thread, simply one of "any" windows. But
I hadn't put that information together that way, so I appreciate your helping to
overcome my mental block.
> The latter is the way I talk to the controls from the thread that is not
> running Win32::GUI::Dialog.
>
> Right now, I am locating the window handle for the dialog itself using
> GUI:FindWindow() in the non-gui thread. I'm not happy with this approach,
> and am looking at other solutions as well.
Sure. I wonder what would happen if a widget (progressbar or whatever) were
created before the fork, if the class handles would be active for both after the
fork? Of course, only the thread that called Win32::GUI::Dialog would see the
messages and act on them... but that's precisely the desired behavior. Not sure
what all sorts of timing/data race conditions doing that sort of thing would
produce, but I may experiment with it some.
> Amine Moulay Ramdane's Win32::MemMap package
> (http://www.generation.net/~aminer/Perl/) looks like the right solution for
> this, at least for me, but I had a problem with it when I tried to use it
> and ran out of time to mess with it. I know he recently posted an updated
> version, I need to pull that down and see if it still has the same problem.
>
> My initial need was to not have to use GUI::FindWindow() to locate the
> dialog and controls. My thought was to serialize a hash in the gui thread
> and pass it back to the non gui thread via shared memory - which
> Win32::MemMap provides, and unserialize on the non gui side.
>
> You can probably do something similar with pipes, but for some reason, I
> thought that the shared memory approach looked better.
Shared memory vs. pipes vs. files even -- I'm indifferent to the bulk-data
communication channel. But the thing that had me stumped was how to get the GUI
process to "wake up and smell the roses" based on some outside event that
doesn't manifest itself as a window message to one of the window processes...
and you've relieved me of that mental block. So, a general communication
mechanism can likely be created, at worst by creating a special widget in the
GUI to which events can be posted from a thread which has the responsibility of
monitoring the non-GUI world.
Shucks, speaking of shared memory, one could even have a hidden text widget (or
two) into which the data of interest gets sent. Shared memory may be fastest,
of course.
> I suspect that I've rambled on enough for one day. I've included in this
> message a script for a progress bar that runs in a thread by itself taking
> positioning commands from another thread.
>
> Oh, by the way, in response to another message on the list today, I think
> Win32::MemMap has a timer implementation in it.
But is that timer integrated into Win32::GUI? Is it clear how well it would
interact with Win32::GUI? I'll be taking a look at MemMap.
Thanks for your response.
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Wed Feb 28 14:31:45 2001
Received: from [209.143.80.206] (helo=grimdomicile.eb.to)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YF8L-0006WW-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
14:31:45 -0800
Received: from ericb by grimdomicile.eb.to with local-esmtp (Exim 3.12 #1
(Debian))
id 14YF9f-0002Tw-00; Wed, 28 Feb 2001 17:33:07 -0500
Date: Wed, 28 Feb 2001 17:33:06 -0500 (EST)
From: Eric Bennett <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Fork?
In-Reply-To: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
On Wed, 28 Feb 2001, Tom Allebrandi wrote:
> As it turns out, and I don't know if Aldo intended for it to work this way,
> if you have a handle to the control, you can also call the routine in the
> "classless" way by doing
>
> GUI::ProgressBar::SetPos($progressControlHandle,$amount));
>
> The latter is the way I talk to the controls from the thread that is not
> running Win32::GUI::Dialog.
What advantage does this give you? The -> form searches the @ISA class
hierarchy but once it finds the function the two forms are equivilent.
Is there something about use of threads which forbids object syntax? The
object form is safer and seems cleaner to me.
- Eric B.
--
"Pasteurized From Concentrate"
From [EMAIL PROTECTED] Wed Feb 28 15:02:56 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YFcW-0000iS-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
15:02:56 -0800
Received: from netzero.net (putc721612000014.cts.com [216.120.0.14])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id PAA21670
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
15:04:17 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 28 Feb 2001 15:04:18 -0800
From: Glenn Linderman <[EMAIL PROTECTED]>
Organization: Glenn and Elaine Linderman, at home
X-Mailer: Mozilla 4.76 [en] (WinNT; U)
X-Accept-Language: en
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Fork?
References: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Eric Bennett wrote:
> On Wed, 28 Feb 2001, Tom Allebrandi wrote:
>
> > As it turns out, and I don't know if Aldo intended for it to work this way,
> > if you have a handle to the control, you can also call the routine in the
> > "classless" way by doing
> >
> > GUI::ProgressBar::SetPos($progressControlHandle,$amount));
> >
> > The latter is the way I talk to the controls from the thread that is not
> > running Win32::GUI::Dialog.
>
> What advantage does this give you? The -> form searches the @ISA class
> hierarchy but once it finds the function the two forms are equivilent.
> Is there something about use of threads which forbids object syntax? The
> object form is safer and seems cleaner to me.
The object syntax requires an object handle. It isn't clear to me how to obtain
an object handle for a window created in one thread/process that can be used in
a
different thread/process. Perhaps, but I haven't experimented yet, if the two
processes are the result of a fork after the object handle is obtained, that it
would work to a certain degree, but perhaps not.
The non-object syntax can be used by any thread/process on any window to which
it
can obtain a Windows window handle. Including windows created by Win32::GUI.
Hnece the non-object syntax is more powerful.
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Wed Feb 28 15:17:04 2001
Received: from hawk.prod.itd.earthlink.net ([207.217.120.22])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YFqB-0001sA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
15:17:03 -0800
Received: from tom (PPP-155-5.va.sprint-hsd.net [208.33.155.5])
by hawk.prod.itd.earthlink.net (EL-8_9_3_3/8.9.3) with SMTP id PAA24318
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
15:18:21 -0800 (PST)
From: "Tom Allebrandi" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Fork?
Date: Wed, 28 Feb 2001 18:18:18 -0500
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
In-reply-To: <[EMAIL PROTECTED]>
Importance: Normal
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
>What advantage does this give you? The -> form searches the @ISA class
>hierarchy but once it finds the function the two forms are equivilent.
>
>Is there something about use of threads which forbids object syntax? The
>object form is safer and seems cleaner to me.
Glenn got his reply in while I was typing mine. I think we are saying the
same thing however...
The problem here I think is that what we are commonly referring to as a
"thread", isn't. It must be viewed as if it is a separate process.
If you create an object in one "thread" (process), it does not exist in the
other "thread" (process). I can't see any way to use the object syntax on an
object that was not created in my "thread" (process). Maybe I missed
something along the way.
So, I resorted to the "classless" call mechanism.
--- Tom
Tom Allebrandi
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Feb 28 17:27:22 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YHsI-0007Vc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
17:27:22 -0800
Received: from netzero.net (putc221612001202.cts.com [216.120.1.202])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id RAA28909
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Feb 2001
17:28:43 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 28 Feb 2001 17:28:43 -0800
From: Glenn Linderman <[EMAIL PROTECTED]>
Organization: Glenn and Elaine Linderman, at home
X-Mailer: Mozilla 4.76 [en] (WinNT; U)
X-Accept-Language: en
MIME-Version: 1.0
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Fork?
References: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Tom Allebrandi wrote:
> The problem here I think is that what we are commonly referring to as a
> "thread", isn't. It must be viewed as if it is a separate process.
Well, from Windows point of view, it is a thread. From Perl's point of view, it
is a process. The Perl interpreter is busily keeping the data separate between
the two threads (I'm not sure I understand the complete technique of the magic
that does that, but I'm sure it can be made to work because the Perl language
doesn't expose "real" addresses (much)).
On the other hand, the (Unix) model for "fork" is that the multiple processes
(threads on Perl for Windows) start off with identical data/variables/file
handles. And the Windows model for "windows" is that the windows are owned by a
process (not a thread), and can be accessed by any thread that has the window
handle. (And in fact, because Windows was developed on DOS, the windows are
even a bit visible to other processes, but that doesn't concern us here.) So,
I earlier alluded to some experimentation I was going to try... read on.
> If you create an object in one "thread" (process), it does not exist in the
> other "thread" (process). I can't see any way to use the object syntax on an
> object that was not created in my "thread" (process). Maybe I missed
> something along the way.
By creating the Win32::GUI objects before forking, both the parent and child
threads get copies (?) of the object variables. Because of the nature of
Windows, the embedded Window handles inside both copies of the object variables
are equally usable. Because of the (present) nature of Win32::GUI, whereby most
of the parameter data is pumped into Win32 API parameters, and most of the
return values are obtained by calling Win32 APIs to obtain it, I have shown
experimentally that it is possible to use the Win32::GUI object references from
both a parent and a child thread.
Now it is important to remember that Windows only delivers window messages to
the first thread of a program, so in the Perl "fork" environment, this gets
translated to only the parent process of a group of Perl-forked processes can
successfully run Win32::GUI::Dialog (Yep, I tried it the other way first,
figuring that the parent could more easily monitor the child process for death,
since fork returns the child pid, and waitpid works that way--but it just hung,
and the windows never appeared).
However, the child can use the object references created by Win32::GUI to access
the "IsEnabled", "IsVisible" attributes of the window widgets, and they are
dynamically updated (not cached in the object). The child can access the
current selection from combo boxes. The child can enable and disable widgets,
and the display gets updated appropriately.
This is quite adequate for my application, which now can do its "long"
operations in the child "process", and keep the GUI window "active" (except that
certain parts get disabled during "long" operations).
Thanks again, Tom, for broadening my outlook regarding Win32::GUI. Perhaps I've
now returned the favor?
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Fri Mar 02 00:03:34 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14YkXF-0000l8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
00:03:34 -0800
Received: (qmail 25813 invoked from network); 2 Mar 2001 08:04:58 -0000
Received: from unknown (HELO livin) ([213.224.225.116]) (envelope-sender
<[EMAIL PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 2 Mar 2001 08:04:58
-0000
Date: Fri, 2 Mar 2001 09:01:29 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.49) UNREG / CD5BF9353B3B7091
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] listview
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear perl-win32-gui-users,
about listviews
* can i modify values in a listview ? or should i somewhere change
properties for the cells ?
* does the listview contains a CELL value/changed boolean for each cell ?
about ocx
is there somebody who would like to help me to get a OCX/DLL running
in my perl module .. i really can't figure it out myself.. thanks
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu Mar 01 13:50:53 2001
Received: from mx1.magmacom.com ([206.191.0.217])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YayK-0007DL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 01 Mar 2001
13:50:52 -0800
Received: from mail6.magma.ca (mail6 [206.191.0.248])
by mx1.magmacom.com (8.9.3/8.9.3) with ESMTP id QAA00825
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 1 Mar 2001
16:52:16 -0500 (EST)
Received: from mememememee (hs2-96.magma.ca [64.26.169.96])
by mail6.magma.ca (8.9.3/8.9.3) with SMTP id QAA25588
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 1 Mar 2001
16:52:15 -0500 (EST)
From: "Dave Moore" <[EMAIL PROTECTED]>
To: "Win32::GUI" <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 1 Mar 2001 16:52:57 -0500
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)
Importance: Normal
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Subject: [perl-win32-gui-users] event handlers
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
hey.
do event handler routines (ie. sub Button1_Click) have to be in the main
namespace or in the namespace in which they were created?
can objects be assigned and event handler? (ie. $myButton->Event(Click =>
\&coderef);). if not, twould be nice. id be willing to do the work if it
didnt involve too much serious XS stuff.
it seems to me that this module wasnt really meant to be used in an OO
application? can anyone out there tell me otherwise?
dave
From [EMAIL PROTECTED] Fri Mar 02 02:47:10 2001
Received: from [212.239.0.35] (helo=fe-2.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14Yn5a-0000P3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
02:47:10 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id LAA104398
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Mar 2001
11:48:36 +0100
Received: from vittorio.crias.it(194.185.18.130) by fe-2.inet.it via I-SMTP
id queue/s-194.185.18.130-jPAOya; Fri Mar 2 11:48:35 2001
Date: Fri, 2 Mar 2001 11:53:37 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Dave Moore <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] event handlers
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dave Moore wrote:
> hey.
>
> do event handler routines (ie. sub Button1_Click) have to be in
> the main namespace or in the namespace in which they were created?
no, they can be anywhere: just add the namespace to your control's
name and the event will be searched in that namespace.
example:
$Window->AddButton(
-name => "Buttons::Button1",
# etc.
);
package Buttons;
sub Button1_Click {
# etc.
}
> can objects be assigned and event handler? (ie.
> $myButton->Event(Click => \&coderef);). if not, twould be nice.
> id be willing to do the work if it didnt involve too much serious
> XS stuff.
I'm working on it, it's basically done (the version is on CVS) but
there are still some issues to solve. and yes, it involves serious
XS stuff ;-)
> it seems to me that this module wasnt really meant to be used in
> an OO application? can anyone out there tell me otherwise?
I maybe be ignorant, but what the heck do you mean by 'an OO
application'? :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri Mar 02 08:16:07 2001
Received: from [209.143.80.206] (helo=grimdomicile.eb.to)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YsDv-00032b-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
08:16:07 -0800
Received: from ericb by grimdomicile.eb.to with local-esmtp (Exim 3.12 #1
(Debian))
id 14YsFE-0006Uf-00; Fri, 02 Mar 2001 11:17:28 -0500
Date: Fri, 2 Mar 2001 11:17:28 -0500 (EST)
From: Eric Bennett <[EMAIL PROTECTED]>
To: Aldo Calpini <[EMAIL PROTECTED]>,
Dave Moore <perl-win32-gui-users@lists.sourceforge.net>
cc: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] event handlers
In-Reply-To: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
On Fri, 2 Mar 2001, Aldo Calpini wrote:
> > it seems to me that this module wasnt really meant to be used in
> > an OO application? can anyone out there tell me otherwise?
>
> I maybe be ignorant, but what the heck do you mean by 'an OO
> application'? :-)
He probably means being able to open multiple instances of a window
or being able to subclass window or control behavior.
Right now the only connection a control has to the rest of the program is
through the control name. This means that to open two identical windows
where the controls on each window refer to the right window's values you
have to use app-unique names for controls and then dynamically define subs
with lexical references to those values.
I was considering doing this with package names (one package per window,
consistant control names, package is destroyed after window closes) but
havn't actually coded it yet.
I hope I am missing the simple, good way to do this. Example below.
- Eric B.
--
"Pasteurized From Concentrate"
==============================================================
use Win32::GUI;
#
# An example of window instances in practice.
#
# Note that if we needed to catch Change events on the text boxes
# those would need coded names too.
#
# Some of this could be cleaned by having small lexical subs which
# forward to normal methods but you still need the closures
# somewhere to hold a reference to disambiguate the window.
#
# In a real MVC app I would usually refer directly to controls very
# little; instead the lexical ref would be to a model object doing
# the work. I left that out for clarity.
#
my $prior_unique_window_code = 0;
my $open_window_count = 0;
sub build_add_window {
my $code = ++$prior_unique_window_code;
my $Window = new Win32::GUI::Window(
-title => "Add Numbers ($code)",
-left => 100,
-top => 100,
-width => 220,
-height => 200,
-name => "Window$code",
-style => WS_MINIMIZEBOX | WS_CAPTION | WS_SYSMENU,
);
$Window->AddTextfield(
-name => "InputA",
-left => 10,
-top => 10,
-text => "5",
-width => 180,
-height => 22,
);
$Window->AddTextfield(
-name => "InputB",
-left => 10,
-top => 38,
-text => "8",
-width => 180,
-height => 22,
);
$Window->AddButton(
-name => "Add$code",
-text => "Add",
-left => 80,
-top => 66,
);
$Window->AddTextfield(
-name => "Output",
-left => 10,
-top => 94,
-text => "?",
-width => 180,
-height => 22,
);
$Window->AddButton(
-name => "CloneWindow$code",
-text => "Clone Window",
-left => 55,
-top => 122,
);
$open_window_count++;
$Window->Show();
*{"Window$code\_Terminate"} = sub {
# Free refs hidden in the subs
undef *{"Window$code\_Terminate"};
undef *{"Add$code\_Click"};
undef *{"CloneWindow$code\_Click"};
$open_window_count--;
return $open_window_count > 0 ? 1 : -1;
};
*{"Add$code\_Click"} = sub {
$Window->Output->Text(
$Window->InputA->Text + $Window->InputB->Text
);
};
*{"CloneWindow$code\_Click"} = sub {
my $NewWindow = build_add_window();
$NewWindow->InputA->Text( $Window->InputA->Text );
$NewWindow->InputB->Text( $Window->InputB->Text );
$NewWindow->Output->Text( $Window->Output->Text );
};
return $Window;
}
build_add_window();
Win32::GUI::Dialog();
From [EMAIL PROTECTED] Fri Mar 02 08:21:19 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YsIx-0003mA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
08:21:19 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id JAA06353
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Mar 2001
09:22:45 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Fri, 2
Mar 2001 09:22:39 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Fri, 02 Mar 2001 09:22:35 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2653.19)
id <FZ50HAD1>; Fri, 02 Mar 2001 09:22:40 -0700
Content-return: allowed
Date: Fri, 02 Mar 2001 09:22:40 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-type: text/plain; charset=ISO-8859-1
Content-transfer-encoding: quoted-printable
Subject: [perl-win32-gui-users] Display a jpeg and gif image
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Aldo or anyone -=20
I really need to figure out a way to display jpeg and gif images in
one of my Win32::GUI apps. There has got to be a way to accomplish it. =
Any
suggestions? I thought of converting the whole thing to TK, but I =
really
don't want to have to go that route.
Thanks,
Tim
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
From [EMAIL PROTECTED] Fri Mar 02 08:43:44 2001
Received: from hercules.telenet-ops.be ([195.130.132.33] helo=smtp1.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14Ysec-00079L-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
08:43:42 -0800
Received: (qmail 12936 invoked from network); 2 Mar 2001 16:45:07 -0000
Received: from unknown (HELO livin) ([212.123.10.246]) (envelope-sender <[EMAIL
PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 2 Mar 2001 16:45:07
-0000
Date: Fri, 2 Mar 2001 17:41:38 +0100
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.49) UNREG / CD5BF9353B3B7091
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Thomas, Timothy B" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Display a jpeg and gif image
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Danny Zak <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Dear Timothy,
anyhow. .i'm also interrested in knowing..
maybe we could use some VB dll's :)
Best regards,
Danny Zak mailto:[EMAIL PROTECTED]
co-ceo
Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium
Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65
-------------------------------------------------------------------
Friday, March 02, 2001, 5:22:40 PM, you wrote:
TTB> Aldo or anyone -
TTB> I really need to figure out a way to display jpeg and gif images in
TTB> one of my Win32::GUI apps. There has got to be a way to accomplish it. Any
TTB> suggestions? I thought of converting the whole thing to TK, but I really
TTB> don't want to have to go that route.
TTB> Thanks,
TTB> Tim
TTB>
----------------------------------------------------------------------------
TTB> ---------------------
TTB> Tim Thomas
TTB> Unix Systems Administrator
TTB> Lockheed Martin EIS · Denver Data Center
TTB> 303-430-2281
TTB> mailto:[EMAIL PROTECTED]
TTB>
----------------------------------------------------------------------------
TTB> ---------------------
TTB> _______________________________________________
TTB> Perl-Win32-GUI-Users mailing list
TTB> Perl-Win32-GUI-Users@lists.sourceforge.net
TTB> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Fri Mar 02 08:58:06 2001
Received: from [212.239.0.34] (helo=fe-1.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YssY-0000bU-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
08:58:06 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id RAA11660
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Mar 2001
17:59:33 +0100
Received: from vittorio.crias.it(194.185.18.130) by fe-1.inet.it via I-SMTP
id queue/s-194.185.18.130-9zaAaa; Fri Mar 2 17:59:33 2001
Date: Fri, 2 Mar 2001 18:04:49 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Eric Bennett <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] event handlers
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Eric Bennett wrote:
> He probably means being able to open multiple instances of a
> window or being able to subclass window or control behavior.
I'm afraid I still don't get the exact point (I'm tired, sorry :-).
> Right now the only connection a control has to the rest of the
> program is through the control name. This means that to open two
> identical windows where the controls on each window refer to the
> right window's values you have to use app-unique names for controls
> and then dynamically define subs with lexical references to those
> values.
this is more clear. the New Event Model I'm trying to build will
pass a reference to the object that fired the event as its first
parameter, so this issue will be solved.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri Mar 02 09:34:28 2001
Received: from [63.97.91.100] (helo=pcmailcorp.corp.peopleclick.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YtRk-0005H0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
09:34:28 -0800
X-MimeOLE: Produced By Microsoft Exchange V6.0.4417.0
content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Date: Fri, 2 Mar 2001 12:35:56 -0500
Message-ID: <[EMAIL PROTECTED]>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: [perl-win32-gui-users] Display a jpeg and gif image
Thread-Index: AcCjOIKJq2TzQ69CSeusHvnlY2yAJAAA8C+QAADWA2A=
From: "Frazier, Joe Jr" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: [perl-win32-gui-users] FW: perl-win32-gui-users
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
> -----Original Message-----
> From: Frazier, Joe Jr On Behalf Of Peopleclick Customer Support
> Sent: Friday, March 02, 2001 12:33 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: perl-win32-gui-users
>=20
>=20
> I have a combo box such as below. How do I get a scroll bar=20
> along the left or right side. Is this functionality=20
> supported? If so, does the same method work for List boxes. =20
> Part of the problem, is that I mostly copied these directly=20
> from the examples and don't know what the various style=20
> settings are since my documentation doesn't detail this option.
>=20
> Thanks in advance for any insight.
>=20
> I am on NT 4.0 SP6a=20
>=20
> c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
> 0.0.434
>=20
> c:\>perl -v
>=20
> This is perl, version 5.005_03 built for MSWin32-x86-object
> (with 1 registered patch, see perl -V for more detail)
>=20
> Copyright 1987-1999, Larry Wall
>=20
> Binary build 522 provided by ActiveState Tool Corp.=20
> http://www.ActiveState.com
> Built 09:52:28 Nov 2 1999
>=20
> $CBdropdown =3D $Window->AddCombobox(=20
> -name =3D> "Dropdown",
> -left =3D> 10,=20
> -top =3D> 25,
> -width =3D> 180,=20
> -height =3D> 400,
> -scroll =3D> 1,
> -style =3D> WS_VISIBLE | 2 | WS_NOTIFY,
> );
>=20
> Joe Frazier, Jr
> Technical Support Engineer
> Peopleclick.com
> 800-841-2365
> [EMAIL PROTECTED]
>=20
>=20
>=20
>=20
From [EMAIL PROTECTED] Fri Mar 02 10:01:02 2001
Received: from whsun1.wh.whoi.edu ([128.128.104.38])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YtrR-00016j-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
10:01:01 -0800
Received: from whsun3.wh.whoi.edu (whsun3 [128.128.104.4])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id NAA17206
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Mar 2001
13:02:18 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
NAA04102 for perl-win32-gui-users@lists.sourceforge.net; Fri, 2 Mar 2001
13:02:17 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Display a jpeg and gif image
To: perl-win32-gui-users@lists.sourceforge.net
Date: Fri, 2 Mar 2001 13:02:17 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "Danny Zak" at Mar 02, 2001 05:41:38 PM
X-Mailer: ELM [version 2.5 PL0pre8]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
You can display a BMP file, so maybe you could convert the jpg/gif to a
bmp then display it.
-dave
>
> anyhow. .i'm also interrested in knowing..
>
> maybe we could use some VB dll's :)
>
> Best regards,
> Danny Zak mailto:[EMAIL PROTECTED]
> co-ceo
>
> Euro-Pictures/belGOnet.com
> Princesse Elisabeth Square 9/11
> 1030 Brussels
> Belgium
>
> Tel : +32-(0)2-215.67.65
> Fax : +32-(0)2-215.66.65
>
> -------------------------------------------------------------------
> Friday, March 02, 2001, 5:22:40 PM, you wrote:
>
> TTB> Aldo or anyone -
> TTB> I really need to figure out a way to display jpeg and gif images
> in
> TTB> one of my Win32::GUI apps. There has got to be a way to accomplish it.
> Any
> TTB> suggestions? I thought of converting the whole thing to TK, but I really
> TTB> don't want to have to go that route.
> TTB> Thanks,
> TTB> Tim
>
From [EMAIL PROTECTED] Fri Mar 02 10:45:28 2001
Received: from mailrelay1.tfn.com ([198.80.144.7])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14YuYQ-0007VB-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
10:45:26 -0800
Received: from 198.80.144.9 by mailrelay1.tfn.com (InterScan E-Mail VirusWall
NT); Fri, 02 Mar 2001 13:46:53 -0500 (Eastern Standard Time)
Received: from tfsmamsg2.tfn.com (tfsmamsg2.tfn.com [164.179.16.1]) by
r2.tfn.com (8.11.0/8.6.9) with ESMTP id f22Ikpi22471 for
<perl-win32-gui-users@lists.sourceforge.net>; Fri, 2 Mar 2001 13:46:51 -0500
(EST)
Received: by tfsmamsg2.tfn.com with Internet Mail Service (5.5.2653.19)
id <FW8WPJFF>; Fri, 2 Mar 2001 13:46:48 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Moore, Larry" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 2 Mar 2001 13:46:39 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain;
charset="iso-8859-1"
Subject: [perl-win32-gui-users] adding a scroll bars to listbox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I copied some of the code from the gui sample programs to add a vscroll bar
to my listbox. Can I read the value of the thumb position and use that for
making a selection in the listbox? Can I control the position of the thumb
of the scroll bar with a variable in my perl code (e.g. for an initial
position) and have it adjust the displayed lines of the listbox?
Tks,
Larry Moore
From [EMAIL PROTECTED] Fri Mar 02 11:35:59 2001
Received: from [209.143.80.206] (helo=grimdomicile.eb.to)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YvLL-0003Wf-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
11:35:59 -0800
Received: from ericb by grimdomicile.eb.to with local-esmtp (Exim 3.12 #1
(Debian))
id 14YvMk-0006aj-00; Fri, 02 Mar 2001 14:37:26 -0500
Date: Fri, 2 Mar 2001 14:37:26 -0500 (EST)
From: Eric Bennett <[EMAIL PROTECTED]>
To: Eric Bennett <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] event handlers
In-Reply-To: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
On Fri, 2 Mar 2001, Aldo Calpini wrote:
> this is more clear. the New Event Model I'm trying to build will
> pass a reference to the object that fired the event as its first
> parameter, so this issue will be solved.
This would be very helpful. The feature which would make this complete
for me is if each control had a tag value which could hold a scalar
reference. Then it would be simple to segue into an OO approach:
sub CommonButtonName_Clicked {
my ( $source_button ) = @_;
$source_button->Tag->execute_command_and_log_undo();
}
Tags would also be handy for things like radiobutton data values.
I know very little about Win32::GUI internals so I have no idea how
feasable this would be to implement.
- Eric B.
--
"Pasteurized From Concentrate"
From [EMAIL PROTECTED] Fri Mar 02 12:14:18 2001
Received: from httptech.cablemodem.sccoast.net ([206.74.47.217]
helo=linux.httptech.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YvwO-0002H3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
12:14:17 -0800
Received: from fw1 (fw1.linux.httptech.com [10.10.10.1])
by linux.httptech.com (8.9.3/8.9.3) with SMTP id PAA18444
for <[EMAIL PROTECTED]>; Fri, 2 Mar 2001 15:23:49 -0500
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <FM5NV8R2>; Fri, 2 Mar 2001 15:15:47 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "Perl GUI Mail list (E-mail)" <[EMAIL PROTECTED]>
Date: Fri, 2 Mar 2001 15:15:49 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Subject: [perl-win32-gui-users] combobox making me crazy
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi all,
This is making me nuts. I have a combobox dropdown that shows on my window
but it does not show the data when I click on it. I copied this same exact
code into the comboxbox.pl sample and it works. Aaaaaaaarrgggghhhh!
Any help would be greatly appreciated. I'll just bang my head on the wall
'til then...
-Pete
#################################################################
my @months = ('',Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
my $fromMonth = $Window->AddCombobox(
-name => "fromMonth",
-left => 65,
-top => 440,
-width => 60,
-height => 150,
-style => WS_VISIBLE | 2 # | WS_NOTIFY,
);
foreach (@months)
{
$fromMonth->InsertItem("$_");
}
sub fromMonth_Change
{
my $selection=$fromMonth->SelectedItem();
my $fromMonthSelection=$months[$selection];
print "fromMonthSelection=$fromMonthSelection $selection\n";
return 0;
}
From [EMAIL PROTECTED] Fri Mar 02 13:02:45 2001
Received: from mail1.atx.com ([146.145.36.34] helo=f_atx1.atx.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YwhI-0006bI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
13:02:44 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <FM5NV9NW>; Fri, 2 Mar 2001 16:04:19 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] combobox making me crazy
Date: Fri, 2 Mar 2001 16:04:13 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: text/plain;
charset="iso-8859-1"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
another thing... the data is actually in the list. When the blank combobox
drops down I can click in it and arrow up/down and then I'll see the data --
debug code confirms a selection is being made. It just doesn't want to show
it....
##################################
Hi all,
This is making me nuts. I have a combobox dropdown that shows on my window
but it does not show the data when I click on it. I copied this same exact
code into the comboxbox.pl sample and it works. Aaaaaaaarrgggghhhh!
Any help would be greatly appreciated. I'll just bang my head on the wall
'til then...
-Pete
#################################################################
my @months = ('',Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
my $fromMonth = $Window->AddCombobox(
-name => "fromMonth",
-left => 65,
-top => 440,
-width => 60,
-height => 150,
-style => WS_VISIBLE | 2 # | WS_NOTIFY,
);
foreach (@months)
{
$fromMonth->InsertItem("$_");
}
sub fromMonth_Change
{
my $selection=$fromMonth->SelectedItem();
my $fromMonthSelection=$months[$selection];
print "fromMonthSelection=$fromMonthSelection $selection\n";
return 0;
}
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Sat Mar 03 01:51:12 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14Z8gy-0004Nw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Mar 2001
01:51:12 -0800
Received: from stop (151.21.194.160) by smtp3.libero.it (5.5.022)
id 3A93915D002358F4 for perl-win32-gui-users@lists.sourceforge.net;
Sat, 3 Mar 2001 10:52:35 +0100
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] combobox making me crazy
Date: Sat, 3 Mar 2001 10:47:38 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I know when I would forget a comma in the options, I would not get the proper
output. Try either uncommenting the WS_NOTIFY or adding a comma after the 2.
| my @months = ('',Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
|
| my $fromMonth = $Window->AddCombobox(
| -name => "fromMonth",
| -left => 65,
| -top => 440,
| -width => 60,
| -height => 150,
| -style => WS_VISIBLE | 2 # | WS_NOTIFY,
| );
|
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Mar 02 09:31:46 2001
Received: from [63.97.91.100] (helo=pcmailcorp.corp.peopleclick.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14YtP8-0004xl-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 02 Mar 2001
09:31:46 -0800
X-MimeOLE: Produced By Microsoft Exchange V6.0.4417.0
content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Date: Fri, 2 Mar 2001 12:33:12 -0500
Message-ID: <[EMAIL PROTECTED]>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: [perl-win32-gui-users] Display a jpeg and gif image
Thread-Index: AcCjOIKJq2TzQ69CSeusHvnlY2yAJAAA8C+Q
From: "Peopleclick Customer Support" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: [perl-win32-gui-users] perl-win32-gui-users
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I have a combo box such as below. How do I get a scroll bar along the
left or right side. Is this functionality supported? If so, does the
same method work for List boxes. Part of the problem, is that I mostly
copied these directly from the examples and don't know what the various
style settings are since my documentation doesn't detail this option.
Thanks in advance for any insight.
I am on NT 4.0 SP6a=20
c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
0.0.434
c:\>perl -v
This is perl, version 5.005_03 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-1999, Larry Wall
Binary build 522 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 09:52:28 Nov 2 1999
$CBdropdown =3D $Window->AddCombobox(=20
-name =3D> "Dropdown",
-left =3D> 10,=20
-top =3D> 25,
-width =3D> 180,=20
-height =3D> 400,
-scroll =3D> 1,
-style =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Sat Mar 03 12:20:52 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZIWJ-0002g8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 03 Mar 2001
12:20:51 -0800
Received: from stop (151.21.192.237) by smtp3.libero.it (5.5.022)
id 3A93915D002521B0 for perl-win32-gui-users@lists.sourceforge.net;
Sat, 3 Mar 2001 21:22:14 +0100
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] perl-win32-gui-users
Date: Sat, 3 Mar 2001 21:17:16 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Use either/both WS_HSCROLL | WS_VSCROLL in your style option.
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Peopleclick Customer Support <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Friday, March 02, 2001 6:33 PM
Subject: [perl-win32-gui-users] perl-win32-gui-users
I have a combo box such as below. How do I get a scroll bar along the
left or right side. Is this functionality supported? If so, does the
same method work for List boxes. Part of the problem, is that I mostly
copied these directly from the examples and don't know what the various
style settings are since my documentation doesn't detail this option.
Thanks in advance for any insight.
I am on NT 4.0 SP6a
c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
0.0.434
c:\>perl -v
This is perl, version 5.005_03 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-1999, Larry Wall
Binary build 522 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 09:52:28 Nov 2 1999
$CBdropdown = $Window->AddCombobox(
-name => "Dropdown",
-left => 10,
-top => 25,
-width => 180,
-height => 400,
-scroll => 1,
-style => WS_VISIBLE | 2 | WS_NOTIFY,
);
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Mon Mar 05 00:06:40 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14Zq0o-0004qb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
00:06:34 -0800
Received: from christop (unknown [203.199.233.8])
by md4.vsnl.net.in (Postfix) with SMTP id 13D74A698
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001
13:42:04 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Date: Mon, 5 Mar 2001 13:31:23 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] daemon process in win98
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi all
Sub Somebutton_Click
{
system("c:/path/to/perlserver.exe");
}
I am trying to write a win32 gui script which will call a perl server ( any
perl daemon process for that matter!)
when a button is clicked
now
1) How do I check whether the process is aleady not running?
2) If the process is running how to STOP it ?
In unix we do a "ps -uax" etc and a "kill -9 PID" but in windows 98 what to
do ??
chris
From [EMAIL PROTECTED] Mon Mar 05 00:13:32 2001
Received: from md4.vsnl.net.in ([202.54.6.60])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14Zq7X-0005Gs-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
00:13:31 -0800
Received: from christop (unknown [203.199.233.8])
by md4.vsnl.net.in (Postfix) with SMTP id 6F1A6A521
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001
13:48:26 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 5 Mar 2001 13:37:46 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Subject: [perl-win32-gui-users] Re: daemon process in win98--on the same note
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Hi all ,
On the same note
Is it possible to write a win32 GUI perl server daemon script ..
if so what are the precautions I should take ??
Particularly because the
Win32::GUI::Dialog() indefinite Loop should not interfere with the
while (1){} indefinite loop of the perl server
Is it possible to integrate them both at all ?
chris
----- Original Message -----
From: christopher sagayam <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, March 05, 2001 1:31 PM
Subject: daemon process in win98
Hi all
Sub Somebutton_Click
{
system("c:/path/to/perlserver.exe");
}
I am trying to write a win32 gui script which will call a perl server ( any
perl daemon process for that matter!)
when a button is clicked
now
1) How do I check whether the process is aleady not running?
2) If the process is running how to STOP it ?
In unix we do a "ps -uax" etc and a "kill -9 PID" but in windows 98 what to
do ??
chris
From [EMAIL PROTECTED] Mon Mar 05 01:54:51 2001
Received: from xenia.renault.fr ([193.194.133.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZrhZ-0003bT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
01:54:49 -0800
Received: from univers.mc2.renault.fr by xenia.renault.fr id KAA01715 for
<perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001 10:56:21 +0100
(MET)
Received: from aosus019 by univers.mc2.renault.fr id KAA29542 for
<perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001 10:56:20 +0100
(MET)
Received: from emicc2c2.mc2.renault.fr by aosus019 with ESMTP for
perl-win32-gui-users@lists.sourceforge.net; Mon, 5 Mar 2001 10:56:19 +0100
Received: from [172.26.177.202] by emicc2c2.mc2.renault.fr; Mon, 5 Mar 2001
10:47:00 +0100
Message-Id: <[EMAIL PROTECTED]>
From: "Nahum Marc" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] perl-win32-gui-users
Date: Mon, 5 Mar 2001 10:46:59 +0100
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Do you known why this don't work :
$allimp = $winimpsrv->AddListbox(
-name => "allimp",
-left => 1,
-top => 1,
-text => '',
-width => 490,
-height => 350,
-multiline =>1,
-style =>WS_VSCROLL,
);
foreach $ligne (@lstimp)
{
$allimp->AddString("$ligne");
}
Nahum Marc,
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Saturday, March 03, 2001 9:17 PM
Subject: Re: [perl-win32-gui-users] perl-win32-gui-users
> Use either/both WS_HSCROLL | WS_VSCROLL in your style option.
>
> erick
> never stop questioning
> www.jeb.ca
> ----- Original Message -----
> From: Peopleclick Customer Support
<[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Friday, March 02, 2001 6:33 PM
> Subject: [perl-win32-gui-users] perl-win32-gui-users
>
>
> I have a combo box such as below. How do I get a scroll bar along the
> left or right side. Is this functionality supported? If so, does the
> same method work for List boxes. Part of the problem, is that I mostly
> copied these directly from the examples and don't know what the various
> style settings are since my documentation doesn't detail this option.
>
> Thanks in advance for any insight.
>
> I am on NT 4.0 SP6a
>
> c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
> 0.0.434
>
> c:\>perl -v
>
> This is perl, version 5.005_03 built for MSWin32-x86-object
> (with 1 registered patch, see perl -V for more detail)
>
> Copyright 1987-1999, Larry Wall
>
> Binary build 522 provided by ActiveState Tool Corp.
> http://www.ActiveState.com
> Built 09:52:28 Nov 2 1999
>
> $CBdropdown = $Window->AddCombobox(
> -name => "Dropdown",
> -left => 10,
> -top => 25,
> -width => 180,
> -height => 400,
> -scroll => 1,
> -style => WS_VISIBLE | 2 | WS_NOTIFY,
> );
>
> Joe Frazier, Jr
> Technical Support Engineer
> Peopleclick.com
> 800-841-2365
> [EMAIL PROTECTED]
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Mon Mar 05 05:37:43 2001
Received: from [63.97.91.100] (helo=pcmailcorp.corp.peopleclick.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZvBH-0000V6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
05:37:43 -0800
X-MimeOLE: Produced By Microsoft Exchange V6.0.4417.0
content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Subject: RE: [perl-win32-gui-users] perl-win32-gui-users
Date: Mon, 5 Mar 2001 08:39:17 -0500
Message-ID: <[EMAIL PROTECTED]>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: [perl-win32-gui-users] perl-win32-gui-users
Thread-Index: AcCkIPuVjrwDTwxxSYWAAip7Z5OZSQBWL1ew
From: "Frazier, Joe Jr" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
>>I have a combo box such as below. How do I get a scroll bar along the
>>left or right side. Is this functionality supported? If so, does the
>>same method work for List boxes. Part of the problem, is that I
mostly
>>copied these directly from the examples and don't know what the
various
>>style settings are since my documentation doesn't detail this option.
>>
>>Thanks in advance for any insight.
>> $CBdropdown =3D $Window->AddCombobox(=20
>> -name =3D> "Dropdown",
>> -left =3D> 10,=20
>> -top =3D> 25,
>> -width =3D> 180,=20
>> -height =3D> 400,
>> -scroll =3D> 1,
>> -style =3D> WS_VISIBLE | 2 | WS_NOTIFY,
>> );
>>=20
>> Joe Frazier, Jr
>> Technical Support Engineer
>> Peopleclick.com
>> 800-841-2365
>> [EMAIL PROTECTED]
>>=20
> -----Original Message-----
> From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
> Sent: Saturday, March 03, 2001 3:17 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] perl-win32-gui-users
>=20
>=20
> Use either/both WS_HSCROLL | WS_VSCROLL in your style option.
>=20
> erick
> never stop questioning
> www.jeb.ca
Thanks. That worked. I guess now, my question is is there any
documention on the style attribute?
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
>=20
From [EMAIL PROTECTED] Mon Mar 05 06:45:55 2001
Received: from [212.239.0.36] (helo=fe-3.inet.it)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZwFG-0004o6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
06:45:54 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA106426
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001
15:47:28 +0100
Received: from pc1.crias.it(194.185.18.131) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.131-RIl1aa; Mon Mar 5 15:47:27 2001
Date: Mon, 5 Mar 2001 15:52:27 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Eric Bennett <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] event handlers
In-reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Aldo Calpini <[EMAIL PROTECTED]>
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Eric Bennett wrote:
> This would be very helpful. The feature which would make this
> complete for me is if each control had a tag value which could
> hold a scalar reference.
a scalar reference to what?
> Then it would be simple to segue into an OO approach:
>
> sub CommonButtonName_Clicked {
> my ( $source_button ) = @_;
>
> $source_button->Tag->execute_command_and_log_undo();
> }
this is completely unclear to me. what is
'execute_command_and_log_undo'? a method in some package?
what is supposed $source_button->Tag to report?
maybe you mean it to act like:
execute_command_and_log_undo( $source_button );
but, if this is what you mean, I don't see why you should want
it (it's just that you like the '->'? :-) and I don't see any
precedent in a Perl module for such things.
I don't think you want to patch *any* Perl module to be able
to write:
my $OBJECT = Something->new;
$OBJECT->execute_command_and_log_undo();
when 'execute_command_and_log_undo' is a sub in your script.
> Tags would also be handy for things like radiobutton data
> values.
please elaborate something more on your example, there may be
something I'm missing.
> I know very little about Win32::GUI internals so I have no
> idea how feasable this would be to implement.
I need to understand first *what* to implement and *why*
implement it. then it should be a breeze ;-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Mar 05 07:47:18 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZxCf-0003b1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
07:47:18 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id KAA00273 for
<perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001 10:48:51 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] FW: perl-win32-gui-users
Date: Mon, 5 Mar 2001 10:46:45 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
Joe,
Try this as your ComboBox construct:
$CBdropdown = $Window->AddCombobox(
-name => "Dropdown",
-left => 10,
-top => 25,
-width => 180,
-height => 400,
-addstyle => WS_VISIBLE | 2 | WS_VSCROLL | WS_NOTIFY,
);
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Frazier, Joe Jr" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Friday, March 02, 2001 12:35 PM
Subject: [perl-win32-gui-users] FW: perl-win32-gui-users
>
>
> Joe Frazier, Jr
> Technical Support Engineer
> Peopleclick.com
> 800-841-2365
> [EMAIL PROTECTED]
>
>
>
> > -----Original Message-----
> > From: Frazier, Joe Jr On Behalf Of Peopleclick Customer Support
> > Sent: Friday, March 02, 2001 12:33 PM
> > To: 'perl-win32-gui-users@lists.sourceforge.net'
> > Subject: perl-win32-gui-users
> >
> >
> > I have a combo box such as below. How do I get a scroll bar
> > along the left or right side. Is this functionality
> > supported? If so, does the same method work for List boxes.
> > Part of the problem, is that I mostly copied these directly
> > from the examples and don't know what the various style
> > settings are since my documentation doesn't detail this option.
> >
> > Thanks in advance for any insight.
> >
> > I am on NT 4.0 SP6a
> >
> > c:\>perl -MWin32::GUI -e "print qq{$Win32::GUI::VERSION\n};"
> > 0.0.434
> >
> > c:\>perl -v
> >
> > This is perl, version 5.005_03 built for MSWin32-x86-object
> > (with 1 registered patch, see perl -V for more detail)
> >
> > Copyright 1987-1999, Larry Wall
> >
> > Binary build 522 provided by ActiveState Tool Corp.
> > http://www.ActiveState.com
> > Built 09:52:28 Nov 2 1999
> >
> > $CBdropdown = $Window->AddCombobox(
> > -name => "Dropdown",
> > -left => 10,
> > -top => 25,
> > -width => 180,
> > -height => 400,
> > -scroll => 1,
> > -style => WS_VISIBLE | 2 | WS_NOTIFY,
> > );
> >
> > Joe Frazier, Jr
> > Technical Support Engineer
> > Peopleclick.com
> > 800-841-2365
> > [EMAIL PROTECTED]
> >
> >
> >
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Mon Mar 05 07:58:22 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZxNN-0005I9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
07:58:21 -0800
Received: from emss02g01.ems.lmco.com (relay2.ems.lmco.com [166.29.2.54])
by mailgw1a.lmco.com (8.8.8/8.8.8) with ESMTP id IAA21448
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001
08:59:57 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Mon, 5
Mar 2001 08:59:50 -0700 (MST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38887)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Mon, 05 Mar 2001 08:56:56 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2653.19)
id <FZ50HXG3>; Mon, 05 Mar 2001 08:58:06 -0700
Content-return: allowed
Date: Mon, 05 Mar 2001 08:58:01 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Display a jpeg and gif image
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Message-id: <[EMAIL PROTECTED]>
MIME-version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-type: text/plain; charset=ISO-8859-1
Content-transfer-encoding: quoted-printable
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
I have about 6000 images, so considering the disk space that .bmp takes
compared to a .jpg, that's out of the question. BUT, if I could figure =
out a
way to convert the jpg to a bmp just to display it, that might work, =
anyone
know of a internal perl way to do image conversions? I have done it =
through
3rd party tools, but not perl directly. Still, I would prefer to =
display the
jpeg directly. Aldo - any ideas?
Tim
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: David Hiltz [mailto:[EMAIL PROTECTED]
Sent: Friday, March 02, 2001 11:02 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Display a jpeg and gif image
You can display a BMP file, so maybe you could convert the jpg/gif =
to a
bmp then display it.
-dave
>=20
> anyhow. .i'm also interrested in knowing..
>=20
> maybe we could use some VB dll's :)
> =20
> Best regards,
> Danny Zak mailto:[EMAIL PROTECTED]
> co-ceo=20
>=20
> Euro-Pictures/belGOnet.com
> Princesse Elisabeth Square 9/11
> 1030 Brussels
> Belgium
>=20
> Tel : +32-(0)2-215.67.65
> Fax : +32-(0)2-215.66.65
>=20
> -------------------------------------------------------------------
> Friday, March 02, 2001, 5:22:40 PM, you wrote:
>=20
> TTB> Aldo or anyone -=20
> TTB> I really need to figure out a way to display jpeg and =
gif
images in
> TTB> one of my Win32::GUI apps. There has got to be a way to =
accomplish
it. Any
> TTB> suggestions? I thought of converting the whole thing to TK, but =
I
really
> TTB> don't want to have to go that route.
> TTB> Thanks,
> TTB> Tim
>=20
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Mon Mar 05 08:06:30 2001
Received: from [209.143.80.206] (helo=grimdomicile.eb.to)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ZxVG-0006Hd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
08:06:30 -0800
Received: from ericb by grimdomicile.eb.to with local-esmtp (Exim 3.12 #1
(Debian))
id 14ZxWo-0002hT-00; Mon, 05 Mar 2001 11:08:06 -0500
Date: Mon, 5 Mar 2001 11:08:06 -0500 (EST)
From: Eric Bennett <[EMAIL PROTECTED]>
To: Perl-Win32-Gui <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] event handlers and tags
In-Reply-To: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe:
<http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://lists.sourceforge.net/archives//perl-win32-gui-users/>
On Mon, 5 Mar 2001, Aldo Calpini wrote:
> this is completely unclear to me.
Sorry, I was unclear. A tag is a scalar value associated with the control
which is for application use. It can be fetched and set but has no effect
on control behavior.
Why is this useful? Say you have radio buttons for day of the week. The
datum you need is 0-6 for Sunday-Saturday. Right now you need seven
_Click subs which each set a different value or which call on a sub that
does the checking.
With tags you could put the correct data value in the tag when creating
the buttons and give them all the same name. Then
sub DayOfWeekRadioButton_Click {
my ( $source_radiobutton ) = @_;
our $day_of_week_value = $source_radiobutton->Tag;
}
would work for all of them.
If I was doing Model/View/Controller with Win32-GUI then I would use the
tag value to hold a reference to the model object for that control:
sub SomeText_Change {
my ( $control ) = @_;
# Get the object representing what this textbox shows
my $model_value_holder = $control->Tag;
# Inform the abstract model that the value has changed
$model_value_holder->set_value( $control->Text );
}
The motive for doing this is to get as much code out of the GUI elements
as possible. This helps testing the logic seperately from the GUI and
helps to limit where errors can occur. So usually I would have all my
text boxes, all my buttons, etc execute the same routines for dealing with
their model object.
Normally I would do this by subclassing the text control to do
model-specific handling and then using instances of the subclassed
control. Since the perl objects in Win32-GUI are just handles I don't
know if that would make sense here.
- Eric B.
--
"Pasteurized From Concentrate"
