BAD MSG:
m sorry to repeat this ..
But has no one seen this question so far ?
Please tell me atleast whether it can be done or it can't be done ?
Thanks
chris
----- Original Message -----
From: christopher sagayam <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, March 05, 2001 1:37 PM
Subject: [perl-win32-gui-users] Re: daemon process in win98--on the same
note
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
_______________________________________________
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] Mon Mar 05 08:49:02 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 14ZyAQ-0007Hn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
08:49:02 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id QAA11427; Mon, 5 Mar 2001 16:50:29 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 5 Mar 2001 16:16:28 +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
Did you ever get this sorted ?
PB
*******************************************************************************
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] Mon Mar 05 09:23:23 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 14Zyhf-00049e-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
09:23:23 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id SAA26474
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 5 Mar 2001
18:24:59 +0100
Received: from unknown(194.185.18.131) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.131-z6yrqa; Mon Mar 5 18:24:57 2001
Date: Mon, 5 Mar 2001 18:29:48 +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] Re: daemon process in win98--on the same
note
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:
> 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 ?
you can put Win32::GUI::DoEvents inside your 'server' loop,
without Win32::GUI::Dialog() at all. the GUI will not be
so responsive as with Win32::GUI::Dialog, but this is the
'best-effort' possible with a single-threaded model.
if you wanna go multi thread, you should look at using
fork (only with perl 5.6.0) and some IPC mechanism (pipes,
sockets, shared memory, etc).
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Mar 05 11:51:47 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 14a11G-0006DN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
11:51:46 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFB2CBL>; Mon, 5 Mar 2001 14:53:29 -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: Mon, 5 Mar 2001 14:53:31 -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/>
unfortunately that didn't do it. Anyone else seen this type of behaviour
before?
-----Original Message-----
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Saturday, March 03, 2001 4:48 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] combobox making me crazy
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
_______________________________________________
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 13:14:42 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 14a2JV-0008P3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 05 Mar 2001
13:14:41 -0800
Received: from 10.222.200.52 by smtp02.trusted.co.nz with ESMTP (SMTP
Relay (MMS v4.7)); Tue, 06 Mar 2001 10:16:13 +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 <B0004967c>; Tue, 06 Mar 2001 10:16:13 +1300
Received: by mars.tegel.co.nz with Internet Mail Service (5.5.2650.21)
id <FLQG7JZP>; Tue, 6 Mar 2001 10:16:13 +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: Tue, 6 Mar 2001 10:16:12 +1300
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
X-WSS-ID: 16BADD9755785-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
Thanks for asking. No, I'm still plugging away on 0.0.502, developing my
little app (when time permits). I'm getting close to finishing so I'm going
to want to try 0.0.558 again soon. Any ideas how I can trace the cause of
the Dr Watsons?
Thanks - Simon.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 06, 2001 5:16 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Dr Watson
Hi Simon
Did you ever get this sorted ?
PB
****************************************************************************
***
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] Tue Mar 06 01:47:17 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 14aE3j-0007QN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 06 Mar 2001
01:47:12 -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 EAA21788
for <[EMAIL PROTECTED]>; Tue, 6 Mar 2001 04:57:20 -0500
From: [EMAIL PROTECTED]
Received: from lamsmtp.lazam.co.uk (unverified) by lonns-mim001.lazard.co.uk
(Content Technologies SMTPRS 4.2.1) with SMTP id <[EMAIL PROTECTED]> for
<[EMAIL PROTECTED]>;
Tue, 6 Mar 2001 09:45:26 +0000
Received: by lamsmtp.lazam.co.uk(Lotus SMTP MTA v4.6.5 (863.2 5-20-1999)) id
80256A07.00336EE2 ; Tue, 6 Mar 2001 09:21:47 +0000
X-Lotus-FromDomain: LAZARD LONDON
To: [EMAIL PROTECTED]
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 6 Mar 2001 09:47:37 +0000
Mime-Version: 1.0
Content-type: text/plain; charset="us-ascii"
Content-Disposition: inline
Subject: [perl-win32-gui-users] Progress Bar
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/>
Does anyone have any example code for displaying a Progress Bar while a program
executes for instance:
I have the program:
$prog = "C:\\Progra~1\\winzip\\wzzip.exe -u -p -r -es -whs $archive
$source";
While I execute $prog I would like a status bar to display the progress and
hide() when complete.
Regards
Daryll
The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
From [EMAIL PROTECTED] Tue Mar 06 05:41:56 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 14aHit-0001N6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 06 Mar 2001
05:41:55 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFB2GJN>; Tue, 6 Mar 2001 08:43:44 -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]
Subject: RE: [perl-win32-gui-users] Progress Bar
Date: Tue, 6 Mar 2001 08:43:46 -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/>
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,
);
$ProgressWindow->PB->SetPos(10);
sub ProgressWindow_Terminate
{
$ProgressWindow->Hide();
$ProgressWindow->PB->SetPos(0);
return 0;
}
$ProgressWindow->PB->SetRange(0,$size); ### I Set $size to the filesize
(upto 65535 max)
$ProgressWindow->Show();
while (something) ### HERE's WHERE YOU OPEN THE FILE. DEPENDING UPON
HOW
### YOU WANT TO DO THE UPDATE WILL DETERMINE THE
while STATEMENT
{
$linecount++;
$ProgressWindow->PB->SetPos($linecount);
}
$ProgressWindow->Hide();
### Hope that helps.
### Pete
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 06, 2001 4:48 AM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] Progress Bar
Does anyone have any example code for displaying a Progress Bar while a
program
executes for instance:
I have the program:
$prog = "C:\\Progra~1\\winzip\\wzzip.exe -u -p -r -es -whs $archive
$source";
While I execute $prog I would like a status bar to display the progress and
hide() when complete.
Regards
Daryll
The information in this e-mail and any attachments is confidential and may
be
legally privileged. It is intended solely for the addressee or addressees.
If
you are not an intended recipient, please delete the message and any
attachments
and notify the sender of misdelivery: any use or disclosure of the contents
of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states
them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
_______________________________________________
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 Mar 06 05:42: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.22 #1 (Debian))
id 14aHj3-0001NP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 06 Mar 2001
05:42:06 -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 IAA22024
for <[EMAIL PROTECTED]>; Tue, 6 Mar 2001 08:52:12 -0500
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFB2GJN>; Tue, 6 Mar 2001 08:43:44 -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]
Subject: RE: [perl-win32-gui-users] Progress Bar
Date: Tue, 6 Mar 2001 08:43:46 -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/>
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,
);
$ProgressWindow->PB->SetPos(10);
sub ProgressWindow_Terminate
{
$ProgressWindow->Hide();
$ProgressWindow->PB->SetPos(0);
return 0;
}
$ProgressWindow->PB->SetRange(0,$size); ### I Set $size to the filesize
(upto 65535 max)
$ProgressWindow->Show();
while (something) ### HERE's WHERE YOU OPEN THE FILE. DEPENDING UPON
HOW
### YOU WANT TO DO THE UPDATE WILL DETERMINE THE
while STATEMENT
{
$linecount++;
$ProgressWindow->PB->SetPos($linecount);
}
$ProgressWindow->Hide();
### Hope that helps.
### Pete
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 06, 2001 4:48 AM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] Progress Bar
Does anyone have any example code for displaying a Progress Bar while a
program
executes for instance:
I have the program:
$prog = "C:\\Progra~1\\winzip\\wzzip.exe -u -p -r -es -whs $archive
$source";
While I execute $prog I would like a status bar to display the progress and
hide() when complete.
Regards
Daryll
The information in this e-mail and any attachments is confidential and may
be
legally privileged. It is intended solely for the addressee or addressees.
If
you are not an intended recipient, please delete the message and any
attachments
and notify the sender of misdelivery: any use or disclosure of the contents
of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states
them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
_______________________________________________
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 Mar 07 03:53:24 2001
Received: from mx1.magmacom.com ([206.191.0.217])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14acVP-0000iQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
03:53:23 -0800
Received: from mail5.magma.ca (mail5.magma.ca [206.191.0.225])
by mx1.magmacom.com (8.9.3/8.9.3) with ESMTP id GAA21838
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Mar 2001
06:55:03 -0500 (EST)
Received: from mememememee (hs2-96.magma.ca [64.26.169.96])
by mail5.magma.ca (8.11.2/8.11.2) with SMTP id f27Bt2L23921
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Mar 2001
06:55:02 -0500 (EST)
From: "Dave Moore" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] event handlers
Date: Wed, 7 Mar 2001 06:55:48 -0500
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.2910.0)
In-Reply-To: <[EMAIL PROTECTED]>
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
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
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 :-).
>
i dont know what i meant either (i was tired too).
> > 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.
>
that will be nice, but there is still the issue of name space. having to
name each control in some sort of global space...ie.
$MW->Button(Name => 'MyButton1');
gets hard to keep track when you want to break your program into objects or
even if it gets really big. i dont know how else you could do it though.
and seeming as how the topic was event handlers, i think it would be cool if
i could say:
my $btn = $MainW->Button();
$btn->add_handler('Click', \&some_sub);
sub some_sub {
my ($object, $event) = @_;
}
instead of making a subroutine with Name_Click. it would clean up all my
scripts alot. for eg cancel buttons all do the same thing. its easier to
register a routine for your events than to declare a subroutine that calls a
subroutine.
just my humble opinion
dave
From [EMAIL PROTECTED] Wed Mar 07 05:05:15 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 14adcw-0007VB-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
05:05:14 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id OAA70346
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Mar 2001
14:06:54 +0100
Received: from unknown(194.185.18.130) by fe-1.inet.it via I-SMTP
id queue/s-194.185.18.130-BpVHUa; Wed Mar 7 14:06:54 2001
Date: Wed, 7 Mar 2001 14:12:06 +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:
>> 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.
>
> that will be nice, but there is still the issue of name space.
> having to name each control in some sort of global space...ie.
>
> $MW->Button(Name => 'MyButton1');
>
> gets hard to keep track when you want to break your program into
> objects or even if it gets really big. i dont know how else you
> could do it though.
but with the New Event Model (codename 'NEM') you don't need a name
at all.
> and seeming as how the topic was event handlers, i think it would
> be cool if i could say:
>
> my $btn = $MainW->Button();
> $btn->add_handler('Click', \&some_sub);
>
> sub some_sub {
> my ($object, $event) = @_;
> }
>
> instead of making a subroutine with Name_Click. it would clean up
> all my scripts alot. for eg cancel buttons all do the same thing.
> its easier to register a routine for your events than to declare a
> subroutine that calls a subroutine.
>
> just my humble opinion
that's exactly what the NEM stands for. right now, the synopsis is:
$MainW->AddButton(
-text => "Click Me",
-pos => [ 50, 50 ],
-events => {
-Click => \&some_sub,
# or
# -Click => "some_sub",
# or
# -Click => sub { print 'I got a click!'; }
},
);
there will be, of course, a method to add, change and remove events
after the object creation. the latest version on CVS does already
support the synopsis above; I'm having serious problems supporting
a NEM for menus :-(
if someone wants to help me with this just ring the bell...
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Mar 07 07:45:35 2001
Received: from mailrelay2.tfn.com ([198.80.144.8])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14ag86-0006Nn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
07:45:35 -0800
Received: from 198.80.144.9 by mailrelay2.tfn.com (InterScan E-Mail VirusWall
NT); Wed, 07 Mar 2001 10:47:14 -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 f27FlD727821 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Mar 2001 10:47:13 -0500
(EST)
Received: by tfsmamsg1.tfn.com with Internet Mail Service (5.5.2653.19)
id <GHJB0P9K>; Wed, 7 Mar 2001 10:47:53 -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: Wed, 7 Mar 2001 10:47:08 -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] -style info source
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 good source of info for using the -style attribute with the GUI
objects?
Tks,
Larry
From [EMAIL PROTECTED] Wed Mar 07 09:29:02 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ahkE-00068D-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
09:29:02 -0800
Received: from netzero.net (putc3218174.cts.com [209.68.218.174])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id JAA04143
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Mar 2001
09:30:44 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 07 Mar 2001 09:31:00 -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
References: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Textfield 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/>
Hi,
I'm a Perl expert, but a Windows novice. I'm using the .558 version of
Win32::GUI, and having great success for the most part. There are some rough
edges, and some apparently missing pieces, but no showstoppers so far, to
achieve what I need.
I created a Textfield as
$help_text = $neww -> AddTextfield (
-name => 'help_text',
-text => "This is not very\r\nhelpful, yet.",
-multiline => 1, -readonly => 1, -vscroll => 1,
-top => $lastbottom, -left => 0, -width => 600, -height => 190,
);
The -vscroll doesn't seem to have any affect. When I later
$help_text -> Text ( $long_string );
and use a string that is longer than fits in the Textfield, I expected, but
did not get, a vertical scroll bar on the right of the Text field. Any easy
way to make that happen? Or must I limit my help text to the available space?
I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
doesn't display a scrollbar either. Although it did do scrolling of sorts,
via the up & down cursor keys... but it seemed to only scroll in "whole field
size" jumps, not line at a time. Going back to the Textfield, I tried
clicking on it and using the up & down cursor keys, but no joy.
If there is no easy way, does someone have sample code for the hard way?
--
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 Mar 07 11:48:41 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 14ajvN-0001og-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
11:48:41 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFB2YMD>; Wed, 7 Mar 2001 14:50:32 -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] Textfield question
Date: Wed, 7 Mar 2001 14:50:28 -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/>
Not sure if the -style flag works on textfields but it does on RichEdits and
that might be what's missing. Try adding this to your Textfield hash:
-style => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
| ES_LEFT | ES_MULTILINE,
-Pete
-----Original Message-----
From: Glenn Linderman [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 07, 2001 12:31 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Textfield question
Hi,
I'm a Perl expert, but a Windows novice. I'm using the .558 version of
Win32::GUI, and having great success for the most part. There are some
rough
edges, and some apparently missing pieces, but no showstoppers so far, to
achieve what I need.
I created a Textfield as
$help_text = $neww -> AddTextfield (
-name => 'help_text',
-text => "This is not very\r\nhelpful, yet.",
-multiline => 1, -readonly => 1, -vscroll => 1,
-top => $lastbottom, -left => 0, -width => 600, -height => 190,
);
The -vscroll doesn't seem to have any affect. When I later
$help_text -> Text ( $long_string );
and use a string that is longer than fits in the Textfield, I expected, but
did not get, a vertical scroll bar on the right of the Text field. Any easy
way to make that happen? Or must I limit my help text to the available
space?
I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
doesn't display a scrollbar either. Although it did do scrolling of sorts,
via the up & down cursor keys... but it seemed to only scroll in "whole
field
size" jumps, not line at a time. Going back to the Textfield, I tried
clicking on it and using the up & down cursor keys, but no joy.
If there is no easy way, does someone have sample code for the hard way?
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
_______________________________________________
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 Mar 07 11:53:29 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 14ak01-0002QI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
11:53:29 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFB2Y3H>; Wed, 7 Mar 2001 14:55:22 -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: Wed, 7 Mar 2001 14:55:16 -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 hate to be a pest on this subject, but I still haven't come up with the
cause of the problem nor the solution. Again, I have comboboxes that pull
down when I click on the handle but it does not display the text. However,
if I arrow-down while it is open I can then see and select (by hitting
return but not clicking) each item.
I have quite a few comboboxes (22) on the window and they are inside a
groupbox. Any chance either of these instances should make a difference?
From [EMAIL PROTECTED] Wed Mar 07 14:03:35 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14am1v-0000Mq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
14:03:35 -0800
Received: from netzero.net (putc721612000208.cts.com [216.120.0.208])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id OAA16011
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 7 Mar 2001
14:05:17 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 07 Mar 2001 14:05:32 -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] Textfield question
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/>
Pete,
Thanks for the idea. I added your suggestion, minus the WS_HSCROLL (I want
wrapping to take effect). It does produce a scroll bar. It removes the effect
of -readonly, but since I never look at the resulting text, and refresh it on
the next display, that isn't terribly problematical. Perhaps I'll diddle around
and find something that turns -readonly back on. Perhaps another -style flag?
Peter Eisengrein wrote:
> Not sure if the -style flag works on textfields but it does on RichEdits and
> that might be what's missing. Try adding this to your Textfield hash:
>
> -style => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
> | ES_LEFT | ES_MULTILINE,
>
> -Pete
>
> -----Original Message-----
> From: Glenn Linderman [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 07, 2001 12:31 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Textfield question
>
> Hi,
>
> I'm a Perl expert, but a Windows novice. I'm using the .558 version of
> Win32::GUI, and having great success for the most part. There are some
> rough
> edges, and some apparently missing pieces, but no showstoppers so far, to
> achieve what I need.
>
> I created a Textfield as
>
> $help_text = $neww -> AddTextfield (
> -name => 'help_text',
> -text => "This is not very\r\nhelpful, yet.",
> -multiline => 1, -readonly => 1, -vscroll => 1,
> -top => $lastbottom, -left => 0, -width => 600, -height => 190,
> );
>
> The -vscroll doesn't seem to have any affect. When I later
>
> $help_text -> Text ( $long_string );
>
> and use a string that is longer than fits in the Textfield, I expected, but
> did not get, a vertical scroll bar on the right of the Text field. Any easy
> way to make that happen? Or must I limit my help text to the available
> space?
>
> I tried using RichEdit instead, but it doesn't seem to honor -readonly, and
> doesn't display a scrollbar either. Although it did do scrolling of sorts,
> via the up & down cursor keys... but it seemed to only scroll in "whole
> field
> size" jumps, not line at a time. Going back to the Textfield, I tried
> clicking on it and using the up & down cursor keys, but no joy.
>
> If there is no easy way, does someone have sample code for the hard way?
>
> --
> Glenn
> =====
> Even if you're on the right track,
> you'll get run over if you just sit there.
> -- Will Rogers
>
> _______________________________________________
> 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
--
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 Mar 07 22:08:20 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 14atb2-0006LO-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 07 Mar 2001
22:08:20 -0800
Received: from christop (unknown [203.197.134.81])
by md4.vsnl.net.in (Postfix) with SMTP id 21117A163
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001
11:44:15 +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: Thu, 8 Mar 2001 11:32:51 +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] how to set ?
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/>
How to dynamically change the readonly attributes of a text field ?
$ModuleWindow->text2_tab1(-readonly => '1');
and later
$ModuleWindow->text2_tab1(-readonly => '0');
how to make the above work ?
chris
From [EMAIL PROTECTED] Thu Mar 08 03:35:20 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 14ayhU-0004SV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
03:35:20 -0800
Received: from christop (unknown [203.197.134.67])
by md4.vsnl.net.in (Postfix) with SMTP id 36AE99F5D
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001
17:09:02 +0530 (IST)
Message-ID: <[EMAIL PROTECTED]>
From: "christopher sagayam" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 8 Mar 2001 16:56:55 +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: how to set ?
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 doesnt work
$ModuleWindow->text2_tab1->Change(-readonly => 1);
what is the correct way ?
chris
----- Original Message -----
From: christopher sagayam <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, March 08, 2001 11:32 AM
Subject: how to set ?
How to dynamically change the readonly attributes of a text field ?
$ModuleWindow->text2_tab1(-readonly => '1');
and later
$ModuleWindow->text2_tab1(-readonly => '0');
how to make the above work ?
chris
From [EMAIL PROTECTED] Thu Mar 08 06:26:14 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 14b1Ms-0006TD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
06:26:14 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFBJASF>; Thu, 8 Mar 2001 09:28:09 -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: Thu, 8 Mar 2001 09:28:08 -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/>
Found it!!! And I'm a bit more humble for it... I was missing
Win32::GUI::Dialog(); in my code. Duh.
-----Original Message-----
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 07, 2001 2:55 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] combobox making me crazy
I hate to be a pest on this subject, but I still haven't come up with the
cause of the problem nor the solution. Again, I have comboboxes that pull
down when I click on the handle but it does not display the text. However,
if I arrow-down while it is open I can then see and select (by hitting
return but not clicking) each item.
I have quite a few comboboxes (22) on the window and they are inside a
groupbox. Any chance either of these instances should make a difference?
_______________________________________________
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 Mar 08 06:53:02 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 14b1mn-0001y4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
06:53:02 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA108886
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001
15:54:45 +0100
Received: from unknown(194.185.18.130) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.130-FD7UMa; Thu Mar 8 15:54:45 2001
Date: Thu, 8 Mar 2001 16:00:02 +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] Re: how to set ?
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:
> This doesnt work
>
> $ModuleWindow->text2_tab1->Change(-readonly => 1);
>
> what is the correct way ?
this will work in the next release. I've found that you
need to send a message to change the ES_READONLY style
*after* control creation. this is the 'workaround'
message if you're in a hurry:
# set -readonly => 1
$ModuleWindow->text2_tab1->SendMessage(0x00CF, 1, 0);
# set -readonly => 0
$ModuleWindow->text2_tab1->SendMessage(0x00CF, 0, 0);
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Mar 08 06:55:30 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 14b1pB-0002fC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
06:55:29 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id PAA98178
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001
15:57:14 +0100
Received: from unknown(194.185.18.130) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.130-uB4lUa; Thu Mar 8 15:57:14 2001
Date: Thu, 8 Mar 2001 16:02:33 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Glenn Linderman <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Textfield 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/>
Glenn Linderman wrote:
> The -vscroll doesn't seem to have any affect. When I later
>
> $help_text -> Text ( $long_string );
>
> and use a string that is longer than fits in the Textfield, I
> expected, but did not get, a vertical scroll bar on the right of
> the Text field. Any easy way to make that happen? Or must I
> limit my help text to the available space?
add this option when you create the Textfield:
-autovscroll => 1
this should do the trick.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Mar 08 06:58:32 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 14b1s8-00038G-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
06:58:32 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id QAA97914
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001
16:00:15 +0100
Received: from unknown(194.185.18.130) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.130-M8G6Ma; Thu Mar 8 16:00:15 2001
Date: Thu, 8 Mar 2001 16:05:35 +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] -style info source
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:
> is there a good source of info for using the -style attribute
> with the GUI objects?
Micro$$$oft's MSDN Library. but please note that -style is
*absolutely* deprecated. use the available options, and if
they don't do what you want them to do, complain about this
and I'll (try yo) seek a remedy. -style is there ONLY for
people who want to (and are able to) access the raw Win32 API
behind Win32::GUI :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Mar 08 07:07:15 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 14b20X-0003ub-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
07:07:14 -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 KAA24074
for <[EMAIL PROTECTED]>; Thu, 8 Mar 2001 10:17:43 -0500
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFBJBKP>; Thu, 8 Mar 2001 10:09:06 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "Perl GUI Mail list (E-mail)" <[EMAIL PROTECTED]>
Date: Thu, 8 Mar 2001 10:09:07 -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] Win32::GUI gives memory back to OS?
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/>
Does Win32::GUI give memory back to the OS (WinNT)? I know this has been an
on and off topic for Perl in general. And the answer is usually, no, Perl
does not give memory back.
Try this experiment: open any GUI script (seems to be true for any, at least
on WinNT 4.0). While it is open, open Windows TaskManager and goto Processes
tab. Identify the perl process. Note the Mem Usage. Leave TaskManager open
and minimize the perl gui window. Note the Mem Usage. Then restore the perl
gui window to its original size. Note the Mem Usage.
On my system, it would appear that minimizing and restoring the window
reduces the amount of memory the gui script uses (by quite a bit!). Is this
true or is it some slight-of-hand?
From [EMAIL PROTECTED] Thu Mar 08 07:14:01 2001
Received: from mailrelay1.tfn.com ([198.80.144.7])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14b276-0004V0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
07:14:00 -0800
Received: from 198.80.144.9 by mailrelay1.tfn.com (InterScan E-Mail VirusWall
NT); Thu, 08 Mar 2001 10:15:31 -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 f28FFUs17864 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001 10:15:30 -0500
(EST)
Received: by tfsmamsg3.tfn.com with Internet Mail Service (5.5.2653.19)
id <D0LDY6RM>; Thu, 8 Mar 2001 10:15:30 -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] -style info source
Date: Thu, 8 Mar 2001 10:15: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/>
My guess is that using the listbox and updown objects will be the solution
to my problem. I should have experimented with these before diving off the
deep end with ~style.
Thanks, I love your GUI and that without even knowing it very well.
Larry
-----Original Message-----
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 08, 2001 10:06 AM
To: Moore, Larry
Subject: Re: [perl-win32-gui-users] -style info source
Moore, Larry wrote:
> is there a good source of info for using the -style attribute
> with the GUI objects?
Micro$$$oft's MSDN Library. but please note that -style is
*absolutely* deprecated. use the available options, and if
they don't do what you want them to do, complain about this
and I'll (try yo) seek a remedy. -style is there ONLY for
people who want to (and are able to) access the raw Win32 API
behind Win32::GUI :-)
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 Mar 08 08:43:37 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 14b3Vo-00052N-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
08:43:36 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id RAA11812
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001
17:45:12 +0100
Received: from unknown(194.185.18.130) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.130-6frSUa; Thu Mar 8 17:45:12 2001
Date: Thu, 8 Mar 2001 17:50:32 +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] Win32::GUI gives memory back to OS?
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:
> Does Win32::GUI give memory back to the OS (WinNT)? I know this
> has been an on and off topic for Perl in general. And the answer
> is usually, no, Perl does not give memory back.
this is a very well known problem, and has been solved in version
0.0.558. the observed behaviour (Mem Usage growing in the Task
Manager and falling back when the window is minimized) is the usual
behaviour of almost all Win32 applications.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Mar 08 10:52:45 2001
Received: from mailrelay1.tfn.com ([198.80.144.7])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14b5Wn-0001Iu-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
10:52:45 -0800
Received: from 198.80.144.9 by mailrelay1.tfn.com (InterScan E-Mail VirusWall
NT); Thu, 08 Mar 2001 13:53:56 -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 f28Imps24741 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 8 Mar 2001 13:48:51 -0500
(EST)
Received: by tfsmamsg3.tfn.com with Internet Mail Service (5.5.2653.19)
id <D0LDY0CN>; Thu, 8 Mar 2001 13:48:50 -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 Mar 2001 13:48:48 -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] use of Pos 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 have two listboxes each as the Buddy to an UpDown object.
I want to synchronize the selected item for the two listboxes.
I use two click event subroutines to allow selection in the list, as well as
two scroll events. I get an error message saying that the Pos method is not
available in my click subs, but after responding ok to these two messages,
one for each sub, my code seems to perform as I expect. What am I doing
wrong? Here is the code:
sub ud1_Scroll {
geo_codes_Click();
}
sub ud2_Scroll {
geo_names_Click();
}
sub geo_codes_Click {
$sel = $geo_codes->SelectedItem();
$updown2->Pos($sel);
}
sub geo_names_Click {
$sel = $geo_names->SelectedItem();
$updown1->Pos($sel);
}
Tks,
Larry
From [EMAIL PROTECTED] Thu Mar 08 11:31:51 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 14b68b-0007Va-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
11:31:50 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFBJF03>; Thu, 8 Mar 2001 14:33:42 -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] use of Pos method
Date: Thu, 8 Mar 2001 14:33:43 -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/>
Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
-----Original Message-----
From: Moore, Larry [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 08, 2001 1:49 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: [perl-win32-gui-users] use of Pos method
I have two listboxes each as the Buddy to an UpDown object.
I want to synchronize the selected item for the two listboxes.
I use two click event subroutines to allow selection in the list, as well as
two scroll events. I get an error message saying that the Pos method is not
available in my click subs, but after responding ok to these two messages,
one for each sub, my code seems to perform as I expect. What am I doing
wrong? Here is the code:
sub ud1_Scroll {
geo_codes_Click();
}
sub ud2_Scroll {
geo_names_Click();
}
sub geo_codes_Click {
$sel = $geo_codes->SelectedItem();
$updown2->Pos($sel);
}
sub geo_names_Click {
$sel = $geo_names->SelectedItem();
$updown1->Pos($sel);
}
Tks,
Larry
_______________________________________________
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 Mar 08 14:39:40 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14b94O-0005Sj-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
14:39:40 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <FZ5SQSA9>; Thu, 8 Mar 2001 14:42:07 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 8 Mar 2001 14:42:00 -0800
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] Arc function OK in 2000, not in 98?
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 made a paint sub that uses some drawing functions. It makes a beautiful
picture in Win2000, but on the target machine, running Win98, nothing shows.
Rectangle seems to work fine, Circle behaves strangely and Arc does not work
at all. Any ideas?
####### code snippet:
sub Paint
{
$pitch = $window->Pitch->{-text} % 360;
$roll = $window->Roll->{-text};
$roll += 180 if ($pitch > 90 && $pitch <= 270);
$roll = $roll % 360;
#print "$pitch $roll\n";
@_ = (180, 200, 100, $pitch + $roll, 180 - 2 * $pitch);
$dc->BeginPath();
$dc->Arc (@_[0..3], 0); # just position pen
$dc->AbortPath();
$dc->SelectObject($Pb5); # black pen, width 5
$dc->SelectObject($Bblu); # blue brush
$dc->BeginPath();
$dc->Arc (@_);
$dc->CloseFigure();
$dc->EndPath();
$dc->StrokeAndFillPath();
$dc->SelectObject($Pw4); # white pen, width 4
$dc->SelectObject($Bbro); # brown brush
$dc->BeginPath();
$dc->Arc (@_[0..2], $_[3] + $_[4], 360 - $_[4]);
$dc->CloseFigure();
$dc->EndPath();
$dc->StrokeAndFillPath();
$dc->SelectObject($Pb5);
$dc->Arc (@_[0..3], 360); # redraw circle in black
return 1;
}
From [EMAIL PROTECTED] Thu Mar 08 14:55:42 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14b9Ju-00073F-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 08 Mar 2001
14:55:42 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <FZ5SQSD6>; Thu, 8 Mar 2001 14:58:08 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 8 Mar 2001 14:58:02 -0800
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] ChangeCursor for one button only
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 I use $Mainwindow->Thisbutton->ChangeCursor ($fancyicon) then the mouse
cursor changes to the new resource whenever the mouse is positioned over ANY
button on the window. Seems the ChangeCursor affects the class and not the
object ...? Lacking MouseEnter and MouseLeave, how do I make ONE button come
up with a different cursor?
Regards,
Harald
PS: since I'm new to this group (and, in fact, to participating in any such
group ever), lemme introduce myself: I'm the guy asking this.
As probably all of us, I'm totally thrilled with Aldo's work, have a lot
more time at hand now for the kids because everything is so ridiculously
easy, and want to be part in pushing the limits of what you can do with
Win32-GUI. Oh, and Aldo, I'm sorry for bugging you before, but you know ...
us newbies ... had to find, and subscribe to, this group first.
From [EMAIL PROTECTED] Fri Mar 09 07:03:16 2001
Received: from mailrelay2.tfn.com ([198.80.144.8])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14bOQF-0004y7-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
07:03:15 -0800
Received: from 198.80.144.9 by mailrelay2.tfn.com (InterScan E-Mail VirusWall
NT); Fri, 09 Mar 2001 10:05:02 -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 f29F4wY25157 for
<perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Mar 2001 10:04:58 -0500
(EST)
Received: by tfsmamsg2.tfn.com with Internet Mail Service (5.5.2653.19)
id <GH2TZW41>; Fri, 9 Mar 2001 10:04:58 -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] use of Pos method
Date: Fri, 9 Mar 2001 10:04:57 -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/>
->Select() doesn't work, I tried it, because $updown1 and $updown2 are
UpDown objects and Pos is the method for this object. If I comment out the
two lines which set the Pos, then the program dies immediately.
Larry
-----Original Message-----
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 08, 2001 2:34 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] use of Pos method
Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
-----Original Message-----
From: Moore, Larry [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 08, 2001 1:49 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: [perl-win32-gui-users] use of Pos method
I have two listboxes each as the Buddy to an UpDown object.
I want to synchronize the selected item for the two listboxes.
I use two click event subroutines to allow selection in the list, as well as
two scroll events. I get an error message saying that the Pos method is not
available in my click subs, but after responding ok to these two messages,
one for each sub, my code seems to perform as I expect. What am I doing
wrong? Here is the code:
sub ud1_Scroll {
geo_codes_Click();
}
sub ud2_Scroll {
geo_names_Click();
}
sub geo_codes_Click {
$sel = $geo_codes->SelectedItem();
$updown2->Pos($sel);
}
sub geo_names_Click {
$sel = $geo_names->SelectedItem();
$updown1->Pos($sel);
}
Tks,
Larry
_______________________________________________
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 Mar 09 08:47:41 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14bQ3J-0002ym-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
08:47:41 -0800
Received: from netzero.net (putc32161209127.cts.com [216.120.9.127])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id IAA01511
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Mar 2001
08:49:25 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 09 Mar 2001 08:49:46 -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] use of Pos method
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/>
"Moore, Larry" wrote:
> ->Select() doesn't work, I tried it, because $updown1 and $updown2 are
> UpDown objects and Pos is the method for this object. If I comment out the
> two lines which set the Pos, then the program dies immediately.
I suspect this latter death is caused by the lack of an appropriate return
value. Event subs return -1/0/1 to result in death/no action/default action
respectively.
When you comment out Pos, the return value is $sel, which is -1 if nothing is
selected....
I haven't played with UpDown yet, I'm interested to watch future responses in
this thread.
>
>
> Larry
>
> -----Original Message-----
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
> Sent: Thursday, March 08, 2001 2:34 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: RE: [perl-win32-gui-users] use of Pos method
>
> Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
>
> -----Original Message-----
> From: Moore, Larry [mailto:[EMAIL PROTECTED]
> Sent: Thursday, March 08, 2001 1:49 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: [perl-win32-gui-users] use of Pos method
>
> I have two listboxes each as the Buddy to an UpDown object.
>
> I want to synchronize the selected item for the two listboxes.
>
> I use two click event subroutines to allow selection in the list, as well as
> two scroll events. I get an error message saying that the Pos method is not
> available in my click subs, but after responding ok to these two messages,
> one for each sub, my code seems to perform as I expect. What am I doing
> wrong? Here is the code:
>
> sub ud1_Scroll {
> geo_codes_Click();
> }
>
> sub ud2_Scroll {
> geo_names_Click();
> }
>
> sub geo_codes_Click {
> $sel = $geo_codes->SelectedItem();
> $updown2->Pos($sel);
> }
>
> sub geo_names_Click {
> $sel = $geo_names->SelectedItem();
> $updown1->Pos($sel);
> }
>
> Tks,
> Larry
>
> _______________________________________________
> 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
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
--
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 09 08:52:42 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14bQ8A-0003SY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
08:52:42 -0800
Received: from netzero.net (putc32161209127.cts.com [216.120.9.127])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id IAA03839
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Mar 2001
08:54:30 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 09 Mar 2001 08:54:51 -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
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] Bug in Textfield scrolling
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,
Once I actually got 0.0.558 installed (no clue what version
ActiveState's ppm gets by default) a number of things started working
better for me. (no surprise there, I suspect).
However, I note that scrolling doesn't work in Textfield items... the
top/bottom line of text doesn't get erased during the scroll, and the
new line overwrites it. This is pretty consistent for most ways you can
scroll, except that clicking in the empty area of a scrollbar to scroll
down actually works. Perhaps doing that to scroll up would also work,
if I had enough data to have a whole page worth the scroll up to.
Fortunately, scrolling seems to work in RichEdit, so I switched. I'm
sure there is a performance penalty for switching to RichEdit, but an a
GHz machine, it isn't noticable.
--
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 09 08:57:01 2001
Received: from mailrelay2.tfn.com ([198.80.144.8])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14bQCL-0003vx-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
08:57:01 -0800
Received: from 198.80.144.9 by mailrelay2.tfn.com (InterScan E-Mail VirusWall
NT); Fri, 09 Mar 2001 11:58:48 -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 f29GwlY02073 for
<perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Mar 2001 11:58:47 -0500
(EST)
Received: by tfsmamsg3.tfn.com with Internet Mail Service (5.5.2653.19)
id <GSJRGG21>; Fri, 9 Mar 2001 11:58:47 -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] use of Pos method
Date: Fri, 9 Mar 2001 11:58:43 -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/>
Bingo! I changed my subs to:
sub geo_codes_Click {
$sel = $geo_codes->SelectedItem();
if ($sel != -1 ) {$updown2->Pos($sel);}
}
(lifted from sample code I must confess) and happiness returns.
Larry
-----Original Message-----
From: Glenn Linderman [mailto:[EMAIL PROTECTED]
Sent: Friday, March 09, 2001 11:50 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] use of Pos method
"Moore, Larry" wrote:
> ->Select() doesn't work, I tried it, because $updown1 and $updown2 are
> UpDown objects and Pos is the method for this object. If I comment out
the
> two lines which set the Pos, then the program dies immediately.
I suspect this latter death is caused by the lack of an appropriate return
value. Event subs return -1/0/1 to result in death/no action/default action
respectively.
When you comment out Pos, the return value is $sel, which is -1 if nothing
is
selected....
I haven't played with UpDown yet, I'm interested to watch future responses
in
this thread.
>
>
> Larry
>
> -----Original Message-----
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
> Sent: Thursday, March 08, 2001 2:34 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: RE: [perl-win32-gui-users] use of Pos method
>
> Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
>
> -----Original Message-----
> From: Moore, Larry [mailto:[EMAIL PROTECTED]
> Sent: Thursday, March 08, 2001 1:49 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: [perl-win32-gui-users] use of Pos method
>
> I have two listboxes each as the Buddy to an UpDown object.
>
> I want to synchronize the selected item for the two listboxes.
>
> I use two click event subroutines to allow selection in the list, as well
as
> two scroll events. I get an error message saying that the Pos method is
not
> available in my click subs, but after responding ok to these two messages,
> one for each sub, my code seems to perform as I expect. What am I doing
> wrong? Here is the code:
>
> sub ud1_Scroll {
> geo_codes_Click();
> }
>
> sub ud2_Scroll {
> geo_names_Click();
> }
>
> sub geo_codes_Click {
> $sel = $geo_codes->SelectedItem();
> $updown2->Pos($sel);
> }
>
> sub geo_names_Click {
> $sel = $geo_names->SelectedItem();
> $updown1->Pos($sel);
> }
>
> Tks,
> Larry
>
> _______________________________________________
> 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
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
_______________________________________________
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 Mar 09 08:59:05 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14bQEL-0004lk-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
08:59:05 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <FZ5SQWYY>; Fri, 9 Mar 2001 09:01:39 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: [perl-win32-gui-users] default GUI installed by PPM (was RE: Bug
in Textfield scrolling)
Date: Fri, 9 Mar 2001 09:01:38 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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/>
| Once I actually got 0.0.558 installed (no clue what version
| ActiveState's ppm gets by default) a number of things started working
| better for me. (no surprise there, I suspect).
same here. When you do PPM QUERY it states version 0.99, which is > 0.0.558,
so it refuses to install the "older" version. ActiveState should store the
latest versions on their site.
From [EMAIL PROTECTED] Fri Mar 09 09:19:08 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 14bQXj-0001C3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
09:19:07 -0800
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id SAA84646
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 9 Mar 2001
18:20:53 +0100
Received: from unknown(194.185.18.130) by fe-2.inet.it via I-SMTP
id queue/s-194.185.18.130-jh.HMa; Fri Mar 9 18:20:53 2001
Date: Fri, 9 Mar 2001 18:26:18 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Piske, Harald" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] default GUI installed by PPM (was RE: Bug
in Textfield scrolling)
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/>
Piske, Harald wrote:
> same here. When you do PPM QUERY it states version 0.99, which
> is > 0.0.558, so it refuses to install the "older" version.
> ActiveState should store the latest versions on their site.
ActiveState should had never invented the 0.99 version number
(at least not without contacting me first). blame ActiveState
for this, and no, I'm not going to release 1.00 just because
they were too creative ;-).
when in doubt, it's always safer to do a 'ppm remove' before
the install.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri Mar 09 09:28:55 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14bQhD-0003nV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 09 Mar 2001
09:28:55 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <FZ5SQW67>; Fri, 9 Mar 2001 09:31:30 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] default GUI installed by PPM (was RE:
Bug in Textfield scrolling)
Date: Fri, 9 Mar 2001 09:31:29 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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/>
Hi Aldo
Still, I think somebody should do something about it. The way it is, it
damages the reputation of Win32-GUI because people install it, try to run
the samples, go "the thing can not do what I need" and never try again.
Imagine, until I discovered what's wrong, I almost started my project in VB,
yuck ;-)
cu
Harald
| -----Original Message-----
| From: Aldo Calpini [mailto:[EMAIL PROTECTED]
| Sent: Friday, March 09, 2001 9:26
| To: Piske, Harald
| Subject: Re: [perl-win32-gui-users] default GUI installed by PPM (was
| RE: Bug in Textfield scrolling)
|
|
| Piske, Harald wrote:
| > same here. When you do PPM QUERY it states version 0.99, which
| > is > 0.0.558, so it refuses to install the "older" version.
| > ActiveState should store the latest versions on their site.
|
| ActiveState should had never invented the 0.99 version number
| (at least not without contacting me first). blame ActiveState
| for this, and no, I'm not going to release 1.00 just because
| they were too creative ;-).
|
| when in doubt, it's always safer to do a 'ppm remove' before
| the install.
|
|
| 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] Sat Mar 10 15:29:42 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 14bsnY-0007f9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 10 Mar 2001
15:29:21 -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 SAA27125
for <[EMAIL PROTECTED]>; Sat, 10 Mar 2001 18:40:07 -0500
Received: from ppp96-183.dialup.mtu-net.ru (ppp96-183.dialup.mtu-net.ru
[212.188.96.183])
by s1.ebox.ru (8.9.3/8.9.3) with ESMTP id CAA01811;
Sun, 11 Mar 2001 02:26:14 +0300
Date: Sun, 11 Mar 2001 01:08:45 +0300
From: Dmitry <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.45) Personal
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
CC: [EMAIL PROTECTED], perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Progress Bar
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: Dmitry <[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/>
Hello
1. Where can i find examples of using Win32::GUI or additional
controls ???
2. What is a correct way to write my own control/subclass ?
Thanx
--
Best regards,
Dmitry mailto:[EMAIL PROTECTED]
From [EMAIL PROTECTED] Sat Mar 10 15:30:14 2001
Received: from ebox.ru ([193.124.133.19] helo=s1.ebox.ru)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14bso9-0007gI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 10 Mar 2001
15:29:57 -0800
Received: from ppp96-183.dialup.mtu-net.ru (ppp96-183.dialup.mtu-net.ru
[212.188.96.183])
by s1.ebox.ru (8.9.3/8.9.3) with ESMTP id CAA01811;
Sun, 11 Mar 2001 02:26:14 +0300
Date: Sun, 11 Mar 2001 01:08:45 +0300
From: Dmitry <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.45) Personal
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
CC: [EMAIL PROTECTED], perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Progress Bar
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: Dmitry <[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/>
Hello
1. Where can i find examples of using Win32::GUI or additional
controls ???
2. What is a correct way to write my own control/subclass ?
Thanx
--
Best regards,
Dmitry mailto:[EMAIL PROTECTED]
From [EMAIL PROTECTED] Sun Mar 11 09:52:12 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 14cA0o-0004cT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 11 Mar 2001
09:52:10 -0800
Received: from christop (unknown [203.197.134.150])
by md4.vsnl.net.in (Postfix) with SMTP id 4FEC09F6B
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 11 Mar 2001
23:28:18 +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: Sun, 11 Mar 2001 23:16:59 +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] icons for every occasion
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
It may have been told in the docs but I may have missed it
Is it possible to create different icons for different occasions for the
same win32 gui script..
if so please give me sample code
The occasions are
1. In the desktop ( as shortcut)
2. When it is minimized on the bottom bar
3 when the window is open
4 When the window is made a small icon on the Task bar
5 When the script file is seen under windows explorer file listing
if I have 5 different icon images how to insert them into the code
apprpriately ?
chris
From [EMAIL PROTECTED] Mon Mar 12 00:59:46 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 14cOB8-0002YD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
00:59:46 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id JAA08341; Mon, 12 Mar 2001 09:01:32 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 12 Mar 2001 09:07:55 +0000
Subject: RE: [perl-win32-gui-users] default GUI installed by PPM (was RE:
Bug in Textfield scrolling)
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 Guys
Has anyone contacted ActiveState and asked them to use the newer distribution ?
I'll be happy to try since I'm officially "Win32 PPM chief" !
Cheers
PB
*******************************************************************************
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] Mon Mar 12 04:55:38 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 14cRrO-0001fQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
04:55:38 -0800
Received: from christop (unknown [203.199.232.35])
by md4.vsnl.net.in (Postfix) with SMTP id C4A2EA463
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
18:31:30 +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]>
Subject: Re: [perl-win32-gui-users] icons for every occasion
Date: Mon, 12 Mar 2001 18:20:13 +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/>
has anyone got an answer to the following question ?
chris
----- Original Message -----
From: christopher sagayam <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Sunday, March 11, 2001 11:16 PM
Subject: [perl-win32-gui-users] icons for every occasion
Hi all
It may have been told in the docs but I may have missed it
Is it possible to create different icons for different occasions for the
same win32 gui script..
if so please give me sample code
The occasions are
1. In the desktop ( as shortcut)
2. When it is minimized on the bottom bar
3 when the window is open
4 When the window is made a small icon on the Task bar
5 When the script file is seen under windows explorer file listing
if I have 5 different icon images how to insert them into the code
apprpriately ?
chris
_______________________________________________
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 12 10:13:52 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14cWpM-0007ka-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
10:13:52 -0800
Received: from netzero.net (putc2218096.cts.com [209.68.218.96])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id KAA24235
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
10:15:47 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 12 Mar 2001 10:16:15 -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] icons for every occasion
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[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 have some answers, but I don't know for sure what your questions are. It
would help if you use well-defined terminology. Someone may be more
knowledgable about Windows than me, and provide better answers, but here's
what I know.
christopher sagayam wrote:
> Is it possible to create different icons for different occasions for the
> same win32 gui script..
Yes. But you have to detect the occasions yourself.
> if so please give me sample code
Don't have sample code.
> The occasions are
>
> 1. In the desktop ( as shortcut)
Windows properties allows you to choose any icon for any shortcut, whether it
is related to the launch program or not. Create the shortcut, pop up the
properties window, shortcut tab, "Change icon". From the docs it looks like
the Win32::Shortcut package could also be used to achieve that same end.
> 2. When it is minimized on the bottom bar
Whatever the "bottom bar" is? I assume you mean the Windows task bar
(although you use that term later, to maybe mean something else?)
This is the same icon as is used for the window itself, when the window is
open. The task entry is visible in the task bar when the window is open, as
well as when it is minimized. You can change the icons when you get a
"_Minimize" event if you want, and change it again on "_Maximize" or
"_Resize", or "_Activate" events, which may achieve your goals, but would not
give a consistent icon in the task bar for the duration of the program, as is
typical for windows programs.
> 3 when the window is open
Just call $my_window -> SetIcon with appropriate parameters
> 4 When the window is made a small icon on the Task bar
Again, this isn't clear. Perhaps you mean in the "system tray"? In which
case you would use the Win32::GUI::NotifyIcon features.
> 5 When the script file is seen under windows explorer file listing
The icon here is derived from the program that is used to "open" the script
file by default. You may have to make an extra copy of perl and change its
default icon to achieve this one. You'd also have to rename your script
files for which you want a "different than the perl icon" icon, to have a
unique extension, to which you define the association to the extra copy of
perl.
> if I have 5 different icon images how to insert them into the code
> apprpriately ?
>
> chris
>
> _______________________________________________
> 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
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Mon Mar 12 10:49:35 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 14cXNu-0006MM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
10:49:34 -0800
Received: from christop (unknown [203.199.232.209])
by md4.vsnl.net.in (Postfix) with SMTP id D9A48A488
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Mar 2001
00:25:43 +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]> <[EMAIL
PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] icons for every occasion
Date: Tue, 13 Mar 2001 00:14: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/>
Thanks
chris
www.perl-resume.com
----- Original Message -----
From: Glenn Linderman <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, March 12, 2001 11:46 PM
Subject: Re: [perl-win32-gui-users] icons for every occasion
I have some answers, but I don't know for sure what your questions are. It
would help if you use well-defined terminology. Someone may be more
knowledgable about Windows than me, and provide better answers, but here's
what I know.
christopher sagayam wrote:
> Is it possible to create different icons for different occasions for the
> same win32 gui script..
Yes. But you have to detect the occasions yourself.
> if so please give me sample code
Don't have sample code.
> The occasions are
>
> 1. In the desktop ( as shortcut)
Windows properties allows you to choose any icon for any shortcut, whether
it
is related to the launch program or not. Create the shortcut, pop up the
properties window, shortcut tab, "Change icon". From the docs it looks like
the Win32::Shortcut package could also be used to achieve that same end.
> 2. When it is minimized on the bottom bar
Whatever the "bottom bar" is? I assume you mean the Windows task bar
(although you use that term later, to maybe mean something else?)
This is the same icon as is used for the window itself, when the window is
open. The task entry is visible in the task bar when the window is open, as
well as when it is minimized. You can change the icons when you get a
"_Minimize" event if you want, and change it again on "_Maximize" or
"_Resize", or "_Activate" events, which may achieve your goals, but would
not
give a consistent icon in the task bar for the duration of the program, as
is
typical for windows programs.
> 3 when the window is open
Just call $my_window -> SetIcon with appropriate parameters
> 4 When the window is made a small icon on the Task bar
Again, this isn't clear. Perhaps you mean in the "system tray"? In which
case you would use the Win32::GUI::NotifyIcon features.
> 5 When the script file is seen under windows explorer file listing
The icon here is derived from the program that is used to "open" the script
file by default. You may have to make an extra copy of perl and change its
default icon to achieve this one. You'd also have to rename your script
files for which you want a "different than the perl icon" icon, to have a
unique extension, to which you define the association to the extra copy of
perl.
> if I have 5 different icon images how to insert them into the code
> apprpriately ?
>
> chris
>
> _______________________________________________
> 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
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
_______________________________________________
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 12 11:22:56 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14cXuB-0003v1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
11:22:55 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <GWFGYH7S>; Mon, 12 Mar 2001 11:25:30 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 12 Mar 2001 11:25:30 -0800
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] BringWindowToTop issue
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,
I know I'm getting naggy with things that no one ever comes across. This
time it's hiding select objects with $main->buggything->Hide(). When I bring
one back with Show() I need it to be on top, so I do
$main->buggything->BringWindowToTop(). Here's the catch:
- I only ever come on top of every other object that has previously been
hidden
- I have to do Win32::GUI::DoEvents() between Show() and BringWindowToTop()
or the object will actually land underneath all others, so effectively it
makes a SendWindowToBack()
These are not reliable results, the effects vary with factors I fail to
recognise (moon phase or so).
My message is, Show/Hide and BringWindowToTop don't seem to mix. If I ever
hide an object (or try to sneak around hiding by moving it off the visible
client area), the next BringWindowToTop will send it on top of all other
objects previously hidden, but beneath all "static junk".
Is that a MicroStuff "feature" or is this Win32-GUI specific? How do I show
a previously hidden thing on top of everything else? Any other way to affect
the Z-order? Please don't tell me to hide and show all my objects. I tried
and, guess what, just to annoy me, that doesn't work. My embarassing
work-around is to recreate the objects with $main->AddStuff() ... ouch.
From [EMAIL PROTECTED] Mon Mar 12 12:18:55 2001
Received: from web4104.mail.yahoo.com ([216.115.104.124])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14cYmM-0002Ut-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
12:18:54 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [209.187.202.225] by web4104.mail.yahoo.com; Mon, 12 Mar 2001
12:20:51 PST
Date: Mon, 12 Mar 2001 12:20:51 -0800 (PST)
From: Jeremy Blonde <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] BringWindowToTop issue
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/>
>From my understanding BringWindowToTop is for Windows
not objects on a window. I did a quick search on MSDN
and it seems to indicate this too. If I'm mistaken,
please let me know.
In view of that, I wonder if BringWindowToTop is
really doing anything, perhaps it's just the Show and
Hide behavior that you are dealing with. I'll look
through MSDN a little bit more and see if there is
anything there that can shed some light. Of course,
if someone already knows the answer they can save me
some time. ;-)
jb
--- "Piske, Harald" <[EMAIL PROTECTED]>
wrote:
> Hi all,
>
> I know I'm getting naggy with things that no one
> ever comes across. This
> time it's hiding select objects with
> $main->buggything->Hide(). When I bring
> one back with Show() I need it to be on top, so I do
> $main->buggything->BringWindowToTop(). Here's the
> catch:
> - I only ever come on top of every other object that
> has previously been
> hidden
> - I have to do Win32::GUI::DoEvents() between Show()
> and BringWindowToTop()
> or the object will actually land underneath all
> others, so effectively it
> makes a SendWindowToBack()
>
> These are not reliable results, the effects vary
> with factors I fail to
> recognise (moon phase or so).
> My message is, Show/Hide and BringWindowToTop don't
> seem to mix. If I ever
> hide an object (or try to sneak around hiding by
> moving it off the visible
> client area), the next BringWindowToTop will send it
> on top of all other
> objects previously hidden, but beneath all "static
> junk".
>
> Is that a MicroStuff "feature" or is this Win32-GUI
> specific? How do I show
> a previously hidden thing on top of everything else?
> Any other way to affect
> the Z-order? Please don't tell me to hide and show
> all my objects. I tried
> and, guess what, just to annoy me, that doesn't
> work. My embarassing
> work-around is to recreate the objects with
> $main->AddStuff() ... ouch.
>
> _______________________________________________
> 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!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/
From [EMAIL PROTECTED] Mon Mar 12 12:39:01 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14cZ5o-0005ED-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
12:39:00 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <GWFGY2MA>; Mon, 12 Mar 2001 12:41:38 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] BringWindowToTop issue
Date: Mon, 12 Mar 2001 12:41:37 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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/>
> From my understanding BringWindowToTop is for Windows
> not objects on a window.
I must admit that I suspected the same, but since it works so nicely (see
snippet below), I figured it should do what I want (Perl spoiled me with
it's "do what I mean" capability). By the way, there's SetForegroundWindow()
which does pretty much the same thing.
This code shows overlapping buttons that bring themselves to top when
clicked. If you uncomment the Hide()s, things start developing a mind of
their own. Add another object so that each covers part of the others and try
to make sense of what happens ... a nice solitaire ... note that you can
click a button on a spot that is covered!
=snip=============================
$main->AddButton
(
-name => 'knopf0',
-text => 'knopf0',
-pos => [200, 200],
-size => [70, 25],
);
sub knopf0_Click
{
# $main->knopf0->Hide();
$main->knopf0->Show();
$main->knopf0->BringWindowToTop ();
}
$main->AddButton
(
-name => 'knopf1',
-text => 'knopf1',
-pos => [225, 210],
-size => [70, 25],
);
sub knopf1_Click
{
# $main->knopf1->Hide();
$main->knopf1->Show();
$main->knopf1->BringWindowToTop ();
}
From [EMAIL PROTECTED] Mon Mar 12 12:53:18 2001
Received: from web4106.mail.yahoo.com ([216.115.104.126])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14cZJc-0006KQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
12:53:16 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [209.187.202.225] by web4106.mail.yahoo.com; Mon, 12 Mar 2001
12:55:12 PST
Date: Mon, 12 Mar 2001 12:55:12 -0800 (PST)
From: Jeremy Blonde <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] BringWindowToTop issue
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/>
I think that's it, Harald. If I just use ->Show and
->Hide on the object it displays correctly. If I
throw in ->BringWindowToTop it doesn't display the
object. I'd pull out the ->BringWindowToTop and it
should work correctly, if it doesn't send me your code
and I'll see what I'm doing differently.
Hope this helps,
jb
--- Jeremy Blonde <[EMAIL PROTECTED]> wrote:
> From my understanding BringWindowToTop is for
> Windows
> not objects on a window. I did a quick search on
> MSDN
> and it seems to indicate this too. If I'm mistaken,
> please let me know.
>
> In view of that, I wonder if BringWindowToTop is
> really doing anything, perhaps it's just the Show
> and
> Hide behavior that you are dealing with. I'll look
> through MSDN a little bit more and see if there is
> anything there that can shed some light. Of course,
> if someone already knows the answer they can save me
> some time. ;-)
>
> jb
>
> --- "Piske, Harald" <[EMAIL PROTECTED]>
> wrote:
> > Hi all,
> >
> > I know I'm getting naggy with things that no one
> > ever comes across. This
> > time it's hiding select objects with
> > $main->buggything->Hide(). When I bring
> > one back with Show() I need it to be on top, so I
> do
> > $main->buggything->BringWindowToTop(). Here's the
> > catch:
> > - I only ever come on top of every other object
> that
> > has previously been
> > hidden
> > - I have to do Win32::GUI::DoEvents() between
> Show()
> > and BringWindowToTop()
> > or the object will actually land underneath all
> > others, so effectively it
> > makes a SendWindowToBack()
> >
> > These are not reliable results, the effects vary
> > with factors I fail to
> > recognise (moon phase or so).
> > My message is, Show/Hide and BringWindowToTop
> don't
> > seem to mix. If I ever
> > hide an object (or try to sneak around hiding by
> > moving it off the visible
> > client area), the next BringWindowToTop will send
> it
> > on top of all other
> > objects previously hidden, but beneath all "static
> > junk".
> >
> > Is that a MicroStuff "feature" or is this
> Win32-GUI
> > specific? How do I show
> > a previously hidden thing on top of everything
> else?
> > Any other way to affect
> > the Z-order? Please don't tell me to hide and show
> > all my objects. I tried
> > and, guess what, just to annoy me, that doesn't
> > work. My embarassing
> > work-around is to recreate the objects with
> > $main->AddStuff() ... ouch.
> >
> > _______________________________________________
> > 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!?
> Yahoo! Auctions - Buy the things you want at great
> prices.
> http://auctions.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!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/
From [EMAIL PROTECTED] Mon Mar 12 18:19: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 14cePC-0006kJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
18:19:22 -0800
Received: from netzero.net (putc7218225.cts.com [209.68.218.225])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id SAA29703
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 12 Mar 2001
18:21:17 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 12 Mar 2001 18:21:45 -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] Windows newbie 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/>
Hi,
I've got another "newbie" question about Windows programming.
I wrote a nice Win32::GUI program that launches itself from the Startup
folder into the system tray, using NotifyIcon, and then pops open by
clicking on it, etc.
However, I don't know how to make the program cooperate with Windows
Shutdown. Without any special (event?) handling, when I initiate a
shutdown from the start menu (in Win98, at least) I get a dialog box
informing me that I must shut this program down before I can shut down
windows. And then, when I click OK to that, I get another informing me
that Windows doesn't know how to shut down this program, do I want to
Wait, End Task, or Cancel?. So I pressed End Task and it shutdown, but
clearly that isn't the right process.
The right process would not include either dialog box. How do I get rid
of them?
--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
-- Will Rogers
From [EMAIL PROTECTED] Tue Mar 13 09:43:45 2001
Received: from ausxc08.us.dell.com ([143.166.99.216])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14cspl-0006Mt-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Mar 2001
09:43:45 -0800
Received: by ausxc08.us.dell.com with Internet Mail Service (5.5.2650.21)
id <GT1NHVRP>; Tue, 13 Mar 2001 11:41:18 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Date: Tue, 13 Mar 2001 11:40:58 -0600
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] RE: [perl-win32-gui-users]Why Do I have to use
the Mouse???
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/>
Can Anybody help here.
At the moment I have to click on the textbox to highlight it before I can
enter anything and then I have to use the mouse to click validate it....
All I want is, When the progran start's the first textbox is already
highlighted and to submit it all I have to do is press Enter,
I am driven soft that something so trivial is anything But !!!!
or is it the softness in the brain has brought me to a point in my existence
from where there is nowhere to progress.
here it is
||
||
||
\/
use strict;
use Win32::GUI;
my $MWfont = Win32::GUI::Font->new(
-name => "Arial",
-size => 16,
);
my $W = new Win32::GUI::Window(
-name => "W",
-text => "Work....Let You !!!!!",
-left => 0,
-top => 0,
-width => 640,
-height => 480,
-font => $MWfont,
);
$W->AddTextfield(
-name => "Input",
-font => $MWfont,
-left => 20,
-top => 40,
-width => 100,
-height => 25,
-text => "",
-prompt => [ "Enter ???? : ", 100 ],
,
);
$W->AddButton(
-text => '&Validate',
-name => 'CmdValidate',
-left => 250,
-top => 40,
-default => 1,
-ok => 1,
-height => 25,
-width => 80,
);
$W->AddTextfield(
-name => "Display",
-readonly => 1,
-multiline => 1,
-left => 40,
-top => 130,
-width => 540,
-height => 120,
-text => "I'm a placeholder",
-foreground => [255,255,255],
-background =>[0, 0, 255],
);
$W->AddStatusBar(
-name => "Status",
-text => "What Will I Look For Today .",
);
$W ->Show;
Win32::GUI::Dialog();
sub MainWindow_Terminate {
PostQuitMessage(1);
}
#=============
sub W_Resize {
#=============
$W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
$W->Status->Resize($W->ScaleWidth, $W->Status->Height);
return 1;
}
#===============
sub Exit_Click {
#===============
return -1;
}
#===============
sub CmdValidate_Click {
#===============
$W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
}
Rgds Eoin:
EMF2 Test Engineering
mailto:[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Mar 13 09:59:46 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ct5E-00087x-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Mar 2001
09:59:45 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <GWFGY3QR>; Tue, 13 Mar 2001 10:02:25 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Why Do I have to use the Mouse???
Date: Tue, 13 Mar 2001 10:02:24 -0800
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/>
> All I want is, When the progran start's the first textbox is already
> highlighted and to submit it all I have to do is press Enter,
I haven't done it, just read about it, so forgive me if I write something
stupid (I would anyway).
>From my understanding you have to go through the process of creating an
accelerator table (the name of which does not suggest using it is fast and
easy) and then assign the enter key to a subroutine.
But there's an alternative. Instead of Window(), use DialogBox() which,
among other differences, comes with tab end enter keys working. As I said, I
didn't use this myself, so I don't know if you have to undergo a special
ritual before it does what you want. You may need a default (OK) button for
enter.
cu
Harald
From [EMAIL PROTECTED] Tue Mar 13 13:06:09 2001
Received: from web4106.mail.yahoo.com ([216.115.104.126])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14cvzc-00035X-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Mar 2001
13:06:09 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [208.210.221.70] by web4106.mail.yahoo.com; Tue, 13 Mar 2001
13:08:10 PST
Date: Tue, 13 Mar 2001 13:08:10 -0800 (PST)
From: Jeremy Blonde <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???
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/>
$W->Display->SetFocus(), I believe is what you are
looking for.
I also use $W->Display->SelectAll() so that the text
is highlighted and when you start typing it wipes out
all of the previous text.
jb
--- [EMAIL PROTECTED] wrote:
> Can Anybody help here.
> At the moment I have to click on the textbox to
> highlight it before I can
> enter anything and then I have to use the mouse to
> click validate it....
> All I want is, When the progran start's the first
> textbox is already
> highlighted and to submit it all I have to do is
> press Enter,
> I am driven soft that something so trivial is
> anything But !!!!
> or is it the softness in the brain has brought me to
> a point in my existence
> from where there is nowhere to progress.
>
> here it is
> ||
> ||
> ||
> \/
>
> use strict;
> use Win32::GUI;
>
> my $MWfont = Win32::GUI::Font->new(
> -name => "Arial",
> -size => 16,
> );
>
> my $W = new Win32::GUI::Window(
> -name => "W",
> -text => "Work....Let You !!!!!",
> -left => 0,
> -top => 0,
> -width => 640,
> -height => 480,
> -font => $MWfont,
> );
>
> $W->AddTextfield(
> -name => "Input",
> -font => $MWfont,
> -left => 20,
> -top => 40,
> -width => 100,
> -height => 25,
> -text => "",
> -prompt => [ "Enter ???? : ", 100 ],
> ,
> );
>
>
> $W->AddButton(
> -text => '&Validate',
> -name => 'CmdValidate',
> -left => 250,
> -top => 40,
> -default => 1,
> -ok => 1,
> -height => 25,
> -width => 80,
> );
>
>
> $W->AddTextfield(
> -name => "Display",
> -readonly => 1,
> -multiline => 1,
> -left => 40,
> -top => 130,
> -width => 540,
> -height => 120,
> -text => "I'm a placeholder",
> -foreground => [255,255,255],
> -background =>[0, 0, 255],
> );
>
> $W->AddStatusBar(
> -name => "Status",
> -text => "What Will I Look For Today .",
> );
> $W ->Show;
> Win32::GUI::Dialog();
>
> sub MainWindow_Terminate {
> PostQuitMessage(1);
> }
>
>
> #=============
> sub W_Resize {
> #=============
> $W->Status->Move(0,
> $W->ScaleHeight-$W->Status->Height);
> $W->Status->Resize($W->ScaleWidth,
> $W->Status->Height);
> return 1;
> }
>
> #===============
> sub Exit_Click {
> #===============
> return -1;
> }
>
> #===============
> sub CmdValidate_Click {
> #===============
> $W->Display->{-text} =
> 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
> }
>
>
> Rgds Eoin:
> EMF2 Test Engineering
> mailto:[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!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/
From [EMAIL PROTECTED] Tue Mar 13 13:41:53 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14cwY7-0006WP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Mar 2001
13:41:48 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id QAA11357 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 13 Mar 2001 16:43:35 -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] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???
Date: Tue, 13 Mar 2001 16:41:08 -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/>
Add the following before your "$W ->Show;":
$W->{-dialogui} = 1;
and it should make the Window act like a DialogBox.
Use Jeremy's suggestion to put the cursor in the textfield.
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: Tuesday, March 13, 2001 12:40 PM
Subject: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???
> Can Anybody help here.
> At the moment I have to click on the textbox to highlight it before I can
> enter anything and then I have to use the mouse to click validate it....
> All I want is, When the progran start's the first textbox is already
> highlighted and to submit it all I have to do is press Enter,
> I am driven soft that something so trivial is anything But !!!!
> or is it the softness in the brain has brought me to a point in my
existence
> from where there is nowhere to progress.
>
> here it is
> ||
> ||
> ||
> \/
>
> use strict;
> use Win32::GUI;
>
> my $MWfont = Win32::GUI::Font->new(
> -name => "Arial",
> -size => 16,
> );
>
> my $W = new Win32::GUI::Window(
> -name => "W",
> -text => "Work....Let You !!!!!",
> -left => 0,
> -top => 0,
> -width => 640,
> -height => 480,
> -font => $MWfont,
> );
>
> $W->AddTextfield(
> -name => "Input",
> -font => $MWfont,
> -left => 20,
> -top => 40,
> -width => 100,
> -height => 25,
> -text => "",
> -prompt => [ "Enter ???? : ", 100 ],
> ,
> );
>
>
> $W->AddButton(
> -text => '&Validate',
> -name => 'CmdValidate',
> -left => 250,
> -top => 40,
> -default => 1,
> -ok => 1,
> -height => 25,
> -width => 80,
> );
>
>
> $W->AddTextfield(
> -name => "Display",
> -readonly => 1,
> -multiline => 1,
> -left => 40,
> -top => 130,
> -width => 540,
> -height => 120,
> -text => "I'm a placeholder",
> -foreground => [255,255,255],
> -background =>[0, 0, 255],
> );
>
> $W->AddStatusBar(
> -name => "Status",
> -text => "What Will I Look For Today .",
> );
> $W ->Show;
> Win32::GUI::Dialog();
>
> sub MainWindow_Terminate {
> PostQuitMessage(1);
> }
>
>
> #=============
> sub W_Resize {
> #=============
> $W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
> $W->Status->Resize($W->ScaleWidth, $W->Status->Height);
> return 1;
> }
>
> #===============
> sub Exit_Click {
> #===============
> return -1;
> }
>
> #===============
> sub CmdValidate_Click {
> #===============
> $W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
> }
>
>
> Rgds Eoin:
> EMF2 Test Engineering
> mailto:[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 Mar 14 01:04:12 2001
Received: from ausxc07.us.dell.com ([143.166.99.215])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14d7CW-0006E9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001
01:04:12 -0800
Received: by ausxc07.us.dell.com with Internet Mail Service (5.5.2650.21)
id <GVTPV9KG>; Wed, 14 Mar 2001 03:03:25 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I hav
e to use the Mouse???
Date: Wed, 14 Mar 2001 03:03:01 -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/>
Jonathon/Jemery
Thank's a bundle, That Works,
$W->{-dialogui} = 1;
$W->Input->SetFocus();
I can Feel the softness in my head clearing now..
Rgds Eoin:
mailto:[EMAIL PROTECTED]
-----Original Message-----
From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
Sent: 13 March 2001 21:41
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I
have to use the Mouse???
Add the following before your "$W ->Show;":
$W->{-dialogui} = 1;
and it should make the Window act like a DialogBox.
Use Jeremy's suggestion to put the cursor in the textfield.
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: Tuesday, March 13, 2001 12:40 PM
Subject: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???
> Can Anybody help here.
> At the moment I have to click on the textbox to highlight it before I can
> enter anything and then I have to use the mouse to click validate it....
> All I want is, When the progran start's the first textbox is already
> highlighted and to submit it all I have to do is press Enter,
> I am driven soft that something so trivial is anything But !!!!
> or is it the softness in the brain has brought me to a point in my
existence
> from where there is nowhere to progress.
>
> here it is
> ||
> ||
> ||
> \/
>
> use strict;
> use Win32::GUI;
>
> my $MWfont = Win32::GUI::Font->new(
> -name => "Arial",
> -size => 16,
> );
>
> my $W = new Win32::GUI::Window(
> -name => "W",
> -text => "Work....Let You !!!!!",
> -left => 0,
> -top => 0,
> -width => 640,
> -height => 480,
> -font => $MWfont,
> );
>
> $W->AddTextfield(
> -name => "Input",
> -font => $MWfont,
> -left => 20,
> -top => 40,
> -width => 100,
> -height => 25,
> -text => "",
> -prompt => [ "Enter ???? : ", 100 ],
> ,
> );
>
>
> $W->AddButton(
> -text => '&Validate',
> -name => 'CmdValidate',
> -left => 250,
> -top => 40,
> -default => 1,
> -ok => 1,
> -height => 25,
> -width => 80,
> );
>
>
> $W->AddTextfield(
> -name => "Display",
> -readonly => 1,
> -multiline => 1,
> -left => 40,
> -top => 130,
> -width => 540,
> -height => 120,
> -text => "I'm a placeholder",
> -foreground => [255,255,255],
> -background =>[0, 0, 255],
> );
>
> $W->AddStatusBar(
> -name => "Status",
> -text => "What Will I Look For Today .",
> );
> $W ->Show;
> Win32::GUI::Dialog();
>
> sub MainWindow_Terminate {
> PostQuitMessage(1);
> }
>
>
> #=============
> sub W_Resize {
> #=============
> $W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
> $W->Status->Resize($W->ScaleWidth, $W->Status->Height);
> return 1;
> }
>
> #===============
> sub Exit_Click {
> #===============
> return -1;
> }
>
> #===============
> sub CmdValidate_Click {
> #===============
> $W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
> }
>
>
> Rgds Eoin:
> EMF2 Test Engineering
> mailto:[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] Wed Mar 14 06:27:14 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 14dCF6-0002wk-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001
06:27:13 -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 JAA31086
for <[EMAIL PROTECTED]>; Wed, 14 Mar 2001 09:38:36 -0500
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFBLAFW>; Wed, 14 Mar 2001 09:29:22 -0500
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "Perl GUI Mail list (E-mail)" <[EMAIL PROTECTED]>
Date: Wed, 14 Mar 2001 09:29:21 -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] task 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/>
Is there any way to open a new window without creating a new item in the
OS's task bar? I'd like to open windows that are a sub of a main window but
show just one task bar item for the main window.
Thanks list.
Pete
From [EMAIL PROTECTED] Wed Mar 14 07:42:15 2001
Received: from [208.46.43.202] (helo=usclesec001.deepgreenbank.com)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14dDPj-0003Vn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001
07:42:15 -0800
Received: from uscleexg001.us.deepgreenbank.com by usclesec001.deepgreenbank.com
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 14 Mar 2001 15:43:55 UT
Received: by mail.deepgreenbank.com with Internet Mail Service (5.5.2650.21)
id <GLF3GXJ9>; Wed, 14 Mar 2001 10:44:19 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Cuthbert, Lance (DeepGreen Bank)"
<[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 14 Mar 2001 10:44:18 -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] Richtext 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
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 am having some difficulty with the Win32::GUI::RichEdit package and I am
hoping that someone might be able to help.
In the program that I writing the user invokes a RichEdit text box to view
the results of a database query. The first time the user
opens the RichEdit textbox, the results from just that query are present -
this is what I want. But, after the user closes that window
and runs another query, the next time the user opens the RichEdit textbox
the results from the first query as well as the second query
are there. Any ideas?
Thanks in advance.
> Lance S. Cuthbert
>
>
>
From [EMAIL PROTECTED] Wed Mar 14 07:50:53 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14dDY4-0004LF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001
07:50:52 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id KAA23542 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001 10:52:52 -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] Richtext field
Date: Wed, 14 Mar 2001 10:50:30 -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/>
Lance,
In your sub where the user closes (terminates) the window containing the
RichEdit control try adding this:
$RichEdit->Text("");
where $RichEdit is the name that you have given your RichEdit control.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
----- Original Message -----
From: "Cuthbert, Lance (DeepGreen Bank)" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, March 14, 2001 10:44 AM
Subject: [perl-win32-gui-users] Richtext field
> I am having some difficulty with the Win32::GUI::RichEdit package and I am
> hoping that someone might be able to help.
> In the program that I writing the user invokes a RichEdit text box to view
> the results of a database query. The first time the user
> opens the RichEdit textbox, the results from just that query are present -
> this is what I want. But, after the user closes that window
> and runs another query, the next time the user opens the RichEdit textbox
> the results from the first query as well as the second query
> are there. Any ideas?
> Thanks in advance.
>
> > Lance S. Cuthbert
> >
> >
> >
>
> _______________________________________________
> 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 Mar 14 13:08:04 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14dIUz-00054y-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001
13:08:02 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id QAA29546 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 14 Mar 2001 16:09:53 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 14 Mar 2001 16:07:31 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0128_01C0ACA0.DF9FCAB0"
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] Accelerators
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_0128_01C0ACA0.DF9FCAB0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
has anyone been successful in getting Accelerators to work?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
------=_NextPart_000_0128_01C0ACA0.DF9FCAB0
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 successful in getting =
Accelerators=20
to 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_0128_01C0ACA0.DF9FCAB0--
From [EMAIL PROTECTED] Thu Mar 15 08:18:13 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14daS0-0001pR-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Mar 2001
08:18:09 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id LAA21980 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Mar 2001 11:20:04 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 15 Mar 2001 11:17:46 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0163_01C0AD41.8FFD5E40"
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] TopMost
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_0163_01C0AD41.8FFD5E40
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Has anyone figured out a way to change a window's -topmost value after =
the window has already been created?
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]
------=_NextPart_000_0163_01C0AD41.8FFD5E40
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 figured out a way to change =
a window's=20
-topmost value after the window has already been created?</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_0163_01C0AD41.8FFD5E40--
From [EMAIL PROTECTED] Thu Mar 15 10:37:28 2001
Received: from [208.46.43.202] (helo=usclesec001.deepgreenbank.com)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14dccq-0001H8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Mar 2001
10:37:28 -0800
Received: from uscleexg001.us.deepgreenbank.com by usclesec001.deepgreenbank.com
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 15 Mar 2001 18:39:11 UT
Received: by mail.deepgreenbank.com with Internet Mail Service (5.5.2650.21)
id <GLF3GYWS>; Thu, 15 Mar 2001 13:39:34 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Cuthbert, Lance (DeepGreen Bank)"
<[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 15 Mar 2001 13:39:34 -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] Printing
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 package that would open a Windows print dialogue box to allow for
printing of a document opened in a RichEdit textbox?
Thanks to Jonathan Southwick for helping me out on my other question about
the RichEdit package.
> Lance S. Cuthbert
From [EMAIL PROTECTED] Thu Mar 15 14:28:06 2001
Received: from swan.prod.itd.earthlink.net ([207.217.120.123])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14dgE2-0002Fi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Mar 2001
14:28:06 -0800
Received: from tom (PPP-155-80.va.sprint-hsd.net [208.33.155.80])
by swan.prod.itd.earthlink.net (EL-8_9_3_3/8.9.3) with SMTP id OAA13577
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Mar 2001
14:30:10 -0800 (PST)
From: "Tom Allebrandi" <[EMAIL PROTECTED]>
To: "Perl Win32 Gui Users Mailing List \(E-mail\)"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 15 Mar 2001 17:30:04 -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
Importance: Normal
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Subject: [perl-win32-gui-users] Uninitialized value message
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!
If I
#! perl -w
in a script that uses Win32::GUI, I get lots of
Use of uninitialized value in subroutine entry at <file> line
<something>
where <file> is the name of the script and <something> is a line that says:
Win32::GUI::Dialog();
The messages occur as I move the mouse around over the dialog.
I know that somebody asked about this a few weeks back, but I don't recall
seeing a fix. I tried playing with the $^W variable around the call to
Win32::GUI::Dialog() but that didn't help. I also tried playing with "use
warnings" but that didn't help.
The only way I have been able to make the messages stop is to not put the
"-w" on the shebang line. That's fine for "production" but it's a pain
during development.
Does anyone know a way around this problem?
I'm running 0.0.502 in case that matters.
Thanks!
--- Tom
Tom Allebrandi
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu Mar 15 18:31:20 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 14dk1Q-0008L2-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 15 Mar 2001
18:31:20 -0800
Received: from ericb by grimdomicile.eb.to with local-esmtp (Exim 3.12 #1
(Debian))
id 14dk3R-00014C-00; Thu, 15 Mar 2001 21:33:25 -0500
Date: Thu, 15 Mar 2001 21:33:23 -0500 (EST)
From: Eric Bennett <[EMAIL PROTECTED]>
To: "Perl Win32 Gui Users Mailing List (E-mail)"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Uninitialized value message
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 Thu, 15 Mar 2001, Tom Allebrandi wrote:
> Use of uninitialized value in subroutine entry at <file> line
> <something>
Try adding this to your script:
sub warn_unless_win32_dialog_warning {
my ( $warning_message ) = @_;
my $hide_message = qr/^Use of uninitialized value in subroutine entry/;
print STDERR $warning_message unless $warning_message =~ $hide_message;
}
$SIG{'__WARN__'} = \&warn_unless_win32_dialog_warning;
- Eric B.
--
"Pasteurized From Concentrate"
From [EMAIL PROTECTED] Fri Mar 16 04:13:29 2001
Received: from bayer2.bayer-ag.de ([194.120.191.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14dt6m-0006hC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Mar 2001
04:13:29 -0800
Received: from by-inetout.bayer-ag.com by bayer2.bayer-ag.de with SMTP id
NAA12103
(SMTP Gateway 4.2 for <perl-win32-gui-users@lists.sourceforge.net>);
Fri, 16 Mar 2001 13:15:34 +0100
To: perl-win32-gui-users@lists.sourceforge.net
From: [EMAIL PROTECTED]
Date: Fri, 16 Mar 2001 13:14:53 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Mimetrack: Serialize by Router on BY-INETOUT/Central/LEV/DE/BAYER(Release
5.0.6a |January
17, 2001) at 03/16/2001 01:15:34 PM
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: [perl-win32-gui-users] SaveFile/OpenFile Dialogs
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,
how can I set the position of a GetSaveFile or GetOpenFile Dialog? -top and
-left don't seem to work.
the dialog always shows up in the left upper corner of desktop. using win32:gui
0.0.558.
regards,
thomas
From [EMAIL PROTECTED] Fri Mar 16 07:29:05 2001
Received: from gateway.dowjones.com ([208.144.114.11] ident=firewall-user)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14dwA5-0002tG-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Mar 2001
07:29:05 -0800
Received: by gateway.dowjones.com; id KAA19440; Fri, 16 Mar 2001 10:31:12 -0500
Received: from sbkmxsmb01.mcn.dowjones.com(162.55.46.103) by
gateway.gateway.dowjones.com via smap (V4.2)
id xma019287; Fri, 16 Mar 01 10:29:51 -0500
Received: by sbkmxsmb01 with Internet Mail Service (5.5.2650.21)
id <G74K1FP0>; Fri, 16 Mar 2001 10:29:50 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Perciaccante, Robert" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 16 Mar 2001 10:29:43 -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] Quick 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/>
OK, being relatively new to Perl, I stumbled upon Win32::GUI and I can see a
number of uses.
I am sure that newbie questions are, as it should be, usually answered with
"RTFM", but being mostly from the Win32 world (and slowly retreating), I
don't know where to get good reference materials.
I am not looking to have you answer my questions necessarily, but pointers
in the right direction would be appreciated. So here are the things that I
am looking for answers for:
1) How do I make the focus of a MsgBox change? Currently, using the example
provided with the module, the message box does not have the focus, but
instead ends up behind everything. Since I am using this as an indicator of
job completion, in the front would be nice :)
2) I know this is not necessarily the right forum for this question, but I
am looking for a resource on GUI programming in PERL.. like I said earlier,
just getting into Perl right now, so pointers would be appreciated.
Thanks for putting up with the Newbie questions :)
Bob
From [EMAIL PROTECTED] Fri Mar 16 08:33:19 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14dxAF-0007Q4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Mar 2001
08:33:19 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <GWFGZD49>; Fri, 16 Mar 2001 08:36:28 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] SaveFile/OpenFile Dialogs
Date: Fri, 16 Mar 2001 08:36:27 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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/>
| how can I set the position of a GetSaveFile or GetOpenFile
| Dialog? -top and
| -left don't seem to work.
| the dialog always shows up in the left upper corner of
| desktop. using win32:gui
| 0.0.558.
It comes top left when it doesn't have an owner. Use
-owner => $mainwindow->{-handle}
and it will show somewhat centered over the owner. provided you have a
window to own the dialog ... for a "stray" GetOpenFileName I don't have a
solution at hand.
From [EMAIL PROTECTED] Fri Mar 16 13:20: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.22 #1 (Debian))
id 14e1eS-0004aX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 16 Mar 2001
13:20:48 -0800
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <GJFBMA44>; Fri, 16 Mar 2001 16:23:10 -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>, "'Perciaccante, Robert '"
<[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Quick question
Date: Fri, 16 Mar 2001 16:23:04 -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/>
The samples that come with the module are generally very good place to
learn; I've found the documentation to be sketchy at times, though.
To answer your specific question, ->SetFocus() is the command you'll use.
For example:
my $Window = new Win32::GUI::Window(
-name => "Window",
-left => 210,
-top => 100,
-width => 700,
-height => 500,
-title => "Look Ma, a window!",
-menu => $Menu,
);
$Window->SetFocus();
You can do this with a window, dialog box, or a widget on either. Have fun,
this is good stuff.
-----Original Message-----
From: Perciaccante, Robert [mailto:[EMAIL PROTECTED]
Sent: Friday, March 16, 2001 10:30 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: [perl-win32-gui-users] Quick question
OK, being relatively new to Perl, I stumbled upon Win32::GUI and I can see a
number of uses.
I am sure that newbie questions are, as it should be, usually answered with
"RTFM", but being mostly from the Win32 world (and slowly retreating), I
don't know where to get good reference materials.
I am not looking to have you answer my questions necessarily, but pointers
in the right direction would be appreciated. So here are the things that I
am looking for answers for:
1) How do I make the focus of a MsgBox change? Currently, using the example
provided with the module, the message box does not have the focus, but
instead ends up behind everything. Since I am using this as an indicator of
job completion, in the front would be nice :)
2) I know this is not necessarily the right forum for this question, but I
am looking for a resource on GUI programming in PERL.. like I said earlier,
just getting into Perl right now, so pointers would be appreciated.
Thanks for putting up with the Newbie questions :)
Bob
_______________________________________________
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] Sun Mar 18 05:13:51 2001
Received: from ring.secom-sis.co.jp ([202.218.246.75] helo=secom-sis.co.jp)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ed0I-0001Qi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 18 Mar 2001
05:13:50 -0800
Received: from scan1.secom-sis.co.jp (scan1.secom-sis.co.jp [172.27.9.60])
by secom-sis.co.jp (8.9.3/3.7W) with SMTP id WAA16937;
Sun, 18 Mar 2001 22:16:01 +0900 (JST)
Received: from 172.27.11.245 by scan1.secom-sis.co.jp (InterScan E-Mail
VirusWall NT); Sun, 18 Mar 2001 22:17:12 +0900
To: perl-win32-gui-users@lists.sourceforge.net
From: Hirosi Taguti <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
X-Mailer: Winbiff [Version 2.31PL5 (on Trial)]
Date: Sun, 18 Mar 2001 22:15:53 +0900
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: [perl-win32-gui-users] How to keep my window not hidden
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/>
Hello, I'm new to Win32::GUI.
I found "timer.pl" in sample is good for desktop clock accesary.
Now I don't like it be hidden when other apprications get active.
I mean I like to keep it on top level in z-axis.
Is it possible?
p.s.
Sorry I've not yet checked all documents.
Not easy to read English to me.
--
Hirosi Taguti
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Mar 19 01:13:05 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 14eviq-0006Nz-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
01:13:04 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id KAA72628
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
10:15:07 +0100
Received: from unknown(194.185.18.129) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.129-4Ly9ya; Mon Mar 19 10:15:07 2001
Date: Mon, 19 Mar 2001 10:20:21 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Hirosi Taguti <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] How to keep my window not hidden
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/>
Hirosi Taguti wrote:
> Hello, I'm new to Win32::GUI.
>
> I found "timer.pl" in sample is good for desktop clock accesary.
> Now I don't like it be hidden when other apprications get active.
> I mean I like to keep it on top level in z-axis.
> Is it possible?
create the window with the -topmost => 1 option.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Mar 19 01:44:02 2001
Received: from ring.secom-sis.co.jp ([202.218.246.75] helo=secom-sis.co.jp)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ewCn-0000h6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
01:44:02 -0800
Received: from scan1.secom-sis.co.jp (scan1.secom-sis.co.jp [172.27.9.60])
by secom-sis.co.jp (8.9.3/3.7W) with SMTP id SAA22689
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
18:46:14 +0900 (JST)
Received: from 172.27.11.245 by scan1.secom-sis.co.jp (InterScan E-Mail
VirusWall NT); Mon, 19 Mar 2001 18:47:25 +0900
To: perl-win32-gui-users@lists.sourceforge.net
From: Hirosi Taguti <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
X-Mailer: Winbiff [Version 2.31PL5 (on Trial)]
Date: Mon, 19 Mar 2001 18:46:02 +0900
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: [perl-win32-gui-users] Re: How to keep my window not hidden
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 found "timer.pl" in sample is good for desktop clock accesary.
> > Now I don't like it be hidden when other apprications get active.
> > I mean I like to keep it on top level in z-axis.
> > Is it possible?
>
> create the window with the -topmost => 1 option.
Thank you but may I continue more?
This -topmost option cann't be changed after creation?
Below code works fine on re-sizing, but not on -topmost.
##!perl -w
#
# original is "Hello, world".
# test for -tpmost.
#
use Win32::GUI;
$MW = new Win32::GUI::Window(
-title => 'hello.pl',
-left => 100,
-top => 100,
-width => 150,
-height => 100,
-name => 'MainWindow',
-topmost => 0,
-visible => 1,
);
$hello = $MW->AddButton(
-text => 'Hello',
-name => 'Hello',
-left => 25,
-top => 25,
);
$rc = Win32::GUI::Dialog(0);
sub MainWindow_Terminate {
$MW->PostQuitMessage(1);
# return -1;
}
sub Hello_Click {
if($MW->Hello->Text eq "Hello") {
$MW->Hello->{-text} = "Goodby";
$MW->Change(
-width => 250,
-height => 200,
-topmost => 1,
);
} else {
$MW->Hello->{-text} = "Hello";
$MW->Change(
-width => 150,
-height => 100,
-topmost => 0,
);
}
}
--
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Mar 19 08:38:15 2001
Received: from mailgw2a.lmco.com ([192.91.147.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14f2fe-0007uX-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
08:38:14 -0800
Received: from emss03g01.ems.lmco.com (emss03g01.ems.lmco.com [141.240.4.144])
by mailgw2a.lmco.com (8.8.8/8.8.8) with ESMTP id LAA26013
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
11:40:20 -0500 (EST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38888)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Mon, 19
Mar 2001 11:38:53 -0500 (EST)
Received: from emss02i00.ems.lmco.com ([166.29.2.48]) by lmco.com (PMDF V5.2-32
#38888)
with ESMTP id <[EMAIL PROTECTED]> for
perl-win32-gui-users@lists.sourceforge.net; Mon, 19 Mar 2001 11:38:02 -0500
(EST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2653.19)
id <HFCK3HF9>; Mon, 19 Mar 2001 09:38:01 -0700
Content-return: allowed
Date: Mon, 19 Mar 2001 09:37:58 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Accelerators
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: MULTIPART/ALTERNATIVE;
BOUNDARY="Boundary_(ID_/EbNjvuNLBjnNZE3i0i00A)"
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_/EbNjvuNLBjnNZE3i0i00A)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
What is an accelerator?
=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: Jonathan Southwick [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 14, 2001 2:08 PM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] Accelerators
has anyone been successful in getting Accelerators to work?
=20
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>=20
--Boundary_(ID_/EbNjvuNLBjnNZE3i0i00A)
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#ffffff>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN =
class=3D083493716-19032001>What=20
is an accelerator?</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> Jonathan =
Southwick=20
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Wednesday, March 14, =
2001 2:08=20
PM<BR><B>To:</B> [EMAIL PROTECTED]<BR><B>Subject:</B>=20
[perl-win32-gui-users] Accelerators<BR><BR></DIV></FONT>
<DIV><FONT face=3DArial size=3D2>has anyone been successful in =
getting=20
Accelerators to 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></BLOCKQUOTE></BODY></HTML>
--Boundary_(ID_/EbNjvuNLBjnNZE3i0i00A)--
From [EMAIL PROTECTED] Mon Mar 19 08:44:48 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 14f2lz-0001BM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
08:44:47 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id RAA49028
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
17:47:04 +0100
Received: from unknown(194.185.18.133) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.133-7e02Ea; Mon Mar 19 17:47:04 2001
Date: Mon, 19 Mar 2001 17:52:20 +0100
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: Hirosi Taguti <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Re: How to keep my window not hidden
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/>
Hirosi Taguti wrote:
> Thank you but may I continue more?
>
> This -topmost option cann't be changed after creation?
> Below code works fine on re-sizing, but not on -topmost.
no, it doesn't work (yet); changing -topmost requires an
additional bit of code that I wasn't afare of until recently :-)
I'll fix this in the next release.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Mar 19 09:04:12 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 14f34l-0005S5-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
09:04:12 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id SAA68514
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
18:06:28 +0100
Received: from unknown(194.185.18.133) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.133-WnHmUa; Mon Mar 19 18:06:28 2001
Date: Mon, 19 Mar 2001 18:11:44 +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: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] .plan
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/>
hello perl-win32-gui-users,
this is my dot plan about Win32::GUI, what I'm doing and what
I plan to do. please note that everything here may change (without
further notice) depending on my other activities (namely job and
'real life' :-).
it would be kewl if you could 'prioritize' the list based on
what you find more useful (or funny :-), and above all (pardon
the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!
that said, this is the list:
**** NEM (New Event Model)
I'm almost done with this, but there are still some flaws.
I will also define the API to manage events (eg. AddEvent
or BindEvent or ResetEvent or something like this...).
I'm also adding the possibility of 'shortcut' options a la
Javascript, like:
-onClick => \&DoSomething
**** Event Queues
this is something I didn't really explored yet, but I would
like to process a list of events. should look somehow like
this:
-events => { Click => [ \&DoSomething, \&DoSomethingElse ] }
in other words, when a Click events occur first DoSomething
is executed, then DoSomethingElse. the main purpose for this
is to allow subpackages to define their own event handlers
which can be 'overriden' by the implementation in the program.
(if it doesn't sound clear, don't worry, is still mainly obscure
to me too :-)
**** Win32::GUI::JPEG
allow *read* support for JPEG images, using libjpeg (see
ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
to in-memory bitmaps and then used as regular Bitmap objects.
(NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
absolutely deprecated, I'll look into PNG support eventually).
**** Win32::GUI::Scintilla
(see http://www.scintilla.org); to revive pride.pl! :-)
these are the main points... for now, I will post a followup
if I forgot something :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Mon Mar 19 10:42:29 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14f4bt-0000TY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
10:42:29 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HGHAT1DX>; Mon, 19 Mar 2001 10:45:10 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Re: How to keep my window not hidden
Date: Mon, 19 Mar 2001 10:45:09 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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/>
| Hirosi Taguti wrote:
[...]
| > This -topmost option cann't be changed after creation?
[...]
| no, it doesn't work (yet); changing -topmost requires an
| additional bit of code that I wasn't afare of until recently :-)
[...]
| Aldo
This may be a stupid idea and I admit I did not test it:
you could try
sub MainWindow_Deactivate
{
$MW->SetForegroundWindow ()
if $stay_on_top_flag;
}
of course, this would reactivate your window, i.e. give it
back the focus, which might not be what you want.
From [EMAIL PROTECTED] Mon Mar 19 10:52:37 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14f4le-0001Vk-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 19 Mar 2001
10:52:37 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HGHAT1FJ>; Mon, 19 Mar 2001 10:55:24 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Accelerators
Date: Mon, 19 Mar 2001 10:55:23 -0800
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/>
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]
> What is an accelerator?
Usually it's the keyboard action of holding Alt and pressing a letter to
either "click" a button or pull down a menu. It can also be Ctrl+letter to
invoke a menu action (like many programs understand Ctrl+S for "save"). The
accelerator table can also hold basic keystrokes (tab, enter) to intercept
when the user hits that key.
It was called accelerator because in that context it could save the user the
hassle of moving the hand to the mouse. When choosing the name, obviously
nobody thought of the slowdown it imposed on the programmers side ;-)
From [EMAIL PROTECTED] Tue Mar 20 08:28:28 2001
Received: from smtp1.hushmail.com ([64.40.111.31])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fOzk-0004Gi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
08:28:28 -0800
Received: from user1.hushmail.com (user1.hushmail.com [64.40.111.41])
by smtp1.hushmail.com (Postfix) with ESMTP id 2B53413803
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
08:28:10 -0800 (PST)
Received: (from [EMAIL PROTECTED])
by user1.hushmail.com (8.9.3/8.9.3) id IAA13081;
Tue, 20 Mar 2001 08:28:09 -0800
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Tue, 20 Mar 2001 10:28:43 -0600 (CST)
To: perl-win32-gui-users@lists.sourceforge.net
Mime-version: 1.0
Content-type: multipart/mixed;
boundary="Hushpart_boundary_mitpzOXdCIIsrgNfKEynmQVcddPEUqqq"
Subject: [perl-win32-gui-users] Help
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--Hushpart_boundary_mitpzOXdCIIsrgNfKEynmQVcddPEUqqq
Content-type: text/plain
I am currently having a problem I was hoping someone on this list could
help me with.
I am writting a small app that will provide a GUI frontend for installing
multiple software packages. The problem that occurs is in the GUI, after
the user has checked all the software they want to install and clicks on
Install, the first install will appear to launch, but it will usually not
do anything until the perl script ends (either on purpose, or killed by
the user). At this time, the software will install without a hitch.
This appears to be a problem with the Win32::GUI module, as if I do things
without it, everything works as it should.
Has anyone run up against this? Is this a problem with OLE or DDE? Is
there any way around this.
Please let me know if you have a solution, as I have been banging my head
against this for a couple days now, and I would really hate to scratch this
project and do it in something else, like VB (eww).
I can provide source code if it is needed. Also, if you need any more
information,
please feel free to ask.
Thanks for any help you can provide.
Len.
Free, encrypted, secure Web-based email at www.hushmail.com
--Hushpart_boundary_mitpzOXdCIIsrgNfKEynmQVcddPEUqqq--
From [EMAIL PROTECTED] Tue Mar 20 08:57:44 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fPS4-0007vT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
08:57:44 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HGHATK3N>; Tue, 20 Mar 2001 09:00:35 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Help
Date: Tue, 20 Mar 2001 09:00:34 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
| Install, the first install will appear to launch, but it will
| usually not
| do anything until the perl script ends
Works fine here ... there must be something in your water.
- are you using the multithread perl? (5.6)
- how do you launch the installer? Backtick or some windows function?
- how do you watch for the first installer to finish so as not to launch all
of them at the same time? (maybe it's this watcher that does not yield to
other tasks)?
- do you really have to end your script or would it suffice to give the
installer the focus?
- how do you start your perl script in the first place ... out of a command
window, out of an explorer, or with this wrapper thing that prevents the
text window from showing?
A final word: please hold on! Don't fall back to VB! 't'wood bee sooo
embarrassing ...
From [EMAIL PROTECTED] Tue Mar 20 10:29:39 2001
Received: from smtp4.hushmail.com ([64.40.111.32])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fQt1-0000zw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
10:29:39 -0800
Received: from user1.hushmail.com (user1.hushmail.com [64.40.111.41])
by smtp4.hushmail.com (Postfix) with ESMTP id BAD9A31BE
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
10:28:11 -0800 (PST)
Received: (from [EMAIL PROTECTED])
by user1.hushmail.com (8.9.3/8.9.3) id KAA23500;
Tue, 20 Mar 2001 10:28:11 -0800
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Tue, 20 Mar 2001 12:10:55 -0600 (CST)
To: perl-win32-gui-users@lists.sourceforge.net
Mime-version: 1.0
Content-type: multipart/mixed;
boundary="Hushpart_boundary_uvlaIYktjqZIqQcSkhMydSpjTcWnWhOg"
Subject: RE: [perl-win32-gui-users] Help
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--Hushpart_boundary_uvlaIYktjqZIqQcSkhMydSpjTcWnWhOg
Content-type: text/plain
At Tue, 20 Mar 2001 09:00:34 -0800, "Piske, Harald" <[EMAIL PROTECTED]>
wrote:
>- are you using the multithread perl? (5.6)
Yup ...
C:\>perl -v
This is perl, v5.6.0 built for MSWin32-x86-multi-thread
[snip]
Its build 620.
>- how do you launch the installer? Backtick or some windows function?
I've tried both using the backtick and the 'system' call, neither work.
I have also tried using Win32::Process, again, with no luck.
>- how do you watch for the first installer to finish so as not to launch
all
>of them at the same time? (maybe it's this watcher that does not yield
>to other tasks)?
At first, I was going to wait for the child process to finish, but with
Installshield apps this does not work (it forks off its own process), so
I started using a timeout (sleep) after the initial install call was made.
This should allow the perl script to pause for a minute or two, while its
child (who is no longer really attached) to go off and finish its duty.
Just so you know, I have placed 'print' statements around the calls so I
know when it is getting stuck.
>- do you really have to end your script or would it suffice to give the
>installer the focus?
I'm not sure what you mean by giving the install the focus ... sorry.
>- how do you start your perl script in the first place ... out of a command
>window, out of an explorer, or with this wrapper thing that prevents
>the text window from showing?
I have tried running the script from the command line, double clicking on
the script from explorer, and compiling the script into an exe (Perlapp).
No luck with any of them.
>A final word: please hold on! Don't fall back to VB! 't'wood bee sooo
>embarrassing ...
Tell me about it. The little VB programming I have done in the past has
left a bad taste in my mouth.
Thanks for everything.
Len.
Free, encrypted, secure Web-based email at www.hushmail.com
--Hushpart_boundary_uvlaIYktjqZIqQcSkhMydSpjTcWnWhOg--
From [EMAIL PROTECTED] Tue Mar 20 10:52:14 2001
Received: from front4m.grolier.fr ([195.36.216.54])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fREq-0003NE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
10:52:12 -0800
Received: from lastjedi (nas6-161.wnt.club-internet.fr [213.44.165.161])
by front4m.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
TAA10056
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
19:52:05 +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] .plan
Date: Tue, 20 Mar 2001 19:56:37 +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.3
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
>
> this is my dot plan about Win32::GUI, what I'm doing and what
> I plan to do. please note that everything here may change (without
> further notice) depending on my other activities (namely job and
> 'real life' :-).
>
> it would be kewl if you could 'prioritize' the list based on
> what you find more useful (or funny :-), and above all (pardon
> the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!
>
> **** NEM (New Event Model)
> I'm almost done with this, but there are still some flaws.
> I will also define the API to manage events (eg. AddEvent
> or BindEvent or ResetEvent or something like this...).
> I'm also adding the possibility of 'shortcut' options a la
> Javascript, like:
> -onClick => \&DoSomething
Good.
> **** Event Queues
> this is something I didn't really explored yet, but I would
> like to process a list of events. should look somehow like
> this:
> -events => { Click => [ \&DoSomething, \&DoSomethingElse ] }
> in other words, when a Click events occur first DoSomething
> is executed, then DoSomethingElse. the main purpose for this
> is to allow subpackages to define their own event handlers
> which can be 'overriden' by the implementation in the program.
> (if it doesn't sound clear, don't worry, is still mainly obscure
> to me too :-)
Not obscure at all ;-) but a very difficult point.
I have think a little about this and i have notice 2 things.
* With only one event fonction (actual NEM)
it's possible to call the DoSomethingElse function in the DoSomething
function.
And in case of 'overriden' a sub package event, just need to call the event
function.
sub overriden_OnClick {
my $self = shift;
# do something before
$self->OnClick(); # or in inherited package $self->SUPER::OnCLick();
# do something after
}
The package use the \& syntax and not sub { } in the event option.
But for instanced object, it's possible to use sub {}.
* With event queue
Problem for the new package method.
For example :
- the package need to add a click event function
- the user create an object with a click event function
How create the click event array ?
- order problem between user event and package event.
- If user don't want default package click event.
> **** Win32::GUI::JPEG
> allow *read* support for JPEG images, using libjpeg (see
> ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
> to in-memory bitmaps and then used as regular Bitmap objects.
> (NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
> absolutely deprecated, I'll look into PNG support eventually).
After some search about this point, I found a free open source code project
named FreeImage.
It's a library for loading and writing different file format (JPEG, PNG,BMP,
PCX, TIFF, TGA).
I have look some example, it's look easy to use.
It's possible to read the data image not only from file (just need to code
an io-handler).
It can be usefull for read image from perl variable (no tempory file in the
BitmapInline.pm or
interface with perl GD module).
FreeImage Web Site : http://home.wxs.nl/~flvdberg/index.html
I can help you for this point.
>
> **** Win32::GUI::Scintilla
> (see http://www.scintilla.org); to revive pride.pl! :-)
>
This text control look very nice.
Laurent.
From [EMAIL PROTECTED] Tue Mar 20 10:56:35 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fRJ4-0003sd-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
10:56:34 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HGHATLFS>; Tue, 20 Mar 2001 10:59:33 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Help
Date: Tue, 20 Mar 2001 10:59:31 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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 tried both using the backtick and the 'system' call,
| neither work.
| I have also tried using Win32::Process, again, with no luck.
I suspected it to be the installer, so I just tried this:
print "->\n";
`C:\\Setups\\Develop\\Perl\\Win32\\ActivePython-2.0.0.202.msi`;
print "<-\n";
and it worked just fine. Installer pops up, initializes, lets me install (or
abort, for that matter) and then perl comes back from the backtick, ready to
launch the next install.
The difference must therefore be the OS or the installer ... I'm using w2k
pro (US english). I have access to almost anything else
(95a/b,98fe/se,NT4SP1..5), including a bunch of foreign languages ... what
is it you're so successful in failing with?
From [EMAIL PROTECTED] Tue Mar 20 11:11:23 2001
Received: from smtp4.hushmail.com ([64.40.111.32])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fRXP-0006Ov-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
11:11:23 -0800
Received: from user1.hushmail.com (user1.hushmail.com [64.40.111.41])
by smtp4.hushmail.com (Postfix) with ESMTP id A4E7D2F3D
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
11:11:05 -0800 (PST)
Received: (from [EMAIL PROTECTED])
by user1.hushmail.com (8.9.3/8.9.3) id LAA27439;
Tue, 20 Mar 2001 11:11:05 -0800
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Tue, 20 Mar 2001 13:10:25 -0600 (CST)
To: perl-win32-gui-users@lists.sourceforge.net
Mime-version: 1.0
Content-type: multipart/mixed;
boundary="Hushpart_boundary_kOqErWJOnOyDknSdDIDSciWUnMhDaQyS"
Subject: RE: [perl-win32-gui-users] Help
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--Hushpart_boundary_kOqErWJOnOyDknSdDIDSciWUnMhDaQyS
Content-type: text/plain
At Tue, 20 Mar 2001 10:59:31 -0800, "Piske, Harald" <[EMAIL PROTECTED]>
wrote:
>print "->\n";
>`C:\\Setups\\Develop\\Perl\\Win32\\ActivePython-2.0.0.202.msi`;
>print "<-\n";
If this is all that is in your script, then it will work, but once I add
something like this to be called once a button is clicked on, then it doesn't.
It's really wierd. If you like, I could attach the script, or send it
to you.
>
>The difference must therefore be the OS or the installer ... I'm using
>w2k
>pro (US english).
I have used Win2K SP1 and WinNT SP6, and the same problem exists for both
platforms. Its rather frusterating.
Thanks.
Len.
Free, encrypted, secure Web-based email at www.hushmail.com
--Hushpart_boundary_kOqErWJOnOyDknSdDIDSciWUnMhDaQyS--
From [EMAIL PROTECTED] Tue Mar 20 11:38:20 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fRxU-0001NH-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
11:38:20 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HGHATL3T>; Tue, 20 Mar 2001 11:41:20 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Help
Date: Tue, 20 Mar 2001 11:41:19 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
| >print "->\n";
| >`C:\\Setups\\Develop\\Perl\\Win32\\ActivePython-2.0.0.202.msi`;
| >print "<-\n";
|
| If this is all that is in your script, then it will work, but
| once I add
| something like this to be called once a button is clicked on,
| then it doesn't.
Nope - the three lines are actually in a click sub. The calling Win32::GUI
program freezes while the backtick works (because backtick returns output,
it waits for the called thing to finish). I can click around in the perl
window and when I come back from the installer, the queued messages get
called.
Okay, here's a workaround to try if that's not what happens on your machine.
In your click sub, set a variable and return -1. This terminates your
message loop. Do the backtick outside the Win32::GUI::Dialog like this:
for (;;)
{
undef $install;
Win32::GUI::Dialog ();
last unless $install;
`$install`;
#`install some more`;
Win32::GUI::GetMessage (0, 0x200, 0x206) while
Win32::GUI::PeekMessage (0, 0x200, 0x206);
# kill all pending clicks the bored user has caused
}
sub Launch_Click
{
$install = "C:\\somewhere\\something.msi"; # or just a bool
return -1;
}
From [EMAIL PROTECTED] Tue Mar 20 11:53:34 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fSCE-0003KE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
11:53:34 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HGHATLR0>; Tue, 20 Mar 2001 11:56:35 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Help
Date: Tue, 20 Mar 2001 11:56:34 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
One more thing ... I just remembered an issue with the Win32::GUI Version
you get from Activestate being outdated (ref. sequence
"[perl-win32-gui-users] Bug in Textfield scrolling")
When you do ppm query Win32-GUI and it gives you version 0.99, dump it (ppm
remove Win32-GUI) and get the current version from Aldo (dada.perl.it) -
should still be 0.0.558 if I didn't miss something interesting here. Unzip
and then do "ppm install Win32-GUI.ppd" - note that, w/o the ppd, your ppm
script might try to get the "newer" version from Activestate - i.e., the old
version with the wrong version number. Aldo pointed out that Activestate
invented this version number themselves without contacting him.
From [EMAIL PROTECTED] Tue Mar 20 14:14:27 2001
Received: from freesurfmta01.sunrise.ch ([194.230.0.16]
helo=freesurfmail.sunrise.ch)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fUOY-0008E0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
14:14:26 -0800
Received: from felixnotebook5 (194.230.221.213) by freesurfmail.sunrise.ch
(5.1.056)
id 3A7999D00031DFBB for perl-win32-gui-users@lists.sourceforge.net;
Tue, 20 Mar 2001 23:16:42 +0100
Message-ID: <[EMAIL PROTECTED]>
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] .plan
Date: Tue, 20 Mar 2001 23:19: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.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.3
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/>
Dear Aldo
I'd love to help because Win32::GUI is a marvelous tool and it enabled me to
develop a real nice perl app on the PC. I could offer my help for working on
the documentation, code some perl examples, and summarize the tricks
discussed in the user group. Time available depending on my 'other
activities' (see below)...
Best Regards, Felix
----- Original Message -----
From: "Aldo Calpini" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, March 19, 2001 6:11 PM
Subject: [perl-win32-gui-users] .plan
> hello perl-win32-gui-users,
>
> this is my dot plan about Win32::GUI, what I'm doing and what
> I plan to do. please note that everything here may change (without
> further notice) depending on my other activities (namely job and
> 'real life' :-).
>
> it would be kewl if you could 'prioritize' the list based on
> what you find more useful (or funny :-), and above all (pardon
> the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!
>
> that said, this is the list:
>
> **** NEM (New Event Model)
> I'm almost done with this, but there are still some flaws.
> I will also define the API to manage events (eg. AddEvent
> or BindEvent or ResetEvent or something like this...).
> I'm also adding the possibility of 'shortcut' options a la
> Javascript, like:
> -onClick => \&DoSomething
>
> **** Event Queues
> this is something I didn't really explored yet, but I would
> like to process a list of events. should look somehow like
> this:
> -events => { Click => [ \&DoSomething, \&DoSomethingElse ] }
> in other words, when a Click events occur first DoSomething
> is executed, then DoSomethingElse. the main purpose for this
> is to allow subpackages to define their own event handlers
> which can be 'overriden' by the implementation in the program.
> (if it doesn't sound clear, don't worry, is still mainly obscure
> to me too :-)
>
> **** Win32::GUI::JPEG
> allow *read* support for JPEG images, using libjpeg (see
> ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
> to in-memory bitmaps and then used as regular Bitmap objects.
> (NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
> absolutely deprecated, I'll look into PNG support eventually).
>
> **** Win32::GUI::Scintilla
> (see http://www.scintilla.org); to revive pride.pl! :-)
>
>
> these are the main points... for now, I will post a followup
> if I forgot something :-)
>
> 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] Tue Mar 20 17:57:22 2001
Received: from smtp1.hushmail.com ([64.40.111.31])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fXsI-0004Rn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
17:57:22 -0800
Received: from user1.hushmail.com (user1.hushmail.com [64.40.111.41])
by smtp1.hushmail.com (Postfix) with ESMTP id D584E13B65
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
12:25:55 -0800 (PST)
Received: (from [EMAIL PROTECTED])
by user1.hushmail.com (8.9.3/8.9.3) id MAA01273;
Tue, 20 Mar 2001 12:25:55 -0800
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Tue, 20 Mar 2001 14:21:36 -0600 (CST)
To: perl-win32-gui-users@lists.sourceforge.net
Mime-version: 1.0
Content-type: multipart/mixed;
boundary="Hushpart_boundary_gtvXGCacSajLpwVWVAYZirATNCYwfboI"
Subject: RE: [perl-win32-gui-users] Help
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--Hushpart_boundary_gtvXGCacSajLpwVWVAYZirATNCYwfboI
Content-type: text/plain
At Tue, 20 Mar 2001 11:56:34 -0800, "Piske, Harald" <[EMAIL PROTECTED]>
wrote:
>
>One more thing ... I just remembered an issue with the Win32::GUI Version
>you get from Activestate being outdated (ref. sequence
>"[perl-win32-gui-users] Bug in Textfield scrolling")
I made sure when I first started that this wouldn't be a problem, and got
the correct version from dada.perl.it. Although, I first started using
Win32::GUI I was using 0.0.502. After upgrading to 0.0.558 I had problems
in one of my apps with AddGroupbox, in that it was reading the wrong area's
in memory. Rather then spend my time trying to figure out what was wrong
(my code appeared to be fine), I just downgraded back to 0.0.502, and
everything
went back to working fine.
I haven't had time to try your solution, but I'll try to get to it later
on today. As far as the problem I am having, here is a snippet of code
that has the same problem. The application that it is trying to launch
a silent install on is Adobe Acrobat 4.05. This is under WinNT SP6, using
ActivePerl 5.6.0 build 620. The Win32::GUI module is 0.0.502.
Thanks a TON for all the help.
Len.
-----[ Start Code ]------
use Win32::GUI;
$mainwindow = Win32::GUI::Window->new (
-name => "Main",
-left => 100,
-top => 100,
-width => 100,
-height => 100,
-title => "Hi",
);
$mainwindow -> {-dialogui} = 1;
$mainwindow -> AddButton (
-name => "Install",
-left => 25,
-top => 25,
-width => 50,
-cancel => 1,
-text => "Install",
-default => 1,
-tabstop => 1,
);
$mainwindow -> Show;
Win32::GUI::Dialog();
sub Main_Terminate {
return -1;
}
sub Install_Click {
system("h:/ntimage/apps/acrobat/setup -s");
print "On to the next app ...\n";
Main_Terminate();
}
-----[ End Code ]------
Free, encrypted, secure Web-based email at www.hushmail.com
--Hushpart_boundary_gtvXGCacSajLpwVWVAYZirATNCYwfboI--
From [EMAIL PROTECTED] Tue Mar 20 20:35:12 2001
Received: from fepout2.telus.net ([199.185.220.237]
helo=priv-edtnes04-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14faL2-0006oh-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 20 Mar 2001
20:35:12 -0800
Received: from jeremy ([216.232.80.59])
by priv-edtnes04-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 20 Mar 2001 21:35:04 -0700
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 20 Mar 2001 20:30:59 -0800
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]
l.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] win32:gui builder
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 win32:gui builder availiable (eg. a visual aid in designing the
gui) .
Jeremy
From [EMAIL PROTECTED] Wed Mar 21 00:50:53 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 14feKT-0003MN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
00:50:53 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id IAA22156; Wed, 21 Mar 2001 08:50:42 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 21 Mar 2001 08:56:55 +0000
Mime-Version: 1.0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
X-Loop-Check: .
X-Disclaimer: see attached
Subject: [perl-win32-gui-users] Versions on the ActiveState server
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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
I am currently in conversation with ActiveState with a view to having the
correct version on their PPM server. They have been very responsive and told me
that it had been updated this morning. However when I do a search for it on
their server I still get version 0.99 reported. I've gone back to them with this
and await their reply. (It could be a cache issue on our firewalls so if anyone
else can check it that would be great.)
I'll keep you all posted.
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] Wed Mar 21 01:17:43 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fekQ-0004J9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
01:17:43 -0800
Received: from stop (151.21.180.152) by smtp1.libero.it (5.5.025)
id 3AB48C81000A9B5D for perl-win32-gui-users@lists.sourceforge.net;
Wed, 21 Mar 2001 10:17:08 +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] Versions on the ActiveState server
Date: Wed, 21 Mar 2001 10:16: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.3
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/>
Paul, I get the following:
Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/
PPMServer:
Win32-GUI [0.0.558] Win32 Graphical User Interface Extension
Win32-GuiTest [0.9 ] Perl GUI Test Utilities
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, March 21, 2001 9:56 AM
Subject: [perl-win32-gui-users] Versions on the ActiveState server
|
|
| Hi All
|
| I am currently in conversation with ActiveState with a view to having the
| correct version on their PPM server. They have been very responsive and told
me
| that it had been updated this morning. However when I do a search for it on
| their server I still get version 0.99 reported. I've gone back to them with
this
| and await their reply. (It could be a cache issue on our firewalls so if
anyone
| else can check it that would be great.)
|
| I'll keep you all posted.
|
| 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] Wed Mar 21 01:55: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.22 #1 (Debian))
id 14ffKe-00008M-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
01:55:08 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id JAA02599; Wed, 21 Mar 2001 09:54:57 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 21 Mar 2001 09:56:12 +0000
Subject: Re: [perl-win32-gui-users] Versions on the ActiveState server
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.3
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/>
Aha, perhaps I do have cache problem then.
I'll flush the cache and try again. 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] Wed Mar 21 01:59:35 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 14ffOw-0001Yu-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
01:59:34 -0800
Received: by ren.orange.co.uk (8.9.3/8.9.3)
id JAA03418; Wed, 21 Mar 2001 09:59:26 GMT
From: [EMAIL PROTECTED]
X-Lotus-FromDomain: HTLUK
To: perl-win32-gui-users@lists.sourceforge.net
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 21 Mar 2001 10:05:35 +0000
Subject: Re: [perl-win32-gui-users] Versions on the ActiveState server
Mime-Version: 1.0
Content-type: multipart/mixed;
Boundary="0__=tU6JBUwbNH0gXPpsv91tS6oz7ugbgmibh5edScP8JvxWAnZwTUTKJSYY"
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.3
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/>
--0__=tU6JBUwbNH0gXPpsv91tS6oz7ugbgmibh5edScP8JvxWAnZwTUTKJSYY
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
All
After a small hiccup caused by a cache problem on my firewall I can confirm that
the PPM now available from ActiveState is version 0.0.558. I have installed this
version and get the correct version number from perl -MWin32::GUI -e "print
Win32::GUI::Version".
Hopefully this will sort out some problems people were experiencing.
Best Regards
Paul
[EMAIL PROTECTED] on 21/03/2001 08:56:55
Please respond to perl-win32-gui-users@lists.sourceforge.net
To: perl-win32-gui-users@lists.sourceforge.net
cc: (bcc: Paul BARKER/IT/HTLUK)
bcc: Paul BARKER/IT/HTLUK
Subject: [perl-win32-gui-users] Versions on the ActiveState server
Hi All
I am currently in conversation with ActiveState with a view to having the
correct version on their PPM server. They have been very responsive and told me
that it had been updated this morning. However when I do a search for it on
their server I still get version 0.99 reported. I've gone back to them with this
and await their reply. (It could be a cache issue on our firewalls so if anyone
else can check it that would be great.)
I'll keep you all posted.
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
--0__=tU6JBUwbNH0gXPpsv91tS6oz7ugbgmibh5edScP8JvxWAnZwTUTKJSYY
Content-type: application/octet-stream;
name="att1.eml"
Content-Disposition: attachment; filename="att1.eml"
Content-transfer-encoding: base64
UmVjZWl2ZWQ6IGZyb20gcmVuLm9yYW5nZS5jby51ayAoWzE5My4zNS4xMjkuOTldKSBieSBydWRk
aWNrIChMb3R1cyBTTVRQIE1UQSB2NC42LjYgICg4OTAuMSA3LTE2LTE5OTkpKSB3aXRoIFNNVFAg
aWQgODAyNTZBMTYuMDAzMTc0RjE7IFdlZCwgMjEgTWFyIDIwMDEgMDk6MDA6MTIgKzAwMDANClJl
Y2VpdmVkOiBmcm9tIHVzdy1zZi1saXN0MS5zb3VyY2Vmb3JnZS5uZXQgKHVzdy1zZi1mdzIuc291
cmNlZm9yZ2UubmV0IFsyMTYuMTM2LjE3MS4yNTJdKQ0KCWJ5IHJlbi5vcmFuZ2UuY28udWsgKDgu
OS4zLzguOS4zKSB3aXRoIEVTTVRQIGlkIEpBQTIzMjk3DQoJZm9yIDxwYXVsLmJhcmtlckBvcmFu
Z2UuY28udWs+OyBXZWQsIDIxIE1hciAyMDAxIDA5OjAwOjE2IEdNVA0KUmVjZWl2ZWQ6IGZyb20g
bG9jYWxob3N0IChbMTI3LjAuMC4xXSBoZWxvPXVzdy1zZi1saXN0MS5zb3VyY2Vmb3JnZS5uZXQp
DQoJYnkgdXN3LXNmLWxpc3QxLnNvdXJjZWZvcmdlLm5ldCB3aXRoIGVzbXRwIChFeGltIDMuMjIg
IzEgKERlYmlhbikpDQoJaWQgMTRmZUtjLTAwMDNRTy0wMDsgV2VkLCAyMSBNYXIgMjAwMSAwMDo1
MTowMiAtMDgwMA0KUmVjZWl2ZWQ6IGZyb20gbmV3cy1ndzEub3JhbmdlLmNvLnVrIChbMTkzLjM1
LjEyOS45OV0gaGVsbz1yZW4ub3JhbmdlLmNvLnVrKQ0KCWJ5IHVzdy1zZi1saXN0MS5zb3VyY2Vm
b3JnZS5uZXQgd2l0aCBlc210cCAoRXhpbSAzLjIyICMxIChEZWJpYW4pKQ0KCWlkIDE0ZmVLVC0w
MDAzTU4tMDANCglmb3IgPHBlcmwtd2luMzItZ3VpLXVzZXJzQGxpc3RzLnNvdXJjZWZvcmdlLm5l
dD47IFdlZCwgMjEgTWFyIDIwMDEgMDA6NTA6NTMgLTA4MDANClJlY2VpdmVkOiBieSByZW4ub3Jh
bmdlLmNvLnVrICg4LjkuMy84LjkuMykNCglpZCBJQUEyMjE1NjsgV2VkLCAyMSBNYXIgMjAwMSAw
ODo1MDo0MiBHTVQNCkZyb206IHBhdWwuYmFya2VyQG9yYW5nZS5jby51aw0KWC1Mb3R1cy1Gcm9t
RG9tYWluOiBIVExVSw0KVG86IHBlcmwtd2luMzItZ3VpLXVzZXJzQGxpc3RzLnNvdXJjZWZvcmdl
Lm5ldA0KTWVzc2FnZS1JRDogPDgwMjU2QTE2LjAwMzA5MkM4LjAwQHJ1ZGRpY2s+DQpNaW1lLVZl
cnNpb246IDEuMA0KQ29udGVudC10eXBlOiB0ZXh0L3BsYWluOyBjaGFyc2V0PXVzLWFzY2lpDQpD
b250ZW50LURpc3Bvc2l0aW9uOiBpbmxpbmUNClgtTG9vcC1DaGVjazogLg0KWC1EaXNjbGFpbWVy
OiBzZWUgYXR0YWNoZWQNClN1YmplY3Q6IFtwZXJsLXdpbjMyLWd1aS11c2Vyc10gVmVyc2lvbnMg
b24gdGhlIEFjdGl2ZVN0YXRlIHNlcnZlcg0KU2VuZGVyOiBwZXJsLXdpbjMyLWd1aS11c2Vycy1h
ZG1pbkBsaXN0cy5zb3VyY2Vmb3JnZS5uZXQNCkVycm9ycy1UbzogcGVybC13aW4zMi1ndWktdXNl
cnMtYWRtaW5AbGlzdHMuc291cmNlZm9yZ2UubmV0DQpYLUJlZW5UaGVyZTogcGVybC13aW4zMi1n
dWktdXNlcnNAbGlzdHMuc291cmNlZm9yZ2UubmV0DQpYLU1haWxtYW4tVmVyc2lvbjogMi4wLjMN
ClByZWNlZGVuY2U6IGJ1bGsNClJlcGx5LVRvOiBwZXJsLXdpbjMyLWd1aS11c2Vyc0BsaXN0cy5z
b3VyY2Vmb3JnZS5uZXQNCkxpc3QtSGVscDogPG1haWx0bzpwZXJsLXdpbjMyLWd1aS11c2Vycy1y
ZXF1ZXN0QGxpc3RzLnNvdXJjZWZvcmdlLm5ldD9zdWJqZWN0PWhlbHA+DQpMaXN0LVBvc3Q6IDxt
YWlsdG86cGVybC13aW4zMi1ndWktdXNlcnNAbGlzdHMuc291cmNlZm9yZ2UubmV0Pg0KTGlzdC1T
dWJzY3JpYmU6IDxodHRwOi8vbGlzdHMuc291cmNlZm9yZ2UubmV0L2xpc3RzL2xpc3RpbmZvL3Bl
cmwtd2luMzItZ3VpLXVzZXJzPiwNCgk8bWFpbHRvOnBlcmwtd2luMzItZ3VpLXVzZXJzLXJlcXVl
c3RAbGlzdHMuc291cmNlZm9yZ2UubmV0P3N1YmplY3Q9c3Vic2NyaWJlPg0KTGlzdC1JZDogPHBl
cmwtd2luMzItZ3VpLXVzZXJzLmxpc3RzLnNvdXJjZWZvcmdlLm5ldD4NCkxpc3QtVW5zdWJzY3Jp
YmU6IDxodHRwOi8vbGlzdHMuc291cmNlZm9yZ2UubmV0L2xpc3RzL2xpc3RpbmZvL3Blcmwtd2lu
MzItZ3VpLXVzZXJzPiwNCgk8bWFpbHRvOnBlcmwtd2luMzItZ3VpLXVzZXJzLXJlcXVlc3RAbGlz
dHMuc291cmNlZm9yZ2UubmV0P3N1YmplY3Q9dW5zdWJzY3JpYmU+DQpMaXN0LUFyY2hpdmU6IDxo
dHRwOi8vbGlzdHMuc291cmNlZm9yZ2UubmV0L2FyY2hpdmVzLy9wZXJsLXdpbjMyLWd1aS11c2Vy
cy8+DQpEYXRlOiBXZWQsIDIxIE1hciAyMDAxIDA4OjU2OjU1ICswMDAwDQoNCg0KDQpIaSBBbGwN
Cg0KSSBhbSBjdXJyZW50bHkgaW4gY29udmVyc2F0aW9uIHdpdGggQWN0aXZlU3RhdGUgd2l0aCBh
IHZpZXcgdG8gaGF2aW5nIHRoZQ0KY29ycmVjdCB2ZXJzaW9uIG9uIHRoZWlyIFBQTSBzZXJ2ZXIu
IFRoZXkgaGF2ZSBiZWVuIHZlcnkgcmVzcG9uc2l2ZSBhbmQgdG9sZCBtZQ0KdGhhdCBpdCBoYWQg
YmVlbiB1cGRhdGVkIHRoaXMgbW9ybmluZy4gSG93ZXZlciB3aGVuIEkgZG8gYSBzZWFyY2ggZm9y
IGl0IG9uDQp0aGVpciBzZXJ2ZXIgSSBzdGlsbCBnZXQgdmVyc2lvbiAwLjk5IHJlcG9ydGVkLiBJ
J3ZlIGdvbmUgYmFjayB0byB0aGVtIHdpdGggdGhpcw0KYW5kIGF3YWl0IHRoZWlyIHJlcGx5LiAo
SXQgY291bGQgYmUgYSBjYWNoZSBpc3N1ZSBvbiBvdXIgZmlyZXdhbGxzIHNvIGlmIGFueW9uZQ0K
ZWxzZSBjYW4gY2hlY2sgaXQgdGhhdCB3b3VsZCBiZSBncmVhdC4pDQoNCkknbGwga2VlcCB5b3Ug
YWxsIHBvc3RlZC4NCg0KQ2hlZXJzDQoNClBhdWwNCg0KDQoNCioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioNCkltcG9ydGFudC4gVGhpcyBFLW1haWwgaXMgaW50ZW5kZWQgZm9yIHRoZSBhYm92ZSBuYW1l
ZCBwZXJzb24gYW5kIG1heSBiZQ0KY29uZmlkZW50aWFsIGFuZC9vciBsZWdhbGx5IHByaXZpbGVn
ZWQuIElmIHRoaXMgaGFzIGNvbWUgdG8geW91IGluIGVycm9yIHlvdQ0KbXVzdCB0YWtlIG5vIGFj
dGlvbiBiYXNlZCBvbiBpdCwgbm9yIG11c3QgeW91IGNvcHkgb3Igc2hvdyBpdCB0byBhbnlvbmU7
IHBsZWFzZQ0KaW5mb3JtIHRoZSBzZW5kZXIgaW1tZWRpYXRlbHkuDQoqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqDQoNCl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f
DQpQZXJsLVdpbjMyLUdVSS1Vc2VycyBtYWlsaW5nIGxpc3QNClBlcmwtV2luMzItR1VJLVVzZXJz
QGxpc3RzLnNvdXJjZWZvcmdlLm5ldA0KaHR0cDovL2xpc3RzLnNvdXJjZWZvcmdlLm5ldC9saXN0
cy9saXN0aW5mby9wZXJsLXdpbjMyLWd1aS11c2Vycw0K
--0__=tU6JBUwbNH0gXPpsv91tS6oz7ugbgmibh5edScP8JvxWAnZwTUTKJSYY--
*******************************************************************************
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] Wed Mar 21 06:11: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 14fjKH-0008Kc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
06:11:01 -0800
Received: from whsun4.wh.whoi.edu (whsun4 [128.128.105.35])
by whsun1.wh.whoi.edu (8.9.3+Sun/8.9.1) with ESMTP id JAA28334
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
09:10:50 -0500 (EST)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun4.wh.whoi.edu (8.9.3+Sun/8.6.9) id
JAA27916 for perl-win32-gui-users@lists.sourceforge.net; Wed, 21 Mar 2001
09:10:51 -0500 (EST)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] win32:gui builder
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 21 Mar 2001 09:10:51 -0500 (EST)
In-Reply-To: <[EMAIL PROTECTED]> from "Jeremy Aiyadurai" at Mar 20, 2001
08:30:59 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.3
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 win32:gui builder availiable (eg. a visual aid in designing the
> gui) .
yes, well.. at least a basic one.
Download: ftp://ftp.wh.whoi.edu/pub/gb109.zip
Here is the README I sent out a little while back...
This is my Win32::GUI Builder (gb) build 109. The previous version
was 0.01 (decided to go to a build number).
What's new since v0.01:
- More Objects (Status Bar, RichEdit, ListView and TreeView).
- Basic Image support (Can drag a BMP around and size it).
- Added more options to Button property (they don't work yet). :)
If this looks like a good way to go, I can do this to other objects and
start adding the hooks.
- Started adding options for what is saved when you write out the GUI
design (this is found on the preferences screen). It doesn't work
(don't use it), but it will give you an idea of what I'm trying
to do. Any comments are welcome.
Things that were fixed:
The newer version of Win32::GUI fixed the display problem with text.
The black draw problem (which was a memory problem) has been fixed -
I might have sent out this patch in an earlier message (anyway, it
is now fixed).
Basic Setup and Use (same as before if you used v0.01):
Install Win32::API (if you haven't already)
You will also need Win32::API
Unzip 'zip' file in an empty directory. Open a DOS Window and type:
perl gb
The "GUI Builder" window should come to life.
Click File->New In the "Window Properties" Window change what you like
then click "OK". The "Name:" field contain the variable associated
with the window (ie. $Win).
When you click "OK" a blank design window appears.
Click on one of the objects from the toolbar and it's related property
window will appear. Fill in the text when appropriate and click OK.
Move the mouse over into the design area to place the object.
Right Clicking the object will bring up a menu.
Working with a group of objects:
Left click and hold down in an open area to the top left of a group
of objects. Drag the mouse down to the bottom right of the group of
objects - a red box will appear around the objects. There are now
several things you can do with the objects by right clicking in the
red box. If you left click, hold down and drag in the red box, you
can move the objects around on the screen. Clicking outside the red
box cancels the select mode.
Known Bugs:
Click of Death - Occasionally clicking in the design area will cause
gb do die completely (make sure the autosave feature is turned on).
A started playing with a list of recently opened files to appear under
the 'File' menu, but I haven't finished the code so it may not work
remember all the files that it should.
From [EMAIL PROTECTED] Wed Mar 21 09:05:13 2001
Received: from smtp4.hushmail.com ([64.40.111.32])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fm2r-0001bb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
09:05:13 -0800
Received: from user1.hushmail.com (user1.hushmail.com [64.40.111.41])
by smtp4.hushmail.com (Postfix) with ESMTP id 2C4B032F1
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
09:02:31 -0800 (PST)
Received: (from [EMAIL PROTECTED])
by user1.hushmail.com (8.9.3/8.9.3) id JAA15156;
Wed, 21 Mar 2001 09:02:31 -0800
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Wed, 21 Mar 2001 10:51:27 -0600 (CST)
To: perl-win32-gui-users@lists.sourceforge.net
Mime-version: 1.0
Content-type: multipart/mixed;
boundary="Hushpart_boundary_weVSpsHYYJQCcNeWSwzKsmHalrzgJhBs"
Subject: RE: [perl-win32-gui-users] Help
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--Hushpart_boundary_weVSpsHYYJQCcNeWSwzKsmHalrzgJhBs
Content-type: text/plain
At Tue, 20 Mar 2001 11:41:19 -0800, "Piske, Harald" <[EMAIL PROTECTED]>
wrote:
>Okay, here's a workaround to try if that's not what happens on your
>machine.
>In your click sub, set a variable and return -1. This terminates your
>message loop. Do the backtick outside the Win32::GUI::Dialog like this:
Unfortunately, this does not work. Once it launches the `$install`, it
never returns. I read somewhere that Installshield tries to do a
WS_DDE_INITIATE
call back to the parent application, and will wait for the parent to answer
this message. This message will sit in the message queue for perl, going
unanswered. Perl will just sit and wait for the child application to finish,
and the child application will sit and wait for the reply from the parent
application. If this is true, what in the Win32::GUI module is not replying?
I say this, because if I string the installs in a plain perl script,
everything
works fine. Does anyone know a way around this? Am I way off base here?
Thanks.
Len.
Free, encrypted, secure Web-based email at www.hushmail.com
--Hushpart_boundary_weVSpsHYYJQCcNeWSwzKsmHalrzgJhBs--
From [EMAIL PROTECTED] Wed Mar 21 12:05:50 2001
Received: from smtp4.hushmail.com ([64.40.111.32])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14fore-0005sI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
12:05:50 -0800
Received: from user1.hushmail.com (user1.hushmail.com [64.40.111.41])
by smtp4.hushmail.com (Postfix) with ESMTP id 01EDA301E
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 21 Mar 2001
12:03:02 -0800 (PST)
Received: (from [EMAIL PROTECTED])
by user1.hushmail.com (8.9.3/8.9.3) id MAA32048;
Wed, 21 Mar 2001 12:03:02 -0800
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Wed, 21 Mar 2001 14:03:19 -0600 (CST)
To: perl-win32-gui-users@lists.sourceforge.net
Mime-version: 1.0
Content-type: multipart/mixed;
boundary="Hushpart_boundary_iYGmzVdLwjVDHwqJgTFDtXeYafnfLbZe"
Subject: [perl-win32-gui-users] Listview and Checkboxs
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--Hushpart_boundary_iYGmzVdLwjVDHwqJgTFDtXeYafnfLbZe
Content-type: text/plain
Is there anyway to check a checkbox in a ListView from within the script?
Basically, when one Checkbox is checked, I would like it to also check
a bunch of other checkboxs.
Thanks.
Len.
Free, encrypted, secure Web-based email at www.hushmail.com
--Hushpart_boundary_iYGmzVdLwjVDHwqJgTFDtXeYafnfLbZe--
From [EMAIL PROTECTED] Thu Mar 22 03:32:47 2001
Received: from ausxc07.us.dell.com ([143.166.99.215])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14g3Kh-00067U-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Mar 2001
03:32:47 -0800
Received: by ausxc07.us.dell.com with Internet Mail Service (5.5.2650.21)
id <GVTS6FZ6>; Thu, 22 Mar 2001 05:31:14 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] win32:gui builder
Date: Thu, 22 Mar 2001 05:30:27 -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.3
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
My Browser Keeps timing out when I try and access the site.
is there any other location.
Rgds Eoin:
mailto:[EMAIL PROTECTED]
-----Original Message-----
From: David Hiltz [mailto:[EMAIL PROTECTED]
Sent: 21 March 2001 14:11
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] win32:gui builder
> Is there a win32:gui builder availiable (eg. a visual aid in designing the
> gui) .
yes, well.. at least a basic one.
Download: ftp://ftp.wh.whoi.edu/pub/gb109.zip
Here is the README I sent out a little while back...
This is my Win32::GUI Builder (gb) build 109. The previous version
was 0.01 (decided to go to a build number).
What's new since v0.01:
- More Objects (Status Bar, RichEdit, ListView and TreeView).
- Basic Image support (Can drag a BMP around and size it).
- Added more options to Button property (they don't work yet). :)
If this looks like a good way to go, I can do this to other objects and
start adding the hooks.
- Started adding options for what is saved when you write out the GUI
design (this is found on the preferences screen). It doesn't work
(don't use it), but it will give you an idea of what I'm trying
to do. Any comments are welcome.
Things that were fixed:
The newer version of Win32::GUI fixed the display problem with text.
The black draw problem (which was a memory problem) has been fixed -
I might have sent out this patch in an earlier message (anyway, it
is now fixed).
Basic Setup and Use (same as before if you used v0.01):
Install Win32::API (if you haven't already)
You will also need Win32::API
Unzip 'zip' file in an empty directory. Open a DOS Window and type:
perl gb
The "GUI Builder" window should come to life.
Click File->New In the "Window Properties" Window change what you like
then click "OK". The "Name:" field contain the variable associated
with the window (ie. $Win).
When you click "OK" a blank design window appears.
Click on one of the objects from the toolbar and it's related property
window will appear. Fill in the text when appropriate and click OK.
Move the mouse over into the design area to place the object.
Right Clicking the object will bring up a menu.
Working with a group of objects:
Left click and hold down in an open area to the top left of a group
of objects. Drag the mouse down to the bottom right of the group of
objects - a red box will appear around the objects. There are now
several things you can do with the objects by right clicking in the
red box. If you left click, hold down and drag in the red box, you
can move the objects around on the screen. Clicking outside the red
box cancels the select mode.
Known Bugs:
Click of Death - Occasionally clicking in the design area will cause
gb do die completely (make sure the autosave feature is turned on).
A started playing with a list of recently opened files to appear under
the 'File' menu, but I haven't finished the code so it may not work
remember all the files that it should.
_______________________________________________
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 Mar 22 04:29:27 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 14g4DX-0005uc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Mar 2001
04:29:27 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id NAA12280
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Mar 2001
13:29:21 +0100
Received: from unknown(194.185.18.130) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.130-j26WUa; Thu Mar 22 13:29:21 2001
Date: Thu, 22 Mar 2001 13:34:40 +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] .plan
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.3
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:
> Dear Aldo
> I'd love to help because Win32::GUI is a marvelous tool and it
> enabled me to develop a real nice perl app on the PC. I could
> offer my help for working on the documentation, code some perl
> examples, and summarize the tricks discussed in the user group.
> Time available depending on my 'other activities' (see below)...
you're very welcome Felix!
I think that the most helpful thing you can do (that's one that
I forgot to include in the .plan) is to build a Win32::GUI FAQ
based on the experience of this mailing list. you can prepare
the base document if you can, then submit it to the list so
that everyone, me included, can comment/add stuff/trim stuff/etc.
we all count on you for this! :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Mar 22 04:42:39 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 14g4QJ-0006uE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Mar 2001
04:42:39 -0800
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id NAA23274
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Mar 2001
13:42:36 +0100
Received: from unknown(194.185.18.130) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.130-0vHMUa; Thu Mar 22 13:42:36 2001
Date: Thu, 22 Mar 2001 13:47:55 +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] .plan
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.3
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:
> hello
hi Laurent!
>> -onClick => \&DoSomething
>
> Good.
yup :-)
> Not obscure at all ;-) but a very difficult point.
> I have think a little about this and i have notice 2 things.
>
> * With only one event fonction (actual NEM)
>
> it's possible to call the DoSomethingElse function in the
> DoSomething function.
yes, I know, but in your example the 'implementer' is responsible
for calling the package event (eg. $self->OnClick), which is not a
good way to create subpackages... so I don't like this approach.
> * With event queue
>
> Problem for the new package method.
>
> For example :
> - the package need to add a click event function
> - the user create an object with a click event function
>
> How create the click event array ?
yes, that's the problem. I haven't figured yet a 'package-writers'
API... I should think of a real world example of this and try to
model in pseudocode first :-)
> - order problem between user event and package event.
package event should always come first and decide what to do
(eg. do some stuff, then cal user event, then do some other
stuff... or don't call the user event at all, if it so decides).
> - If user don't want default package click event.
this should be left as an option to the package writer. for
example, s?he could relay on the user event's return value.
0 == don't process default (package) event, 1 == process it.
this is the way Win32::GUI actually works with DefWindowProc()
after all.
>> **** Win32::GUI::JPEG
>> allow *read* support for JPEG images, using libjpeg (see
>> ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
>> to in-memory bitmaps and then used as regular Bitmap objects.
>> (NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
>> absolutely deprecated, I'll look into PNG support eventually).
> After some search about this point, I found a free open source
> code project named FreeImage.
way cool, I will implement this. seems lot easier than libjpeg
(even the installation is much easier and it comes with binaries
too). BTW, I will also try to release a standalone Perl module
for this library (eg. Image::Free :-).
> I can help you for this point.
you're welcome! let's discuss it on Perl-Win32-GUI-hackers.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Thu Mar 22 09:57:09 2001
Received: from freesurfmta04.sunrise.ch ([194.230.0.33]
helo=freesurfmail.sunrise.ch)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14g9Kd-0002Ji-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 22 Mar 2001
09:57:07 -0800
Received: from felixnotebook5 (194.230.240.5) by freesurfmail.sunrise.ch
(5.1.056)
id 3A799A4800355288 for perl-win32-gui-users@lists.sourceforge.net;
Thu, 22 Mar 2001 18:57:04 +0100
Message-ID: <[EMAIL PROTECTED]>
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Date: Thu, 22 Mar 2001 18:59:35 +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
Subject: [perl-win32-gui-users] Win32::GUI FAQ
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 Aldo
in order to get started, where can I find the most up-to-date WIN32::GUI
documentation version? I probably have a very outdated one on my PC.
And a second question, is there any model FAQ document you recommend as a
basis? Otherwise, I would just take the "perlfaq.html" document of the core
perl documentation as a basis
and adopt it. Is that fine for you?
Best Regards
Felix Gaehler
Zurich, Switzerland
----- Original Message -----
From: "Aldo Calpini" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, March 22, 2001 1:34 PM
Subject: Re: [perl-win32-gui-users] .plan
> [EMAIL PROTECTED] wrote:
> > Dear Aldo
> > I'd love to help because Win32::GUI is a marvelous tool and it
> > enabled me to develop a real nice perl app on the PC. I could
> > offer my help for working on the documentation, code some perl
> > examples, and summarize the tricks discussed in the user group.
> > Time available depending on my 'other activities' (see below)...
>
> you're very welcome Felix!
> I think that the most helpful thing you can do (that's one that
> I forgot to include in the .plan) is to build a Win32::GUI FAQ
> based on the experience of this mailing list. you can prepare
> the base document if you can, then submit it to the list so
> that everyone, me included, can comment/add stuff/trim stuff/etc.
>
> we all count on you for this! :-)
>
>
> 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] Fri Mar 23 08:39:29 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14gUb3-0001RL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Mar 2001
08:39:29 -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 JAA27518;
Fri, 23 Mar 2001 09:39:23 -0700 (MST)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887) id <[EMAIL
PROTECTED]>; Fri,
23 Mar 2001 09:39:15 -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]>; Fri, 23 Mar 2001 09:34:59 -0700 (MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2653.19)
id <HLJADRXW>; Fri, 23 Mar 2001 09:35:04 -0700
Content-return: allowed
Date: Fri, 23 Mar 2001 09:35:02 -0700
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] .plan - Win32::GUI::JPEG
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Cc: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>
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.3
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 -=20
Has anyone volunteered to help with the Win32::GUI::JPEG addition yet?
I would like to help, but my C/C++ experience isn't current, as my
familiarity with today's compilers. It's been over 5 years since I have =
done
any serious C programming. Let me know what your expectations are of =
someone
to help with this issue.
I am quite interested in seeing this part of Win32::GUI done as I =
REALLY
need it for a program I have been working on.
Let me know how I can help.
Tim
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
-----Original Message-----
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Monday, March 19, 2001 10:12 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] .plan
hello perl-win32-gui-users,
this is my dot plan about Win32::GUI, what I'm doing and what
I plan to do. please note that everything here may change (without
further notice) depending on my other activities (namely job and
'real life' :-).
it would be kewl if you could 'prioritize' the list based on
what you find more useful (or funny :-), and above all (pardon
the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!
that said, this is the list:
**** NEM (New Event Model)
I'm almost done with this, but there are still some flaws.
I will also define the API to manage events (eg. AddEvent
or BindEvent or ResetEvent or something like this...).
I'm also adding the possibility of 'shortcut' options a la
Javascript, like:
-onClick =3D> \&DoSomething
**** Event Queues
this is something I didn't really explored yet, but I would
like to process a list of events. should look somehow like
this:
-events =3D> { Click =3D> [ \&DoSomething, \&DoSomethingElse ] }
in other words, when a Click events occur first DoSomething
is executed, then DoSomethingElse. the main purpose for this
is to allow subpackages to define their own event handlers
which can be 'overriden' by the implementation in the program.
(if it doesn't sound clear, don't worry, is still mainly obscure
to me too :-)
**** Win32::GUI::JPEG
allow *read* support for JPEG images, using libjpeg (see
ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
to in-memory bitmaps and then used as regular Bitmap objects.
(NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
absolutely deprecated, I'll look into PNG support eventually).
**** Win32::GUI::Scintilla
(see http://www.scintilla.org); to revive pride.pl! :-)
these are the main points... for now, I will post a followup
if I forgot something :-)
cheers,
Aldo
__END__
$_=3Dq,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] Fri Mar 23 14:54:10 2001
Received: from web13403.mail.yahoo.com ([216.136.175.61])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14gaRc-00074W-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Mar 2001
14:54:08 -0800
Message-ID: <[EMAIL PROTECTED]>
Received: from [207.228.85.212] by web13403.mail.yahoo.com; Fri, 23 Mar 2001
14:53:04 PST
Date: Fri, 23 Mar 2001 14:53:04 -0800 (PST)
From: Watson Cam <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
In-Reply-To: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: [perl-win32-gui-users] A Win32-GUI Library?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 Everyone,
I was wondering if anyone has set up a website that
contains a 'library' of examples for current Win32-GUI
code. The reason for my inquiry is I have a Weather
program written in Perl with Win32::GUI that I spent a
lot of time on. I simply don't have the time to work
on it anymore and I was hoping I might post it
somewhere so that people could at least cut code from
it, and if they felt so inclined, add / modify it. It
would also be cool to see what other people have been
able to do with this great tool for Perl. I thought
about just dumping the source on this list but of
course typically the source will only be available for
a while before it disappears in the archives. Anyone
else have thoughts on this? Cheers.
Cam
__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail.
http://personal.mail.yahoo.com/
From [EMAIL PROTECTED] Fri Mar 23 15:30:21 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14gb0e-0006Tn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Mar 2001
15:30:20 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NLVQQ>; Fri, 23 Mar 2001 15:31:02 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] A Win32-GUI Library?
Date: Fri, 23 Mar 2001 15:31:00 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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 back this motion. There are countless programmers out there who keep
looking for useful code but would not step forward to ask for it (eg on a
list like this). Trust me - I used to be one of them. I spent days writing a
tiff to bmp converter because I could not find what half a dozen others must
have done before me.
Plus, newbies can learn much faster from examples. First look for something
that does what you want, then look how it's done. It's much more efficient
than experimenting until you found 99% of the side-effects, only to have the
first stupid user stumble over the remaining percent that makes your
beautiful programm squawk.
We could also set up a wonderful knowledge base. Does anybody have
experience on how to organise hints and questions (or how-to headlines) so
that people can actually find something?
From [EMAIL PROTECTED] Fri Mar 23 16:29:25 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14gbvo-00061f-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Mar 2001
16:29:24 -0800
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 24 Mar 2001
00:22:07 +0000
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Fri, 23 Mar 2001 19:24:34 -0500
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Tab Strip best practices?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 new to Win32::GUI and to the list, so I guess you'll see a few
questions from me until I grok everything :)
To begin with, is there a common/default/best way of handling Tab Strips?
In one of the sample files the application simply pushed the controls into
an array for later Show()ing and Hide()ing. That seems okay, but I figured
I could insert them into a container object, much like the TabStrip itself,
and then show and hide the container object instead. I have a vague memory
of doing that when coding win32 in VB...
But, alas, I didn't find any such object I could use. Any ideas?
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri Mar 23 17:11:19 2001
Received: from smtp2.libero.it ([193.70.192.52])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14gcaK-0001F1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Mar 2001
17:11:16 -0800
Received: from stop (151.21.182.7) by smtp2.libero.it (5.5.025)
id 3AB48D6100153876 for perl-win32-gui-users@lists.sourceforge.net;
Sat, 24 Mar 2001 02:11:09 +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] A Win32-GUI Library?
Date: Sat, 24 Mar 2001 02:03:30 +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.3
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 was wondering if anyone has set up a website that
| contains a 'library' of examples for current Win32-GUI
| code.
Well, Watson, that' exactly what I want to do. I have started a site based
around Perl and
more specificlly Win32::GUI module. I will be putting almost all my finished
(and
unfinished) scripts there.
| I simply don't have the time to work
| on it anymore and I was hoping I might post it
| somewhere so that people could at least cut code from
| it, and if they felt so inclined, add / modify it.
I would love to put your script there, and anyone else. You can take at look
at the not
yet published site at www.jeb.ca/index_.htm.
regards,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Mar 23 18:50:36 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ge8O-00050c-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 23 Mar 2001
18:50:32 -0800
Received: from stop (151.21.180.77) by smtp1.libero.it (5.5.025)
id 3AB48C81001564C6 for perl-win32-gui-users@lists.sourceforge.net;
Sat, 24 Mar 2001 03:50:20 +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] A Win32-GUI Library?
Date: Sat, 24 Mar 2001 03:49:43 +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.3
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/>
| We could also set up a wonderful knowledge base. Does anybody have
| experience on how to organise hints and questions (or how-to headlines) so
| that people can actually find something?
I would love to set something like the Linux HOW-TOs on my site, easy
navigation with a
TOC. If we got some material together, I would sit down and put it all togather.
erick
www.jeb.ca
From [EMAIL PROTECTED] Sat Mar 24 03:32:10 2001
Received: from front1m.grolier.fr ([195.36.216.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14gmHB-0006G3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 24 Mar 2001
03:32:09 -0800
Received: from lastjedi (nas20-52.wnt.club-internet.fr [213.44.179.52])
by front1m.grolier.fr (8.9.3/No_Relay+No_Spam_MGC990224) with SMTP id
MAA16446
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 24 Mar 2001
12:32:05 +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] Tab Strip best practices?
Date: Sat, 24 Mar 2001 12:34: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.3
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,
>
> To begin with, is there a common/default/best way of handling Tab Strips?
>
> In one of the sample files the application simply pushed the controls into
> an array for later Show()ing and Hide()ing. That seems okay, but I figured
> I could insert them into a container object, much like the TabStrip
itself,
> and then show and hide the container object instead. I have a vague memory
> of doing that when coding win32 in VB...
>
> But, alas, I didn't find any such object I could use. Any ideas?
>
I have made some packages for easy handle tabstrip.
I use a container object for each page and hide/show it.
2 versions exists :
- Panel.pm and TabPanel.pm
- Frame.pm and TabFrame.pm
Panel and TabPanel packages normaly work with current Win32::GUI version but
it's not the best.
Frame and TabFrame packages work only with last CVS Win32::GUI version and
need new improvements.
You can download it at :
http://perso.club-internet/rocherl/TabPanel.zip
http://perso.club-internet/rocherl/TabFrame.zip
Otherwise, you can see other examples in mailing list archive (see around
end of 01/2001).
Laurent.
From [EMAIL PROTECTED] Sun Mar 25 04:31:24 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14h9g3-0005MV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 25 Mar 2001
04:31:23 -0800
Received: from stop (151.21.180.132) by smtp1.libero.it (5.5.025)
id 3AB48C8100184048 for perl-win32-gui-users@lists.sourceforge.net;
Sun, 25 Mar 2001 14:31:19 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sun, 25 Mar 2001 14:30:39 +0200
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] Perl2exe bug or Win32-GUI bug?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 I compile a Win32::GUI (v0.0.588) script using Perl2Exe (v5.00 03), and I
run it and
then try and close it I get a page fault error. On the other hand, when I
compile it using
version 0.0.502, I do not receive the error. Is this a bug in Win32::GUI module
(v0.0.588)
or in Perl2Exe?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Sun Mar 25 18:04:44 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hMN9-0001ea-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 25 Mar 2001
18:04:43 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NMA17>; Sun, 25 Mar 2001 18:04:54 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net '"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] win32:gui builder - goe
Date: Sun, 25 Mar 2001 18:04:48 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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 win32:gui builder availiable (eg. a visual aid in designing
the
>> gui) .
>
> yes, well.. at least a basic one.
>
> Download: ftp://ftp.wh.whoi.edu/pub/gb109.zip
David, this is a fantastic tool. It makes stuffing a few controls on a
window really fun.
I would like to contribute a little helper to this very useful GUI builder.
I wrote an object explorer. It understands ... erm ... it reads and tries to
understand Perl Win32::GUI scripts, packs the controls, together with their
properties and methods, in a multidimensional hash and graphically displays
that.
The next step will be to export changes to the props or meths back into a
perl script. And then I want to provide a code editor instead of a simple
textfield to edit the methods. I.e., syntax highlighting, auto indentation
and all the fancy stuff you'd expect. I use UltraEdit for my perl code and
it's soooo convenient.
Anyway. I can certainly do the export thing, but I have zero experience with
richedit for the code editor part. Anybody got some hints or wanna join?
Please have a look at the GOE (GUI Object Explorer) at
http://www.fairymails.com/perl/
Download either goe.zip or the the other three files (which are actually the
contents of the zip), start goe.pl and give it a Win32-GUI script in the
fileopen dialog. If it happens to find a *.ui file of the same name, it
offers to include this as part of the script - this is to interface to
David's gb109. Maybe we can melt the goe - once ready - into the gb and call
it ide?
Feeedback welcome - especially bug reports if you have a script that I fail
to parse correctly.
Thank you
Harald
From [EMAIL PROTECTED] Sun Mar 25 21:20:21 2001
Received: from fepout1.telus.net ([199.185.220.236]
helo=priv-edtnes03-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hPQT-0000NG-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 25 Mar 2001
21:20:21 -0800
Received: from jeremy ([216.232.82.47])
by priv-edtnes03-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sun, 25 Mar 2001 22:20:15 -0700
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Sun, 25 Mar 2001 21:16:15 -0800
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] to erick
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 erick,
was trying to run your ftp client. I can't seem to install the net:ftp
on
a win32 activestate perl. where can i find a net:ftp that will install on
win32 . it seems that all modules i get from cpan, i don't know how to
install them.
Jeremy
P.S. i am working on an ftp client as well, using the win32:internet
module, as i could not install the net:ftp, but i like the net:ftp module
better (more functions).
I like your site.
From [EMAIL PROTECTED] Mon Mar 26 03:13:49 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hUwX-0002Tf-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
03:13:49 -0800
Received: from stop (151.21.180.97) by smtp1.libero.it (5.5.025)
id 3AB48C81001B08F4 for perl-win32-gui-users@lists.sourceforge.net;
Mon, 26 Mar 2001 13:13:42 +0200
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] to erick
Date: Mon, 26 Mar 2001 13:09:41 +0200
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.3
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/>
| was trying to run your ftp client. I can't seem to install the net:ftp on
| a win32 activestate perl. where can i find a net:ftp that will install on
| win32 . it seems that all modules i get from cpan, i don't know how to
| install them.
When I install modules from CPAN, I use the 'nmake' utility instead of
the 'make' utility. I have yet to have a problem. I got it from some
obscure link at Microsoft. I don't remember the actual link, but I could
send you the needed files (2 of them) directly to you (34.7 KB zip).
| P.S. i am working on an ftp client as well, using the win32:internet
| module, as i could not install the net:ftp, but i like the net:ftp module
| better (more functions).
I don't know about win32:internet module, but Net::FTP is OOP, it's easy.
| I like your site.
Thanks a lot, at least there somebody out there that has seen it, and
I'm not doing all of this for nothing :)
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Mon Mar 26 11:14:18 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14hcRV-0007aQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
11:14:17 -0800
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
20:06:47 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 26 Mar 2001 14:09:18 -0500
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Tab Strip best practices?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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 wrote:
>I have made some packages for easy handle tabstrip.
>I use a container object for each page and hide/show it.
Arghh!
I didn't read mail during the weekend and ended up writing my own little
class: Win32::GUI:TabStripGroup
Oh, well... :)
>You can download it at :
>http://perso.club-internet/rocherl/TabPanel.zip
>http://perso.club-internet/rocherl/TabFrame.zip
Great, I'll look into that, thanks!
To the rest of you, please note that the correct URL (one Google search
later) is:
http://perso.club-internet.fr/rocherl/TabPanel.zip
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Mar 26 11:25:19 2001
Received: from fepout4.telus.net ([199.185.220.239]
helo=priv-edtnes12-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hccB-0000se-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
11:25:19 -0800
Received: from jeremy ([216.232.82.47])
by priv-edtnes12-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Mon, 26 Mar 2001 12:25:06 -0700
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Mon, 26 Mar 2001 11:21:08 -0800
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] to erick
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[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.3
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 I install modules from CPAN, I use the 'nmake' utility instead of
> the 'make' utility. I have yet to have a problem. I got it from some
> obscure link at Microsoft. I don't remember the actual link, but I could
> send you the needed files (2 of them) directly to you (34.7 KB zip).
thanx erick,
if you can send it to me, ([EMAIL PROTECTED]) it would be appreciated.
also if you can show me how to use nmake to install it on activestate perl,
i will appreciate it.
Jeremy
From [EMAIL PROTECTED] Mon Mar 26 13:34:44 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14hedN-0004DN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
13:34:43 -0800
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
22:29:21 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 26 Mar 2001 16:32:03 -0500
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Nonblocking sockets?
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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 looking through the archives and found quite a few interesting posts]
Ludvig af Klinteberg didn't get any response on this question:
>This may not be a straight Win32::GUI question, but I think
>it might concern those who write networking Perl scripts
>with a UI for win32. The question is simple: how to make a
>socket nonblocking in Perl on Windows? The usual
>fcntl($sock,F_SETFL,O_NONBLOCK) does apparently not work, so
>what to do? I have a vague memory of some hackish parameters
>that could do the trick, but I don't remember what...
Check out this thread at PerlMonks:
http://www.perlmonks.org/index.pl?node_id=65814&lastnode_id=3989
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Mar 26 15:12:45 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14hgAG-0002HH-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
15:12:45 -0800
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
00:07:19 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 26 Mar 2001 18:10:32 -0500
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Exiting Dialog()
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 bumped into a little problem yesterday and before figuring out the,
probably, correct way of exiting the Win32::GUI::Dialog() event loop by
returning -1 from an event handler routine, I created this little hack to
do it for me.
Now my question is if my way is a bad, evil thing or perhaps a clever way
of using an undocumented feature :)
Here is the code (probably with weird line breaks):
=head1 CONSTANTS
=head2 WM_EXITLOOP
Custom message to exit from the Dialog() sub.
=cut
use constant WM_APP => 0x8000; #From winuser.h (Visual Studio)
use constant WM_EXITLOOP => WM_APP + 1; #From GUI.xs
=head1 ROUTINES
=head2 exitDialog($winSomewindow)
Exit from the Win32::GUI::Dialog event loop.
$winSomewindow -- A Win32::GUI window object we can send the
WM_EXITLOOP message to.
Return 1 on success, else 0.
=cut
sub exitDialog {
my ($winSomewindow) = @_;
$winSomewindow->PostMessage(WM_EXITLOOP, -1, 0);
return(1);
}
Now, if this is in fact a healthy thing to do, is there any way of
"broadcasting" it into the eventloop so I don't have to provide a window
object?
And if this is a good thing, is there any hope of seeing this merged into
Win32::GUI? Right now it lives in my very private Win32::GUI::AdHoc module.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Mar 26 16:35:35 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hhSR-0005Ea-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
16:35:35 -0800
Received: from stop (151.21.181.79) by smtp1.libero.it (5.5.025)
id 3AB48C81001DFE20 for perl-win32-gui-users@lists.sourceforge.net;
Tue, 27 Mar 2001 02:35:31 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 27 Mar 2001 02:34:44 +0200
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] Using both protocols fo AddHyperlink
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 problem when I use both protocols, for the Hyperlink module, one after
the other.
The following example will open a the mailto always, for both. And when I
switch them,
that is, put the http after the mailto, then it will always open a the http,
for both. It
falls through and the first one is ignored. I tried looking at the hyperlink
module, but
I don't see anything wrong. Any thoughts?
# Script #
use Win32::GUI;
use Win32::GUI::HyperLink;
my $Window = new Win32::GUI::Window(
-title => 'Win32::GUI::HyperLink demo',
-pos => [ 100, 100 ],
-size => [ 150, 100 ],
-name => 'Window',
);
$Window->AddHyperLink(
-text => "dada's perl lab",
-name => "test",
-pos => [ 25, 15 ],
-url => "http://dada.perl.it";,
);
$Window->AddHyperLink(
-text => "email dada's perl lab",
-name => "test",
-pos => [ 25, 35 ],
-url => "mailto:[EMAIL PROTECTED]",
);
$Window->Show();
Win32::GUI::Dialog();
sub Window_Terminate {
return -1;
}
# EOF #
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Mon Mar 26 16:45:48 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hhcK-0007G0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 26 Mar 2001
16:45:48 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NMH2M>; Mon, 26 Mar 2001 16:46:09 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Using both protocols fo AddHyperlink
Date: Mon, 26 Mar 2001 16:46:07 -0800
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.3
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/>
| that is, put the http after the mailto, then it will always
| open a the http, for both. It
| falls through and the first one is ignored.
you must have unique names for the controls. In the sample code, they're
both named "test". The second redefines the first.
From [EMAIL PROTECTED] Tue Mar 27 02:36:26 2001
Received: from femail10.sdc1.sfba.home.com ([24.0.95.106])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14hqpu-0001Ud-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
02:36:26 -0800
Received: from cc212923b ([24.18.210.35]) by femail10.sdc1.sfba.home.com
(InterMail vM.4.01.03.20 201-229-121-120-20010223) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 27 Mar 2001 02:36:20 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Martin Seidell" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] to erick
Date: Tue, 27 Mar 2001 05:36:29 -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.60.2296.0000
X-MimeOLE: Produced By Microsoft MimeOLE V5.60.2296.0000
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
try ppm install libwww-perl. net::ftp is a subset of it.
If that dosesn't work your ppm configuration is hosed...
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, March 26, 2001 6:09 AM
Subject: Re: [perl-win32-gui-users] to erick
> | was trying to run your ftp client. I can't seem to install the net:ftp
on
> | a win32 activestate perl. where can i find a net:ftp that will install
on
> | win32 . it seems that all modules i get from cpan, i don't know how to
> | install them.
>
> When I install modules from CPAN, I use the 'nmake' utility instead of
> the 'make' utility. I have yet to have a problem. I got it from some
> obscure link at Microsoft. I don't remember the actual link, but I
could
> send you the needed files (2 of them) directly to you (34.7 KB zip).
>
> | P.S. i am working on an ftp client as well, using the win32:internet
> | module, as i could not install the net:ftp, but i like the net:ftp
module
> | better (more functions).
>
> I don't know about win32:internet module, but Net::FTP is OOP, it's
easy.
>
> | I like your site.
>
> Thanks a lot, at least there somebody out there that has seen it, and
> I'm not doing all of this for nothing :)
>
> erick
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Tue Mar 27 05:27:28 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14htVP-00060N-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
05:27:28 -0800
Received: from stop (151.21.183.190) by smtp1.libero.it (5.5.025)
id 3AB48C81001F8100 for perl-win32-gui-users@lists.sourceforge.net;
Tue, 27 Mar 2001 15:27:18 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 27 Mar 2001 15:26:32 +0200
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] Building a HOWTO for Win32-GUI
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 was wondering if it was ok if I use the tutorials, which come with the
Win32-GUI,
and build an online (and obviously off-line) HOWTO? You could distribute the
HOWTO with
the module. Let me know what you think.
regards,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Tue Mar 27 06:30:08 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 14huU3-0006yo-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
06:30:07 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id QAA101388
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
16:30:02 +0200
Received: from unknown(194.185.18.130) by fe-1.inet.it via I-SMTP
id queue/s-194.185.18.130-J0lQqa; Tue Mar 27 16:30:02 2001
Date: Tue, 27 Mar 2001 16:35:48 +0200
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] Building a HOWTO for 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.3
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,
>
> I was wondering if it was ok if I use the tutorials, which
> come with the Win32-GUI, and build an online (and obviously
> off-line) HOWTO? You could distribute the HOWTO with the module.
> Let me know what you think.
God bless you :-)
it's incredibly ok with me!
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Tue Mar 27 06:30:56 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 14huUp-00077w-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
06:30:55 -0800
Received: (from [EMAIL PROTECTED])
by fe-1.inet.it (8.9.3/8.9.3) id QAA111256
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 27 Mar 2001
16:30:53 +0200
Received: from unknown(194.185.18.130) by fe-1.inet.it via I-SMTP
id queue/s-194.185.18.130-YJBN7a; Tue Mar 27 16:30:52 2001
Date: Tue, 27 Mar 2001 16:36:38 +0200
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 FAQ
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.3
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 Aldo
> in order to get started, where can I find the most up-to-date
> WIN32::GUI documentation version? I probably have a very
> outdated one on my PC.
I'll send it to you.
> And a second question, is there any model FAQ document you
> recommend as a basis? Otherwise, I would just take the
> "perlfaq.html" document of the core perl documentation as a
> basis and adopt it. Is that fine for you?
completely fine.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Mar 28 07:21:02 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iHkr-00066o-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
07:21:01 -0800
Received: from stop (151.21.183.208) by smtp1.libero.it (5.5.025)
id 3AB48C8100240394 for perl-win32-gui-users@lists.sourceforge.net;
Wed, 28 Mar 2001 17:20:55 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 28 Mar 2001 16:19:51 +0200
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] Missing tutorials 6,7,8?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
Is there a reason why the tutorials jump from 5 to 9. I guess the 9 is
upside down ;-)
regards,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Wed Mar 28 10:33:32 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iKl7-0002sP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
10:33:29 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id NAA21455 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001 13:33:21 -0500
(EST)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 28 Mar 2001 13:30:37 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0009_01C0B78B.462D3980"
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] desktop
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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_01C0B78B.462D3980
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Is there any way to blackout the desktop (as a screensaver would) using =
the GUI module? I still want to be able to show my own windows I create =
in my program.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED]
------=_NextPart_000_0009_01C0B78B.462D3980
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 any way to blackout the =
desktop (as a=20
screensaver would) using the GUI module? I still want to be able =
to show=20
my own windows I create in my program.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV></BODY></HTML>
------=_NextPart_000_0009_01C0B78B.462D3980--
From [EMAIL PROTECTED] Wed Mar 28 14:26:25 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iOOW-0004D9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
14:26: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 PAA29870
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
15:26:21 -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; Wed, 28
Mar 2001 15:26:16 -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; Wed, 28 Mar 2001 15:22:07 -0700
(MST)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2653.19)
id <HZWNXXF0>; Wed, 28 Mar 2001 15:22:13 -0700
Content-return: allowed
Date: Wed, 28 Mar 2001 15:22:01 -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] Looping Question
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 Win32::GUI script that needs to loop. I tried using a timer =
for
each instance of the loop, but it doesn't always take the same amount =
of
time for each time through. I had this as a command line program and =
just
put the whole thing in a while (1=3D=3D1). How can I do the same thing =
with
Win32::GUI? I have several sleeps in my loop and I want the rest of the =
gui
script to be accessible while this part is "asleep". Any suggestions?
Thanks,
Tim
------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
------------------------------------------------------------------------=
----
---------------------
From [EMAIL PROTECTED] Wed Mar 28 14:45:28 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iOgy-0005Wn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
14:45:28 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NMYL0>; Wed, 28 Mar 2001 14:46:01 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] desktop
Date: Wed, 28 Mar 2001 14:46:00 -0800
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C0B7D8.DC2BC990"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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_01C0B7D8.DC2BC990
Content-Type: text/plain;
charset="iso-8859-1"
Hi Jonathan.
I found a way - not exactly easy, probably far from perfect, but it works. I
hide all windows - walking backwards through the chain of desktop children,
to avoid making each active just before hiding it. Then I cover the
background with a big, fat, ugly, black rectangle and show my own window.
Note I restore all the hidden stuff in END{}. Otherwise, if your program
dies, you'll end up with a perfectly invisible OS. On the other hand, that
might avoid a few annoying windows faults ...
Have fun
Harald
use Win32::GUI;
use Win32::API;
BEGIN
{
undef $blank;
undef @hidden;
$CreateWindowEx = new Win32::API ('user32', $_ = 'CreateWindowEx',
[N,P,P,N,I,I,I,I,I,I,I,P], I) or die $_;
$ShowWindow = new Win32::API ('user32', $_ = 'ShowWindow', [I, I], I)
or die $_;
$DestroyWindow = new Win32::API ('user32', $_ = 'DestroyWindow', [I], I)
or die $_;
}
END
{
$ShowWindow->Call ($_, 8) for @hidden;
$DestroyWindow->Call ($blank) if $blank;
undef $CreateWindowEx;
undef $DestroyWindow;
undef $ShowWindow;
}
$Main = new Win32::GUI::Window (-name => 'Main',
-pos => [100, 100], -size => [400, 300]);
sub Main_Terminate {-1}
$Main->AddLabel (-name => $_ = 'All alone!',
-text => $_, -pos => [160, 110]);
$desktop = $Main->GetDesktopWindow ();
$_ = Win32::GUI::GetWindow ($desktop, GW_CHILD);
$_ = Win32::GUI::GetWindow ($_, GW_HWNDLAST);
do {
if (Win32::GUI::IsVisible ($_)) {
push @hidden, $_;
$ShowWindow->Call ($_, 0);}
} while $_ = Win32::GUI::GetWindow ($_, GW_HWNDPREV);
@area = Win32::GUI::GetWindowRect ($desktop);
$blank = $CreateWindowEx->Call (0, $_ = 'STATIC', '',
0x5C000004, @area, $desktop, 0, 0, 0) or die $_;
$Main->Show ();
Win32::GUI::Dialog ();
-----Original Message-----
From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 28, 2001 10:31
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] desktop
Is there any way to blackout the desktop (as a screensaver would) using the
GUI module? I still want to be able to show my own windows I create in my
program.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
------_=_NextPart_001_01C0B7D8.DC2BC990
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.2920.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN class=942113422-28032001>Hi
Jonathan.</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN
class=942113422-28032001></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN class=942113422-28032001>I
found a way - not exactly easy, probably far from perfect, but it works. I hide
all windows - walking backwards through the chain of desktop children, to avoid
making each active just before hiding it. Then I cover the background with a
big, fat, ugly, black rectangle and show my own window. </SPAN></FONT><FONT
color=#0000ff face=Arial size=2><SPAN class=942113422-28032001>Note I restore
all the hidden stuff in END{}. Otherwise, if your program dies, you'll end up
with a perfectly invisible OS. On the other hand, that might avoid a few
annoying windows faults ...</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN
class=942113422-28032001></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN class=942113422-28032001>Have
fun</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN
class=942113422-28032001>Harald</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>use Win32::GUI;<BR>use
Win32::API;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face="Courier New" size=2>BEGIN<BR>{<BR> undef
$blank;<BR> undef @hidden;<BR> $CreateWindowEx = new Win32::API
('user32', $_ = 'CreateWindowEx',<BR> [N,P,P,N,I,I,I,I,I,I,I,P], I)
or die $_;<BR> $ShowWindow = new Win32::API ('user32', $_ = 'ShowWindow',
[I, I], I)<BR> or die $_;<BR> $DestroyWindow = new Win32::API
('user32', $_ = 'DestroyWindow', [I], I)<BR> or die
$_;<BR>}<BR>END<BR>{<BR> $ShowWindow->Call ($_, 8) for
@hidden;<BR> $DestroyWindow->Call ($blank) if $blank;<BR> undef
$CreateWindowEx;<BR> undef $DestroyWindow;<BR> undef
$ShowWindow;<BR>}<BR>$Main = new Win32::GUI::Window (-name =>
'Main',<BR> -pos => [100, 100], -size => [400, 300]);<BR>sub
Main_Terminate {-1}<BR>$Main->AddLabel (-name => $_ = 'All
alone!',<BR> -text => $_, -pos => [160, 110]);<BR>$desktop =
$Main->GetDesktopWindow ();<BR>$_ = Win32::GUI::GetWindow ($desktop,
GW_CHILD);<BR>$_ = Win32::GUI::GetWindow ($_, GW_HWNDLAST);<BR>do {<BR> if
(Win32::GUI::IsVisible ($_)) {<BR> push @hidden,
$_;<BR> $ShowWindow->Call ($_, 0);}<BR>} while $_ =
Win32::GUI::GetWindow ($_, GW_HWNDPREV);<BR>@area = Win32::GUI::GetWindowRect
($desktop);<BR>$blank = $CreateWindowEx->Call (0, $_ = 'STATIC', '',
<BR> 0x5C000004, @area, $desktop, 0, 0, 0) or die $_;<BR>$Main->Show
();<BR>Win32::GUI::Dialog ();<BR></FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px;
PADDING-LEFT: 5px">
<DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Jonathan Southwick
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Wednesday, March 28, 2001
10:31<BR><B>To:</B> [EMAIL PROTECTED]<BR><B>Subject:</B>
[perl-win32-gui-users] desktop<BR><BR></DIV></FONT>
<DIV><FONT face=Arial size=2>Is there any way to blackout the desktop (as a
screensaver would) using the GUI module? I still want to be able to
show
my own windows I create in my program.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Jonathan Southwick<BR>Technical & Network
Services<BR>Allegheny College, Meadville, PA<BR><A
href="mailto:[EMAIL PROTECTED]">[EMAIL
PROTECTED]</A></FONT></DIV></BLOCKQUOTE></BODY></HTML>
------_=_NextPart_001_01C0B7D8.DC2BC990--
From [EMAIL PROTECTED] Wed Mar 28 15:16:17 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iPAn-0008D1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
15:16:17 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NMYQK>; Wed, 28 Mar 2001 15:16:54 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Looping Question
Date: Wed, 28 Mar 2001 15:16:53 -0800
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.3
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/>
| Win32::GUI? I have several sleeps in my loop and I want the
| rest of the gui
| script to be accessible while this part is "asleep". Any suggestions?
Hi Thomas
The basic knack is
Win32::GUI::DoEvents() while Win32::GUI::PeekMessage(0,0,0);
You can call this even from inside an event. Here's a complete example,
taking care of avoiding restarting the busy loop before it completed, and of
aborting the busy loop when the program terminates.
have fun,
Harald
use Win32::GUI;
$Main = new Win32::GUI::Window (-name => 'Main',
-pos => [100, 100], -size => [400, 300]);
sub Main_Terminate {-1}
$Main->AddButton (-name => $_ = 'Click',
-text => $_, -pos => [160, 80]);
sub Click_Click {$Main->MessageBox ("Don't do that")}
$Main->AddButton (-name => $_ = 'Busy',
-text => $_, -pos => [160, 120]);
sub Busy_Click
{
return 0 if $busy++;
for ($i = 0; $i < 1e5; $i++)
{
print "$i\r";
while (Win32::GUI::PeekMessage(0,0,0))
{
return -1 if Win32::GUI::DoEvents() < 0;
}
}
$busy = 0;
}
$Main->Show ();
Win32::GUI::Dialog ();
From [EMAIL PROTECTED] Wed Mar 28 12:38:16 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iMhr-0006PM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 28 Mar 2001
12:38:15 -0800
Received: from stop (151.21.172.129) by smtp3.libero.it (5.5.025)
id 3AB4BB530024C3DB for perl-win32-gui-users@lists.sourceforge.net;
Wed, 28 Mar 2001 22:38:08 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 28 Mar 2001 21:37:01 +0200
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 disappearing
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 posted a message a while back saying that I had a problem when I tried to
resize the
columns in a ListView, the data (ie. that which was in the listview control)
would
disappear. Well, I isolated the problem. This only occurs if you create a label
that
covers the whole window. (The reason why I created this label was to get a
desired
background color.) Long and the short, if you want to do this, you have to
declare the
(background)label AFTER the the ListView control, as the window is updated, the
Listview
gets hidden (well, all, except the columns).
Thanks anyways Johnathan.
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Thu Mar 29 05:48:50 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14icn6-0000j5-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001
05:48:44 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id IAA15349 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001 08:48:36 -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 disappearing
Date: Thu, 29 Mar 2001 08:45:56 -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.3
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,
Hey, thanks for letting me know what you did to correct it so that I don't
make the same mistake in the future. I was racking my brain trying to
figure out what was wrong.
Jonathan
----- Original Message -----
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, March 28, 2001 2:37 PM
Subject: [perl-win32-gui-users] ListView disappearing
> I posted a message a while back saying that I had a problem when I tried
to resize the
> columns in a ListView, the data (ie. that which was in the listview
control) would
> disappear. Well, I isolated the problem. This only occurs if you create a
label that
> covers the whole window. (The reason why I created this label was to get a
desired
> background color.) Long and the short, if you want to do this, you have to
declare the
> (background)label AFTER the the ListView control, as the window is
updated, the Listview
> gets hidden (well, all, except the columns).
>
> Thanks anyways Johnathan.
>
> erick
> never stop questioning
> www.jeb.ca
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
From [EMAIL PROTECTED] Thu Mar 29 05:50:07 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14icoO-0000pt-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001
05:50:04 -0800
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id IAA14515 for
<perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001 08:49:58 -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] desktop
Date: Thu, 29 Mar 2001 08:47:17 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_003C_01C0B82C.DC47AAD0"
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.3
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_003C_01C0B82C.DC47AAD0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Harold,
Thanks!!! I think that will work well enough for me.
Jonathan
----- Original Message -----=20
From: Piske, Harald=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Sent: Wednesday, March 28, 2001 5:46 PM
Subject: RE: [perl-win32-gui-users] desktop
Hi Jonathan.
=20
I found a way - not exactly easy, probably far from perfect, but it =
works. I hide all windows - walking backwards through the chain of =
desktop children, to avoid making each active just before hiding it. =
Then I cover the background with a big, fat, ugly, black rectangle and =
show my own window. Note I restore all the hidden stuff in END{}. =
Otherwise, if your program dies, you'll end up with a perfectly =
invisible OS. On the other hand, that might avoid a few annoying windows =
faults ...
=20
Have fun
Harald
=20
use Win32::GUI;
use Win32::API;
BEGIN
{
undef $blank;
undef @hidden;
$CreateWindowEx =3D new Win32::API ('user32', $_ =3D =
'CreateWindowEx',
[N,P,P,N,I,I,I,I,I,I,I,P], I) or die $_;
$ShowWindow =3D new Win32::API ('user32', $_ =3D 'ShowWindow', [I, =
I], I)
or die $_;
$DestroyWindow =3D new Win32::API ('user32', $_ =3D 'DestroyWindow', =
[I], I)
or die $_;
}
END
{
$ShowWindow->Call ($_, 8) for @hidden;
$DestroyWindow->Call ($blank) if $blank;
undef $CreateWindowEx;
undef $DestroyWindow;
undef $ShowWindow;
}
$Main =3D new Win32::GUI::Window (-name =3D> 'Main',
-pos =3D> [100, 100], -size =3D> [400, 300]);
sub Main_Terminate {-1}
$Main->AddLabel (-name =3D> $_ =3D 'All alone!',
-text =3D> $_, -pos =3D> [160, 110]);
$desktop =3D $Main->GetDesktopWindow ();
$_ =3D Win32::GUI::GetWindow ($desktop, GW_CHILD);
$_ =3D Win32::GUI::GetWindow ($_, GW_HWNDLAST);
do {
if (Win32::GUI::IsVisible ($_)) {
push @hidden, $_;
$ShowWindow->Call ($_, 0);}
} while $_ =3D Win32::GUI::GetWindow ($_, GW_HWNDPREV);
@area =3D Win32::GUI::GetWindowRect ($desktop);
$blank =3D $CreateWindowEx->Call (0, $_ =3D 'STATIC', '',=20
0x5C000004, @area, $desktop, 0, 0, 0) or die $_;
$Main->Show ();
Win32::GUI::Dialog ();
-----Original Message-----
From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 28, 2001 10:31
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] desktop
Is there any way to blackout the desktop (as a screensaver would) =
using the GUI module? I still want to be able to show my own windows I =
create in my program.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED]
------=_NextPart_000_003C_01C0B82C.DC47AAD0
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>Harold,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Thanks!!! I think that will work well =
enough for=20
me.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan</FONT></DIV>
<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]"=20
[EMAIL PROTECTED]>Piske, Harald</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> Wednesday, March 28, 2001 =
5:46=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> RE: =
[perl-win32-gui-users]=20
desktop</DIV>
<DIV><BR></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN =
class=3D942113422-28032001>Hi=20
Jonathan.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D942113422-28032001></SPAN></FONT> </DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN =
class=3D942113422-28032001>I=20
found a way - not exactly easy, probably far from perfect, but it =
works. I=20
hide all windows - walking backwards through the chain of desktop =
children, to=20
avoid making each active just before hiding it. Then I cover the =
background=20
with a big, fat, ugly, black rectangle and show my own window.=20
</SPAN></FONT><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D942113422-28032001>Note I restore all the hidden stuff in =
END{}.=20
Otherwise, if your program dies, you'll end up with a perfectly =
invisible OS.=20
On the other hand, that might avoid a few annoying windows faults =
...</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D942113422-28032001></SPAN></FONT> </DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN =
class=3D942113422-28032001>Have=20
fun</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DArial size=3D2><SPAN=20
class=3D942113422-28032001>Harald</SPAN></FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>use Win32::GUI;<BR>use=20
Win32::API;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>BEGIN<BR>{<BR> undef=20
$blank;<BR> undef @hidden;<BR> $CreateWindowEx =3D new =
Win32::API=20
('user32', $_ =3D =
'CreateWindowEx',<BR> [N,P,P,N,I,I,I,I,I,I,I,P], I)=20
or die $_;<BR> $ShowWindow =3D new Win32::API ('user32', $_ =3D =
'ShowWindow',=20
[I, I], I)<BR> or die $_;<BR> $DestroyWindow =3D new =
Win32::API=20
('user32', $_ =3D 'DestroyWindow', [I], I)<BR> or die=20
$_;<BR>}<BR>END<BR>{<BR> $ShowWindow->Call ($_, 8) for=20
@hidden;<BR> $DestroyWindow->Call ($blank) if =
$blank;<BR> undef=20
$CreateWindowEx;<BR> undef $DestroyWindow;<BR> undef=20
$ShowWindow;<BR>}<BR>$Main =3D new Win32::GUI::Window (-name =3D>=20
'Main',<BR> -pos =3D> [100, 100], -size =3D> [400, =
300]);<BR>sub=20
Main_Terminate {-1}<BR>$Main->AddLabel (-name =3D> $_ =3D 'All=20
alone!',<BR> -text =3D> $_, -pos =3D> [160, =
110]);<BR>$desktop =3D=20
$Main->GetDesktopWindow ();<BR>$_ =3D Win32::GUI::GetWindow =
($desktop,=20
GW_CHILD);<BR>$_ =3D Win32::GUI::GetWindow ($_, GW_HWNDLAST);<BR>do=20
{<BR> if (Win32::GUI::IsVisible ($_)) {<BR> push =
@hidden,=20
$_;<BR> $ShowWindow->Call ($_, 0);}<BR>} while $_ =3D=20
Win32::GUI::GetWindow ($_, GW_HWNDPREV);<BR>@area =3D =
Win32::GUI::GetWindowRect=20
($desktop);<BR>$blank =3D $CreateWindowEx->Call (0, $_ =3D =
'STATIC', '',=20
<BR> 0x5C000004, @area, $desktop, 0, 0, 0) or die =
$_;<BR>$Main->Show=20
();<BR>Win32::GUI::Dialog ();<BR></FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT: 5px; =
MARGIN-RIGHT: 0px; PADDING-LEFT: 5px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Jonathan =
Southwick=20
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Wednesday, March 28, =
2001=20
10:31<BR><B>To:</B> [EMAIL PROTECTED]<BR><B>Subject:</B>=20
[perl-win32-gui-users] desktop<BR><BR></DIV></FONT>
<DIV><FONT face=3DArial size=3D2>Is there any way to blackout the =
desktop (as a=20
screensaver would) using the GUI module? I still want to be =
able to=20
show my own windows I create in my program.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical =
& Network=20
Services<BR>Allegheny College, Meadville, PA<BR><A=20
=
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_003C_01C0B82C.DC47AAD0--
From [EMAIL PROTECTED] Thu Mar 29 09:18:13 2001
Received: from mtaout.telus.net ([199.185.220.235]
helo=priv-edtnes10-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ig3p-0007iN-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001
09:18:13 -0800
Received: from jeremy ([216.232.82.47])
by priv-edtnes10-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Thu, 29 Mar 2001 10:18:06 -0700
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Thu, 29 Mar 2001 09:14:06 -0800
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] tk or win32:gui builder
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 heard that there is a tk or win32:gui builder plugin for the (visual
studio) Visual Basic ide.
which one is it for,(tk or win32:Gui) and where can i find download it.
Jeremy
From [EMAIL PROTECTED] Thu Mar 29 11:43:05 2001
Received: from mail.dacservices.com ([209.154.52.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14iiK1-0000ck-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001
11:43:05 -0800
Received: from tisiexchg01.tisinet.com by mail.dacservices.com
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 29 Mar 2001 19:43:03 UT
Received: by tisiexchg01.tisinet.com with Internet Mail Service (5.5.2653.19)
id <HQF65DXG>; Thu, 29 Mar 2001 13:43:02 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] tk or win32:gui builder
Date: Thu, 29 Mar 2001 13:43:02 -0600
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.3
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/>
ActiveState
-----Original Message-----
From: Jeremy Aiyadurai [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 29, 2001 11:14 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] tk or win32:gui builder
I heard that there is a tk or win32:gui builder plugin for the (visual
studio) Visual Basic ide.
which one is it for,(tk or win32:Gui) and where can i find download it.
Jeremy
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Thu Mar 29 22:05:00 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14is1s-0003QP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 29 Mar 2001
22:05:00 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NNBY0>; Thu, 29 Mar 2001 22:05:44 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Building a HOWTO for Win32-GUI
Date: Thu, 29 Mar 2001 22:05:43 -0800
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.3
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,
About the (numerous) [TBD]s in the doku - at least the one I have.
I was wondering if it was a good idea to just point to the dokus on the
msdn. For instance, I wanted to set up an ImageList and needed to know what
to put in the FLAG parameter. It took me a couple of minutes to locate the
page. If there was a link to
http://msdn.microsoft.com/library/devprods/vs6/visualc/vcmfc/_mfc_cimagelist
.3a3a.create.htm
in the doku, that would work - at least until the msdn undergoes a rework.
Quoting the doku is not permitted (see the msdn terms of use), so the
alternative would be to read it and then write it from memory, which is
annoying and time-consuming.
Just a thought.
Harald
From [EMAIL PROTECTED] Fri Mar 30 02:54:38 2001
Received: from ausxc08.us.dell.com ([143.166.99.216])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iwYA-00013V-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 30 Mar 2001
02:54:38 -0800
Received: by ausxc08.us.dell.com with Internet Mail Service (5.5.2650.21)
id <H9AH0HPW>; Fri, 30 Mar 2001 04:54:29 -0600
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] desktop
Date: Fri, 30 Mar 2001 04:53:14 -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.3
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 ......
if ("LST" =~ /[qt|et1|et2|si|rlt]/i)
Can Anybody Tell Me Why the expression above is matching.
According to everything I've read it shouldn't.
I'm going soft again ....
Any help would be greatly appriciated
Rgds Eoin:
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
From [EMAIL PROTECTED] Fri Mar 30 03:05:25 2001
Received: from t009.terraspace.ru ([195.18.32.8])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14iwiZ-0001wF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 30 Mar 2001
03:05:23 -0800
Received: from web (web [192.168.0.10])
by t009.terraspace.ru (8.9.3/8.9.3) with ESMTP id PAA25088
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 30 Mar 2001
15:06:45 +0400
Date: Fri, 30 Mar 2001 15:04:53 +0400
From: Max Kozlov <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.51) UNREG / CD5BF9353B3B7091
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re[2]: [perl-win32-gui-users] desktop
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.3
Precedence: bulk
Reply-To: perl-win32-gui-users@lists.sourceforge.net
X-Reply-To: Max Kozlov <[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/>
Hello Eoin,
Friday, March 30, 2001, you wrote:
Edc> if ("LST" =~ /[qt|et1|et2|si|rlt]/i)
Edc> Can Anybody Tell Me Why the expression above is matching.
Edc> According to everything I've read it shouldn't.
Edc> I'm going soft again ....
Edc> Any help would be greatly appriciated
if ("LST" =~ /(qt|et1|et2|si|rlt)/i)
feel the difference ;-)
Best regards,
Max mailto:[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri Mar 30 04:00:05 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ixZU-0007KV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 30 Mar 2001
04:00:04 -0800
Received: from stop (151.21.181.73) by smtp3.libero.it (5.5.025)
id 3AB4BB53002AA517 for perl-win32-gui-users@lists.sourceforge.net;
Fri, 30 Mar 2001 13:59:55 +0200
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] Building a HOWTO for Win32-GUI
Date: Fri, 30 Mar 2001 12:58:45 +0200
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.3
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/>
| About the (numerous) [TBD]s in the doku
I'm sorry Harald, it's probably just me, but what is "the doku"? The modules
pakage?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Mar 30 04:04:12 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 14ixdU-0007co-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 30 Mar 2001
04:04:12 -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: Re[2]: [perl-win32-gui-users] desktop
Date: Fri, 30 Mar 2001 07:03:00 -0500
Message-ID: <[EMAIL PROTECTED]>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: Re[2]: [perl-win32-gui-users] desktop
Thread-Index: AcC5CiBsDthRYu/fQomO50t/VO/KngABrGCA
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.3
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 ("LST" =3D~ /[qt|et1|et2|si|rlt]/i) means the same as
if ("LST" =3D~ /[qtet1et2sirlt|]/i); The pipe(|) character has no =
special
meaning INSIDED [bracketed] regex, so basically, this regex matches any
character in the list if it is anywhere in the string to be searched.
As max stated, putting () around the characters would be the correct way
to do the regex. That is, unless you always want the if statement to
return false.
>From perlre:=20
Also remember that "|" is interpreted as a literal within square
brackets, so if you write `[fee|fie|foe]' you're really only
matching `[feio|]'.
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
> -----Original Message-----
> From: Max Kozlov [mailto:[EMAIL PROTECTED]
> Sent: Friday, March 30, 2001 6:05 AM
> To: [EMAIL PROTECTED]
> Subject: Re[2]: [perl-win32-gui-users] desktop
>=20
>=20
> Hello Eoin,
>=20
> Friday, March 30, 2001, you wrote:
>=20
> Edc> if ("LST" =3D~ /[qt|et1|et2|si|rlt]/i)
> =20
> Edc> Can Anybody Tell Me Why the expression above is matching.
> Edc> According to everything I've read it shouldn't.=20
> Edc> I'm going soft again ....
> Edc> Any help would be greatly appriciated
>=20
> if ("LST" =3D~ /(qt|et1|et2|si|rlt)/i)
>=20
> feel the difference ;-)
>=20
> Best regards,
> Max mailto:[EMAIL PROTECTED]
>=20
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20
From [EMAIL PROTECTED] Fri Mar 30 08:59:00 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14j2Em-0006Ek-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 30 Mar 2001
08:59:00 -0800
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <HP2NN1V3>; Fri, 30 Mar 2001 08:59:46 -0800
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Building a HOWTO for Win32-GUI
Date: Fri, 30 Mar 2001 08:59:43 -0800
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.3
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/>
| | About the (numerous) [TBD]s in the doku
| I'm sorry Harald, it's probably just me, but what is "the
| doku"? The modules pakage?
You had me here - I first had to find out where the heck I got these. I
found one Win32-GUI-0.0.558.tar in my downloads-folder that I got on feb 1st
from I don't know where. It is 6+MB big and there's a docs folder inside. I
can put it somewhere on the web, but it must be out there anyway.
As for the doc, it seems to be the same as
http://velocity.activestate.com/code/cpan/w/wi/Win32-GUI.html/docs/html/gui.
html
From [EMAIL PROTECTED] Sat Mar 31 08:15:55 2001
Received: from fepz.post.tele.dk ([195.41.46.133])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14jO2d-0007m5-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 31 Mar 2001
08:15:55 -0800
Received: from ladislab ([212.65.196.153]) by fepZ.post.tele.dk
(InterMail vM.4.01.03.00 201-229-121) with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sat, 31 Mar 2001 18:15:52 +0200
From: "A" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Sat, 31 Mar 2001 18:17:34 +0200
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: urgent
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.3
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
------- End of forwarded message -------
From [EMAIL PROTECTED] Sat Mar 31 08:14:50 2001
Received: from fepz.post.tele.dk ([195.41.46.133])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14jO1a-0007hR-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 31 Mar 2001
08:14:50 -0800
Received: from ladislab ([212.65.196.153]) by fepZ.post.tele.dk
(InterMail vM.4.01.03.00 201-229-121) with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sat, 31 Mar 2001 18:14:45 +0200
From: "BMA TRADING ltd." <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Sat, 31 Mar 2001 18:15:45 +0200
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: urgent
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.3
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
------- End of forwarded message -------
From [EMAIL PROTECTED] Sun Apr 01 11:24:43 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14jmWp-0002Wq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 01 Apr 2001
11:24:43 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ51F1L>; Sun, 1 Apr 2001 11:24:50 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net '"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] How to refresh a window
Date: Sun, 1 Apr 2001 11:24:50 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
> 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.
introduce Win32::GUI::DoEvents() from time to time.
look at "RE: [perl-win32-gui-users] Looping Question" for an implementation
sample.
From [EMAIL PROTECTED] Mon Apr 02 05:33:57 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14k3Wu-0003dG-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
05:33:56 -0700
Received: from stop (151.21.181.26) by smtp1.libero.it (5.5.025)
id 3AB48C8100339D1C for perl-win32-gui-users@lists.sourceforge.net;
Mon, 2 Apr 2001 14:33:47 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 2 Apr 2001 14:32:23 +0200
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] Popup menu
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 implemented a popup menu. That is, if the user right clicks, for
example, a
listview, then a menu appears. I tried creating one using:
sub ListView_RightClick {
@cursorpos = Win32::GUI::GetCursorPos();
$Popup = new Win32::GUI::MenuButton(-pos=>[$cursorpos[0],$cursorpos[1]],);
$Popup->AddMenuItem("Hello"=>"HelloBut",);
$Popup->Show();
}
But, this is bad, very bad (extremely unpredictable, it doesn't have an owner).
Is there a
way to do it?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Mon Apr 02 06:08:08 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14k43y-0001fZ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
06:08:06 -0700
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id JAA24311 for
<perl-win32-gui-users@lists.sourceforge.net>; Mon, 2 Apr 2001 09:08:00 -0400
(EDT)]
Message-ID: <[EMAIL PROTECTED]>
From: "Jonathan Southwick" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED]" <perl-win32-gui-users@lists.sourceforge.net>
Date: Mon, 2 Apr 2001 09:05:40 -0400
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_001F_01C0BB54.1724D270"
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] Re; Popup menu
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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_001F_01C0BB54.1724D270
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Erick,
Here is how I did it:
<=3D=3D=3D Start of code =3D=3D=3D>
# define popup menu for listview
my $PopupMenu =3D new Win32::GUI::Menu(
"Item Properties" =3D> "ItemProp",
">&Properties" =3D> "ItemProperties",
);
# get right-click in listview
sub DataView_RightClick {
my($X, $Y) =3D Win32::GUI::GetCursorPos();
$MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}
# clicked on particular menu item in popup menu
sub ItemProperties_Click {
## code you want to process;
}
<=3D=3D=3D End of code =3D=3D=3D>
I hope this helps.
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED]
------=_NextPart_000_001F_01C0BB54.1724D270
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>Here is how I did it:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><=3D=3D=3D Start of code =
=3D=3D=3D></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2># define popup menu for listview<BR>my =
$PopupMenu =3D=20
new Win32::GUI::Menu(<BR> "Item Properties" =3D>=20
"ItemProp",<BR> ">&Properties" =3D>=20
"ItemProperties",<BR>);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2># get right-click in =
listview</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>sub DataView_RightClick =
{<BR> my($X,=20
$Y) =3D Win32::GUI::GetCursorPos();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> =20
$MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X,=20
$Y);<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2># clicked on particular menu item in =
popup=20
menu</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>sub ItemProperties_Click =
{<BR> ## code=20
you want to process;<BR>}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><=3D=3D=3D End of code =
=3D=3D=3D></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>I hope this helps.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Jonathan Southwick<BR>Technical & =
Network=20
Services<BR>Allegheny College, Meadville, PA<BR><A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></FONT><=
/DIV></BODY></HTML>
------=_NextPart_000_001F_01C0BB54.1724D270--
From [EMAIL PROTECTED] Mon Apr 02 06:42:30 2001
Received: from slkcpop5.slkc.uswest.net ([206.81.128.5])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14k4bG-0006l8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
06:42:30 -0700
Received: (qmail 11168 invoked by uid 0); 2 Apr 2001 13:41:50 -0000
Received: from slkc6400gw3poold28.slkc.uswest.net (HELO jalopeura)
(63.228.197.28)
by slkcpop5.slkc.uswest.net with SMTP; 2 Apr 2001 13:41:50 -0000
Date: Mon, 2 Apr 2001 07:40:33 -0600
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] Re; Popup menu
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.3
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 popup menu code is great. I tried to create a context menu for a
while, but never could get RightClick to work. Is it new in 0.0.558?
I was unemployed for several months, so I was running around looking
for a job, then I got one in which I had to be trained in Assembly
Language, so I've been quite busy, and just downloaded 0.0.558 last
night. I tested some of my favorite Win32::GUI scripts against it,
and they run just fine, but I haven't yet had time to do more than
that.
From [EMAIL PROTECTED] Mon Apr 02 10:35:08 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14k8EO-00018L-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
10:35:08 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ51K4J>; Mon, 2 Apr 2001 10:35:18 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Re; Popup menu
Date: Mon, 2 Apr 2001 10:35:17 -0700
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.3
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/>
Talking about RightClick(), is there any way to capture them for other
objects? I only seem to be able to get them for ListView and TreeView.
Textfield and RichEdit have their default RightClick behavior (the popup for
cut&paste), but I won't get a RightClick for the Window, a Button or a Label
(even with -notify => 1).
-----Original Message-----
From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
# get right-click in listview
sub DataView_RightClick {
my($X, $Y) = Win32::GUI::GetCursorPos();
From [EMAIL PROTECTED] Mon Apr 02 13:35:29 2001
Received: from smtphost4.home.se ([195.66.35.200] helo=smtp1.home.se)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kB2u-0000Sb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
13:35:28 -0700
Received: from home.se [213.242.183.34] by smtp2.home.se
with Novonyx SMTP Server $Revision: 2.74 $; Mon, 02 Apr 2001
22:33:15 +0100 (ECTD)
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 02 Apr 2001 22:35:35 +0200
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] Re; Popup menu
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.3
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 tried this popup menu for a trayicon, and it worked great. Just
so you all know.
-Ludde
"Piske, Harald" wrote:
>
> Talking about RightClick(), is there any way to capture them for other
> objects? I only seem to be able to get them for ListView and TreeView.
> Textfield and RichEdit have their default RightClick behavior (the popup for
> cut&paste), but I won't get a RightClick for the Window, a Button or a Label
> (even with -notify => 1).
>
> -----Original Message-----
> From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
> # get right-click in listview
> sub DataView_RightClick {
> my($X, $Y) = Win32::GUI::GetCursorPos();
>
> _______________________________________________
> 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 Apr 02 17:05:59 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kEKc-000170-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
17:05:58 -0700
Received: from stop (151.21.175.41) by smtp3.libero.it (5.5.025)
id 3AB4BB53003607D1 for perl-win32-gui-users@lists.sourceforge.net;
Tue, 3 Apr 2001 02:05:49 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 3 Apr 2001 02:04:23 +0200
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] Win32::GUI HOWTO
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 all Win32::GUI users,
I posted the new Win32::GUI HOWTO here:
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html I
have only put the tutorials up (in a HOWTO format). With time permiting, of
course, I will
do all parts of the Win32::GUI documentation, with exception to the FAQ, which
Felix
Gaehler is working on. (If the FAQ does not have a home, I would be willing to
host it).
Feel free to post(or send to me directly) your comments.
regards,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Mon Apr 02 18:39:29 2001
Received: from panoramix.valinux.com ([198.186.202.147] helo=mail2.valinux.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kFn7-0008H9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
18:39:29 -0700
Received: from fepout2.telus.net ([199.185.220.237]
helo=priv-edtnes04-hme0.telusplanet.net)
by mail2.valinux.com with esmtp (Exim 3.22 #1 (Debian))
id 14kFC4-0001FW-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
18:01:12 -0700
Received: from jeremy ([216.232.82.47])
by priv-edtnes04-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Mon, 2 Apr 2001 18:59:17 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Mon, 02 Apr 2001 17:55:24 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] console/commandline color module
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 am creating a console/command line ftp program in perl...i was wondering
if there is a win32 or generic module that will add color and highlighting
to text,
just like with some software.
Jeremy
From [EMAIL PROTECTED] Mon Apr 02 19:09:23 2001
Received: from [210.131.240.10] (helo=ns2.bsjkk.co.jp)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kGG3-0001GT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 02 Apr 2001
19:09:23 -0700
Received: from tokpu1.bsjkk.co.jp (pu1.bsjkk.co.jp [172.20.8.15])
by ns2.bsjkk.co.jp (Postfix) with ESMTP id 62695108E6
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 3 Apr 2001
10:57:26 +0900 (JST)
Received: by TOKPU1 with Internet Mail Service (5.5.2650.21)
id <G9ASNZJY>; Tue, 3 Apr 2001 11:06:50 +0900
Message-ID: <[EMAIL PROTECTED]>
From: "Doughty, Matt" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] console/commandline color module
Date: Tue, 3 Apr 2001 11:07:02 +0900
X-Mailer: Internet Mail Service (5.5.2650.21)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Win32::Console
Matt Doughty BOT BSC Japan
-----Original Message-----
From: Jeremy Aiyadurai [mailto:[EMAIL PROTECTED]
Sent: 13$B!I(JN4??3$B!H(Ju 9:55
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] console/commandline color module
hello
i am creating a console/command line ftp program in perl...i was wondering
if there is a win32 or generic module that will add color and highlighting
to text,
just like with some software.
Jeremy
_______________________________________________
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 Apr 03 06:28:06 2001
Received: from fepb.post.tele.dk ([195.41.46.145])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kQqr-0003Cc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
06:28:05 -0700
Received: from oemcomputer ([212.65.196.117]) by fepB.post.tele.dk
(InterMail vM.4.01.03.00 201-229-121) with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 3 Apr 2001 15:28:00 +0200
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Date: Tue, 3 Apr 2001 15:30:39 +0200
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: urgent
X-mailer: Pegasus Mail for Win32 (v3.12c)
Subject: [perl-win32-gui-users] Is it possible?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 a program that uses Win32::GUI modul.
Is there any way to open a HTML document in a created window?
I would like to open the HTML document in a similar(the same )
way as it it is done in a web browser.
Thanks for help.
Ladislav
From [EMAIL PROTECTED] Tue Apr 03 07:32:49 2001
Received: from pellns.alleg.edu ([141.195.5.200])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kRrT-0000zC-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
07:32:47 -0700
Received: [from lobo (murr3.alleg.edu [141.195.50.3]) by pellns.alleg.edu
(SYSADMIN-antispam 0.2) with SMTP id KAA25098 for
<perl-win32-gui-users@lists.sourceforge.net>; Tue, 3 Apr 2001 10:32:41 -0400
(EDT)]
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] Is it possible?
Date: Tue, 3 Apr 2001 10:30:10 -0400
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.3018.1300
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.3018.1300
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Along those lines how about being able to make a program go to a web page
that is a perl script and feeding the results of the script back to the
local program?
Jonathan
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, April 03, 2001 9:30 AM
Subject: [perl-win32-gui-users] Is it possible?
> Hi,
> I have a program that uses Win32::GUI modul.
> Is there any way to open a HTML document in a created window?
> I would like to open the HTML document in a similar(the same )
> way as it it is done in a web browser.
>
> Thanks for help.
> Ladislav
>
>
> _______________________________________________
> 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 Apr 03 07:40:23 2001
Received: from slkcpop2.slkc.uswest.net ([206.81.128.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14kRyo-00026i-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
07:40:23 -0700
Received: (qmail 99604 invoked by alias); 3 Apr 2001 14:40:20 -0000
Delivered-To: [EMAIL PROTECTED]@fixme
Received: (qmail 99598 invoked by uid 0); 3 Apr 2001 14:40:19 -0000
Received: from slkc6400gw3poold28.slkc.uswest.net (HELO jalopeura)
(63.228.197.28)
by slkcpop2.slkc.uswest.net with SMTP; 3 Apr 2001 14:40:19 -0000
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Date: Tue, 3 Apr 2001 08:39:02 -0600
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: normal
In-reply-to: <[EMAIL PROTECTED]>
X-mailer: Pegasus Mail for Win32 (v3.12c)
Subject: [perl-win32-gui-users] Win32::GUI IDE
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
> Please have a look at the GOE (GUI Object Explorer) at
> http://www.fairymails.com/perl/
> Download either goe.zip or the the other three files (which are
> actually the contents of the zip), start goe.pl and give it a
> Win32-GUI script in the fileopen dialog. If it happens to find a *.ui
> file of the same name, it offers to include this as part of the script
> - this is to interface to David's gb109. Maybe we can melt the goe -
> once ready - into the gb and call it ide?
I've been planning a gui debugger for the last few days (although I
haven't actually written any code yet). I think an IDE would be a
great idea. With GB,GOE, an editor, and a debugger, it would be a
pretty complete tool. Maybe we should start working on this
together. If we do, we should probably design with the NEM in mind.
As for the editor, Aldo mentioned that he was planning on adding a
Scintilla component. As I had never heard of it before, I looked it
up, and it would be a much better editor than RichEdit. RichEdit
will do in the meantime, although it would mean creating a syntax
highlighting routine.
Finally, I think it would be great if we could do it in a Multiple
Document Interface, but last time I tried to use it, Win32::GUI::MDI
was not working yet. I have not yet tried it in 0.0.558, though.
Any news, Aldo?
From [EMAIL PROTECTED] Tue Apr 03 07:46:35 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14kS4o-0002vl-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
07:46:34 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 3 Apr 2001
15:41:05 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Tue, 03 Apr 2001 10:42:45 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Is it possible?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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 wrote:
>Along those lines how about being able to make a program go to a web page
>that is a perl script and feeding the results of the script back to the
>local program?
I guess libwww is pretty much what you want:
use LWP::Simple;
$doc = get 'http://www.sn.no/libwww-perl/';
It is part of the distribution, so check out the LWP documentation (lwpcook
contains examples) in your local Perl installation or look here:
http://search.cpan.org/search?dist=libwww-perl
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Apr 03 09:50:41 2001
Received: from smtp016.mail.yahoo.com ([216.136.174.113])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14kU0v-0002LF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
09:50:41 -0700
Received: from pm684-24.dialip.mich.net (HELO jb) (207.73.72.226)
by smtp.mail.vip.sc5.yahoo.com with SMTP; 3 Apr 2001 16:50:39 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Win32::GUI HOWTO
Date: Tue, 3 Apr 2001 12:56:04 -0400
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 CWS, Build 9.0.2416 (9.0.2911.0)
Importance: Normal
In-Reply-To: <[EMAIL PROTECTED]>
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
Very nice work. Here's one small thing that I noticed:
On the page http://www.jeb.ca/howto/Win32-GUI-HOWTO-2.html it says:
OK, now we need make sure the window will be displayed. By default, windows
start hidden, so they won't be visible on screen. To make them visible, we
need to use the Show() method.
$Main>Show();
It should be $Main->Show()
No big deal, just thought I'd bring it to your attention.
Excellent work!
jb
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Erick J. Bourgeois
Sent: Monday, April 02, 2001 8:04 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Win32::GUI HOWTO
To all Win32::GUI users,
I posted the new Win32::GUI HOWTO here:
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html I
have only put the tutorials up (in a HOWTO format). With time permiting, of
course, I will
do all parts of the Win32::GUI documentation, with exception to the FAQ,
which Felix
Gaehler is working on. (If the FAQ does not have a home, I would be willing
to host it).
Feel free to post(or send to me directly) your comments.
regards,
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 your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Tue Apr 03 16:21:02 2001
Received: from fepout3.telus.net ([199.185.220.238]
helo=priv-edtnes11-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ka6g-0008G9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
16:21:02 -0700
Received: from jeremy ([216.232.82.47])
by priv-edtnes11-hme0.telusplanet.net
(InterMail vM.4.01.03.13 201-229-121-113) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 3 Apr 2001 17:20:56 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 03 Apr 2001 16:17:02 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Win32:Console problem
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.3
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 am using the win32:console module, and it seems that the built-in color
constants are not importing.
eg.
Variable "$FG_YELLOW" is not imported at bftpc.pl line 57.
Variable "$BG_BLUE" is not imported at bftpc.pl line 57.
how do i import them.
thanx
Jeremy
From [EMAIL PROTECTED] Tue Apr 03 17:06:11 2001
Received: from smtp2.libero.it ([193.70.192.52])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kaoM-0008Iv-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
17:06:10 -0700
Received: from stop (151.21.182.65) by smtp2.libero.it (5.5.025)
id 3AB48D61003A7CF2 for perl-win32-gui-users@lists.sourceforge.net;
Wed, 4 Apr 2001 02:06:03 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick J. Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 4 Apr 2001 02:04:33 +0200
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] Aborting a buffered write
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 process running, which is writting to a file(using print instead of
syswrite),
and I have a small dialogbox with a progressbar and an abort button. The
problem is when I
click the abort button, I get a GUI message "select: Bad file descriptor at ...
line 412".
This is the line where I read the data in, however, the event for the Abort
button closes
the data stream and the file I'm writting to. Plus the title for the window
error is a
subroutine which was a far ancestor to where it says the error is. This is what
the
Abort_Click looks like.
sub Abort_Click {
close(FILE);
$data->abort();
$ProgWin->Hide(); # <--progress dialogbox window
$MainWin->SetForegroundWindow();
$MainWin->BringWindowToTop();
GUI::Update($MainWin);
}
I need a way tell the subroutine that is showing the progress to stop reading
data and
move on. Any ideas?
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Tue Apr 03 22:00:29 2001
Received: from fepout2.telus.net ([199.185.220.237]
helo=priv-edtnes04-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kfPA-0000eb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 03 Apr 2001
22:00:28 -0700
Received: from jeremy ([216.232.82.47])
by priv-edtnes04-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 3 Apr 2001 23:00:22 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 03 Apr 2001 21:56:30 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] localtime($file->{'mtime'}) problem
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 am having a problem getting proper modified time dates of files when
using the win32:Internet ftp list, or the standard directory listing
i do this
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($file->{'mtime'});
then for each file i do something like this
print "$year/$mon/$mday $file->{'name'});
for every file, i end up getting a modified date of 69/11/31 thefile
eg;
69 - 11 - 31 bbsetup.exe 144152 bytes
69 - 11 - 31 clients.pl 29 bytes
_______________________________________________
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 Apr 04 00:54:09 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ki7F-0002pv-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
00:54:09 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ51WJ8>; Wed, 4 Apr 2001 00:54:37 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net '"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 4 Apr 2001 00:54:29 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain
Subject: [perl-win32-gui-users] Going IDE
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 folks,
I've reworked my GUI object explorer, in another study on the way to an IDE.
It now uses a treeview to navigate objects and their properties and methods,
and does basic syntax highlighting.
Please have a look at the wex.pl and associated files. Download wex.zip from
http://www.fairymails.com/perl/
Thanks and have fun
Harald
From [EMAIL PROTECTED] Wed Apr 04 04:04:46 2001
Received: from fepc.post.tele.dk ([195.41.46.147])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kl5h-0004bY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
04:04:45 -0700
Received: from ladislab ([212.65.196.117]) by fepC.post.tele.dk
(InterMail vM.4.01.03.00 201-229-121) with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Wed, 4 Apr 2001 13:04:41 +0200
From: "A" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 4 Apr 2001 13:06:31 +0200
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: urgent
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.3
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] Wed Apr 04 06:09:17 2001
Received: from smtp018.mail.yahoo.com ([216.136.174.115])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14kn2D-0004ap-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
06:09:17 -0700
Received: from pm683-22.dialip.mich.net (HELO jb) (207.73.72.176)
by smtp.mail.vip.sc5.yahoo.com with SMTP; 4 Apr 2001 13:09:12 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] localtime($file->{'mtime'}) problem
Date: Wed, 4 Apr 2001 09:14:43 -0400
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 CWS, Build 9.0.2416 (9.0.2911.0)
In-reply-to: <[EMAIL PROTECTED]>
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Importance: Normal
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
While we are willing to help, your questions are more appropriate for the
Perl-Win32-Users mailing list. The Perl-Win32-GUI mailing list is
specifically for the Win32::GUI module. You can sign up for the
Perl-Win32-Users mailing list using the following link:
http://mailarchive.activestate.com
Someone posted the following code for handling dates and I've found it very
useful.
sub get_date {
# Define arrays for the day of the week and month of the year.
@days =
('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
@months =
('January','February','March','April','May','June','July','August','Septembe
r','October','November','December');
# Get the current time and format the hour, minutes and seconds. Add
# 1900 to the year to get the full 4 digit year.
($sec,$min,$hour,$mday,$mon,$year,$wday) =
(localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$year += 1900;
# Format the date.
$date = "$days[$wday], $months[$mon] $mday, $year at $time";
}
jb
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Jeremy Aiyadurai
Sent: Wednesday, April 04, 2001 12:57 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] localtime($file->{'mtime'}) problem
hi
i am having a problem getting proper modified time dates of files when
using the win32:Internet ftp list, or the standard directory listing
i do this
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($file->{'mtime'});
then for each file i do something like this
print "$year/$mon/$mday $file->{'name'});
for every file, i end up getting a modified date of 69/11/31 thefile
eg;
69 - 11 - 31 bbsetup.exe 144152 bytes
69 - 11 - 31 clients.pl 29 bytes
_______________________________________________
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
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Wed Apr 04 06:21:45 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14knEH-00070w-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
06:21:45 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 4 Apr 2001
14:16:13 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Wed, 04 Apr 2001 09:19:30 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] How to refresh a window
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Ladislav wrote:
>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.
Not sure because I haven't done it, but this is what I would try: Find or
create an event that you can put some code in.
The Window class has the Activate() event. Maybe some other control has
something similar that you can use. Otherwise maybe the Timer control can
help you, but that might ivolve performance issues. Time things and find out.
Hope that helps, and please share your solution with the list if you come
up with one.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Apr 04 08:30:34 2001
Received: from neko.cts.com ([209.68.192.150])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kpEt-0004ji-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
08:30:31 -0700
Received: from netzero.net (putc1218035.cts.com [209.68.218.35])
by neko.cts.com (8.9.3/8.9.3) with ESMTP id IAA00751
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 4 Apr 2001
08:30:27 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 04 Apr 2001 08:30:33 -0700
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] localtime($file->{'mtime'}) problem
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.3
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 can't see that jb's code does much different than yours. I think the real
problem is a basic Perl issue that you have missed: "-M $file" (or, apparently,
"$file->{'mtime'}", with which I have no experience) returns the timestamp of
$file as a difference between the actual timestamp and the start time of the
perl session.
Therefore, most files that existed before you started your script will have
negative values for "-M $file".
Knowing that the Unix and Perl clocks start in 1970, it would seem that "69" is
probably a result of a negative number being passed to localtime, which is
consistent with the way "-M $file" works.
You might want to add in $^T before converting to a text date. Note that even
the Perl 5 Pocket Reference documents this. However, perhaps the documentation
for "$file->{'mtime'}" is not clear, I've not looked at it.
[EMAIL PROTECTED] wrote:
> Jeremy,
>
> While we are willing to help, your questions are more appropriate for the
> Perl-Win32-Users mailing list. The Perl-Win32-GUI mailing list is
> specifically for the Win32::GUI module. You can sign up for the
> Perl-Win32-Users mailing list using the following link:
> http://mailarchive.activestate.com
>
> Someone posted the following code for handling dates and I've found it very
> useful.
>
> sub get_date {
> # Define arrays for the day of the week and month of the year.
> @days =
> ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
> @months =
> ('January','February','March','April','May','June','July','August','Septembe
> r','October','November','December');
> # Get the current time and format the hour, minutes and seconds. Add
> # 1900 to the year to get the full 4 digit year.
> ($sec,$min,$hour,$mday,$mon,$year,$wday) =
> (localtime(time))[0,1,2,3,4,5,6];
> $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
> $year += 1900;
> # Format the date.
> $date = "$days[$wday], $months[$mon] $mday, $year at $time";
> }
>
> jb
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of
> Jeremy Aiyadurai
> Sent: Wednesday, April 04, 2001 12:57 AM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] localtime($file->{'mtime'}) problem
>
> hi
>
> i am having a problem getting proper modified time dates of files when
> using the win32:Internet ftp list, or the standard directory listing
>
> i do this
> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
> localtime($file->{'mtime'});
>
> then for each file i do something like this
>
> print "$year/$mon/$mday $file->{'name'});
>
> for every file, i end up getting a modified date of 69/11/31 thefile
>
> eg;
>
> 69 - 11 - 31 bbsetup.exe 144152 bytes
> 69 - 11 - 31 clients.pl 29 bytes
>
> _______________________________________________
> 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
>
> _________________________________________________________
> 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
--
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 Apr 04 09:16:32 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14kpxP-0000o7-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
09:16:31 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ51Y78>; Wed, 4 Apr 2001 09:17:05 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] How to refresh a window
Date: Wed, 4 Apr 2001 09:17:03 -0700
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.3
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/>
| >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.
|
| The Window class has the Activate() event. Maybe some other
| control has
| something similar that you can use. Otherwise maybe the Timer
| control can
| help you, but that might ivolve performance issues. Time
| things and find out.
Ladislav,
we had this posting twice before. Maybe my reply escaped you - or maybe what
I suggested didn't work. But from my understanding, the window can only
refresh when the respective, system-generated Paint messages get processed.
As long as one of your event handlers is running and does not return, the
messages just sit there and wait. If this is the cause of the problem, the
Activate sub won't help, because the Activate message, too, would not get
processed. If you haven't already, put
Win32::GUI::DoEvents ();
in the sub that runs so long, at a place inside the loop, so that it gets
called often. It does not do anything if there are no messages waiting, so I
guess it's not much of a performance issue.
As for your other question - how to let the user know the program's still
alive - that's what progress bars do a good job at. Or a textfield with a
counter. If, as you say, the window refreshes as soon as you write to your
log field, then writing a countdown might solve both issues.
Hope that helps,
Harald
From [EMAIL PROTECTED] Wed Apr 04 12:27:03 2001
Received: from smtphost4.home.se ([195.66.35.200] helo=smtp1.home.se)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ksvm-0007Mk-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 04 Apr 2001
12:27:02 -0700
Received: from home.se [213.242.183.56] by smtp2.home.se
with Novonyx SMTP Server $Revision: 2.74 $; Wed, 04 Apr 2001
21:24:46 +0100 (ECTD)
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 04 Apr 2001 21:27:17 +0200
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-Users Mailing List
<perl-win32-gui-users@lists.sourceforge.net>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Subject: [perl-win32-gui-users] New version of makeGUIperl.pl?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Does anybody have a newer version of the script makeGUIperl.pl that
Jenda wrote before getting thrown into the army? The version I have
found uses the deprecated module Win32::Registry and doesnt work.
Of course I could rewrite it for TieRegistry myself, but first I wanted
to check if anybody else had done it =)
-Ludde
From [EMAIL PROTECTED] Thu Apr 05 06:56:43 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14lAFe-0007se-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 05 Apr 2001
06:56:42 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 5 Apr 2001
14:50:45 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Thu, 05 Apr 2001 09:54:08 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Win32::GUI::Resizer
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Dealing with moving and resizing stuff when a window is resized is really
annoying, not to mention boring. So I created a class to make that easier.
That was a lot more fun for some reason :)
Anyway, the result is Win32::GUI::Resizer.
http://www.bahnhof.se/~johanl/perl/Win32GUI/
Please try it out if you like and let me know what you think.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu Apr 05 14:50:02 2001
Received: from tartarus.telenet-ops.be ([195.130.132.34] helo=smtp2.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14lHdh-0006Dg-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 05 Apr 2001
14:50:01 -0700
Received: (qmail 13833 invoked from network); 5 Apr 2001 21:49:52 -0000
Received: from unknown (HELO livin) ([212.123.10.52]) (envelope-sender <[EMAIL
PROTECTED]>)
by tartarus.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 5 Apr 2001 21:49:52
-0000
Date: Thu, 5 Apr 2001 23:45:49 +0200
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] Win32::Print ?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
is there already any module for printing out graphical data..
i'm trying to make a little catalog, and to print it out via
win32::gui .. but i can't find a solid solution
i'm NOT willing to export data to PDF or HTML and afterwards print
it.
I thought of a solution whereby you could preformat your text &
images, and than output it to the printer spool.
Although i have no idea to realize it :) I'm basing myself on the
system that is being used by Waty Tierry is using in VB 5 or 6.
Could we maybe port this to perl win32::gui or make use of his
system ?
as reference; the adress of the printpreview OCX..
http://www.vbdiamond.com/Products/PrintPreview/PrintPreview.asp
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] Thu Apr 05 23:14:43 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lPW7-0005e5-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 05 Apr 2001
23:14:43 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5F1K0>; Thu, 5 Apr 2001 23:15:29 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net '"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 5 Apr 2001 23:15:28 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain
Subject: [perl-win32-gui-users] RichEdit_Change
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 folks,
I'd like to share a solution to a problem that has been driving me nuts for
a while. I changed a Textfield control to a RichEdit and it would not give
me the _Change event. I dug in the GUI.xs and could find nothing wrong. I
finally tracked it down to the eventmask being zero, which means that the
notification messages don't come to the GUI message loop in the first place.
The workaround is to do
$MainWindow->myRichEditField->SendMessage (0x445, 0, 1);
that sends EM_SETEVENTMASK (0x445) to the control with the ENM_CHANGE bit
set. Hope that spares somebody else a headache.
Have fun
Harald
From [EMAIL PROTECTED] Fri Apr 06 04:06:28 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lU4S-0000fy-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 06 Apr 2001
04:06:28 -0700
Received: from stop (151.21.181.216) by smtp1.libero.it (5.5.025)
id 3AB48C8100428F5B for perl-win32-gui-users@lists.sourceforge.net;
Fri, 6 Apr 2001 13:06:23 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Aborting a buffered write
Date: Fri, 6 Apr 2001 13:04:50 +0200
Organization: JEB.ca
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.3
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/>
Harald said:
| 1) instead of close, move the file pointer to eof
| seek FILE, 0, 2;
| so that the read fails without dying
This can't be, because the reading is from a socket not a file. I'm reading
from a socket
and writting to a file (in blocks of 10240 bytes). The read does stop when I
abort. This
method would certainly be good if I was reading from one file and ouptting to
another.
| or 2) just set a flag in the abort routine and if the reading routine finds
| the flag set, it peacefully quits.
The abort routine is not my method, furthermore it does not take any arguments,
it just
closes the socket and thus all data transfering.
The problem I believe is because since my application is GUI and event
driven(OOP), any
action one place jumps you to another section of code, without knowing how to
get back and
say, "hey stop doing that, move on". Does this make sense?
erick
never stop questioning
www.jeb.ca
| Hi Erick,
|
| 1) instead of close, move the file pointer to eof
| seek FILE, 0, 2;
| so that the read fails without dying
|
| or 2) just set a flag in the abort routine and if the reading routine finds
| the flag set, it peacefully quits.
|
| Hope that helps
| Harald
|
| -----Original Message-----
| From: Erick J. Bourgeois
| To: perl-win32-gui-users@lists.sourceforge.net
| Sent: 03.04.01 17:04
| Subject: [perl-win32-gui-users] Aborting a buffered write
|
| I have a process running, which is writting to a file(using print
| instead of syswrite),
| and I have a small dialogbox with a progressbar and an abort button. The
| problem is when I
| click the abort button, I get a GUI message "select: Bad file descriptor
| at ... line 412".
| This is the line where I read the data in, however, the event for the
| Abort button closes
| the data stream and the file I'm writting to. Plus the title for the
| window error is a
| subroutine which was a far ancestor to where it says the error is. This
| is what the
| Abort_Click looks like.
|
| sub Abort_Click {
| close(FILE);
| $data->abort();
| $ProgWin->Hide(); # <--progress dialogbox window
| $MainWin->SetForegroundWindow();
| $MainWin->BringWindowToTop();
| GUI::Update($MainWin);
| }
|
| I need a way tell the subroutine that is showing the progress to stop
| reading data and
| move on. Any ideas?
|
| 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] Fri Apr 06 09:15:33 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lYtZ-0000dE-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 06 Apr 2001
09:15:33 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5FHAW>; Fri, 6 Apr 2001 09:16:20 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Aborting a buffered write
Date: Fri, 6 Apr 2001 09:16:19 -0700
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.3
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 problem I believe is because since my application is GUI
| and event driven(OOP), any
| action one place jumps you to another section of code,
| without knowing how to get back and
| say, "hey stop doing that, move on". Does this make sense?
I guess you're right, it is about multitasking. Reading from the socket
places an asynchronous request somewhere. As data comes in, it gets stored
in an input buffer. If the Abort routine intervenes and invalidates $data,
the next read finds an invalid pointer or, worse, a pointer to an invalid
buffer. If this theory is correct, then there is really no other way than to
move the $data->abort() in the thread that reads from the socket, so that
these two commands can never execute concurrently.
If anyone knows more about the internal operations of the sockets driver,
please stop me from making these wild assumptions ... :-)
Have fun
Harald
From [EMAIL PROTECTED] Fri Apr 06 14:06:20 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ldQx-0004kR-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 06 Apr 2001
14:06:19 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id RAA00926
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 6 Apr 2001
17:06:24 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1.0.12 (Beta)
Date: Fri, 06 Apr 2001 17:07:22 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Subject: [perl-win32-gui-users] NonBlocking the Win32 Listen?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Ok. I have no clue what I'm talking about.
I created AmphetaDesk:
http://www.disobey.com/amphetadesk/
Roughly, it includes a built in webserver that listens until "quittin'
time" for requests on port 8888. It writes out logging information to
STDOUT, which makes a pretty console window.
Ok. What I want to do is make a GUI application using Win32::GUI. Since I
know crap about coding a GUI (only about designing one), I handed this off
to a friend, who has done VB stuff in the past, but nothing with Perl GUI's.
The problem we're running into is something concerning the Window Events.
My friend tells me that the Window needs to listen all the time so that it
can know when to redraw the window, and blah blah blah.
Lemme recap.
The program starts a webserver.
The program does some junk, and spits to console window.
The program loads the browser.
90% of the GUI is done through the browser.
While the user fiddles, the program spits info to the console window.
The user quits.
Ultimately, every where it says "console window", I'd like to replace with
a GUI. But we run into the problem of the webserver listening for requests
constantly, as well as the window listening to events constantly.
I was able to tell the webserver to non-block, in other words, to listen
for a request for 1 second and move on. What I'd like to have happen is
that when the webserver moves on, the GUI window listens for events for a
second, and then moves on as well. So, there'd be a 1 second time share
between the webserver listening and the GUI window listening.
Is this possible? And how? I'd like to:
a) not fork
b) be an all perl solution (ignoring the XS lib.)
I've got a Mac GUI working in my dev machine, but am running pathetically
short on the Windows GUI. Help?!
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
From [EMAIL PROTECTED] Fri Apr 06 14:46:08 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14le3U-0000n0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 06 Apr 2001
14:46:08 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5FJBJ>; Fri, 6 Apr 2001 14:46:59 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] NonBlocking the Win32 Listen?
Date: Fri, 6 Apr 2001 14:46:58 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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: Morbus Iff [mailto:[EMAIL PROTECTED]
|
| Ok. I have no clue what I'm talking about.
Welcome to the club ;-)
| to a friend, who has done VB stuff in the past, but nothing
| with Perl GUI's.
Takes some getting used to. Goes for both VB and Win32-GUI. Transitioning
from one to the other can bring you close to serious brain damage because
you forget to consider the different philosophies. Pretty much like changing
from a car to a motorbike. You'll be amazed how fast and easy it is, but you
wonder how to get your groceries home.
| I was able to tell the webserver to non-block, in other
| words, to listen
| for a request for 1 second and move on. What I'd like to have
| happen is
| that when the webserver moves on, the GUI window listens for
| events for a
| second, and then moves on as well. So, there'd be a 1 second
| time share
| between the webserver listening and the GUI window listening.
|
| Is this possible? And how?
Yes. I suggest you (and/or your friend) first go through the tutorial and
Erick's wonderful collection of basic info @
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html
Once you know how (and how easy) to design a GUI, just do so. After
Show()ing the window, when you usually give it full control using
Win32::GUI::Dialog(), you just start your console program. And whenever this
thing can spare a time slice (after the 1-second-listen), you do
$abort = Win32::GUI::DoEvents();
which will make your GUI do what it wants to do, firing all pending events /
messages. This call returns asap, ie when no more messages are in the queue.
Now all that's left is exit your program if $abort < 0, and maybe one or two
more interactions with the GUI, like evaluating user preferences from
checkboxes and writing to textfields instead of printing to the console.
And, again: FORGET WHAT YOU KNOW ABOUT VB. Doesn't help here. Basic
knowledge about windows, controls, messages, methods, etc is OK, but that's
it.
Have fun
Harald
From [EMAIL PROTECTED] Fri Apr 06 15:01:14 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14leI5-0002Da-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 06 Apr 2001
15:01:13 -0700
Received: from stop (151.21.170.112) by smtp1.libero.it (5.5.025)
id 3AB48C8100456ED4 for perl-win32-gui-users@lists.sourceforge.net;
Sat, 7 Apr 2001 00:01:09 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Aborting (now) an unbuffered write
Date: Fri, 6 Apr 2001 23:59:35 +0200
Organization: JEB.ca
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.3
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/>
Harald,
| If the Abort routine intervenes and invalidates $data,
| the next read finds an invalid pointer or, worse, a pointer to an invalid
| buffer.
That's the key thing. How to stop the routine from reading data once and for
all. Even
when I close the connection between the two handles it continues to read.
| If this theory is correct, then there is really no other way than to
| move the $data->abort() in the thread that reads from the socket, so that
| these two commands can never execute concurrently.
Maybe you are a bit confused. There are two abort routines. One fired by the
button being
pressed and the other to close the socket. Here is the loop that reads and
writes the data
from the socket.
# Open a socket for retrieval #
$data = $sock->retr($RemoteFile);
while(1) {
Win32::GUI::DoEvents();
last unless $len = $data->read($buffer,$blksize);
my $written = syswrite(FILE, $buffer, $len);
unless(defined($written) && $written == $len) {
Msg_Box("Cannot write to local file $LocalFile: $!",48,"Can't Write To
File");
$data->abort;
close(FILE);
return undef;
}
}
Then I have a window which displays the progress with an "Abort" button, which
I already
gave the code.
I need to exit this loop once and for all, once the connection has been closed.
The answer
is there...just gotta find it...someone...anyone.
regards,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Fri Apr 06 17:03:00 2001
Received: from smtp3.libero.it ([193.70.192.53])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lgBv-0007pr-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 06 Apr 2001
17:02:59 -0700
Received: from stop (151.21.182.164) by smtp3.libero.it (5.5.025)
id 3ACDED23000150FD for perl-win32-gui-users@lists.sourceforge.net;
Sat, 7 Apr 2001 02:02:49 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sat, 7 Apr 2001 02:01:14 +0200
Organization: JEB.ca
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: Aborting (now) an unbuffered write
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Yahoo, I figured it out!!! I did indeed need the global variable $abort, but
another
problem crept in. Long and the short of it is that when you abort a transfer,
the socket
gets closed at the same time, and after my loop I had a $sock->close(). My
application
froze here (I will investigate further why, I have an idea though), but I just
needed to
add $sock->close() if (!$abort); This actually helps tremendously, because, now
you can
have 5 queued transfers and abort one without affecting any others, that's
great!! I can
feel the brain coming back to normal... :)
Thanks Herald,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Sat Apr 07 10:07:54 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lwBm-00029z-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 07 Apr 2001
10:07:54 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5FMXA>; Sat, 7 Apr 2001 10:08:51 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] NonBlocking the Win32 Listen?
Date: Sat, 7 Apr 2001 10:08:50 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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 was sent from Geocrawler.com by "Carol"
>
>I have tried to do thie but get the following
>error:
>
>Can't locate auto/Win32/GUI/DoEvents.al in @INC
>
>when trying to use:
>
>Win32::GUI::DoEvents();
>
>???
>
>Any idears?
Actually, yes. My guess is you ran into an old version of Win32-GUI that has
a bad version number, making it look newer than the current one, so that the
installer will not replace it. In a DOS window, do
ppm query
and look for the line with Win32-GUI. It should read 0.0.558 in the version
number. If it's 0.99, that's the bad one. Go
ppm remove Win32-GUI
ppm install Win32-GUI
that should re-install the (now updated) version from ActiveState. You need
to have an open internet connection for that. If it does not work, download
Win32-GUI-0.0.558.tar.gz from http://dada.perl.it/#gui, unzip it somewhere
and do
ppm install Win32-GUI.ppd
from that directory. Reconfirm with ppm query that you now have the current
version 0.0.558.
Have fun
Harald
From [EMAIL PROTECTED] Sat Apr 07 19:31:16 2001
Received: from slkcpop5.slkc.uswest.net ([206.81.128.5])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14m4yy-0000Hw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 07 Apr 2001
19:31:16 -0700
Received: (qmail 70814 invoked by uid 0); 8 Apr 2001 02:31:01 -0000
Received: from slkc6400gw3poold28.slkc.uswest.net (HELO jalopeura)
(63.228.197.28)
by slkcpop5.slkc.uswest.net with SMTP; 8 Apr 2001 02:31:01 -0000
Date: Sat, 7 Apr 2001 20:29:38 -0600
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
Priority: normal
X-mailer: Pegasus Mail for Win32 (v3.12c)
Subject: [perl-win32-gui-users] Combobox/Textfield
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 seen some programs that have a combination Combobox/Textfield.
So you can either enter text or choose text from the dropdown box.
When I tried to do this with Win32::GUI, I can type in that space,
but the program doesn't catch it, and instead gives me whatever was
selected last.
What I want to do is take whatever text the user enters and add it to
the Combobox, storing the ten (or so) last strings, so that if they
want to reenter some text they had previously entered, they won't
have to retype it. I could have a Combobox below the Textfield, but
it looks better to have just one control there.
Any suggestions?
From [EMAIL PROTECTED] Sun Apr 08 10:54:27 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14mJON-0007t8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 08 Apr 2001
10:54:27 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5FQYB>; Sun, 8 Apr 2001 10:55:32 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net '"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Combobox/Textfield
Date: Sun, 8 Apr 2001 10:55:22 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
What you need is
sub Combo_Anonymous
{
$ComboText = $Main->Combo->Text () if $_[0] == 6;
}
The way it is coded in GUI.xs, Perl fires the _Change event for
CBN_SELCHANGE and the _Anonymous event for all other notification messages.
You can pick either CBN_EDITCHANGE (5) or CBN_EDITUPDATE (6) to catch the
new text. Note you will get this event whenever "the user has taken an
action that may have altered the text in the edit control" - says MSDN. So,
you may not want to have a lengthy action going on inside the _Anonymous
sub.
Note that, in the _Change event, $Main->Combo->Text() still shows the
contents of the edit control before it is replaced by the selected line from
the listbox. You need to do
sub Combo_Change
{
$ComboText = $Main->Combo->GetString($Main->Combo->SelectedItem());
}
to have your variable reflect the current contents.
Hope that helps.
Have fun
Harald
-----Original Message-----
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Sent: 07.04.01 19:29
Subject: [perl-win32-gui-users] Combobox/Textfield
I've seen some programs that have a combination Combobox/Textfield.
So you can either enter text or choose text from the dropdown box.
When I tried to do this with Win32::GUI, I can type in that space,
but the program doesn't catch it, and instead gives me whatever was
selected last.
What I want to do is take whatever text the user enters and add it to
the Combobox, storing the ten (or so) last strings, so that if they
want to reenter some text they had previously entered, they won't
have to retype it. I could have a Combobox below the Textfield, but
it looks better to have just one control there.
Any suggestions?
_______________________________________________
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 Apr 07 09:51:42 2001
Received: from f33.law8.hotmail.com ([216.33.241.33] helo=hotmail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lvw1-00014O-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 07 Apr 2001
09:51:37 -0700
Received: from mail pickup service by hotmail.com with Microsoft SMTPSVC;
Sat, 7 Apr 2001 09:51:26 -0700
Received: from 196.2.56.5 by lw8fd.law8.hotmail.msn.com with HTTP; Sat, 07
Apr 2001 16:51:26 GMT
X-Originating-IP: [196.2.56.5]
From: "Carolyyne Courtney" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Sat, 07 Apr 2001 16:51:26
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
Message-ID: <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 07 Apr 2001 16:51:26.0362 (UTC)
FILETIME=[FC29B7A0:01C0BF82]
Subject: [perl-win32-gui-users] error when using Win32::GUI::DoEvents()
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 get the following error:
Can't locate auto/Win32/GUI/DoEvents.al in @INC
when using:
$abort = Win32::GUI::DoEvents();
Help!!
Thanks,
This is what I'm trying to do - is there a better way?
###
use Win32::GUI;
use strict;
my $M = new Win32::GUI::Menu(
"&File" => "File",
" > &Stop" => "stop",
" > -" => 0,
" > &Go" => "go",
);
my $W = new Win32::GUI::Window(
-name => "W",
-text => "Stop go",
-left => 100,
-top => 100,
-width => 400,
-height => 300,
-menu => $M,
);
$W->AddLabel(
-text => "you can stop the process anytime you want, I hope!",
-name => "event",
-left => 50,
-top => 50,
);
##
$W->Show();
Win32::GUI::Dialog();
##
sub W_Terminate {
-1;
}
sub go_Click {
$W->event->Text("now running");
&run;
}
sub stop_Click {
$W->event->Text("now stopped");
}
sub run {
my $c = 1;
$W->event->Text("$c in sub program, sleeping ");
sleep 3;
#could I check for user interaction now and exit the sub routine if
required?
#$abort = Win32::GUI::DoEvents() --> returns an error ..
$c++;
$W->event->Text("$c in sub program, sleeping ");
sleep 3;
#could I check for user interaction now and exit the sub routine if
required?
#$abort = Win32::GUI::DoEvents() --> returns an error ..
$c++;
$W->event->Text("$c in sub program, sleeping ");
sleep 3;
$W->event->Text("Done, returning control!");
}
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
From [EMAIL PROTECTED] Sat Apr 07 09:18:15 2001
Received: from f107.law8.hotmail.com ([216.33.241.107] helo=hotmail.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14lvPe-0006tq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 07 Apr 2001
09:18:10 -0700
Received: from mail pickup service by hotmail.com with Microsoft SMTPSVC;
Sat, 7 Apr 2001 09:18:00 -0700
Received: from 196.2.56.5 by lw8fd.law8.hotmail.msn.com with HTTP; Sat, 07
Apr 2001 16:18:00 GMT
X-Originating-IP: [196.2.56.5]
From: "Carolyyne Courtney" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Sat, 07 Apr 2001 16:18:00
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
Message-ID: <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 07 Apr 2001 16:18:00.0404 (UTC)
FILETIME=[5084D140:01C0BF7E]
Subject: [perl-win32-gui-users] error when using Win32::GUI::DoEvents()
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 get the following error:
Can't locate auto/Win32/GUI/DoEvents.al in @INC
when using:
$abort = Win32::GUI::DoEvents();
Help!!
Thanks,
This is what I'm trying to do - is there a better way?
###
use Win32::GUI;
use strict;
my $M = new Win32::GUI::Menu(
"&File" => "File",
" > &Stop" => "stop",
" > -" => 0,
" > &Go" => "go",
);
my $W = new Win32::GUI::Window(
-name => "W",
-text => "Stop go",
-left => 100,
-top => 100,
-width => 400,
-height => 300,
-menu => $M,
);
$W->AddLabel(
-text => "you can stop the process anytime you want, I hope!",
-name => "event",
-left => 50,
-top => 50,
);
##
$W->Show();
Win32::GUI::Dialog();
##
sub W_Terminate {
-1;
}
sub go_Click {
$W->event->Text("now running");
&run;
}
sub stop_Click {
$W->event->Text("now stopped");
}
sub run {
my $c = 1;
$W->event->Text("$c in sub program, sleeping ");
sleep 3;
#could I check for user interaction now and exit the sub routine if
required?
#$abort = Win32::GUI::DoEvents() --> returns an error ..
$c++;
$W->event->Text("$c in sub program, sleeping ");
sleep 3;
#could I check for user interaction now and exit the sub routine if
required?
#$abort = Win32::GUI::DoEvents() --> returns an error ..
$c++;
$W->event->Text("$c in sub program, sleeping ");
sleep 3;
$W->event->Text("Done, returning control!");
}
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
From [EMAIL PROTECTED] Mon Apr 09 04:55:46 2001
Received: from slkcpop1.slkc.uswest.net ([206.81.128.1])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14maGo-0001ml-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 09 Apr 2001
04:55:46 -0700
Received: (qmail 81628 invoked by uid 0); 9 Apr 2001 11:55:43 -0000
Received: from slkc6400gw3poold28.slkc.uswest.net (HELO jalopeura)
(63.228.197.28)
by slkcpop1.slkc.uswest.net with SMTP; 9 Apr 2001 11:55:43 -0000
Date: Mon, 9 Apr 2001 05:54:20 -0600
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
Priority: normal
X-mailer: Pegasus Mail for Win32 (v3.12c)
Subject: [perl-win32-gui-users] RadioButton
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 I saw this on this list just a while ago, but when I went to
the mailing list archive, the search found no results for
"radiobutton". (Indeed, the search found no result for "Win32::GUI",
either, so I suspect the problem may be the search script itself.)
Anyway, how do you make separate radiobutton groups. I thought I
remembered the answer being
-group => 'groupname',
in the attributes for the first radiobutton of each group, but that's
not working for me. (Sorry for reasking a question so recently
posted, but the mailing list archive search doesn't work.)
From [EMAIL PROTECTED] Tue Apr 10 12:33:02 2001
Received: from panoramix.valinux.com ([198.186.202.147] helo=mail2.valinux.com)
by usw-sf-list1.sourceforge.net with esmtp
(Cipher TLSv1:DES-CBC3-SHA:168) (Exim 3.22 #1 (Debian))
id 14n3sq-0000oa-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 10 Apr 2001
12:33:00 -0700
Received: from crest.speedlink.de ([212.40.160.3])
by mail2.valinux.com with esmtp (Exim 3.22 #1 (Debian))
id 14n3Fp-0007KJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 10 Apr 2001
11:52:41 -0700
Received: from [217.87.131.190] (helo=ths)
by crest.speedlink.de with asmtp (Exim 3.16 #1)
id 14n3Br-0002ve-00
for perl-win32-gui-users@lists.sourceforge.net; Tue, 10 Apr 2001
20:48:35 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Webmaster CZ" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 10 Apr 2001 20:49:42 +0200
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] Bug with -readonly
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 !
(Sorry for the bad english...)
If i write for example ....
####################
$LogText = $LogWindow->AddTextfield(
-name => "LogText",
-left => 1,
-top => 1,
-width => 280,
-height => 80,
-font => $LogFont,
-background => "#FFFFFF",
-foreground => "#009900",
-style => WS_VISIBLE | WS_VSCROLL | ES_AUTOVSCROLL | ES_MULTILINE |
ES_READONLY,
);
###################
.... and have many text that i can scroll .... yeahh: then the text is
"mapped over" (i don't now how
i can it write...) !!!
but ONLY if the a) -readonly OR b) ES_READONLY is activ.....
From [EMAIL PROTECTED] Tue Apr 10 15:39:00 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14n6mq-0004eH-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 10 Apr 2001
15:39:00 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5GARQ>; Tue, 10 Apr 2001 15:39:19 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Bug with -readonly
Date: Tue, 10 Apr 2001 15:39:18 -0700
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.3
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
This was posted before, but no one ever came up with a solution.
A workaround would be:
1) use a RichEdit instead of the Textfield
2) since the -readonly (or ES_READONLY) does not work as expected,
do the $LogWindow->AddRichEdit() without it and then go
$LogWindow->LogText->SendMessage(0xCF, 1, 0);
Have fun
Harald
References:
Message: 5310692
FROM: Glenn Linderman
DATE: 03/09/2001 08:54:51
SUBJECT: [perl-win32-gui-users] Bug in Textfield scrolling
Message: 5302185
FROM: Aldo Calpini
DATE: 03/08/2001 07:00:02
SUBJECT: RE: [perl-win32-gui-users] Re: how to set ?
| -----Original Message-----
| From: Webmaster CZ [mailto:[EMAIL PROTECTED]
| Sent: Tuesday, April 10, 2001 11:50
| To: perl-win32-gui-users@lists.sourceforge.net
| Subject: [perl-win32-gui-users] Bug with -readonly
|
|
| Hi !
|
| (Sorry for the bad english...)
|
| If i write for example ....
|
| ####################
| $LogText = $LogWindow->AddTextfield(
| -name => "LogText",
| -left => 1,
| -top => 1,
| -width => 280,
| -height => 80,
| -font => $LogFont,
| -background => "#FFFFFF",
| -foreground => "#009900",
| -style => WS_VISIBLE | WS_VSCROLL | ES_AUTOVSCROLL | ES_MULTILINE |
| ES_READONLY,
| );
| ###################
|
| .... and have many text that i can scroll .... yeahh: then the text is
| "mapped over" (i don't now how
| i can it write...) !!!
| but ONLY if the a) -readonly OR b) ES_READONLY is activ.....
|
|
| _______________________________________________
| 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 Apr 11 12:28:11 2001
Received: from smtpmail1.iol.cz ([194.228.2.35])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14nQHi-0005Bm-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 11 Apr 2001
12:28:10 -0700
Received: from ladislab ([194.228.134.22]) by smtpmail1.iol.cz
(InterMail vK.4.03.02.00 201-232-124 license
7b37d67f2e6aa99fc2e47fe9cf0a6c6a)
with ESMTP id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Wed, 11 Apr 2001 21:26:53 +0200
From: "A" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 11 Apr 2001 21:30:08 +0200
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Message-ID: <[EMAIL PROTECTED]>
Priority: urgent
X-mailer: Pegasus Mail for Win32 (v3.12c)
Subject: [perl-win32-gui-users] Most-Recently-Used files
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
Does anybody have an idea how to implement a Most-Recently-
Used files (last used files)?
It is mostly in File menu.
I mean similar to MS WORD, MS EXCEL, COREL and many other
applications.
Thanks
Ladislav
------- End of forwarded message -------
From [EMAIL PROTECTED] Thu Apr 12 05:45:53 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 14ngTu-0004rl-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 12 Apr 2001
05:45:50 -0700
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <HY0GZVV1>; Thu, 12 Apr 2001 08:46:09 -0400
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] Most-Recently-Used files
Date: Thu, 12 Apr 2001 08:45:48 -0400
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.3
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'd simply write the path\file to a data file somewhere and read it before
you contruct your menu. You would write to this file every time someone
opens or creates a file. You would probably also want to create a subroutine
that limits how many files are kept, as such:
### untested!
### At the beginning of the script this sub would get called like
&recentFilenames();
### during your open file sub do something like this. $file = the file you
just opened
&recentFilenames(open,$file);
###
sub recentFilenames
{
my ($what,$file) = @_;
if ($what eq "open")
{
open(FILE,">>$recentFiles");
print FILE "$file\n";
close(FILE);
push(@recentFiles,$file);
shift(@recentFiles);
}
else
{
open(FILE,"$recentFiles");
@recentFiles=<FILE>;
close(FILE);
[EMAIL PROTECTED];
while ($count > "5") ### however many files you want to
remember.
{
shift(@recentFiles);
}
}
### do your menu here, using @recentFiles
}
-----Original Message-----
From: A [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 11, 2001 3:30 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Most-Recently-Used files
Hi,
Does anybody have an idea how to implement a Most-Recently-
Used files (last used files)?
It is mostly in File menu.
I mean similar to MS WORD, MS EXCEL, COREL and many other
applications.
Thanks
Ladislav
------- End of forwarded message -------
_______________________________________________
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 Apr 12 06:21:29 2001
Received: from slkcpop3.slkc.uswest.net ([206.81.128.3])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14nh2O-0000vq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 12 Apr 2001
06:21:29 -0700
Received: (qmail 933 invoked by uid 0); 12 Apr 2001 13:21:22 -0000
Received: from slkc6400gw3poold28.slkc.uswest.net (HELO jalopeura)
(63.228.197.28)
by slkcpop3.slkc.uswest.net with SMTP; 12 Apr 2001 13:21:22 -0000
Date: Thu, 12 Apr 2001 07:19:42 -0600
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] Most-Recently-Used files
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.3
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/>
Look in podview.pl, in the samples directory that comes with the zip
file, for code that implements such a menu. (Although I've never
used this code, I noticed the feature when I was looking through the
samples.) If you got Win32::GUI by PPM from ActiveState, you
probably don't have this directory. I highly recommend getting the
zip file just for this directory, even if you are not going to build
Win32::GUI yourself.
> I'd simply write the path\file to a data file somewhere and read it
> before you contruct your menu. You would write to this file every time
> someone opens or creates a file. You would probably also want to
> create a subroutine that limits how many files are kept, as such:
From [EMAIL PROTECTED] Thu Apr 12 08:29:59 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 14nj2k-0006kr-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 12 Apr 2001
08:29:59 -0700
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <HY0GZY1M>; Thu, 12 Apr 2001 11:30:20 -0400
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] Most-Recently-Used files
Date: Thu, 12 Apr 2001 11:30:01 -0400
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.3
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/>
Took a peek at podview.pl. Instead of a datafile it uses the registry. It
also uses a hash instead of an array, so duplicates don't exist (if you open
the same file multiple times).
Good call, this is a better way to handle it, assuming the person using it
is careful with the registry.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 12, 2001 9:20 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Most-Recently-Used files
Look in podview.pl, in the samples directory that comes with the zip
file, for code that implements such a menu. (Although I've never
used this code, I noticed the feature when I was looking through the
samples.) If you got Win32::GUI by PPM from ActiveState, you
probably don't have this directory. I highly recommend getting the
zip file just for this directory, even if you are not going to build
Win32::GUI yourself.
> I'd simply write the path\file to a data file somewhere and read it
> before you contruct your menu. You would write to this file every time
> someone opens or creates a file. You would probably also want to
> create a subroutine that limits how many files are kept, as such:
_______________________________________________
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 Apr 12 09:48: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 14nkGx-0000D7-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 12 Apr 2001
09:48:43 -0700
X-MimeOLE: Produced By Microsoft Exchange V6.0.4417.0
content-class: urn:content-classes:message
Subject: RE: [perl-win32-gui-users] Most-Recently-Used files
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Date: Thu, 12 Apr 2001 12:48:41 -0400
Message-ID: <[EMAIL PROTECTED]>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: [perl-win32-gui-users] Most-Recently-Used files
Thread-Index: AcDDTwZNVjOb0Oi/Qbe24B8HIjq1IQAIA/Uw
From: "Peopleclick Customer Support" <[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.3
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/>
Just as an fyi, most products use the registry for this. If you open
regedit and search for MRU, you will find the general structure most
apps use in the registry for this. Technically, all you really need to
do is to create a new hive for your product under
hklm\software\yourcompanyorappname\MRU\ and then have each file as a
separate value. Most companies use the HKU hive, but it requires more
effort on your part to get the username and resolve that to subhive of
HKU. Either way you want to go, unless there are some VERY tight
security, the registry is the "proper" way to store this sort of thing
instead of a file. =20
Joe Frazier, Jr
Technical Support Engineer
Peopleclick.com
800-841-2365
[EMAIL PROTECTED]
> -----Original Message-----
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 12, 2001 8:46 AM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: RE: [perl-win32-gui-users] Most-Recently-Used files
>=20
>=20
> I'd simply write the path\file to a data file somewhere and=20
> read it before
> you contruct your menu. You would write to this file every=20
> time someone
> opens or creates a file. You would probably also want to=20
> create a subroutine
> that limits how many files are kept, as such:
>=20
> ### untested!
>=20
> ### At the beginning of the script this sub would get called like
> &recentFilenames();
>=20
>=20
> ### during your open file sub do something like this. $file =3D=20
> the file you
> just opened=20
> &recentFilenames(open,$file);
>=20
>=20
> ###
> sub recentFilenames
> {
> my ($what,$file) =3D @_;
> if ($what eq "open")
> {
> open(FILE,">>$recentFiles");
> print FILE "$file\n";
> close(FILE);
> push(@recentFiles,$file);
> shift(@recentFiles);
> }
> else
> {
> open(FILE,"$recentFiles");
> @recentFiles=3D<FILE>;
> close(FILE);
>=20
> [EMAIL PROTECTED];
> while ($count > "5") ### however many files=20
> you want to
> remember.
> {
> shift(@recentFiles);
> }
>=20
> }
>=20
>=20
> ### do your menu here, using @recentFiles
>=20
> }
>=20
>=20
> =09
>=20
> -----Original Message-----
> From: A [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 11, 2001 3:30 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Most-Recently-Used files
>=20
>=20
> Hi,
> Does anybody have an idea how to implement a Most-Recently-
> Used files (last used files)?
> It is mostly in File menu.
> I mean similar to MS WORD, MS EXCEL, COREL and many other=20
> applications.
> Thanks
>=20
> Ladislav
>=20
>=20
>=20
> ------- End of forwarded message -------
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> 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
>=20
From [EMAIL PROTECTED] Sat Apr 14 14:03:26 2001
Received: from freesurfmta02.sunrise.ch ([194.230.0.17]
helo=freesurfmail.sunrise.ch)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14oXCW-0002xt-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 14 Apr 2001
14:03:25 -0700
Received: from felixnotebook5 (194.230.123.23) by freesurfmail.sunrise.ch
(5.1.056)
id 3AC0582F00134638 for perl-win32-gui-users@lists.sourceforge.net;
Sat, 14 Apr 2001 23:02:52 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Felix Gaehler" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sat, 14 Apr 2001 23:05:59 +0200
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_07AA_01C0C537.782F1AC0"
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] Win32::GUI FAQ, first draft
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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_07AA_01C0C537.782F1AC0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_07AB_01C0C537.782F1AC0"
------=_NextPart_001_07AB_01C0C537.782F1AC0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hello Aldo, Erick
enclosed you find a very first draft of the Win32-Gui-FAQ. I will add=20
more questions as they are discussed in the mailing-list and as I
look through the mailing-list archive. The items marked with $$$
are "under investigation"...=20
Best Regards, Felix
------=_NextPart_001_07AB_01C0C537.782F1AC0
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.4134.600" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hello Aldo, Erick</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>enclosed you find a very first draft of =
the=20
Win32-Gui-FAQ. </FONT><FONT face=3DArial size=3D2>I will add =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>more questions as they are discussed in =
the=20
mailing-list and as I</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>look through the mailing-list archive. =
The items=20
marked with $$$</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>are "under investigation"... =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Best Regards, =
Felix</FONT></DIV></BODY></HTML>
------=_NextPart_001_07AB_01C0C537.782F1AC0--
------=_NextPart_000_07AA_01C0C537.782F1AC0
Content-Type: text/html;
name="Win32-GUI-FAQ.html"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="Win32-GUI-FAQ.html"
<HTML>
<BODY>
<h1>The Win32::GUI FAQ</h1>
<pre>
Aldo Calpini, [EMAIL PROTECTED]
Erick Bourgeois, [EMAIL PROTECTED]
Felix Gaehler, [EMAIL PROTECTED]
v0.1, April 14, 2001
</pre>
<p><em>This is the "Frequently Asked Questions" for Perl =
Win32::GUI=20
module. The questions and answers have been collected from the =
Win32::GUI-Users=20
mailing list. </em>=20
<hr>
<p><b>Important Notice: This is a first draft version of the FAQ. The =
document=20
is not yet complete and the answers have not yet been =
verified.</b></p>
<hr>
<H1>General Questions</H1>
<H2>What is Win32::GUI?</H2>
<p>"Win32::GUI is a Win32-platform native graphical user interface =
toolkit for=20
Perl. Basically, it's an XS implementation of most of the functions =
found in=20
user32.dll and gdi32.dll, with an object oriented Perl interface and =
an event-based=20
dialog model that mimic the functionality of visual basic. It was a =
big fun=20
for me to put it up, hope it will be a fun for you too :-)"</p>
<H2>Where can I get Win32::GUI?</H2>
<p>The creator and chief maintainer of the Win32::GUI module is Aldo =
Calpini.=20
The module and pertinent information can be found at <a =
href=3D"http://dada.perl.it/";>http://dada.perl.it/</a>. <br>
"The module is actually in beta testing so be warned that syntax and =
behavior=20
can change with future builds; and of course, that there are many =
incomplete=20
parts, sparse documentation (you can browse here the work in =
progress), and=20
generally a lot of things to do."
<p>Win32::GUI for ActiveState Perl 5.6 can be downloaded from the =
ActiveState=20
Archive using ppm:=20
<pre>
ppm install Win32::GUI
</pre>
<p>Documentation is available at
<pre> <a =
href=3D"http://dada.perl.it/gui_docs/gui.html";>http://dada.perl.it/gui_do=
cs/gui.html</a>
<a =
href=3D"http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html";>http://www.jeb.=
ca/howto/The_Win32-GUI_HOWTO.html</a>
</pre>
<H2>What about licensing?</H2>
<p>If I develop a product in Perl with usage of the Win32::GUI module, =
and I spread=20
(well lets asume for FREE) to the public.. is it still under GNU =
license or=20
do we have to pay the win32::gui team something ?=20
<p> "No, you don't have to pay anything. I'm not a lawyer and I =
don't want=20
to pay a lawyer :-) Win32::GUI is released under the Artistic License, =
eg. you=20
can redistribute it under the same terms of Perl itself."
<hr>
<H1>Frequent Problems</H1>
<H2>Why does my window seem to freeze when my program is in a loop?</H2>
<p>I can help here. Put a call to DoEvents() inside the
loop. this will ensure that all queued messages are processed
before going on with the loop:
<pre> Textfield->change(-text "Processing..."); =
$$$verify
foreach $line (<INFILE>) {
$Window->DoEvents();
# body of the loop...
}
Textfield->change(-text "completed");
</pre>
<p>This will, of course, make your loop run slightly slower (almost =
irrelevant=20
if there is no activity on the window). But there is the advantage =
(other than=20
having the Textfield saying "Processing...") of being able to stop the =
loop=20
in the middle by killing the window, or with a 'dedicated' stopbutton, =
for example.=20
<H2>Can I use a window handle in more than one process?</H2>
<p>If you run some lengthy processing like web page retrieval with LWP, =
database=20
search, file processing etc, and you cannot call =
$Window->DoEvents() within=20
that processing, your window will seem to freeze during your =
processing. The=20
solution to that is, to do the processing in a separate Windows thread =
or process.=20
ActivePerl 5.6 simulates the "fork" command using Windows =
threads.
<p>"Well, from Windows point of view, it is a thread. From Perl's =
point of=20
view, it is a process. The Perl interpreter is busily keeping the data =
separate=20
between the two threads (I'm not sure I understand the complete =
technique of=20
the magic that does that, but I'm sure it can be made to work because =
the Perl=20
language doesn't expose "real" addresses (much))."=20
<p> "On the other hand, the (Unix) model for "fork" is that the =
multiple=20
processes (threads on Perl for Windows) start off with identical =
data/variables/file=20
handles. And the Windows model for "windows" is that the windows are =
owned by=20
a process (not a thread), and can be accessed by any thread that has =
the window=20
handle. (And in fact, because Windows was developed on DOS, the =
windows are=20
even a bit visible to other processes, but that doesn't concern us =
here.)"
<p>"By creating the Win32::GUI objects before forking, both the =
parent and=20
child threads get copies (?) of the object variables. Because of the =
nature=20
of Windows, the embedded Window handles inside both copies of the =
object variables=20
are equally usable. Because of the (present) nature of Win32::GUI, =
whereby most=20
of the parameter data is pumped into Win32 API parameters, and most of =
the return=20
values are obtained by calling Win32 APIs to obtain it, I have shown =
experimentally=20
that it is possible to use the Win32::GUI object references from both =
a parent=20
and a child thread. Now it is important to remember that Windows only =
delivers=20
window messages to the first thread of a program, so in the Perl =
"fork" environment,=20
this gets translated to <b>only the parent process of a group of =
Perl-forked=20
processes can successfully run Win32::GUI::Dialog</b> (Yep, I tried it =
the other=20
way first, figuring that the parent could more easily monitor the =
child process=20
for death, since fork returns the child pid, and waitpid works that =
way--but=20
it just hung, and the windows never appeared). However, <b>the child =
can use=20
the object references created by Win32::GUI</b> [before the fork] to =
access=20
the "IsEnabled", "IsVisible" attributes of the window widgets, and =
they are=20
dynamically updated (not cached in the object). The child can access =
the current=20
selection from combo boxes. The child can enable and disable widgets, =
and the=20
display gets updated appropriately. This is quite adequate for my =
application,=20
which now can do its "long" operations in the child "process", and =
keep the=20
GUI window "active" (except that certain parts get disabled during =
"long" operations)."
<H2>How can I use Win32::GUI functions in EVAL?</H2>
<p>Yes, Win32::GUI supports things like these (it's really Perl that =
supports=20
it :-), but you need to escape your window-handler variable $W:=20
<pre>
eval qq (
sub main::$subtxt {
print "button clicked\n";
<b>\$W</b>->SimpleLabel->Text("Got a click");
}
);
$@ or die "Error in eval: $@"; $$$verify
</pre>
...and always check for $@ after an eval!
<hr>
<H1>Text Fields</H1>
<H2>How can I change the background color of a text field?</H2>
<p>To change the background color of a Richedit field, use</p>
<pre> Richedit->SendMessage(EM_SETBKGNDCOLOR, 0, hex('00FF00')); </pre>
<p>This sets the background color to green. Note that the hex() format =
for the=20
color is expressed as BBGGRR (BB=3Dblue, GG=3Dgreen, RR=3Dred). </p>
<p>Textfield does not support EM_SETBKGNDCOLOR. have you tried this: =
</p>
<pre>
# change to red
Textfield->Change( -background =3D> [ 255, 0, 0 ] );=20
# repaint the control
Textfield->InvalidateRect(1); =20
</pre>
<p>Note: Colors can now be given in the HTML notation too (eg. =
"#E3E2CC").
<H2>How can I get a vertical scrollbar in a textfield?</H2>
Add this option when you create the Textfield:
<pre>
-autovscroll =3D> 1
</pre>
This should do the trick.
<H2>How can I get the selected portion of a textfield?</H2>
<p>There is a Selection method that returns the start and end of the =
selection.=20
then you just make a substr on the Textfield content:=20
<pre>
($from, $to) =3D $Textfield->Selection();
$var =3D substr($Textfield->Text, $from, $to-$from);
</pre>
<H2>How can I get the _Change event from a RichEdit control?</H2>
<p>"I'd like to share a solution to a problem that has been driving =
me nuts=20
for a while. I changed a Textfield control to a RichEdit and it would =
not give=20
me the _Change event. I dug in the GUI.xs and could find nothing =
wrong. I finally=20
tracked it down to the eventmask being zero, which means that the =
notification=20
messages don't come to the GUI message loop in the first place. The =
workaround=20
is to do=20
<pre>
$MainWindow->myRichEditField->SendMessage (0x445, 0, 1);
</pre>
<p>That sends EM_SETEVENTMASK (0x445) to the control with the ENM_CHANGE =
bit set.=20
Hope that spares somebody else a headache."
<hr>
<H1>ListView</H1>
<H2> How can I prevent the user from choosing more than one item in a =
Listview?</H2>
You can use the -singlesel option on the ListView to achieve what you =
want.
<H2>How can I display a popup menu within a ListView?</H2>
<p>Here is an example how it can be done:
<pre>
# define popup menu for listview
my $PopupMenu =3D new Win32::GUI::Menu(
"Item Properties" =3D> "ItemProp",
">&Properties" =3D> "ItemProperties",
);
=20
# get right-click in listview
sub DataView_RightClick {
my($X, $Y) =3D Win32::GUI::GetCursorPos();
=20
$MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}
=20
# clicked on particular menu item in popup menu
sub ItemProperties_Click {
## code you want to process;
}
</pre>
<hr>
<H1>MessageBox</H1>
<H2>What are the icon, button and modality values for MessageBox?</H2>
<p>"I think these will work, I haven't tried them all.=20
<pre>
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
=20
Return Values
=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"
</pre>
<H1>Cursors</H1>
<H2>How can I change the cursor to hourglass and back?</H2>
<p>$$$tbd (find out first...)
<hr>
<H1>Extensions to Win32::GUI</H1>
<H2>Is there a spreadsheet (grid) look-a-like solution or =
component?</H2>
<p>"No, but I'm thinking about implementing one (just thinking for =
now :-).=20
"
<H2>Is there a inline webbrowser somewhere ? or a HTML or XML =
parser?</H2>
"No, and I don't think I will try to implement one :-) You should =
instead=20
look at Win32::OLE, to see if you can embed an InternetExplorer instance =
in a=20
window. That said, it seems that RichEdit 3.0 (available in Windows =
2000) has=20
a lot of nice features, that I'll try to implement if time =
permits."=20
<H2>Is there support for JPG or common image formats like .PNG or =
.GIF?</H2>
<p>"Support is for .BMP files only. There is something in the Win32 =
API about=20
JPGs, but I have not yet investigated it thoroughly."=20
<p>$$$How to convert JPG and GIF to BMP in Perl (tbd)
<H2>Is there a Win32-GUI-Builder available (i.e. a visual aid in =
designing the GUI)?</H2>
<p>yes, well.. at least a basic one. Download
<pre>
<a =
href=3D"ftp://ftp.wh.whoi.edu/pub/gb109.zip";>ftp://ftp.wh.whoi.edu/pub/gb=
109.zip</a>
</pre>
For more information, see in the Win32::GUI mailing-list, the mails from =
David Hiltz.
<H2>How can I deal with moving and resizing stuff when a window is =
resized?</H2>
<p>"Dealing with moving and resizing stuff when a window is resized =
is really=20
annoying, not to mention boring. So I created a class to make that =
easier. That=20
was a lot more fun for some reason :) Anyway, the result is =
Win32::GUI::Resizer.=20
<pre>
<a =
href=3D"http://www.bahnhof.se/~johanl/perl/Win32GUI/";>http://www.bahnhof.=
se/~johanl/perl/Win32GUI/</a>
</pre>
Please try it out if you like and let me know what you think. "=20
<p>$$$Source: mail from Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, =
Antigua,=20
[EMAIL PROTECTED]
<hr>
</BODY></HTML>
------=_NextPart_000_07AA_01C0C537.782F1AC0--
From [EMAIL PROTECTED] Sun Apr 15 12:00:37 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14orlE-0005tw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 15 Apr 2001
12:00:36 -0700
Received: from stop (151.21.195.65) by smtp1.libero.it (5.5.025)
id 3AD6F3BC00071A53 for perl-win32-gui-users@lists.sourceforge.net;
Sun, 15 Apr 2001 21:00:32 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sun, 15 Apr 2001 20:58:09 +0200
Organization: JEB.ca
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: Win32::GUI FAQ, first draft
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Looks good Felix. I fixed a couple of grammar and spelling mistakes. It can be
found here:
http://www.jeb.ca/faq/Win32-GUI-FAQ.html
| Hello Aldo, Erick
| enclosed you find a very first draft of the Win32-Gui-FAQ. I will add
| more questions as they are discussed in the mailing-list and as I
| look through the mailing-list archive. The items marked with $$$
| are "under investigation"...
| Best Regards, Felix
regards,
erick
never stop questioning
www.jeb.ca
From [EMAIL PROTECTED] Tue Apr 17 07:54:22 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14pWs1-0007zQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 17 Apr 2001
07:54:22 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 17 Apr 2001
15:48:23 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Tue, 17 Apr 2001 10:51:11 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Perl Oasis
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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!
Perl Oasis is a new Win32::GUI application I created. It's in beta
currently, but feel free to download and spread the word. I'm very
interested in comments and bug reports. The Perl license applies.
** Introduction
Perl Oasis is a source/POD/class browser tightly integrated with
(currently) UltraEdit. It makes it easy to navigate source code, POD and
modules.
* Download
http://www.bahnhof.se/~johanl/perl/Oasis/
Oasis_source.zip contains the entire source tree.
Oasis_binary.zip is the end-user distribution, a freestanding GUI PerlApp
application. You'll need Perl (probably 5.6) installed, but no other modules.
* Getting started
Start UltraEdit (it works without UltraEdit but not nearly as smoothly).
Start Perl Oasis.
Always, the file you currently have open in UltraEdit should appear in the
topmost text field in Oasis. Click the "Load" button to bring the file into
Oasis. You can also "Copy" a file in the Explorer, move to Oasis and
"Paste" it into the text field (useful if you don't have UltraEdit).
The file is parsed and the contents is displayed. Explore! Try opening a
few of your own files, the Oasis source files and modules on your system.
Oasis does not change any source files.
The "=> Editor" button will open up the file in UltraEdit at the correct
location.
The "=> Module" button will the selected module into Oasis.
** Features
The source is parsed in a simplistic way to extract meta-information which
is displayed in the tree to the left. Select a node in the tree to display
the corresponding text in the right pane. Double click to go to the editor.
* POD
The POD is parsed using POD::Parse. =head1 and =head2 items are displayed
in the tree. Both the POD tab and the source tab is updated when you select
a node.
* Subroutines
Subroutines are defined as lines that start with "sub something".
* Used modules
"Used modules" are defined as lines that start with "use something". Double
click to load that module. Oasis will find the file if it's in a project of
yours or in an @INC directory.
* Bookmarks
A Bookmark is a custom pattern used to identify certain parts of the code.
You can define your own by editing the config file resource/pde.xml.
Example: the bookmark "Todo" is defined as lines that contain "##todo"
(load the file lib/PDE/App.pm to see an example of this).
I'd appreciate suggestions for useful default Bookmark patterns.
* Supported Editors
Currently only UltraEdit is supported because... well... that's what I use.
If you need support for another editor, please e-mail me
(mailto:[EMAIL PROTECTED]).
** Configuration
Edit the config file resource/pde.xml. Be careful. Keep a backup copy. The
most useful thing you can configure is which features should be parsed and
displayed (that's doPOD, doSub etc.)
The config should eventually be managed through Edit | Preferences...
Like I said, it's a beta so comments, bug reports and feature requests are
on the top of my wish list :)
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Apr 17 12:19:28 2001
Received: from smtp1.libero.it ([193.70.192.51])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14pb0O-0004th-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 17 Apr 2001
12:19:16 -0700
Received: from stop (151.21.195.215) by smtp1.libero.it (5.5.025)
id 3AD6F3BC000D9A39 for perl-win32-gui-users@lists.sourceforge.net;
Tue, 17 Apr 2001 21:19:03 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Erick" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl Oasis
Date: Tue, 17 Apr 2001 21:16:05 +0200
Organization: JEB.ca
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.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
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.3
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/>
Johan,
That's pretty neat. I'm going to use it for doing fast editing, since I c=
an jump right to
the subroutine I want to work on, I really like that idea. The binary did=
n't work for me,
I had to compile it, after installing the needed modules of course. Also,=
when you're
viewing it and then flip to another application and then back, and you st=
ill haven't
loaded anything, then the dropdownbox is erased and your nice icon disapp=
ears. I haven't
had time to look at your code, but these are two things I noticed right a=
way.
regards,
erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Johan Lindstrom <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, April 17, 2001 4:51 PM
Subject: [perl-win32-gui-users] Perl Oasis
| Hi!
|
| Perl Oasis is a new Win32::GUI application I created. It's in beta
| currently, but feel free to download and spread the word. I'm very
| interested in comments and bug reports. The Perl license applies.
|
|
| ** Introduction
|
| Perl Oasis is a source/POD/class browser tightly integrated with
| (currently) UltraEdit. It makes it easy to navigate source code, POD an=
d
| modules.
|
|
| * Download
|
| http://www.bahnhof.se/~johanl/perl/Oasis/
|
| Oasis_source.zip contains the entire source tree.
|
| Oasis_binary.zip is the end-user distribution, a freestanding GUI PerlA=
pp
| application. You'll need Perl (probably 5.6) installed, but no other mo=
dules.
|
|
| * Getting started
|
| Start UltraEdit (it works without UltraEdit but not nearly as smoothly)=
=2E
| Start Perl Oasis.
|
| Always, the file you currently have open in UltraEdit should appear in =
the
| topmost text field in Oasis. Click the "Load" button to bring the file =
into
| Oasis. You can also "Copy" a file in the Explorer, move to Oasis and
| "Paste" it into the text field (useful if you don't have UltraEdit).
|
| The file is parsed and the contents is displayed. Explore! Try opening =
a
| few of your own files, the Oasis source files and modules on your syste=
m.
| Oasis does not change any source files.
|
| The "=3D> Editor" button will open up the file in UltraEdit at the corr=
ect
| location.
|
| The "=3D> Module" button will the selected module into Oasis.
|
|
| ** Features
|
| The source is parsed in a simplistic way to extract meta-information wh=
ich
| is displayed in the tree to the left. Select a node in the tree to disp=
lay
| the corresponding text in the right pane. Double click to go to the edi=
tor.
|
|
| * POD
|
| The POD is parsed using POD::Parse. =3Dhead1 and =3Dhead2 items are dis=
played
| in the tree. Both the POD tab and the source tab is updated when you se=
lect
| a node.
|
|
| * Subroutines
|
| Subroutines are defined as lines that start with "sub something".
|
|
| * Used modules
|
| "Used modules" are defined as lines that start with "use something". Do=
uble
| click to load that module. Oasis will find the file if it's in a projec=
t of
| yours or in an @INC directory.
|
|
| * Bookmarks
|
| A Bookmark is a custom pattern used to identify certain parts of the co=
de.
| You can define your own by editing the config file resource/pde.xml.
|
| Example: the bookmark "Todo" is defined as lines that contain "##todo"
| (load the file lib/PDE/App.pm to see an example of this).
|
| I'd appreciate suggestions for useful default Bookmark patterns.
|
|
| * Supported Editors
|
| Currently only UltraEdit is supported because... well... that's what I =
use.
| If you need support for another editor, please e-mail me
| (mailto:[EMAIL PROTECTED]).
|
|
| ** Configuration
|
| Edit the config file resource/pde.xml. Be careful. Keep a backup copy. =
The
| most useful thing you can configure is which features should be parsed =
and
| displayed (that's doPOD, doSub etc.)
|
| The config should eventually be managed through Edit | Preferences...
|
|
| Like I said, it's a beta so comments, bug reports and feature requests =
are
| on the top of my wish list :)
|
|
| /J
| --
| Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
| [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] Tue Apr 17 14:57:40 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 14pdTd-0004wB-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 17 Apr 2001
14:57:38 -0700
Received: from fw1 (fw1.linux.httptech.com [10.10.10.1])
by linux.httptech.com (8.9.3/8.9.3) with SMTP id RAA09636
for <[EMAIL PROTECTED]>; Tue, 17 Apr 2001 17:06:06 -0400
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <HY0G58R5>; Tue, 17 Apr 2001 17:57:48 -0400
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "Perl GUI Mail list (E-mail)" <[EMAIL PROTECTED]>
Date: Tue, 17 Apr 2001 17:57:32 -0400
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] GUI button problems
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Having trouble with a Win32::GUI::Button where it is not seeing the _Click.
However if I do $ReportButton->Show() or Hide() it works ok (because of the
$var reference) and visually you can see the button is clicked (it
depresses). I am guessing the problem is because it is nested on a Tab, but
I'm not sure. And if that is it, whatis the proper way to call it? In the
script below, if you click on this button you do NOT get any output to the
console.
Any ideas? Is there any debug I can use to print all events to the console
without having to explicitly code for each of them? If there were I'd be
able to see what my system is getting versus what I think it is (should be)
sending.
Thanks,
Pete
my $ReportButton = $W->Tab->AddButton(
-name => "ReportButton",
-left => 725,
-top => 75,
-width => 85,
-text => "Create Report",
-tabstop => 1,
);
sub ReportButton_Click
{
print "ReportButton was clicked!\n"; ### get nothing!
return 0;
}
From [EMAIL PROTECTED] Tue Apr 17 15:46:53 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14peFJ-00011P-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 17 Apr 2001
15:46:53 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5HJGV>; Tue, 17 Apr 2001 15:46:43 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] GUI button problems
Date: Tue, 17 Apr 2001 15:46:41 -0700
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.3
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 dug thru the GUI.xs a few weeks ago on the hunt for some missing
events. I know that some events come as _Anonymous with the first parameter
being the windows message code. But that goes only for messages not normally
expected (or at least not coded out to fire an event of their own), so you
will definitely not find the _Click event here.
I managed to get the mouse-related stuff (_LButtonUp, _MouseMove and the
like) from a RichEdit, which usually does not give you any event at all (due
to a bug, see my posting "RichEdit_Change"), by subclassing it:
new Win32::GUI::Class
(
-name => "_RichEdit",
-widget => "RichEdit",
-extends => "RichEdit"
);
$Main->AddRichEdit
(
-name => "Richie",
-class => "_RichEdit",
-pos => [30, 20],
....
);
sub Richie_RButtonDown
{
print "let go!\n";
}
Now from what I've seen in the XS source, the widget parameter can be any of
Button, Listbox, TabStrip, RichEdit, Graphic, InteractiveGraphic, Splitter,
and SplitterH. It does not need to correlate to the class you extend; I have
used the Button widget with a RichEdit control. Just don't use the Graphic
ones, as they expect a user supplied Paint function. Which subs the
particular class tries to trigger, can, again, only be found in the XS
source code - look for "MsgLoop" and check which DoEvent_xxx calls follow.
However, I don't know if that solves your particular problem. There's no way
to intercept ALL messages other than by getting your fingers dirty inside
the XS. All you could do is GetMessage to see which messages come by, then
PostMessage to put them back in the queue for Perl to find (PeekMessage does
not work) and DoEvents for Perl to act on them, but that still does not tell
you what Perl does and does not do in response to those Messages.
Have fun,
Harald
| -----Original Message-----
| From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
| Sent: Tuesday, April 17, 2001 14:58
| To: Perl GUI Mail list (E-mail)
| Subject: [perl-win32-gui-users] GUI button problems
|
|
| Having trouble with a Win32::GUI::Button where it is not
| seeing the _Click.
| However if I do $ReportButton->Show() or Hide() it works ok
| (because of the
| $var reference) and visually you can see the button is clicked (it
| depresses). I am guessing the problem is because it is nested
| on a Tab, but
| I'm not sure. And if that is it, whatis the proper way to
| call it? In the
| script below, if you click on this button you do NOT get any
| output to the
| console.
|
| Any ideas? Is there any debug I can use to print all events
| to the console
| without having to explicitly code for each of them? If there
| were I'd be
| able to see what my system is getting versus what I think it
| is (should be)
| sending.
|
| Thanks,
| Pete
|
|
| my $ReportButton = $W->Tab->AddButton(
| -name => "ReportButton",
| -left => 725,
| -top => 75,
| -width => 85,
| -text => "Create Report",
| -tabstop => 1,
| );
|
| sub ReportButton_Click
| {
| print "ReportButton was clicked!\n"; ### get nothing!
| 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] Wed Apr 18 04:29:01 2001
Received: from viemta06.chello.at ([195.34.133.56])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14pq8m-0006sY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
04:28:56 -0700
Received: from x-ray.at ([212.186.199.154]) by viemta06.chello.at
(InterMail vK.4.03.02.00 201-232-124 license
6aea1bd1f01aef5a9a73363c16ebee43)
with ESMTP id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Wed, 18 Apr 2001 13:28:52 +0200
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 18 Apr 2001 11:30:24 +0000
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] Perl Oasis
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.3
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/>
emacs/xemacs has this feature builtin as imenu. also in speedbar.
Johan Lindstrom schrieb:
> Perl Oasis is a source/POD/class browser tightly integrated with
> (currently) UltraEdit. It makes it easy to navigate source code, POD and
> modules.
--
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/
From [EMAIL PROTECTED] Wed Apr 18 06:24:07 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14prwE-0004Yp-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
06:24:06 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
14:18:17 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Wed, 18 Apr 2001 09:20:39 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] GUI button problems
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Peter wrote:
>depresses). I am guessing the problem is because it is nested on a Tab, but
>I'm not sure. And if that is it, whatis the proper way to call it? In the
>script below, if you click on this button you do NOT get any output to the
>console.
I had the same problem. My workaround was to simply not insert the control
i the TabStrip but in the Window itself. The only difference, so far as I
could tell, is that the left/top is relative to the Window instead of the
TabStrip interior. Either way you'll have to keep track of which controls
belong to which tab yourself.
Stuff for making that easier: If you look through the archives you'll find
a posting from Laurent Rocher with a module for managing TabStrips. I think
that involves using your current approach, so maybe the missing-event
problem is solved by using it, I don't know. Or you can download the Oasis
source and use the Win32::GUI::TabStripGroup class.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Apr 18 07:41:19 2001
Received: from ns1.pmintl.ch ([194.209.91.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14pt88-0004Gb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
07:40:29 -0700
Received: from pmechees7003.pmintl.ch by ns1.pmintl.ch
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 18 Apr 2001 14:40:27 UT
Received: by pmechees7003.pmintl.ch with Internet Mail Service (5.5.2653.19)
id <2XH3WYDQ>; Wed, 18 Apr 2001 16:38:26 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Lam, Nhat-Hung" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Perl Oasis
Date: Wed, 18 Apr 2001 16:39:06 +0200
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.3
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/>
Johan,
The binary also did not work for me (Windows NT 4 - SP6).
I tried to install all related modules in order to be able to run from the
source code, one still missing is WIN32::API 0.20. I don't have the C
compiler, I then installed it via ActiveState PPM but the only version
available is API 0.01 and the Perl Oasis does not work as expected.
I would appreciate if someone could send a "compiled" version of Win32-API
0.20 to me? I am using Perl ActiveState 5.6 build 623.
Many thanks
Nhat-Hung LAM
> -----Original Message-----
> From: Erick [SMTP:[EMAIL PROTECTED]
> Sent: Tuesday, April 17, 2001 9:16 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] Perl Oasis
>
> Johan,
>
> That's pretty neat. I'm going to use it for doing fast editing, since I
> can jump right to
> the subroutine I want to work on, I really like that idea. The binary
> didn't work for me,
> I had to compile it, after installing the needed modules of course. Also,
> when you're
> viewing it and then flip to another application and then back, and you
> still haven't
> loaded anything, then the dropdownbox is erased and your nice icon
> disappears. I haven't
> had time to look at your code, but these are two things I noticed right
> away.
>
> regards,
>
> erick
> never stop questioning
> www.jeb.ca
> ----- Original Message -----
> From: Johan Lindstrom <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Tuesday, April 17, 2001 4:51 PM
> Subject: [perl-win32-gui-users] Perl Oasis
>
>
> | Hi!
> |
> | Perl Oasis is a new Win32::GUI application I created. It's in beta
> | currently, but feel free to download and spread the word. I'm very
> | interested in comments and bug reports. The Perl license applies.
> |
> |
> | ** Introduction
> |
> | Perl Oasis is a source/POD/class browser tightly integrated with
> | (currently) UltraEdit. It makes it easy to navigate source code, POD and
> | modules.
> |
> |
> | * Download
> |
> | http://www.bahnhof.se/~johanl/perl/Oasis/
> |
> | Oasis_source.zip contains the entire source tree.
> |
> | Oasis_binary.zip is the end-user distribution, a freestanding GUI
> PerlApp
> | application. You'll need Perl (probably 5.6) installed, but no other
> modules.
> |
> |
> | * Getting started
> |
> | Start UltraEdit (it works without UltraEdit but not nearly as smoothly).
> | Start Perl Oasis.
> |
> | Always, the file you currently have open in UltraEdit should appear in
> the
> | topmost text field in Oasis. Click the "Load" button to bring the file
> into
> | Oasis. You can also "Copy" a file in the Explorer, move to Oasis and
> | "Paste" it into the text field (useful if you don't have UltraEdit).
> |
> | The file is parsed and the contents is displayed. Explore! Try opening a
> | few of your own files, the Oasis source files and modules on your
> system.
> | Oasis does not change any source files.
> |
> | The "=> Editor" button will open up the file in UltraEdit at the correct
> | location.
> |
> | The "=> Module" button will the selected module into Oasis.
> |
> |
> | ** Features
> |
> | The source is parsed in a simplistic way to extract meta-information
> which
> | is displayed in the tree to the left. Select a node in the tree to
> display
> | the corresponding text in the right pane. Double click to go to the
> editor.
> |
> |
> | * POD
> |
> | The POD is parsed using POD::Parse. =head1 and =head2 items are
> displayed
> | in the tree. Both the POD tab and the source tab is updated when you
> select
> | a node.
> |
> |
> | * Subroutines
> |
> | Subroutines are defined as lines that start with "sub something".
> |
> |
> | * Used modules
> |
> | "Used modules" are defined as lines that start with "use something".
> Double
> | click to load that module. Oasis will find the file if it's in a project
> of
> | yours or in an @INC directory.
> |
> |
> | * Bookmarks
> |
> | A Bookmark is a custom pattern used to identify certain parts of the
> code.
> | You can define your own by editing the config file resource/pde.xml.
> |
> | Example: the bookmark "Todo" is defined as lines that contain "##todo"
> | (load the file lib/PDE/App.pm to see an example of this).
> |
> | I'd appreciate suggestions for useful default Bookmark patterns.
> |
> |
> | * Supported Editors
> |
> | Currently only UltraEdit is supported because... well... that's what I
> use.
> | If you need support for another editor, please e-mail me
> | (mailto:[EMAIL PROTECTED]).
> |
> |
> | ** Configuration
> |
> | Edit the config file resource/pde.xml. Be careful. Keep a backup copy.
> The
> | most useful thing you can configure is which features should be parsed
> and
> | displayed (that's doPOD, doSub etc.)
> |
> | The config should eventually be managed through Edit | Preferences...
> |
> |
> | Like I said, it's a beta so comments, bug reports and feature requests
> are
> | on the top of my wish list :)
> |
> |
> | /J
> | --
> | Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
> | [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] Wed Apr 18 08:00:25 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 14ptRQ-0006Lo-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
08:00:24 -0700
Received: (from [EMAIL PROTECTED])
by fe-2.inet.it (8.9.3/8.9.3) id RAA95504
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
17:00:21 +0200
Received: from unknown(194.185.18.150) by fe-2.inet.it via I-SMTP
id queue/s-194.185.18.150-_rx8aa; Wed Apr 18 17:00:21 2001
Date: Wed, 18 Apr 2001 17:06:25 +0200
From: Aldo Calpini <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Lam, Nhat-Hung" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re: [perl-win32-gui-users] Perl Oasis
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.3
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/>
Lam, Nhat-Hung wrote:
> Johan,
>
> The binary also did not work for me (Windows NT 4 - SP6).
>
> I tried to install all related modules in order to be able to run from the
> source code, one still missing is WIN32::API 0.20. I don't have the C
> compiler, I then installed it via ActiveState PPM but the only version
> available is API 0.01 and the Perl Oasis does not work as expected.
>
> I would appreciate if someone could send a "compiled" version of Win32-API
> 0.20 to me? I am using Perl ActiveState 5.6 build 623.
get it from http://dada.perl.it/PPM/ :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Wed Apr 18 08:23:57 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14ptoC-0000sK-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
08:23:57 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
16:16:58 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Wed, 18 Apr 2001 11:20:04 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] Perl Oasis
In-Reply-To: <[EMAIL PROTECTED]
.pmi>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Nhat-Hung LAM wrote:
>The binary also did not work for me (Windows NT 4 - SP6).
The binary was created as a "freestanding" PerlApp, but without the
perl56.dll file included. I guess that is the problem.
The new binary is now totally freestanding, i.e. it includes the perl56.dll
file. I hope that solves the problem. If not, please let me know.
A new release with the new binary and a few fixed defects is available here:
http://www.bahnhof.se/~johanl/perl/Oasis/
I haven't begun to name or date-tag the releases yet, so whatever is
present there is the "latest release".
Regarding the problem with the application chrashing when you double click
on a module to load it; I have confirmed the defect. I can reproduce it. I
still haven't been able to create a simplest-possible-case to reproduce it.
I have the Visual C++ debugger installed, and the error message I get is
something like 'The instruction at "xxx" referenced memory at "xxx". The
memory could not be "read".', which presumably means that the app tried to
access memory outside the application's memory space.
After having fiddled with this for a couple of hours yesterday, it seems
related to three things:
1) The fact that I Clear() the tree view
2) Certain data in the tree view when Clear() is called
3) The fact that the DblClick() event is triggered
If I don't Clear() the tree view when I load a new module, the problem
disapperars.
Most of the time 2) isn't relevant, so the program works. I still haven't
pinpointed this one.
If I don't actually double click on the node, the problem disappears. If I
call the DblCLick() sub from e.g. a NodeClick() event or a button Click()
it works fine.
My initial guess is that it is related to mouse events fired at or handled
by already-deallocated nodes in the tree view. Or something... :/
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Apr 18 09:16:17 2001
Received: from panoramix.valinux.com ([198.186.202.147] helo=mail2.valinux.com)
by usw-sf-list1.sourceforge.net with esmtp
(Cipher TLSv1:DES-CBC3-SHA:168) (Exim 3.22 #1 (Debian))
id 14pucq-0007D4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
09:16:17 -0700
Received: from exchange.bowneglobal.com ([209.79.235.5])
by mail2.valinux.com with esmtp (Exim 3.22 #1 (Debian))
id 14pucp-0000TI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
09:16:15 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5HNYP>; Wed, 18 Apr 2001 09:11:17 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Perl Oasis DoubleClick
Date: Wed, 18 Apr 2001 09:11:16 -0700
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.3
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 the Visual C++ debugger installed, and the error
| message I get is
| something like 'The instruction at "xxx" referenced memory at
| "xxx". The
| memory could not be "read".', which presumably means that the
| app tried to
| access memory outside the application's memory space.
Don't worry, every so often my Micro$oft IE5.5 does that or the Micro$oft
PhotoEd, both unter Micro$oft Windoze 2000 and Micro$oft MT (read: empty). I
guess it must be somewhere in the Micro$oft Programming Guidlines to have
your app do this every once in a while. The only thing you should fix: this
"feature" MUST NOT be so predictable - it has to come as a total surprise.
;-)
Harald
From [EMAIL PROTECTED] Wed Apr 18 10:58:43 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 14pwDy-0000yP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
10:58:42 -0700
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <HY0G619N>; Wed, 18 Apr 2001 13:59:05 -0400
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] GUI button problems
Date: Wed, 18 Apr 2001 13:58:50 -0400
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.3
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/>
Cool, I'll try adding the control to the window. Doesn't really matter =
to
the script, just visually. Does the button get hidden behind the tab =
strip
though?
-----Original Message-----
From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 18, 2001 9:21 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] GUI button problems
Peter wrote:
>depresses). I am guessing the problem is because it is nested on a =
Tab, but
>I'm not sure. And if that is it, whatis the proper way to call it? In =
the
>script below, if you click on this button you do NOT get any output to =
the
>console.
I had the same problem. My workaround was to simply not insert the =
control=20
i the TabStrip but in the Window itself. The only difference, so far as =
I=20
could tell, is that the left/top is relative to the Window instead of =
the=20
TabStrip interior. Either way you'll have to keep track of which =
controls=20
belong to which tab yourself.
Stuff for making that easier: If you look through the archives you'll =
find=20
a posting from Laurent Rocher with a module for managing TabStrips. I =
think=20
that involves using your current approach, so maybe the missing-event=20
problem is solved by using it, I don't know. Or you can download the =
Oasis=20
source and use the Win32::GUI::TabStripGroup class.
/J
--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
[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 Apr 18 11:03:25 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 14pwIW-0001bU-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 18 Apr 2001
11:03:25 -0700
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <HY0G6FA8>; Wed, 18 Apr 2001 14:03:49 -0400
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] GUI button problems
Date: Wed, 18 Apr 2001 14:03:34 -0400
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.3
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/>
tried it and works like a charm! and to answer my own question, no it
doesn't get hidden behind the tabstrip.
-----Original Message-----
From: Peter Eisengrein=20
Sent: Wednesday, April 18, 2001 1:59 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] GUI button problems
Cool, I'll try adding the control to the window. Doesn't really matter =
to
the script, just visually. Does the button get hidden behind the tab =
strip
though?
-----Original Message-----
From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 18, 2001 9:21 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] GUI button problems
Peter wrote:
>depresses). I am guessing the problem is because it is nested on a =
Tab, but
>I'm not sure. And if that is it, whatis the proper way to call it? In =
the
>script below, if you click on this button you do NOT get any output to =
the
>console.
I had the same problem. My workaround was to simply not insert the =
control=20
i the TabStrip but in the Window itself. The only difference, so far as =
I=20
could tell, is that the left/top is relative to the Window instead of =
the=20
TabStrip interior. Either way you'll have to keep track of which =
controls=20
belong to which tab yourself.
Stuff for making that easier: If you look through the archives you'll =
find=20
a posting from Laurent Rocher with a module for managing TabStrips. I =
think=20
that involves using your current approach, so maybe the missing-event=20
problem is solved by using it, I don't know. Or you can download the =
Oasis=20
source and use the Win32::GUI::TabStripGroup class.
/J
--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
[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] Thu Apr 19 05:14:56 2001
Received: from ns1.pmintl.ch ([194.209.91.2])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14qDKp-000735-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
05:14:55 -0700
Received: from pmechees7003.pmintl.ch by ns1.pmintl.ch
via smtpd (for usw-sf-lists.sourceforge.net [216.136.171.198]) with
SMTP; 19 Apr 2001 12:14:53 UT
Received: by pmechees7003.pmintl.ch with Internet Mail Service (5.5.2653.19)
id <2XH3XVCV>; Thu, 19 Apr 2001 14:13:16 +0200
Message-ID: <[EMAIL PROTECTED]>
From: "Lam, Nhat-Hung" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Perl Oasis
Date: Thu, 19 Apr 2001 14:14:01 +0200
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.3
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/>
Johan,
I got downloaded the new binary but it does not work as well. Nothing
happened when starting it, program just exited without any error =
message!
I installed WIN32-API 0.20 (thanks Aldo :-)) and I can start it from =
source
code now.
Do you plan to make it support for Notepad editor as well? As UltraEdit =
is a
shareware and not all people have it!
Thank you
Nhat-Hung LAM
> -----Original Message-----
> From: Johan Lindstrom [SMTP:[EMAIL PROTECTED]
> Sent: Wednesday, April 18, 2001 5:20 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: RE: [perl-win32-gui-users] Perl Oasis
>=20
> Nhat-Hung LAM wrote:
> >The binary also did not work for me (Windows NT 4 - SP6).
>=20
> The binary was created as a "freestanding" PerlApp, but without the=20
> perl56.dll file included. I guess that is the problem.
>=20
> The new binary is now totally freestanding, i.e. it includes the
> perl56.dll=20
> file. I hope that solves the problem. If not, please let me know.
>=20
> A new release with the new binary and a few fixed defects is =
available
> here:
> http://www.bahnhof.se/~johanl/perl/Oasis/
>=20
> I haven't begun to name or date-tag the releases yet, so whatever is=20
> present there is the "latest release".
>=20
>=20
> Regarding the problem with the application chrashing when you double =
click
>=20
> on a module to load it; I have confirmed the defect. I can reproduce =
it. I
>=20
> still haven't been able to create a simplest-possible-case to =
reproduce
> it.
>=20
> I have the Visual C++ debugger installed, and the error message I get =
is=20
> something like 'The instruction at "xxx" referenced memory at "xxx". =
The=20
> memory could not be "read".', which presumably means that the app =
tried to
>=20
> access memory outside the application's memory space.
>=20
> After having fiddled with this for a couple of hours yesterday, it =
seems=20
> related to three things:
>=20
> 1) The fact that I Clear() the tree view
> 2) Certain data in the tree view when Clear() is called
> 3) The fact that the DblClick() event is triggered
>=20
> If I don't Clear() the tree view when I load a new module, the =
problem=20
> disapperars.
>=20
> Most of the time 2) isn't relevant, so the program works. I still =
haven't=20
> pinpointed this one.
>=20
> If I don't actually double click on the node, the problem disappears. =
If I
>=20
> call the DblCLick() sub from e.g. a NodeClick() event or a button =
Click()=20
> it works fine.
>=20
> My initial guess is that it is related to mouse events fired at or =
handled
>=20
> by already-deallocated nodes in the tree view. Or something... :/
>=20
>=20
> /J
>=20
> --
> Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
> [EMAIL PROTECTED]
>=20
>=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] Thu Apr 19 06:33:13 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14qEYb-000068-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
06:33:13 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
14:27:25 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Thu, 19 Apr 2001 09:30:51 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl Oasis
In-Reply-To: <[EMAIL PROTECTED]
.pmi>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Nhat-Hung LAM wrote:
>Do you plan to make it support for Notepad editor as well? As UltraEdit is a
>shareware and not all people have it!
Whichever editors people use the most.
UltraEdit is easy to do since it's a mature editor with useful features.
Notepad would be a little more difficult, but I think Win32::ActAcc and
Win32::GuiTest can do wonders when it comes to controlling even the most
primitive editors.
I'm not sure when it would get done though. If you really, really need
Notepad support you can subclass PDE::Editor and write it yourself :)
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu Apr 19 06:44:35 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14qEja-0001bt-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
06:44:34 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
14:38:46 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Thu, 19 Apr 2001 09:42:16 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED] .pmi>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] TreeView_DblClick (was: Perl Oasis)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 wrote:
>If I don't actually double click on the node, the problem disappears. If I
>call the DblCLick() sub from e.g. a NodeClick() event or a button Click()
>it works fine.
And so it went away.
The workaround--I'm big on workarounds, having a past as a web designer--is
to not do important stuff in the DblClick() event. What I do now is this:
In the DblClick() event I set a property, eventWrapper, to the code I want
to execute. Nothing else. A timer triggers 50 times a second, looking at
the eventWrapper property. If it's nonempty, the timer evals the string. Voila!
The timer doesn't seem to affect performance, and the delay between double
click and action isn't noticable unless you know it's there.
It's not industrial-strength tested yet, but it seems to work fine.
- - - - -
There is a new release with this workaround and a few extra bug fixes and
features like e.g. "@ISA modules" (an inheritance tree). The new binary
will open in a DOS console so error messages aren't lost. Maybe that
explain why the binary doesn't work for some of you.
- - - - -
If you think I spam this list with too many messages about this one
application, please let me know and I'll cut back. Just let me know when I
get annoying :)
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu Apr 19 09:36:24 2001
Received: from ausxc10.us.dell.com ([143.166.98.229])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14qHPr-00007d-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
09:36:24 -0700
Received: by ausxc10.us.dell.com with Internet Mail Service (5.5.2650.21)
id <2F2FT6F5>; Thu, 19 Apr 2001 11:30:25 -0500
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Perl Oasis
Date: Thu, 19 Apr 2001 09:27:46 -0500
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.3
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 getting this=20
using Windows 2K
Unquoted string "re" may clash with future reserved word at =
File/Basename.pm
lin
e 131.
couldn't find diagnostic data in C:\Perl\lib/pods/perldiag.pod =
C:\Perl\bin .
C:\
DOCUME~1\EOIN_B~1.EUR\LOCALS~1\Temp\Oasis\{BBD1CC5C-1D7C-4ED5-AB92-FD148=
6CB9
74E}
\ . C:\Perl\bin\Oasis.exe at Diagnostics.pm line 241.
BEGIN failed--compilation aborted at Oasis.exe line 21.
Rgds Eoin :
mailto:[EMAIL PROTECTED]
-----Original Message-----
From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
Sent: 18 April 2001 16:20
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Perl Oasis
Nhat-Hung LAM wrote:
>The binary also did not work for me (Windows NT 4 - SP6).
The binary was created as a "freestanding" PerlApp, but without the=20
perl56.dll file included. I guess that is the problem.
The new binary is now totally freestanding, i.e. it includes the =
perl56.dll=20
file. I hope that solves the problem. If not, please let me know.
A new release with the new binary and a few fixed defects is available =
here:
http://www.bahnhof.se/~johanl/perl/Oasis/
I haven't begun to name or date-tag the releases yet, so whatever is=20
present there is the "latest release".
Regarding the problem with the application chrashing when you double =
click=20
on a module to load it; I have confirmed the defect. I can reproduce =
it. I=20
still haven't been able to create a simplest-possible-case to reproduce =
it.
I have the Visual C++ debugger installed, and the error message I get =
is=20
something like 'The instruction at "xxx" referenced memory at "xxx". =
The=20
memory could not be "read".', which presumably means that the app tried =
to=20
access memory outside the application's memory space.
After having fiddled with this for a couple of hours yesterday, it =
seems=20
related to three things:
1) The fact that I Clear() the tree view
2) Certain data in the tree view when Clear() is called
3) The fact that the DblClick() event is triggered
If I don't Clear() the tree view when I load a new module, the problem=20
disapperars.
Most of the time 2) isn't relevant, so the program works. I still =
haven't=20
pinpointed this one.
If I don't actually double click on the node, the problem disappears. =
If I=20
call the DblCLick() sub from e.g. a NodeClick() event or a button =
Click()=20
it works fine.
My initial guess is that it is related to mouse events fired at or =
handled=20
by already-deallocated nodes in the tree view. Or something... :/
/J
--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
[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] Thu Apr 19 10:15:58 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14qI29-000787-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
10:15:58 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 19 Apr 2001
18:08:40 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Thu, 19 Apr 2001 13:10:57 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl Oasis
In-Reply-To: <[EMAIL PROTECTED]
.dell.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Eoin wrote:
>Unquoted string "re" may clash with future reserved word at File/Basename.pm
>lin
>e 131.
This one has to do with PerlApp. Just ignore it.
>couldn't find diagnostic data in C:\Perl\lib/pods/perldiag.pod C:\Perl\bin .
>C:\
>DOCUME~1\EOIN_B~1.EUR\LOCALS~1\Temp\Oasis\{BBD1CC5C-1D7C-4ED5-AB92-FD1486CB9
>74E}
>\ . C:\Perl\bin\Oasis.exe at Diagnostics.pm line 241.
>BEGIN failed--compilation aborted at Oasis.exe line 21.
use Diagnostics; doesn't seem to work with PerlApp unless you include that
file manually. A weird thing is that I don't have that file on my system
either :)
Anyway, thanks for the feedback! A new release (tested on a non-Perl
system) is available at:
http://www.bahnhof.se/~johanl/perl/Oasis/
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Apr 23 13:22:16 2001
Received: from mtaout.telus.net ([199.185.220.235]
helo=priv-edtnes09-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14rmqe-0002Id-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 23 Apr 2001
13:22:16 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes09-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Mon, 23 Apr 2001 14:22:10 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Mon, 23 Apr 2001 13:18:29 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_988082309==_"
Subject: [perl-win32-gui-users] Gui-program problem
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--=====================_988082309==_
Content-Type: text/plain; charset="us-ascii"
Hello all
I can't get my script to work with the gui windows, when the gui sub
routine gets called and the windows gets created, the program freezes and
script does not continue
I have not done win32::Gui programming before so your help is always
appreciated.
See the script attached.
Thankyou
Jeremy
--=====================_988082309==_
Content-Type: text/plain; charset="us-ascii"
Content-Disposition: attachment; filename="singletransferp.pl"
use Win32::GUI;
use Win32::API;
use Net::FTP;
use Cwd;
[EMAIL PROTECTED] = file,
0
# mode (send/recieve),1
# mode (ascii/binary),2
# ftphost, 3
# user, 4
# pass, 5
# port, 6
# passive (y/n) 7
# CWD 8
#
#
#
#if (@ARGV) {
TransferSetup();
#}else {
# print "***Error: Not a StandAlone program\n";
# sleep 1;
#}
sub TransferSetup() {
my $file = 'Killing Heidi - Mascara.mp3'; # the file to recieve
my $SendRecieveMode = 'recieve'; # which way is the transfer
my $TransferMode = 'asc'; # binary or ascii
my $FtpHost = 'jeremy'; # hostname
my $UserName = 'jeremy'; #user
my $Pass = 'portbriefcase'; #pass
my $Port = '21'; #port
my $Passive = '0'; # 0 for nonpassive, 1 for passive
my $CWD = 'D:\backup\perl stuff\perltidy-20010304\perltidy-20010304\\';
$ftp = Net::FTP->new($FtpHost, Timeout => 60) || die;
$ftp->login("$UserName","$Pass") || die;
$ftp->port($Port);
if ( $TransferMode eq "bin" ) {
$ftp->type(binary());
}
if ($SendRecieveMode eq "recieve") {
&RecieveTransfer($file,$CWD,$TransferMode);
}
else {
die;
}
}
sub RecieveTransfer {
my $RemoteFile = $_[0];
print "$RemoteFile\n";
my $buffer='';
my $size = $ftp->size('/$RemoteFile');
CreateProgressWin();
Win32::GUI::DoEvents();
my $blksize = 10240;
my $track = 0;
my $pos = 0;
my $CurrentLocalDir = $_[1];
my $TransferMode = $_[2];
$blksize = 6240 if ( $size >= 300000 );
$TransferBox->Status->Text("Retrieving $RemoteFile...");
$TransferBox->TransferProgressBar_1->SetRange(0, 100);
$TransferBox->TransferProgressBar_1->SetPos(0);
$TransferBox->Size->Text("$track bytes of $size bytes received");
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->Show();
if ( TransferMode eq 'asc' ) {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
} else {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
binmode FILE;
}
#ResetTimer();
if (! ($data = $ftp->retr($RemoteFile)) ) {
Msg_Box("Can't open a data retrieval socket for $RemoteFile.",48,"Can't
Open Socket");
return 0;
}
while(1) {
Win32::GUI::DoEvents();
$TransferBox->Size->Text("$track bytes of $size bytes received");
$percent = $track/$size;
$pos = 100*$percent;
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->TransferProgressBar_1->SetPos($pos);
Win32::GUI::DoEvents();
last unless $len = $data->read($buffer,$blksize);
$track += $len;
my $written = syswrite(FILE, $buffer, $len);
unless(defined($written) && $written == $len) {
Msg_Box("Cannot write to local file
$CurrentLocalDir.\\.$RemoteFile: $!",48,"Can't Write To File");
$data->abort;
$TransferBox->Hide();
close(FILE);
return undef;
}
}
$TransferBox->Hide();
Win32::GUI::DoEvents();
close(FILE);
$data->close(); # implied $ftp->response
#return 1;
}
sub Msg_Box ($$$) {
my ($msg, $buttons, $title) = (shift, shift, shift);
return Win32::MsgBox($msg, $buttons, $title);
}
sub CreateProgressWin {
$TransferBox = new Win32::GUI::Window(
-left => 670,
-top => 264,
-width => 392,
-height => 141,
-name => "TransferBox",
-text => "File Transfer"
);
$TransferBox->Show();
$TransferBox->AddProgressBar(
-text => "Transfer Progress",
-name => "TransferProgressBar_1",
-left => 13,
-top => 53,
-width => 356,
-height => 12,
);
$TransferBox->AddButton(
-text => "",
-name => "GroupBox_1",
-left => 3,
-top => 3,
-width => 375,
-height => 87,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddButton(
-text => "Kill",
-name => "Cancel",
-left => 352,
-top => 93,
-width => 29,
-height => 21,
-foreground => 16744448,
);
$TransferBox->AddLabel(
-text => "File :",
-name => "Label_1",
-left => 10,
-top => 13,
-width => 143,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Size (Bytes):",
-name => "Size",
-left => 11,
-top => 31,
-width => 150,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Progress (%) :",
-name => "Progress",
-left => 166,
-top => 70,
-width => 89,
-height => 13,
-foreground => 0,
);
#$TransferBox->AddStatusBar(
# -text => "Transfer Status:",
# -name => "StatusBar_1",
# -left => 0,
# -top => 799,
# -width => 1150,
# -height => 17,
# );
$TransferBox->AddButton(
-text => "",
-name => "transferStatus",
-left => 5,
-top => 88,
-width => 339,
-height => 24,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddLabel(
-text => "Transfer Status :",
-name => "Status",
-left => 11,
-top => 96,
-width => 147,
-height => 13,
-foreground => 0,
);
Win32::GUI::Dialog();
}
Win32::GUI::Dialog();
sub MainWindow_Terminate {
return -1;
}
sub Cancel_Click {
return -1;
exit;
}
--=====================_988082309==_
Content-Type: text/plain; charset="us-ascii"
--=====================_988082309==_--
From [EMAIL PROTECTED] Tue Apr 24 06:21:23 2001
Received: from smtp015.mail.yahoo.com ([216.136.173.59])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14s2kt-0003tu-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
06:21:23 -0700
Received: from pm682-25.dialip.mich.net (HELO sblond02baker) (207.73.72.131)
by smtp.mail.vip.sc5.yahoo.com with SMTP; 24 Apr 2001 13:21:20 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
From: "Jeremy Blonde" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Gui-program problem
Date: Tue, 24 Apr 2001 09:26:07 -0400
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 CWS, Build 9.0.2416 (9.0.2911.0)
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Importance: Normal
In-Reply-To: <[EMAIL PROTECTED]>
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 the gui window is created the program enters a messaging loop. It
processes events that the gui window fires off. If you create a gui window
but don't fire off any events the program won't do anything. You need to
fire off an event so that your script can process the rest of your script.
You fire events by clicking on things (buttons, labels), resizing the
window, closing the window, etc., etc. So you can either put a button on
the gui window that when clicked runs the ftp transfer, or I believe there
is an _Activate event so that when the window is created you can start the
ftp transfer.
Hopefully, that explains what is happening.
Jeremy Blonde
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Jeremy Aiyadurai
Sent: Monday, April 23, 2001 4:18 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Gui-program problem
Hello all
I can't get my script to work with the gui windows, when the gui sub
routine gets called and the windows gets created, the program freezes and
script does not continue
I have not done win32::Gui programming before so your help is always
appreciated.
See the script attached.
Thankyou
Jeremy
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Tue Apr 24 06:29:22 2001
Received: from george.emsts.com ([209.172.25.11] helo=emsts.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14s2sb-0004e1-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
06:29:21 -0700
Received: from wrkstn848 [209.172.25.20] by emsts.com [209.172.25.11]
with SMTP (MDaemon.v3.5.3.R)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
09:29:01 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Anthony C. George" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Gui-program problem
Date: Tue, 24 Apr 2001 09:28:44 -0400
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
X-MDRemoteIP: 209.172.25.20
X-Return-Path: [EMAIL PROTECTED]
X-MDaemon-Deliver-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.3
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/>
Also a code segment is always helpful :)
>tony
----- Original Message -----
From: "Jeremy Blonde" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, April 24, 2001 9:26 AM
Subject: RE: [perl-win32-gui-users] Gui-program problem
> When the gui window is created the program enters a messaging loop. It
> processes events that the gui window fires off. If you create a gui
window
> but don't fire off any events the program won't do anything. You need to
> fire off an event so that your script can process the rest of your script.
> You fire events by clicking on things (buttons, labels), resizing the
> window, closing the window, etc., etc. So you can either put a button on
> the gui window that when clicked runs the ftp transfer, or I believe there
> is an _Activate event so that when the window is created you can start the
> ftp transfer.
>
> Hopefully, that explains what is happening.
>
> Jeremy Blonde
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of
> Jeremy Aiyadurai
> Sent: Monday, April 23, 2001 4:18 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Gui-program problem
>
>
>
> Hello all
>
> I can't get my script to work with the gui windows, when the gui sub
> routine gets called and the windows gets created, the program freezes and
> script does not continue
>
> I have not done win32::Gui programming before so your help is always
> appreciated.
>
> See the script attached.
>
> Thankyou
>
> Jeremy
>
>
> _________________________________________________________
> 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
>
>
From [EMAIL PROTECTED] Tue Apr 24 07:00:35 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14s3Mo-0007JP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
07:00:34 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
14:53:28 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Tue, 24 Apr 2001 09:56:23 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Gui-program problem
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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 wrote:
>I can't get my script to work with the gui windows, when the gui sub
>routine gets called and the windows gets created, the program freezes and
>script does not continue
After a quick look, this is the problem:
In the sub CreateProgressWin you create the window and then call
Win32::GUI::Dialog(); It kind of looks like it's a remnant from Perl
Builder :)
The call to Dialog() will make the script enter the main event loop.
Anything from there (like your FTP stuff) has to be triggered by an event
(e.g. a button click, a window being resized, or a timer) until the event
loop is terminated (by returning -1 in an event handler).
The thing is, you don't have to call Win32::GUI::Dialog() for the window to
function, you can do that manually by calling Win32::GUI::DoEvents() as
often as possible. And you already do that in the RecieveTransfer loop, so
if you just remove the call to Dialog() it will work fine.
The downside: the GUI response will be sluggish when you do it like this,
but the alternative is to do your application stuff in another process or
thread, and that is a lot more work. I'd love to see a stable framework for
doing that though.
>I have not done win32::Gui programming before so your help is always
>appreciated.
You use \ instead of \\ as directory separator in a few places. Most of the
time / works very well on the Windows platform.
And, you might want to change the password on whichever server that is ;)
Hope That Helps,
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Apr 24 07:12:40 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14s3YW-0008Ki-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
07:12:40 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
15:05:25 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Tue, 24 Apr 2001 10:09:01 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Modal dialog box - how?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 to create a "real" modal dialog box using Win32::GUI?
In the sample apps, the solution that comes closest is to Disable the main
window, Show the dialog window and then Enable the main window again when
the dialog is closed by the user.
There are two drawbacks with this method:
1) The modal dialog window is an ordinary window, visible in the task bar.
I have a vague memory of a post describing how to solve this.
2) With the modal dialog visible, when the user clicks on another
application and then on the modal dialog window, only the modal dialog gets
visible. The main window is still below the other application. Same goes
for the main window. This is not how "real" modal dialogs work; the entire
application should be brought to the top when one of the windows is clicked.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Apr 24 08:13:23 2001
Received: from george.emsts.com ([209.172.25.11] helo=emsts.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14s4VF-0005hK-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
08:13:21 -0700
Received: from wrkstn848 [209.172.25.20] by emsts.com [209.172.25.11]
with SMTP (MDaemon.v3.5.3.R)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
11:12:30 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Anthony C. George" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Gui-program problem
Date: Tue, 24 Apr 2001 11:12:12 -0400
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
X-MDRemoteIP: 209.172.25.20
X-Return-Path: [EMAIL PROTECTED]
X-MDaemon-Deliver-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.3
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/>
doh! didn't see the attachment from the webclient I was using! sorry...
>tony
----- Original Message -----
From: "Anthony C. George" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, April 24, 2001 9:28 AM
Subject: Re: [perl-win32-gui-users] Gui-program problem
> Also a code segment is always helpful :)
>
> >tony
>
> ----- Original Message -----
> From: "Jeremy Blonde" <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Tuesday, April 24, 2001 9:26 AM
> Subject: RE: [perl-win32-gui-users] Gui-program problem
>
>
> > When the gui window is created the program enters a messaging loop. It
> > processes events that the gui window fires off. If you create a gui
> window
> > but don't fire off any events the program won't do anything. You need
to
> > fire off an event so that your script can process the rest of your
script.
> > You fire events by clicking on things (buttons, labels), resizing the
> > window, closing the window, etc., etc. So you can either put a button
on
> > the gui window that when clicked runs the ftp transfer, or I believe
there
> > is an _Activate event so that when the window is created you can start
the
> > ftp transfer.
> >
> > Hopefully, that explains what is happening.
> >
> > Jeremy Blonde
> >
> > -----Original Message-----
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] Behalf Of
> > Jeremy Aiyadurai
> > Sent: Monday, April 23, 2001 4:18 PM
> > To: perl-win32-gui-users@lists.sourceforge.net
> > Subject: [perl-win32-gui-users] Gui-program problem
> >
> >
> >
> > Hello all
> >
> > I can't get my script to work with the gui windows, when the gui sub
> > routine gets called and the windows gets created, the program freezes
and
> > script does not continue
> >
> > I have not done win32::Gui programming before so your help is always
> > appreciated.
> >
> > See the script attached.
> >
> > Thankyou
> >
> > Jeremy
> >
> >
> > _________________________________________________________
> > 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
> >
> >
>
>
>
> _______________________________________________
> 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 Apr 24 13:03:00 2001
Received: from fepout1.telus.net ([199.185.220.236]
helo=priv-edtnes03-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14s91X-0003Oc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
13:02:59 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes03-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 24 Apr 2001 14:02:29 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 24 Apr 2001 12:58:48 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_988167528==_"
Subject: [perl-win32-gui-users] FTP-Status download Gui-program problem
continues
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--=====================_988167528==_
Content-Type: text/plain; charset="us-ascii"
Hello all
I still cannot get my script to work with the gui windows, when the gui sub
routine gets called and the windows gets created, the program freezes and
script does not continue
As suggested by some I have gotten rid of the Dialog() call, and have
replaced the DoEvents() call with Update();
as you can see in the script, the empty file-to-be is created.....
this is the only thing that happens, then my program exits mysteriously
without entering the while(1) loop which is the download progress of the file.
I am left with a file-to-be of "0" bytes.
Try it running the script yourself configuring it to your own ftp and see
what you can make of problem. It's fairly straitforward to setup
I have not done win32::Gui programming before so your help is always
appreciated.
See the script attached.
Thankyou
Jeremy
--=====================_988167528==_
Content-Type: text/plain; charset="us-ascii"
Content-Disposition: attachment; filename="singletransferp.pl"
use Win32::GUI;
use Win32::API;
use Net::FTP;
use Cwd;
[EMAIL PROTECTED] = file,
0
# mode (send/recieve),1
# mode (ascii/binary),2
# ftphost, 3
# user, 4
# pass, 5
# port, 6
# passive (y/n) 7
# CWD 8
#
#
#
#if (@ARGV) {
TransferSetup();
#}else {
# print "***Error: Not a StandAlone program\n";
# sleep 1;
#}
sub TransferSetup() {
my $file = 'Killing Heidi - Mascara.mp3'; # the file to recieve
my $SendRecieveMode = 'recieve'; # which way is the transfer
my $TransferMode = 'asc'; # binary or ascii
my $FtpHost = 'jeremy'; # hostname
my $UserName = 'jeremy'; #user
my $Pass = 'portbriefcase'; #pass
my $Port = '21'; #port
my $Passive = '0'; # 0 for nonpassive, 1 for passive
my $CWD = 'D:\backup\perl stuff\perltidy-20010304\perltidy-20010304\\';
$ftp = Net::FTP->new($FtpHost, Timeout => 60) || exit;
$ftp->login("$UserName","$Pass") || exit;
$ftp->port($Port);
if ( $TransferMode eq "bin" ) {
$ftp->type(binary());
}
if ($SendRecieveMode eq "recieve") {
&RecieveTransfer($file,$CWD,$TransferMode);
}
else {
die;
}
}
sub RecieveTransfer {
my $RemoteFile = $_[0];
print "$RemoteFile\n";
my $buffer='';
my $size = $ftp->size('$RemoteFile');
CreateProgressWin();
$TransferBox->Update();
my $blksize = 10240;
my $track = 0;
my $pos = 0;
my $CurrentLocalDir = $_[1];
my $TransferMode = $_[2];
$blksize = 6240 if ( $size >= 300000 );
$TransferBox->Status->Text("Retrieving $RemoteFile...");
$TransferBox->TransferProgressBar_1->SetRange(0, 100);
$TransferBox->TransferProgressBar_1->SetPos(0);
$TransferBox->Size->Text("$track bytes of $size bytes received");
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->Show();
if ( TransferMode eq 'asc' ) {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
} else {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
binmode FILE;
}
if (! ($data = $ftp->retr($RemoteFile)) ) {
Msg_Box("Can't open a data retrieval socket for $RemoteFile.",48,"Can't
Open Socket");
return 0;
}
while(1) {
$TransferBox->Update();
$TransferBox->Size->Text("$track bytes of $size bytes received");
$percent = $track/$size;
$pos = 100*$percent;
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->TransferProgressBar_1->SetPos($pos);
$TransferBox->Update();
last unless $len = $data->read($buffer,$blksize);
$track += $len;
my $written = syswrite(FILE, $buffer, $len);
#$TransferBox->Show();
unless(defined($written) && $written == $len) {
Msg_Box("Cannot write to local file
$CurrentLocalDir.\\.$RemoteFile: $!",48,"Can't Write To File");
$data->abort;
$TransferBox->Hide();
close(FILE);
return undef;
}
}
$TransferBox->Hide();
$TransferBox->Update();
close(FILE);
$data->close(); # implied $ftp->response
return 1;
}
sub Msg_Box ($$$) {
my ($msg, $buttons, $title) = (shift, shift, shift);
return Win32::MsgBox($msg, $buttons, $title);
}
sub CreateProgressWin {
$TransferBox = new Win32::GUI::Window(
-left => 670,
-top => 264,
-width => 392,
-height => 141,
-name => "TransferBox",
-text => "File Transfer"
);
$TransferBox->Show();
$TransferBox->AddProgressBar(
-text => "Transfer Progress",
-name => "TransferProgressBar_1",
-left => 13,
-top => 53,
-width => 356,
-height => 12,
);
$TransferBox->AddButton(
-text => "",
-name => "GroupBox_1",
-left => 3,
-top => 3,
-width => 375,
-height => 87,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddButton(
-text => "Kill",
-name => "Cancel",
-left => 352,
-top => 93,
-width => 29,
-height => 21,
-foreground => 16744448,
);
$TransferBox->AddLabel(
-text => "File :",
-name => "Label_1",
-left => 10,
-top => 13,
-width => 200,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Size (Bytes):",
-name => "Size",
-left => 11,
-top => 31,
-width => 200,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Progress (%) :",
-name => "Progress",
-left => 166,
-top => 70,
-width => 89,
-height => 13,
-foreground => 0,
);
#$TransferBox->AddStatusBar(
# -text => "Transfer Status:",
# -name => "StatusBar_1",
# -left => 0,
# -top => 799,
# -width => 1150,
# -height => 17,
# );
$TransferBox->AddButton(
-text => "",
-name => "transferStatus",
-left => 5,
-top => 88,
-width => 339,
-height => 24,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddLabel(
-text => "Transfer Status :",
-name => "Status",
-left => 11,
-top => 96,
-width => 150,
-height => 13,
-foreground => 0,
);
#Win32::GUI::Dialog();
#return 1;
}
Win32::GUI::Dialog();
sub MainWindow_Terminate {
return -1;
}
sub Cancel_Click {
return -1;
exit;
}
--=====================_988167528==_
Content-Type: text/plain; charset="us-ascii"
--=====================_988167528==_--
From [EMAIL PROTECTED] Tue Apr 24 13:36:27 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14s9Xu-0004cQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
13:36:27 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
21:30:11 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Tue, 24 Apr 2001 16:33:09 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] FTP-Status download Gui-program
problem continues
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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 wrote:
>I still cannot get my script to work with the gui windows, when the gui sub
>routine gets called and the windows gets created, the program freezes and
>script does not continue
>
>As suggested by some I have gotten rid of the Dialog() call,
There is one more place where it should be removed from i think (depends on
what you want). Try that.
>and have replaced the DoEvents() call with Update();
Not sure about this one. You need the DoEvents() call if you want people to
be able to abort. The ProgressBar is presumably updated with the SetPos() call.
>this is the only thing that happens, then my program exits mysteriously
>without entering the while(1) loop which is the download progress of the file.
>I am left with a file-to-be of "0" bytes.
Put print statements in your code to tell you exactly how far it goes and
where, what values variables have etc. Data::Dumper is very nice if you
have data structures to display.
Also, coding Perl without "use strict;" and warnings are unnecessarily
difficult and error prone. Just a tip.
Hope That Helps,
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue Apr 24 14:21:34 2001
Received: from fepout1.telus.net ([199.185.220.236]
helo=priv-edtnes03-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14sAFZ-0006VG-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
14:21:34 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes03-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 24 Apr 2001 15:21:28 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 24 Apr 2001 14:17:41 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] FTP-Status download Gui-program
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
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.3
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/>
At 04:33 PM 24/04/2001 -0400, you wrote:
Johan,
Thankyou for your help so far....it was a careless error that nothing to do
with the gui aspect...I got the download status working..
I have readded the DoEvents(), but i cannot get the cancel button "kill" to
work.
the kill should work in the middle of the transfer...eg...the while(1) loop.
I don't know how to do this with the dialog() call, because this call
causes everything to freeze until a button is pressed.
putting dialog() in the middle of the while loop will not work.
is there a way for it to listen while it downloads for the cancel event?
>Jeremy wrote:
>>I still cannot get my script to work with the gui windows, when the gui=
sub
>>routine gets called and the windows gets created, the program freezes and
>>script does not continue
>>
>>As suggested by some I have gotten rid of the Dialog() call,
>
>There is one more place where it should be removed from i think (depends on=
=20
>what you want). Try that.
>
>
>>and have replaced the DoEvents() call with Update();
>
>Not sure about this one. You need the DoEvents() call if you want people to=
=20
>be able to abort. The ProgressBar is presumably updated with the SetPos()
call.
>
>
>>this is the only thing that happens, then my program exits mysteriously
>>without entering the while(1) loop which is the download progress of the
file.
>>I am left with a file-to-be of "0" bytes.
>
>Put print statements in your code to tell you exactly how far it goes and=
=20
>where, what values variables have etc. Data::Dumper is very nice if you=20
>have data structures to display.
>
>Also, coding Perl without "use strict;" and warnings are unnecessarily=20
>difficult and error prone. Just a tip.
>
>
>Hope That Helps,
>
>/J
>
>--
>Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
>[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] Tue Apr 24 14:54:40 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14sAlc-00019i-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
14:54:40 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ52VVM>; Tue, 24 Apr 2001 14:54:36 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] FTP-Status download Gui-program
Date: Tue, 24 Apr 2001 14:54:35 -0700
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.3
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 for it to listen while it downloads for the
| cancel event?
Your sub Cancel_Click should NOT exit, however, the exit statement is never
reached due to the return.
Return -1 is correct, this is how you tell the GUI to end the message loop.
Now the message loop exits back into your script from where it was called.
At this point, YOU must watch for the GUI to exit:
last if Win32::GUI::DoEvents() < 0;
instead of just Win32::GUI::DoEvents();
The chain goes:
1) you call Dialog() or DoEvents() inside GUI
2) GUI calls subs according to messages - like Cancel_Click when Exit button
is clicked.
3) your sub is active
4) your sub returns -1
5) GUI stops looking for messages and returns -1
6) your script continues
Have fun,
Harald
From [EMAIL PROTECTED] Tue Apr 24 15:24:26 2001
Received: from mtaout.telus.net ([199.185.220.235]
helo=priv-edtnes09-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14sBEQ-0003tT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
15:24:26 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes09-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 24 Apr 2001 16:24:19 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 24 Apr 2001 15:20:38 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]
l.com>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_988176038==_"
Subject: [perl-win32-gui-users] RE: [perl-win32-gui-users]FTP-Status download
cancel event
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--=====================_988176038==_
Content-Type: text/plain; charset="us-ascii"
At 02:54 PM 24/04/2001 -0700, you wrote:
Hi,
You may want to see my script attached.
I still don't quite understand how to get the cancel to work while download
is in progress.
I always appreciate your help, as I am new to gui development.
thankyou.
Jeremy
>| is there a way for it to listen while it downloads for the
>| cancel event?
>Your sub Cancel_Click should NOT exit, however, the exit statement is never
>reached due to the return.
>Return -1 is correct, this is how you tell the GUI to end the message loop.
>Now the message loop exits back into your script from where it was called.
>At this point, YOU must watch for the GUI to exit:
>
>last if Win32::GUI::DoEvents() < 0;
>
>instead of just Win32::GUI::DoEvents();
>
>The chain goes:
>1) you call Dialog() or DoEvents() inside GUI
>2) GUI calls subs according to messages - like Cancel_Click when Exit button
>is clicked.
>3) your sub is active
>4) your sub returns -1
>5) GUI stops looking for messages and returns -1
>6) your script continues
>
>Have fun,
>Harald
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Perl-Win32-GUI-Users@lists.sourceforge.net
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
--=====================_988176038==_
Content-Type: text/plain; charset="us-ascii"
Content-Disposition: attachment; filename="singletransferp.pl"
use Win32::GUI;
use Win32::API;
use Net::FTP;
use Cwd;
[EMAIL PROTECTED] = file,
0
# mode (send/recieve),1
# mode (ascii/binary),2
# ftphost, 3
# user, 4
# pass, 5
# port, 6
# passive (y/n) 7
# CWD 8
#
#
#
#if (@ARGV) {
TransferSetup();
#}else {
# print "***Error: Not a StandAlone program\n";
# sleep 1;
#}
sub TransferSetup() {
my $file = 'Killing Heidi - Mascara.mp3'; # the file to recieve
my $SendRecieveMode = 'recieve'; # which way is the transfer
my $TransferMode = 'asc'; # binary or ascii
my $FtpHost = 'jeremy'; # hostname
my $UserName = 'jeremy'; #user
my $Pass = 'blank'; #pass
my $Port = '21'; #port
my $Passive = '0'; # 0 for nonpassive, 1 for passive
my $CWD = 'D:\backup\perl stuff\perltidy-20010304\perltidy-20010304\\';
$ftp = Net::FTP->new($FtpHost, Timeout => 60) || exit;
$ftp->login("$UserName","$Pass") || exit;
$ftp->port($Port);
if ( $TransferMode eq "bin" ) {
$ftp->type(binary());
}
if ($SendRecieveMode eq "recieve") {
&RecieveTransfer($file,$CWD,$TransferMode);
}
else {
die;
}
}
sub RecieveTransfer {
my $RemoteFile = $_[0];
print "$RemoteFile\n";
my $buffer='';
my $size = $ftp->size($RemoteFile);
CreateProgressWin();
Win32::GUI::DoEvents();
my $blksize = 10240;
my $track = 0;
my $pos = 0;
my $CurrentLocalDir = $_[1];
my $TransferMode = $_[2];
$blksize = 6240 if ( $size >= 300000 );
$TransferBox->Label_1->Text("$RemoteFile");
$TransferBox->Status->Text("Retrieving $RemoteFile...");
$TransferBox->TransferProgressBar_1->SetRange(0, 100);
$TransferBox->TransferProgressBar_1->SetPos(0);
$TransferBox->Size->Text("$track bytes of $size bytes");
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->Show();
if ( TransferMode eq 'asc' ) {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
} else {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
binmode FILE;
}
if (! ($data = $ftp->retr($RemoteFile)) ) {
Msg_Box("Can't open a data retrieval socket for $RemoteFile.",48,"Can't
Open Socket");
return 0;
}
while() {
Win32::GUI::DoEvents();
$TransferBox->Size->Text("$track bytes of $size bytes");
$percent = $track/$size;
$pos = 100*$percent;
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->TransferProgressBar_1->SetPos($pos);
$TransferBox->DoEvents();
last unless $len = $data->read($buffer,$blksize);
$track += $len;
my $written = syswrite(FILE, $buffer, $len);
$TransferBox->Show();
unless(defined($written) && $written == $len) {
Msg_Box("Cannot write to local file
$CurrentLocalDir.\\.$RemoteFile: $!",48,"Can't Write To File");
$data->abort;
$TransferBox->Hide();
close(FILE);
return undef;
}
}
$TransferBox->Hide();
Win32::GUI::DoEvents();
close(FILE);
$data->close(); # implied $ftp->response
return 1;
}
sub Msg_Box ($$$) {
my ($msg, $buttons, $title) = (shift, shift, shift);
return Win32::MsgBox($msg, $buttons, $title);
}
sub CreateProgressWin {
$TransferBox = new Win32::GUI::Window(
-left => 670,
-top => 264,
-width => 392,
-height => 141,
-name => "TransferBox",
-text => "File Transfer"
);
$TransferBox->Show();
$TransferBox->AddProgressBar(
-text => "Transfer Progress",
-name => "TransferProgressBar_1",
-left => 13,
-top => 53,
-width => 356,
-height => 12,
);
$TransferBox->AddButton(
-text => "",
-name => "GroupBox_1",
-left => 3,
-top => 3,
-width => 375,
-height => 87,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddButton(
-text => "Kill",
-name => "Cancel",
-left => 352,
-top => 93,
-width => 29,
-height => 21,
-foreground => 16744448,
);
$TransferBox->AddLabel(
-text => "File :",
-name => "Label_1",
-left => 10,
-top => 13,
-width => 200,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Size (Bytes):",
-name => "Size",
-left => 11,
-top => 31,
-width => 200,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Progress (%) :",
-name => "Progress",
-left => 166,
-top => 70,
-width => 89,
-height => 13,
-foreground => 0,
);
#$TransferBox->AddStatusBar(
# -text => "Transfer Status:",
# -name => "StatusBar_1",
# -left => 0,
# -top => 799,
# -width => 1150,
# -height => 17,
# );
$TransferBox->AddButton(
-text => "",
-name => "transferStatus",
-left => 5,
-top => 88,
-width => 339,
-height => 24,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddLabel(
-text => "Transfer Status :",
-name => "Status",
-left => 11,
-top => 96,
-width => 250,
-height => 13,
-foreground => 0,
);
#Win32::GUI::Dialog();
#return 1;
}
#Win32::GUI::Dialog();
sub MainWindow_Terminate {
return -1;
}
#Win32::GUI::Dialog();
sub Cancel_Click {
return -1;
#exit;
}
--=====================_988176038==_
Content-Type: text/plain; charset="us-ascii"
--=====================_988176038==_--
From Kevin_ADM-Gibbs/[EMAIL PROTECTED] Tue Apr 24 01:18:59 2001
Received: from [195.217.164.67] (helo=dceu.alcan.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ry2F-000285-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 24 Apr 2001
01:18:59 -0700
Subject: Re: [perl-win32-gui-users] Gui-program problem
To: perl-win32-gui-users@lists.sourceforge.net
From: Kevin_ADM-Gibbs/[EMAIL PROTECTED]
Date: Tue, 24 Apr 2001 09:11:59 +0100
Message-ID: <[EMAIL PROTECTED]>
X-MIMETrack: Serialize by Router on DCEU/Hub/Alcan(Release 5.0.5 |September 22,
2000) at
04/24/2001 09:19:37 AM
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.3
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,
The Win32-Gui module is normally used in an event driven mode.
When you call Win32::GUI::DoEvents() (or Win32::GUI::Dialog())
you pass control over to the event handler. Control is only passed
back to your script when a Gui event (mouse or keyboard actions)
occurs.
It looks to me as though you want to use the GUI module to provide
a status window. This can be done by replacing the Win32::GUI::DoEvents()
calls with $TransferBox->Update()
Hope this is what your trying to do.
Kev.
Jeremy Aiyadurai <[EMAIL PROTECTED]>@lists.sourceforge.net on 23/04/2001
21:18:29
Please respond to perl-win32-gui-users@lists.sourceforge.net
Sent by: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
cc:
Subject: [perl-win32-gui-users] Gui-program problem
Hello all
I can't get my script to work with the gui windows, when the gui sub
routine gets called and the windows gets created, the program freezes and
script does not continue
I have not done win32::Gui programming before so your help is always
appreciated.
See the script attached.
Thankyou
Jeremy
From [EMAIL PROTECTED] Wed Apr 25 09:19:27 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14sS0k-0001nL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 25 Apr 2001
09:19:26 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 25 Apr 2001
17:13:14 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Wed, 25 Apr 2001 12:16:16 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Oasis release
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 new release of Oasis is available at
http://www.bahnhof.se/~johanl/perl/Oasis/
New features include:
- Bug fixes
- Used modules are color coded (local vs. in the @INC)
- Inheritance tree (@ISA modules)
- Projects - browse files in your Project directories
- Recent files
- @INC - browse files in your include directories
- Help text
- About box (which is almost truly modal, see other mail)
A cool feature is the Projects list. You don't have to enter them manually
(but you can if you want), Oasis will identify Projects on it's own.
Oasis tries to find used and required modules. Based on the name of the
module and the directory in which the module was found, Oasis can determine
which directory is the base directory for the application. For example,
open the Oasis source file Oasis\lib\PDE\Editor\UltraEdit.pm and Oasis will
find that Oasis\lib is a Project directory.
As always, I appreciate comments, feature suggestions, and bug reports.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Apr 25 09:37:18 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14sSI1-0004U4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 25 Apr 2001
09:37:17 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 25 Apr 2001
17:27:59 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Wed, 25 Apr 2001 12:31:36 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Modal dialog box - how?
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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 wrote:
>Is there a way to create a "real" modal dialog box using Win32::GUI?
I guess not. Maybe in a future release of Win32::GUI? I looked around in
the XS code and the SDK documentation, but couldn't get anything to work.
So, I wrote a class to handle this: Win32::GUI::Modalizer. Name suggestions
welcome :)
In brief it works like this when a modal window is displayed:
* When the modal window receives an Activate() event, Modalizer makes sure
all application windows are on top of other applications.
* When windows other than the modal window receives an Activate() event,
the modal window is immediately brought to the top.
This was actually a bit tricky to get working with events fired off left
and right, recursively to boot. The solution isn't perfect, but it goes a
long way. If anyone knows how to get a Window to not be displayed in the
taskbar, please let me know.
Win32::GUI::Modalizer is available in the Oasis source package. There is a
complete example in the SYNOPSIS, so you can try it out and tell me that it
doesn't work on your installation :)
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Wed Apr 25 10:02:01 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14sSfx-0007KI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 25 Apr 2001
10:02:01 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ526F1>; Wed, 25 Apr 2001 10:02:02 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Modal dialog box - how?
Date: Wed, 25 Apr 2001 10:01:52 -0700
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.3
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 anyone knows how to get a Window to not be
| displayed in the taskbar, please let me know.
I did not try it, but if I'm not mistaken, only top level windows (ie,
desktop children) appear in the taskbar. If you manage to create a window as
a child to your "main" window, it might solve a problem or two (or create
some).
There is in fact a -parent => option coded in the XS function
ParseWindowOptions, which is used by both Win32::GUI::DialogBox and
Win32::GUI::Window. As I said, I did not try it and don't have the time
right now. Maybe there is also another way to hide the taskbar icon of top
level windows.
Have fun,
Harald
From [EMAIL PROTECTED] Thu Apr 26 14:33:54 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14stOc-00083Q-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 26 Apr 2001
14:33:54 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id RAA08308
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 26 Apr 2001
17:33:57 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Thu, 26 Apr 2001 17:35:25 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed;
boundary="=====================_29434000==_"
Subject: [perl-win32-gui-users] DoEvents and Uninit's...
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--=====================_29434000==_
Content-Type: text/plain; charset="us-ascii"; format=flowed
Hey there... this is driving me flippin' batty. I've included a GUI layer
library below that can be dropped into an existing program (currently, the
one I'm using it with is AmphetaDesk at disobey.com/amphetadesk/).
Besides some uninit's that I know about and plan on fixing, I'm getting
uninit's *every single time* that the DoEvents is called. The specific
lines are 130 and 160, which match up to these blocks:
sub gui_listen {
# anyone there?
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return 1;
}
The error is the normal "use of unitialized value" junk, and it points
strictly to the DoEvents line.
What am I doing wrong? How can I make 'em go away?
--=====================_29434000==_
Content-Type: text/plain; charset="us-ascii"
Content-Disposition: attachment; filename="Windows.pl"
###############################################################################
# LIST OF ROUTINES BELOW: #
###############################################################################
# gui_init() - start the gui and display the window #
# gui_listen() - listen for window events for our gui #
# gui_note() - send a note to our gui window #
# open_url() - open a url in the system's default browser #
# _things() - various routines that control the gui and should be private #
###############################################################################
# these variables are global for
# the Windows gui - they just keep
# track of various things that listen
# and notes need to know about.
my ($hwnd, $hwnd_class, $window, $logbox);
###############################################################################
# gui_init() - start the gui and display the window #
###############################################################################
# USAGE: #
# &gui_init; #
# #
# NOTES: #
# This routine loads specific libraries specific to the OS and attempts to #
# do everything necessary to start up a GUI window and start listening for #
# events. Further down in this file, you should see supplementary GUI #
# routines (starting with _) that are part of the GUI happenings this #
# routine inits. #
# #
# Most of the code within this routine is thanks to David Berube. #
# #
# RETURNS: #
# 1; this routine always returns happily. #
###############################################################################
sub gui_init {
use Win32::GUI;
# hwnd is a handle to a window - basically, window's
# way of keeping track of it's program windows...
$hwnd = GUI::GetPerlWindow();
# comment this to see error messages in a dos window
# otherwise, this will hide the blasted thing...
# GUI::Hide($hwnd);
# get the width and height of the user's system.
my $screen_width = Win32::GUI::GetSystemMetrics(0);
my $screen_height = Win32::GUI::GetSystemMetrics(1);
# set some default entries for our window.
my $minwidth = 600; my $minheight = 240;
# create a window class for our window.
$hwnd_class = new Win32::GUI::Class( -name => "$SETTINGS->{app}->{name}
Class",
-icon => "$SETTINGS->{gui}->{icon}"
);
# set up our menu bar. these point to various
# routines defined later on in this file, as
# well as set up key commands for the items.
my $menu_bar = new Win32::GUI::Menu( "&File" => "File",
" > E&xit" => "_FileExit",
"&Edit" => "Edit",
" > &Copy Ctrl+C" => "_EditCopy",
" > Select &All Ctrl+A" =>
"_EditSelectAll"
);
# creates the main window. notice that we use a generic
# "Name" parameter, which is used for events, which must
# have the format Name_EventName.
$window = new Win32::GUI::Window( -name => '_Window',
-text => $SETTINGS->{app}->{name},
-left => ($screen_width - $minwidth)/2,
-top => ($screen_height - $minheight)/2,
-width => $minwidth,
-height => $minheight,
-menu => $menu_bar,
-class => $hwnd_class,
-icon => $SETTINGS->{gui}->{icon}
);
# create the systray icon.
my $sys_tray_icon = $window->AddNotifyIcon( -name => "_Systray",
-id => 1,
-icon =>
$SETTINGS->{gui}->{icon},
-tip => $SETTINGS->{app}->{name}
);
# create the log box which is gonna hold all our info.
$logbox = $window->AddListbox( -top => 10,
-left => 5,
-tabstop => 1,
-style => WS_VISIBLE | WS_VSCROLL
);
# and make it a little smaller than our window size.
$logbox->Resize( $window->ScaleWidth - 10, $window->ScaleHeight - 35);
# finally, show all the junk we just did.
$window->Show();
return 1;
}
1;
###############################################################################
# gui_listen() - listen for window events for our gui #
###############################################################################
# USAGE: #
# &gui_listen; #
# #
# NOTES: #
# This routine checks the event queue and sees if there is anything that #
# needs to be done. It's called from the main loop of our program. #
# #
# RETURNS: #
# 1; this routine always returns happily. #
###############################################################################
sub gui_listen {
# anyone there?
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return 1;
}
1;
###############################################################################
# gui_note() - send a note to our gui window #
###############################################################################
# USAGE: #
# &gui_note("This is a gui window line. Yup."); #
# #
# NOTES: #
# Much like ¬e, only we send our message to our os specific gui window. #
# #
# RETURNS: #
# 1; this routine always returns happily. #
###############################################################################
sub gui_note {
my ($message) = @_;
# add the string to our box.
$logbox->AddString($message);
# listen for good measure.
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
# autoscroll the window. 277 is the number
# of the WM_VSCROLL constant, which Win32::GUI
# doesn't seem to define for us.
Win32::GUI::SendMessage($logbox, 277, 7, 7);
return 1;
}
1;
###############################################################################
# open_url() - open a url in the system's default browser #
###############################################################################
# USAGE: #
# &open_url( "http://127.0.0.1:8888/"; ); #
# #
# OS SPECIFIC NOTES: #
# This routine loads the Win32::Shell module to execute the "open" #
# command which will open the browser and load the URL. However, if the #
# user has defined a local path to a browser, we try to open that instead. #
# #
# RETURNS: #
# 1; we instruct the user to open their browser if we can't. #
###############################################################################
sub open_url {
my ($url) = @_;
# we spit out our suggestion just to catch all instances.
¬e("If your browser doesn't load, go to <$url>", 1);
# if a browser_path hasn't been set, try
# to open the default browser using the native API.
# and no, I have no clue what this junk does.
if (! $SETTINGS->{user}->{browser_path}) {
use Win32::API;
my $ShellExecute = new Win32::API("shell32", "ShellExecuteA", ['N', 'P',
'P', 'P', 'P', 'I'], 'N');
$ShellExecute->Call(0, "open", $url, 0, 0, 1);
}
# if a browser_path has been defined, try passing
# the $url to the .exe and hope it understands.
else {
# if we see "program files" or "internet explorer", we take
# a chance and try to change them to their common eight char
# equivalents. this won't work for all users but covers
# a good large portion of them. yup yup. fun. chicks on speed.
$SETTINGS->{user}->{browser_path} =~ s/program files/progra~1/ig;
$SETTINGS->{user}->{browser_path} =~ s/internet explorer/intern~1/ig;
¬e("Trying to load $SETTINGS->{user}->{browser_path}.");
unless ( fork ) { system("$SETTINGS->{user}->{browser_path} $url"); }
}
return 1;
}
1;
###############################################################################
# _things() - various routines that control the gui and should be private #
###############################################################################
# USAGE: #
# These are internally called by the GUI and shouldn't be publically #
# used. So stop poking around here. Sheesh. Flippin' nosy people. Sigh. #
###############################################################################
# various menu commands.
sub _FileExit_Click { GUI::Show($hwnd); $window->Disable(); $window->Hide;
exit; }
sub _EditCopy_Click { my $something_needs_to_happen_here; }
sub _EditSelectAll_Click { my $something_needs_to_happen_here; }
# hide the window if it's been minimized. the only
# way to get it back would be from the systray icon.
# we need to figure out what to do when people click
# the "X' on the window. minimize? or close the app?
sub _Window_Minimize { $window->Hide(); }
sub _Window_Terminate { exit; }
# if the systray icon is clicked, reenable the window.
# if it's right clicked, hide the main window (weird).
sub _Systray_Click { $window->Enable(); $window->Show; }
sub _Systray_RightClick { $window->Disable(); $window->Hide; }
--=====================_29434000==_
Content-Type: text/plain; charset="us-ascii"; format=flowed
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
--=====================_29434000==_--
From [EMAIL PROTECTED] Thu Apr 26 15:11:04 2001
Received: from panoramix.valinux.com ([198.186.202.147] helo=mail2.valinux.com)
by usw-sf-list1.sourceforge.net with esmtp
(Cipher TLSv1:DES-CBC3-SHA:168) (Exim 3.22 #1 (Debian))
id 14stqj-00014Y-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 26 Apr 2001
15:02:57 -0700
Received: from exchange.bowneglobal.com ([209.79.235.5])
by mail2.valinux.com with esmtp (Exim 3.22 #1 (Debian))
id 14stfK-0006pJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 26 Apr 2001
14:51:10 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5J1RM>; Thu, 26 Apr 2001 14:46:21 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] DoEvents and Uninit's...
Date: Thu, 26 Apr 2001 14:46:15 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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 if that's the reason for your going batty, but your $logbox
control doesn't have a name. That's a big no-no. You call DoEvents for the
first time and GUI doesn't know where to mail the Resize or Show events.
Maybe that's what causes it to screech, maybe not.
Have fun,
Harald
| -----Original Message-----
| From: Morbus Iff [mailto:[EMAIL PROTECTED]
| Sent: Thursday, April 26, 2001 14:35
| To: perl-win32-gui-users@lists.sourceforge.net
| Subject: [perl-win32-gui-users] DoEvents and Uninit's...
|
|
| Hey there... this is driving me flippin' batty. I've included
| a GUI layer
| library below that can be dropped into an existing program
| (currently, the
| one I'm using it with is AmphetaDesk at disobey.com/amphetadesk/).
|
| Besides some uninit's that I know about and plan on fixing,
| I'm getting
| uninit's *every single time* that the DoEvents is called. The
| specific
| lines are 130 and 160, which match up to these blocks:
|
| sub gui_listen {
|
| # anyone there?
| Win32::GUI::PeekMessage(0,0,0);
| Win32::GUI::DoEvents();
|
| return 1;
| }
|
| The error is the normal "use of unitialized value" junk, and
| it points
| strictly to the DoEvents line.
|
| What am I doing wrong? How can I make 'em go away?
|
From [EMAIL PROTECTED] Thu Apr 26 17:33:29 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14swCO-0002Yb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 26 Apr 2001
17:33:29 -0700
Received: from [63.173.138.32] (s2.terminal1.totalnetnh.net [63.173.138.32])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id UAA12903
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 26 Apr 2001
20:33:33 -0400
Mime-Version: 1.0
Message-Id: <[EMAIL PROTECTED]>
In-Reply-To:
<[EMAIL PROTECTED]>
References:
<[EMAIL PROTECTED]>
Date: Thu, 26 Apr 2001 20:33:28 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] DoEvents and Uninit's...
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.3
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 if that's the reason for your going batty, but your $logbox
>control doesn't have a name. That's a big no-no. You call DoEvents for the
>first time and GUI doesn't know where to mail the Resize or Show events.
>Maybe that's what causes it to screech, maybe not.
Welp, I gave the blasted thing a title, and with the Win32::GUI::DoEvents,
it still blabbers about uninit'd values. I've yet to try
$window->DoEvents(), but I'll try that tomorrow.
Any other ideas? What does DoEvents check?
--
ICQ: 2927491 / AOL: akaMorbus
Yahoo: morbus_iff / Jabber: [EMAIL PROTECTED]
[EMAIL PROTECTED] / http://www.disobey.com/
From [EMAIL PROTECTED] Fri Apr 27 07:37:25 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14t9N6-0006QD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 27 Apr 2001
07:37:24 -0700
Received: from Admin2 (admin2.totalnetnh.net [63.173.138.20])
by red.totalnetnh.net (8.9.3/8.9.3) with SMTP id KAA29959
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 27 Apr 2001
10:37:30 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Morbus Iff" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Fri, 27 Apr 2001 10:37:11 -0400
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] Image Display without Dialog()
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Good day.
I just used the GUI Builder to create a simple script that displayed an
image. I sucked the code for the image and threw it into my "real" code that
use DoEvents and is part of a while loop that does a bunch of other little
things. To my disappoint, the image didn't display.
I finally tracked it down to the Win32::GUI::Dialog() call. If I add that,
then the image displays fine but my script stops dead waiting for the
Dialog() that never returns. If I remove the Dialog() call, then my script
happily works as intended, only with no image display.
Is there a way around this?
Some internal Paint call that I can use that will display the image?
Or someway where I can call Dialog(), but immediately return so that the
script can continue?
From [EMAIL PROTECTED] Fri Apr 27 08:51:53 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14tAXB-0000MA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 27 Apr 2001
08:51:53 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5JKFL>; Fri, 27 Apr 2001 08:52:17 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Image Display without Dialog()
Date: Fri, 27 Apr 2001 08:52:15 -0700
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.3
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/>
| Good day.
Sure - it's a friday! Thank you.
| To my disappoint, the image didn't display.
That is more than strange. Say, you should make sure you have the latest
Win32-GUI version. When you do "ppm query" from a DOS prompt, it should say
0.0.558 and NOT 0.99, which has been around for a while.
| Or someway where I can call Dialog(), but immediately return
| so that the script can continue?
Yes. Upon the initial $Main->Show(), you get two Main_Resize events pending.
Return -1 from the second one and your Dialog() call returns. You can still
DoEvent() and Dialog() around after that; ie no controls are being destroyed
at that point.
$resizecount = 0;
sub Main_Resize {
return -1 if ++$resizecount == 2;
# other stuff here
return 1; # don't forget that
}
Have fun,
Harald
From [EMAIL PROTECTED] Fri Apr 27 09:07:04 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14tAlr-0003g3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 27 Apr 2001
09:07:03 -0700
Received: from admin (admin.totalnetnh.net [63.173.138.19])
by red.totalnetnh.net (8.9.3/8.9.3) with SMTP id MAA00360
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 27 Apr 2001
12:07:11 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Morbus Iff" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Image Display without Dialog()
Date: Fri, 27 Apr 2001 12:06:53 -0400
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.2314.1300
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 my disappoint, the image didn't display.
> That is more than strange. Say, you should make sure you have the latest
> Win32-GUI version. When you do "ppm query" from a DOS prompt, it should
say
> 0.0.558 and NOT 0.99, which has been around for a while.
We actually figured this out about 20 minutes after emailing it - the
solution came after figuring out why our menu bar wasn't showing after a
refresh. In the Windows.pl file attached yesterday, we "my" the menu, which
expires after &gui_init returns. The simple solution was to make the menu
global... Similar thing's happened with the image - as soon as we made the
image global it displayed fine.
The rest of your message was informative - thanks. Definitely a printout.
Any more thoughts on my DoEvents problem causing all those warning's? I was
initially thinking to define a empty subroutine for mouse movement, because
the warn's increased exponentially when I flurried my mouse over the window,
but just having the focus on the window causes the warnings...
Looking through the archives suggested that other people are seeing this
too, but besides a workaround that doesn't solve the problem (just quenches
it), no solutions... Any ideas?
From [EMAIL PROTECTED] Sun Apr 29 17:35:31 2001
Received: from mtaout.telus.net ([199.185.220.235]
helo=priv-edtnes10-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14u1f0-0003VJ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 29 Apr 2001
17:35:30 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes10-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sun, 29 Apr 2001 18:35:24 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Sun, 29 Apr 2001 17:31:46 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_988615906==_"
Subject: [perl-win32-gui-users] Net::FTP size()
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--=====================_988615906==_
Content-Type: text/plain; charset="us-ascii"
hi
I have a ftp script that i have been testing on my own machine. It works
when i try it on my ftp server on my computer, but it does not work when on
any server that is not mine.
I feel it is the $ftp->size() that does not register when i logon to a
remote site whether it be a microsoft, freebsd or linux server.....it gives
me no value for the size of the given file...without this i cannot
download, as i have setup my transfers not using the get() command, but
using the $ftp->retr for the purpose of displaying the gui progress bar of
the transfer.
try the attached script....just run it, it will log you on to anomynously
to ftp.microsoft.com and attempt to download a file.
it will display debugging messages such as "cannot get filesize "
--=====================_988615906==_
Content-Type: text/plain; charset="us-ascii"
Content-Disposition: attachment; filename="singletransferp.pl"
use Win32::GUI;
use Win32::API;
use Win32;
use Net::FTP;
use Cwd;
[EMAIL PROTECTED] = file,
0
# mode (send/recieve),1
# mode (ascii/binary),2
# ftphost, 3
# user, 4
# pass, 5
# port, 6
# passive (y/n) 7
# CWD 8
#
#
#
#if (@ARGV) {
TransferSetup();
#}else {
# print "***Error: Not a StandAlone program\n";
# sleep 1;
#}
sub TransferSetup() {
my $file = 'macosplayer3.1b1c7.hqx'; # the file to recieve
my $SendRecieveMode = 'recieve'; # which way is the transfer
my $TransferMode = 'asc'; # binary or ascii
my $FtpHost = 'ftp.microsoft.com'; # hostname
my $UserName = 'anonymous'; #user
my $Pass = '[EMAIL PROTECTED]'; #pass
my $Port = '21'; #port
my $Passive = '0'; # 0 for nonpassive, 1 for passive
my $CWD = 'D:\backup\perl stuff\perltidy-20010304\perltidy-20010304\\';
$ftp = Net::FTP->new($FtpHost, Timeout => 60, Passive => 1) ||
exit;
$ftp->login("$UserName","$Pass") || die "cant login";
$ftp->port($Port);
if ( $TransferMode eq "bin" ) {
$ftp->type(binary());
}
if ($SendRecieveMode eq "recieve") {
&RecieveTransfer($file,$CWD,$TransferMode);
}
else {
die;
}
}
sub RecieveTransfer {
my $RemoteFile = $_[0];
print "$RemoteFile\n";
my $buffer='';
my $size = $ftp->size($RemoteFile) || print "cannot get file size!";
CreateProgressWin();
Win32::GUI::DoEvents();
my $blksize = 10240;
my $track = 0;
my $pos = 0;
my $CurrentLocalDir = $_[1];
my $TransferMode = $_[2];
$blksize = 6240 if ( $size >= 300000 );
$TransferBox->Label_1->Text("$RemoteFile");
$TransferBox->Status->Text("Retrieving $RemoteFile...");
$TransferBox->TransferProgressBar_1->SetRange(0, 100);
$TransferBox->TransferProgressBar_1->SetPos(0);
$TransferBox->Size->Text("$track bytes of $size bytes");
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->Show();
if ( TransferMode eq 'asc' ) {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
} else {
if (!open ( FILE, "> $CurrentLocalDir"."/".$RemoteFile )) {
Msg_Box("Can't create a file to put the data for $RemoteFile:
$!.",48,"Can't Create File");
return 0;
}
binmode FILE;
}
if (! ($data = $ftp->retr($RemoteFile)) ) {
Msg_Box("Can't open a data retrieval socket for $RemoteFile.",48,"Can't
Open Socket");
return 0;
}
while() {
last if Win32::GUI::DoEvents() < 0;
$TransferBox->Size->Text("$track bytes of $size bytes");
$percent = $track/$size;
$pos = 100*$percent;
$TransferBox->Progress->Text(int($pos)."%");
$TransferBox->TransferProgressBar_1->SetPos($pos);
$TransferBox->DoEvents();
last unless $len = $data->read($buffer,$blksize);
$track += $len;
my $written = syswrite(FILE, $buffer, $len);
$TransferBox->Show();
unless(defined($written) && $written == $len) {
Msg_Box("Cannot write to local file
$CurrentLocalDir.\\.$RemoteFile: $!",48,"Can't Write To File");
$data->abort;
$TransferBox->Hide();
close(FILE);
return undef;
}
}
$TransferBox->Hide();
Win32::GUI::DoEvents();
close(FILE);
$data->close(); # implied $ftp->response
return 1;
}
sub Msg_Box ($$$) {
my ($msg, $buttons, $title) = (shift, shift, shift);
return Win32::MsgBox($msg, $buttons, $title);
}
sub CreateProgressWin {
$TransferBox = new Win32::GUI::Window(
-left => 670,
-top => 264,
-width => 392,
-height => 141,
-name => "TransferBox",
-text => "File Transfer"
);
$TransferBox->Show();
$TransferBox->AddProgressBar(
-text => "Transfer Progress",
-name => "TransferProgressBar_1",
-left => 13,
-top => 53,
-width => 356,
-height => 12,
);
$TransferBox->AddButton(
-text => "",
-name => "GroupBox_1",
-left => 3,
-top => 3,
-width => 375,
-height => 87,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddButton(
-text => "Kill",
-name => "Cancel",
-left => 352,
-top => 93,
-width => 29,
-height => 21,
-foreground => 16744448,
);
$TransferBox->AddLabel(
-text => "File :",
-name => "Label_1",
-left => 10,
-top => 13,
-width => 200,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Size (Bytes):",
-name => "Size",
-left => 11,
-top => 31,
-width => 200,
-height => 13,
-foreground => 0,
);
$TransferBox->AddLabel(
-text => "Progress (%) :",
-name => "Progress",
-left => 166,
-top => 70,
-width => 89,
-height => 13,
-foreground => 0,
);
#$TransferBox->AddStatusBar(
# -text => "Transfer Status:",
# -name => "StatusBar_1",
# -left => 0,
# -top => 799,
# -width => 1150,
# -height => 17,
# );
$TransferBox->AddButton(
-text => "",
-name => "transferStatus",
-left => 5,
-top => 88,
-width => 339,
-height => 24,
-style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
);
$TransferBox->AddLabel(
-text => "Transfer Status :",
-name => "Status",
-left => 11,
-top => 96,
-width => 250,
-height => 13,
-foreground => 0,
);
#Win32::GUI::Dialog();
#return 1;
}
Win32::GUI::Dialog();
sub MainWindow_Terminate {
return -1;
}
#Win32::GUI::Dialog();
sub Cancel_Click {
return -1;
#exit;
}
--=====================_988615906==_
Content-Type: text/plain; charset="us-ascii"
--=====================_988615906==_--
From [EMAIL PROTECTED] Sun Apr 29 22:35:15 2001
Received: from mtaout.telus.net ([199.185.220.235]
helo=priv-edtnes10-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14u6L4-0000a6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 29 Apr 2001
22:35:15 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes10-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sun, 29 Apr 2001 23:35:08 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Sun, 29 Apr 2001 22:31:30 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Subject: [perl-win32-gui-users] Re: Net::FTP size()
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.3
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/>
dont reply, I fixed it.
jeremy
From [EMAIL PROTECTED] Mon Apr 30 07:24:09 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14uEau-000737-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
07:24:08 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
15:17:55 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 30 Apr 2001 09:55:39 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] ChooseFont - can't get it to work
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Does the Win32::GUI::ChooseFont() work?
The -name is pretty straightforward, but I don't understand what I should
do with the -size I get back. If I use it to set a font size in a RichEdit,
the type is smaller than what I selected.
The -size passed to the sub doesn't seem to affect the preselected Size in
the dialog box. The -height attribute seems to determine the Size in the
dialog box, but no -height is returned. I'm trying to do a
RichEdit->SetCharFormat() which unfortunately is undocumented, so... :/
BTW, the TreeView example behaves kind of weird if you do "Options | Choose
font...".
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Apr 30 07:24:09 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14uEau-000739-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
07:24:08 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
15:18:02 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 30 Apr 2001 10:21:42 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Icon in Button - can't get it to work
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 have a working code example of a simple Button with an Icon image in it?
I managed to use a Bitmap image in the Button, but the "background" grey
color in the image got miscolored (i.e. not quite the button grey, but a
touch darker).
So I thought I'd try with an Icon instead, and use a real "masked"
background color. I tried with both an icon of my own with a 16x16 and a
32x32 version, and the guiperl.ico icon.
No luck. The Button text isn't visible anymore, but no icon either...
/J
PS. You can see the "ugly" buttons in the latest release of Oasis, which
also includes:
+ Buttons to open Explorer, Explorer | Search... using a DDE link
+ Help POD & local HTML help
+ Preferences... modal dialog box
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Apr 30 07:32:20 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14uEip-0008N4-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
07:32:19 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
15:25:54 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 30 Apr 2001 10:29:27 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Modal dialog box - how?
In-Reply-To: <[EMAIL PROTECTED]
l.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Harald wrote:
>| If anyone knows how to get a Window to not be
>| displayed in the taskbar, please let me know.
>
>There is in fact a -parent => option coded in the XS function
Yes, Harald "Win32::GUI trivia" Piske did it again :)
Createing a window with a -parent => $winParent will display the window on
top of the parent window, but it will not make it inactive in any way.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Apr 30 10:12:15 2001
Received: from mailgw1a.lmco.com ([192.31.106.7])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uHDa-0008JA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
10:12:15 -0700
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 LAA13668
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
11:12:02 -0600 (MDT)
Received: from CONVERSION-DAEMON by lmco.com (PMDF V5.2-32 #38887)
id <[EMAIL PROTECTED]> for perl-win32-gui-users@lists.sourceforge.net; Mon, 30
Apr 2001 11:11:58 -0600 (MDT)
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, 30 Apr 2001 10:29:37 -0600
(MDT)
Received: by emss02i00.ems.lmco.com with Internet Mail Service (5.5.2653.19)
id <JTJMNY53>; Mon, 30 Apr 2001 10:30:42 -0600
Content-return: allowed
Date: Mon, 30 Apr 2001 10:30:38 -0600
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
To: 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
Content-transfer-encoding: 7BIT
Subject: [perl-win32-gui-users] Win32::Setupsup on 5.6
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 able to get Setupsup to work on Perl 5.6. I can't get it
loaded via PPM and I tried to download the thing and do the makefile.pl,
nmake processes, but that didn't work at all. Does anyone know where it can
be installed from?
Thanks,
Tim
From [EMAIL PROTECTED] Mon Apr 30 16:15:00 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uMsd-0004vT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
16:14:59 -0700
Received: from morbus.disobey.com (s42.terminal1.totalnetnh.net [63.173.138.72])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id TAA02617
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
19:15:17 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED] (Unverified)
X-Mailer: QUALCOMM Windows Eudora Version 5.0.2
Date: Mon, 30 Apr 2001 07:17:05 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Subject: [perl-win32-gui-users] AutoScrolling a RichEdit?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 having difficulty trying to get an autoscrolling RichEdit - I can get
the scroll bar to show up correctly, but all attempts to have the text
automatically scroll up in the RichEdit is failing. In some cases, no
scrolling occurs (although I can see the scroll bar growing), and in
others, scrolling occurs, but the last line of text shows as the first line
of the window (not the last).
My creator code:
# create the log box which is gonna hold all our info.
$logbox = $window->AddRichEdit( -name => "_RichEdit",
-font => $font,
-top => 116,
-left => 0,
-width => 505,
-tabstop => 1,
-autovscroll => 1,
-style => WS_CHILD | WS_VISIBLE
|
WS_VSCROLL | WS_HSCROLL |
ES_LEFT | ES_MULTILINE
And my add code:
# add the string to our box.
$logbox->Text($logbox->Text . "\r\n $message");
# autoscroll the window. 277 is the number
# of the WM_VSCROLL constant, which Win32::GUI
# doesn't seem to define for us.
Win32::GUI::SendMessage($logbox, 277, 7, 7);
In the above cases, $message always contains the complete RichEdit text so
that it can be reprinted (this is probably wrong). The SendMessage I dunno
what it does - it came from someone else. If I comment it out, no scrolling
occurs.
What's my solution?
From [EMAIL PROTECTED] Mon Apr 30 16:28:41 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14uN5t-0006OB-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
16:28:41 -0700
Received: from jpllaptop.bosscasinos.com (216.6.10.226)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 1 May 2001
00:22:37 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 30 Apr 2001 19:26:18 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Morbus Iff wrote:
> # add the string to our box.
> $logbox->Text($logbox->Text . "\r\n $message");
Instead of replacing the entire text with the entire text + something new,
add the new text to the bottom of the existing text:
#Select the last thing in the RichEdit
$rePOD->Select(999999,999999);
#Replace the selection with new text
$rePOD->ReplaceSel("$line\n",1);
I "stole" this technique from the PerlMonks chatterbox client.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon Apr 30 16:39:47 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uNGc-00076c-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
16:39:46 -0700
Received: from morbus.disobey.com (s42.terminal1.totalnetnh.net [63.173.138.72])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id TAA03173
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
19:40:06 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.0.2
Date: Mon, 30 Apr 2001 07:41:53 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
>#Select the last thing in the RichEdit
>$rePOD->Select(999999,999999);
>
>#Replace the selection with new text
>$rePOD->ReplaceSel("$line\n",1);
Neat idea, but now, instead of seeing the last $message being passed as the
first line of the RichEdit (scrolled to that first line), I see a blank
screen - the autoscroll goes past my last line... Course, changing the \n
around fixes that (with the side effect of a blank first line), but my
autoscrolling problem is still there.
Any ideas?
From [EMAIL PROTECTED] Mon Apr 30 17:10:52 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uNki-00028m-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
17:10:52 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5J7KH>; Mon, 30 Apr 2001 17:10:30 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] AutoScrolling a RichEdit?
Date: Mon, 30 Apr 2001 17:10:26 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
| Neat idea, but now, instead of seeing the last $message being
| passed as the first line of the RichEdit (scrolled to that first line), I
| see a blank screen - the autoscroll goes past my last line... Course,
| changing the \n around fixes that (with the side effect of a blank first
| line), but my autoscrolling problem is still there.
|
| Any ideas?
is the -height of your richie just missing from the code snippet you posted,
or do you really manage to create the control with zero height? 'Cause, if I
do, my field actually has zero height. Nada. From what you say, it seems to
me that your field is just one line high, so you actually would have to
scroll to the second-to-last line. Try
$Main->Rich->SendMessage (0x115, 7, 0); # scroll to bottom
$Main->Rich->SendMessage (0x115, 0, 0); # scroll one line up
But let me get this straight, please:
$Window->Richie->SendMessage (0x115, 7, 0);
sends WM_VSCROLL to Richie with nScrollCode parameter set to SB_BOTTOM.
Win32::GUI::SendMessage($logbox, 277, 7, 7);
as you had it, happens to do the same thing - the second 7 is actually
supposed to be the window handle of the scroll bar, but is unused with
SB_BOTTOM, so nothing goes foom from that error.
This works fine here with me, whether the WS_VSCROLL property is set or not.
Johan's idea of selecting past the end of the field's contents and replacing
the selection in order to force an autoscroll, works fine with textfields,
but not richedit controls (sorry Johan - dirty trivia Harry has got you
again ;-)
My question is: why did it not scroll the way you first had it and why does
it scroll now - or, the other way 'round: why does MY richedit scroll with
Morbus' code and not with Johan's?? I fiddled around with all the parameters
and cannot reproduce what happens at your place.
From [EMAIL PROTECTED] Mon Apr 30 19:00:16 2001
Received: from mail7.wlv.netzero.net ([209.247.163.57])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14uPSa-0005rP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
19:00:16 -0700
Received: (qmail 19580 invoked from network); 1 May 2001 01:56:22 -0000
Received: from ip199.montreal112.dialup.canada.psi.net (HELO
jpllaptop.bosscasinos.com) (154.20.9.199)
by mail7.wlv.netzero.net with SMTP; 1 May 2001 01:56:22 -0000
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 30 Apr 2001 21:53:51 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Morbus wrote:
>Neat idea, but now, instead of seeing the last $message being passed as
>the first line of the RichEdit (scrolled to that first line), I see a
>blank screen - the autoscroll goes past my last line... Course, changing
>the \n around fixes that (with the side effect of a blank first line), but
>my autoscrolling problem is still there.
Sorry I'm dense, I don't get it. Try this:
----------
#!/usr/local/bin/perl -w
use strict;
use Win32::GUI;
my $winMain = new Win32::GUI::Window(
-left => 13,
-top => 32,
-width => 439,
-height => 260,
-name => "winMain",
-text => "Autoscroller"
);
$winMain->AddRichEdit(
-text => "",
-name => "rePOD",
-left => 0,
-top => 0,
-width => 400,
-height => 220,
-style =>
WS_CHILD | WS_VISIBLE | ES_LEFT |
ES_MULTILINE |
ES_AUTOVSCROLL | WS_VSCROLL |
ES_AUTOHSCROLL | WS_HSCROLL |
ES_READONLY,
-exstyle => WS_EX_CLIENTEDGE,
-tabstop => 1,
);
$winMain->Show();
for my $i (1..40) {
Win32::GUI::DoEvents();
$winMain->rePOD->Select(999999,999999); #Stolen from the PM chatterbox
$winMain->rePOD->ReplaceSel("line $i\n",1);
select(undef, undef, undef, 0.25);
}
#EOF
----------
This will scroll the RichEdit as you "print" more text into it. Is that not
what you wanted?
If you want to scroll the RichEdit to a certain line, download the Oasis
source and look at the Win32::GUI::AdHoc module. It contains the sub
richEditScroll($reControl, $noCol, $noLines)
which sends the EM_LINESCROLL message to the RichEdit control.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
NetZero Platinum
No Banner Ads and Unlimited Access
Sign Up Today - Only $9.95 per month!
http://www.netzero.net
From [EMAIL PROTECTED] Mon Apr 30 19:52:02 2001
Received: from mail8.wlv.netzero.net ([209.247.163.58])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14uQGf-00065P-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 30 Apr 2001
19:52:01 -0700
Received: (qmail 29068 invoked from network); 1 May 2001 02:03:39 -0000
Received: from ip199.montreal112.dialup.canada.psi.net (HELO
jpllaptop.bosscasinos.com) (154.20.9.199)
by mail8.wlv.netzero.net with SMTP; 1 May 2001 02:03:39 -0000
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 30 Apr 2001 21:53:51 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Morbus wrote:
>Neat idea, but now, instead of seeing the last $message being passed as
>the first line of the RichEdit (scrolled to that first line), I see a
>blank screen - the autoscroll goes past my last line... Course, changing
>the \n around fixes that (with the side effect of a blank first line), but
>my autoscrolling problem is still there.
Sorry I'm dense, I don't get it. Try this:
----------
#!/usr/local/bin/perl -w
use strict;
use Win32::GUI;
my $winMain = new Win32::GUI::Window(
-left => 13,
-top => 32,
-width => 439,
-height => 260,
-name => "winMain",
-text => "Autoscroller"
);
$winMain->AddRichEdit(
-text => "",
-name => "rePOD",
-left => 0,
-top => 0,
-width => 400,
-height => 220,
-style =>
WS_CHILD | WS_VISIBLE | ES_LEFT |
ES_MULTILINE |
ES_AUTOVSCROLL | WS_VSCROLL |
ES_AUTOHSCROLL | WS_HSCROLL |
ES_READONLY,
-exstyle => WS_EX_CLIENTEDGE,
-tabstop => 1,
);
$winMain->Show();
for my $i (1..40) {
Win32::GUI::DoEvents();
$winMain->rePOD->Select(999999,999999); #Stolen from the PM chatterbox
$winMain->rePOD->ReplaceSel("line $i\n",1);
select(undef, undef, undef, 0.25);
}
#EOF
----------
This will scroll the RichEdit as you "print" more text into it. Is that not
what you wanted?
If you want to scroll the RichEdit to a certain line, download the Oasis
source and look at the Win32::GUI::AdHoc module. It contains the sub
richEditScroll($reControl, $noCol, $noLines)
which sends the EM_LINESCROLL message to the RichEdit control.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
NetZero Platinum
No Banner Ads and Unlimited Access
Sign Up Today - Only $9.95 per month!
http://www.netzero.net
From [EMAIL PROTECTED] Tue May 01 02:41: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.22 #1 (Debian))
id 14uWeh-0007gF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
02:41:16 -0700
Received: from fw1 (fw1.linux.httptech.com [10.10.10.1])
by linux.httptech.com (8.9.3/8.9.3) with SMTP id EAA07497
for <[EMAIL PROTECTED]>; Tue, 1 May 2001 04:49:30 -0400
From: [EMAIL PROTECTED]
Received: from lamsmtp.lazam.co.uk (unverified) by lonns-mim001.lazard.co.uk
(Content Technologies SMTPRS 4.2.1) with SMTP id <[EMAIL PROTECTED]> for
<[EMAIL PROTECTED]>;
Tue, 1 May 2001 10:38:40 +0100
Received: by lamsmtp.lazam.co.uk(Lotus SMTP MTA v4.6.5 (863.2 5-20-1999)) id
80256A3F.0034ED99 ; Tue, 1 May 2001 10:38:06 +0100
X-Lotus-FromDomain: LAZARD LONDON
To: [EMAIL PROTECTED]
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 1 May 2001 10:39:56 +0100
Mime-Version: 1.0
Content-type: text/plain; charset="us-ascii"
Content-Disposition: inline
Subject: [perl-win32-gui-users] Verifiying Input.
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 am capturing input in a text field limited to 3 Characters, how can I verify
that 3 characters have been entered and if not pad with leading Zeros?
i.e expecting input of 001, users enters just 1, I want to check and then return
001
Thanks in advance.
Daryll
The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
From [EMAIL PROTECTED] Tue May 01 05:04:05 2001
Received: from phoebe.host4u.net ([209.150.128.26])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uYsv-00052M-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
05:04:05 -0700
Received: from charoenkrung ([203.170.135.158])
by phoebe.host4u.net (8.8.5/8.8.5) with SMTP id GAA19565
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 1 May 2001
06:54:17 -0500
Message-ID: <[EMAIL PROTECTED]>
From: "Robert White" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Win32::Setupsup on 5.6
Date: Tue, 1 May 2001 18:50:42 +0700
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.3
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 able to get Setupsup to work on Perl 5.6.
try
\Perl\html\site\lib\Win32\GuiTest.html
Rob
http://bangkokwizard.com/
The human mind ordinarily operates at only ten percent of its capacity --
the rest is overhead for the operating system.
From [EMAIL PROTECTED] Tue May 01 05:41:47 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uZTO-0001bb-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
05:41:46 -0700
Received: from [63.173.138.55] (s25.terminal1.totalnetnh.net [63.173.138.55])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id IAA19812;
Tue, 1 May 2001 08:42:04 -0400
Mime-Version: 1.0
Message-Id: <[EMAIL PROTECTED]>
In-Reply-To:
<[EMAIL PROTECTED]>
References:
<[EMAIL PROTECTED]>
Date: Tue, 1 May 2001 08:41:44 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] AutoScrolling a RichEdit?
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.3
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 the -height of your richie just missing from the code snippet you posted,
>or do you really manage to create the control with zero height? 'Cause, if I
>do, my field actually has zero height. Nada. From what you say, it seems to
>me that your field is just one line high, so you actually would have to
>scroll to the second-to-last line. Try
Actually, giggle, giggle, according to the code, this guy uses a Resize
command to make the richie the right height and width. I'll assume from the
above that that's the wrong way to do things... The guy who wrote this for
me came from a VB background - maybe that's some hangup in those days (I'm
the guy who knows nothing about GUI's, but is learning).
> $Main->Rich->SendMessage (0x115, 7, 0); # scroll to bottom
> $Main->Rich->SendMessage (0x115, 0, 0); # scroll one line up
I'll try these out later today and get back to you...
--
ICQ: 2927491 / AOL: akaMorbus
Yahoo: morbus_iff / Jabber: [EMAIL PROTECTED]
[EMAIL PROTECTED] / http://www.disobey.com/
From [EMAIL PROTECTED] Tue May 01 05:59:49 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uZkq-0004cW-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
05:59:48 -0700
Received: from morbus.disobey.com (s35.terminal1.totalnetnh.net [63.173.138.65])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id JAA20242
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 1 May 2001
09:00:10 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.0.2
Date: Mon, 30 Apr 2001 21:01:50 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: Re: Fwd: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 will scroll the RichEdit as you "print" more text into it. Is that not
No, it doesn't do what I want to do - in this instance, I'm seeing:
- the window being created.
- the lines being written.
- the vscrollbar auto created when needed.
- the vscrollbar shrinking as more text is added.
HOWEVER, the window does not autoscroll to show last line of text - I see a
complete "line 16", only a bit of "line 17" and that's it. I want to see
the window scroll up as more lines are printed.
I'm using 0.0.502 of Win32::GUI.
From [EMAIL PROTECTED] Tue May 01 06:21:09 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ua5U-0007ET-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
06:21:08 -0700
Received: from morbus.disobey.com (s35.terminal1.totalnetnh.net [63.173.138.65])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id JAA20761
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 1 May 2001
09:21:28 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.0.2
Date: Mon, 30 Apr 2001 21:23:07 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed;
boundary="=====================_917979635==_"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
--=====================_917979635==_
Content-Type: text/plain; charset="us-ascii"; format=flowed
Ok. This is intensely interesting. I'm sure I'm doing something wrong. I've
attached the latest Windows.pl file, which is where I'm trying to
accomplish this autoscroll thing. You'll have to activate it something like:
&gui_init,
for (1 .. 40) { &gui_note("hey!");
to get it going. It's a gui layer library to a much larger application.
Anyways, a couple of notes:
- I added a "height" to my Richie, and thinking that the Resize
wasn't needed, commented it out. To my surprise, that stopped
the vscrollbar from appearing. Even with all the other junk
you see in there, the vscroll doesn't appear. Only when I
uncomment the Resize (as in this file) does the vscroll
appear.
- As mentioned in a previous note, Johan's thingy doesn't
work the way I want it... As it is now, the Windows.pl
does the same thing as Johan's code. I want it to auto
scroll to the *last printed line*, whilst still showing
all the previous lines above it. The *last printed line*
should be the *last visible line in the window*.
Johan's way doesn't autoscroll.
>$Main->Rich->SendMessage (0x115, 7, 0)
This caused the window to put the *last printed line* in the first *visible
line of the window*. That's not what I want.
>$Main->Rich->SendMessage (0x115, 0, 0);
This, although sounding promising, didn't work either.
Heelpppp! <g>...
--=====================_917979635==_
Content-Type: text/plain; charset="us-ascii"
Content-Disposition: attachment; filename="Windows.pl"
###############################################################################
# LIST OF ROUTINES BELOW: #
###############################################################################
# gui_init() - start the gui and display the window #
# gui_listen() - listen for window events for our gui #
# gui_note() - send a note to our gui window #
# open_url() - open a url in the system's default browser #
# _things() - various routines that control the gui and should be private #
###############################################################################
# these variables are global for
# the Windows gui - they just keep
# track of various things that listen
# and notes need to know about.
my ($hwnd, $icon, $hwnd_class, $window, $menu_bar);
my ($img, $sys_tray_icon, $font, $logbox);
###############################################################################
# gui_init() - start the gui and display the window #
###############################################################################
# USAGE: #
# &gui_init; #
# #
# NOTES: #
# This routine loads specific libraries specific to the OS and attempts to #
# do everything necessary to start up a GUI window and start listening for #
# events. Further down in this file, you should see supplementary GUI #
# routines (starting with _) that are part of the GUI happenings this #
# routine inits. #
# #
# Most of the code within this routine is thanks to David Berube. #
# #
# RETURNS: #
# 1; this routine always returns happily. #
###############################################################################
sub gui_init {
use Win32::GUI;
# hwnd is a handle to a window - basically, window's
# way of keeping track of it's program windows...
$hwnd = GUI::GetPerlWindow();
# comment this to see error messages in a dos window
# otherwise, this will hide the blasted thing...
# GUI::Hide($hwnd);
# get the width and height of the user's system.
my $screen_width = Win32::GUI::GetSystemMetrics(0);
my $screen_height = Win32::GUI::GetSystemMetrics(1);
# create the icon handler.
$icon = new Win32::GUI::Icon($SETTINGS->{gui}->{win_icon});
# create a window class for our window.
$hwnd_class = new Win32::GUI::Class( -name => "$SETTINGS->{app}->{name}
Class",
-icon => $icon
);
# set up our menu bar. these point to various
# routines defined later on in this file, as
# well as set up key commands for the items.
$menu_bar = new Win32::GUI::Menu( "&File" => "File",
" > E&xit" => "_FileExit",
"&Edit" => "Edit",
" > &Copy Ctrl+C" => "_EditCopy",
" > Select &All Ctrl+A" => "_EditSelectAll"
);
# creates the main window. notice that we use a generic
# "Name" parameter, which is used for events, which must
# have the format Name_EventName.
$window = new Win32::GUI::Window( -name => '_Window',
-text => $SETTINGS->{app}->{name},
-left => ($screen_width - 600)/2,
-top => ($screen_height - 400)/2,
-width => 480, -height => 400,
-menu => $menu_bar,
-class => $hwnd_class,
-icon => $icon,
-maximizebox => 0
);
# create the systray icon.
$sys_tray_icon = $window->AddNotifyIcon( -name => "_Systray",
-id => 1,
-icon => $icon,
-tip => $SETTINGS->{app}->{name}
);
# create our pretty logo - we need to figure out
# a good window size and height and then fix this
# stuff (and the logbox) up...
$window->AddLabel( -text => "",
-name => "Bitmap",
-left => -34,
-top => -3,
-width => 505,
-height => 116,
-style => 14,
-visible => 1,
);
# actually display the image...
$img = new Win32::GUI::Bitmap($SETTINGS->{gui}->{win_logo});
$window->Bitmap->SetImage($img); $window->Bitmap->Resize(505, 116);
# set the font of our log box below.
$font = Win32::GUI::Font->new( -name => "Verdana",
-size => 12,
);
# create the log box which is gonna hold all our info.
$logbox = $window->AddRichEdit( -name => "_RichEdit",
-font => $font,
-top => 116,
-left => 0,
-width => 505,
-height => 240,
-tabstop => 1,
-style => WS_CHILD | WS_VISIBLE | ES_LEFT |
ES_MULTILINE | ES_AUTOVSCROLL |
WS_VSCROLL |
ES_READONLY,
-exstyle => WS_EX_CLIENTEDGE
);
# and make it a little smaller than our window size.
$logbox->Resize( $window->ScaleWidth, $window->ScaleHeight - 118);
# finally, show all the junk we just did.
$window->Show();
return 1;
}
1;
###############################################################################
# gui_listen() - listen for window events for our gui #
###############################################################################
# USAGE: #
# &gui_listen; #
# #
# NOTES: #
# This routine checks the event queue and sees if there is anything that #
# needs to be done. It's called from the main loop of our program. #
# #
# RETURNS: #
# 1; this routine always returns happily. #
###############################################################################
sub gui_listen {
# anyone there?
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return 1;
}
1;
###############################################################################
# gui_note() - send a note to our gui window #
###############################################################################
# USAGE: #
# &gui_note("This is a gui window line. Yup."); #
# #
# NOTES: #
# Much like ¬e, only we send our message to our os specific gui window. #
# #
# RETURNS: #
# 1; this routine always returns happily. #
###############################################################################
sub gui_note {
my ($message) = @_;
# select our last line.
$logbox->Select(999999,999999);
$logbox->ReplaceSel("$message\n", 1);
select(undef, undef, undef, 0.25);
$logbox->SendMessage (0x115, 0, 0);
# add the string to our box.
# $logbox->Text($logbox->Text . "\r\n $message");
# $logbox->Text($logbox->Text . "\r\n $message");
# $logbox->Text($logbox->Text . "\r\n $message");
# $logbox->Text($logbox->Text . "\r\n $message");
# $logbox->Text($logbox->Text . "\r\n $message");
# autoscroll the window. 277 is the number
# of the WM_VSCROLL constant, which Win32::GUI
# doesn't seem to define for us.
# Win32::GUI::SendMessage($logbox, 277, 7, 7);
# listen for good measure.
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return 1;
}
1;
###############################################################################
# open_url() - open a url in the system's default browser #
###############################################################################
# USAGE: #
# &open_url( "http://127.0.0.1:8888/"; ); #
# #
# OS SPECIFIC NOTES: #
# This routine loads the Win32::Shell module to execute the "open" #
# command which will open the browser and load the URL. However, if the #
# user has defined a local path to a browser, we try to open that instead. #
# #
# RETURNS: #
# 1; we instruct the user to open their browser if we can't. #
###############################################################################
sub open_url {
my ($url) = @_;
# we spit out our suggestion just to catch all instances.
¬e("If your browser doesn't load, go to <$url>", 1);
# if a browser_path hasn't been set, try
# to open the default browser using the native API.
# and no, I have no clue what this junk does.
if (! $SETTINGS->{user}->{browser_path}) {
use Win32::API;
my $ShellExecute = new Win32::API("shell32", "ShellExecuteA", ['N', 'P',
'P', 'P', 'P', 'I'], 'N');
$ShellExecute->Call(0, "open", $url, 0, 0, 1);
}
# if a browser_path has been defined, try passing
# the $url to the .exe and hope it understands.
else {
# if we see "program files" or "internet explorer", we take
# a chance and try to change them to their common eight char
# equivalents. this won't work for all users but covers
# a good large portion of them. yup yup. fun. chicks on speed.
$SETTINGS->{user}->{browser_path} =~ s/program files/progra~1/ig;
$SETTINGS->{user}->{browser_path} =~ s/internet explorer/intern~1/ig;
¬e("Trying to load $SETTINGS->{user}->{browser_path}.");
unless ( fork ) { system("$SETTINGS->{user}->{browser_path} $url"); }
}
return 1;
}
1;
###############################################################################
# _things() - various routines that control the gui and should be private #
###############################################################################
# USAGE: #
# These are internally called by the GUI and shouldn't be publically #
# used. So stop poking around here. Sheesh. Flippin' nosy people. Sigh. #
###############################################################################
# various menu commands.
sub _FileExit_Click { GUI::Show($hwnd); $window->Disable(); $window->Hide;
exit; }
sub _EditCopy_Click { my $something_needs_to_happen_here; }
sub _EditSelectAll_Click { my $something_needs_to_happen_here; }
# hide the window if it's been minimized. the only
# way to get it back would be from the systray icon.
# we need to figure out what to do when people click
# the "X' on the window. minimize? or close the app?
sub _Window_Minimize { $window->Hide(); }
sub _Window_Terminate { exit; }
# if the systray icon is clicked, reenable the window.
# if it's right clicked, hide the main window (weird).
sub _Systray_Click { $window->Enable(); $window->Show; }
sub _Systray_RightClick { $window->Disable(); $window->Hide; }
--=====================_917979635==_--
From [EMAIL PROTECTED] Tue May 01 08:53:28 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ucSu-0007AL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
08:53:28 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5J0VY>; Tue, 1 May 2001 08:53:17 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: Fwd: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
Date: Tue, 1 May 2001 08:53:12 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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 using 0.0.502 of Win32::GUI.
AHAAAAAAAAAAAAAA!!!
Get 0.0.558 and see if things change.
You should find it at both activestate and dada.perl.it
From [EMAIL PROTECTED] Tue May 01 09:06:33 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ucfZ-0002iA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
09:06:33 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5J0YX>; Tue, 1 May 2001 09:06:26 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] AutoScrolling a RichEdit?
Date: Tue, 1 May 2001 09:06:20 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
| attached the latest Windows.pl file, which is where I'm trying to
| accomplish this autoscroll thing.
I just ran it with 0.0.558 - all I did was change the
$logbox->SendMessage (0x115, 0, 0);
to
$logbox->SendMessage (0x115, 7, 0);
and it did what I believe is what you want it to do - always show the last
16 or so lines of text.
From [EMAIL PROTECTED] Tue May 01 09:14:44 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ucnU-0003aw-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
09:14:44 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5J0ZL>; Tue, 1 May 2001 09:14:37 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Verifiying Input.
Date: Tue, 1 May 2001 09:14:28 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
| how can I verify
| that 3 characters have been entered and if not pad with leading Zeros?
Hi Daryll,
I'm not sure I'm getting what your problem is.
sub beautify_input
{
$foo = $Window->MyField->Text ();
$bar = sprintf ("%03d", $foo);
return $bar;
}
is one of 1001 ways to turn 1 to 3 digit numerical input into exactely 3
digits with leading zeroes. It does not do any validation (is $foo numeric,
is it more than three digits ...), but is that your issue at all? Or do you
wonder where to put the &beautify_input call, ie, when to intercept user
input?
From [EMAIL PROTECTED] Tue May 01 10:35:49 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ue3w-00045r-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
10:35:49 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id NAA27955;
Tue, 1 May 2001 13:36:10 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Tue, 01 May 2001 13:37:19 -0400
To: perl-win32-gui-users@lists.sourceforge.net,
"'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: RE: Fwd: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]
l.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 0.0.558 and see if things change.
>You should find it at both activestate and dada.perl.it
Ah. Ok. Two questions:
- it doesn't seem to be on a PPM anywhere - I always get .502?
- just do the normal perl makefile.pl junk for install?
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
From [EMAIL PROTECTED] Tue May 01 12:27:09 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ufng-0007pa-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
12:27:09 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id PAA00798;
Tue, 1 May 2001 15:27:29 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Tue, 01 May 2001 15:28:36 -0400
To: perl-win32-gui-users@lists.sourceforge.net,
"'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]
l.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 ran it with 0.0.558 - all I did was change the
>
>$logbox->SendMessage (0x115, 0, 0);
>to
>$logbox->SendMessage (0x115, 7, 0);
>
>and it did what I believe is what you want it to do - always show the last
>16 or so lines of text.
Dammit, I don't know what my problem is then.
I went to SourceForge and grabbed the 5.6 PPM for .558.
I extracted it, fixed the basehref in the PPD, and installed.
The install went fine - looking at the ~/site_perl/Win32/GUI.pm shows .558.
And for sanity's sake, my lines are:
# create the log box which is gonna hold all our info.
$logbox = $window->AddRichEdit( -name => "_RichEdit",
-font => $font,
-top => 116,
-left => 0,
-width => 505,
-height => 240,
-tabstop => 1,
-style => WS_CHILD | WS_VISIBLE |
ES_LEFT |
ES_MULTILINE | ES_AUTOVSCROLL
| WS_VSCROLL |
ES_READONLY,
-exstyle => WS_EX_CLIENTEDGE
);
And:
sub gui_note {
my ($message) = @_;
# select our last line.
$logbox->Select(999999,999999);
$logbox->ReplaceSel("$message\n", 1);
select(undef, undef, undef, 0.25);
# autoscroll the log box.
$logbox->SendMessage (0x115, 7, 0);
# listen for good measure.
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return 1;
}
What I'm seeing now is similar to what I was seeing before - the last
printed line becomes the first visible line of the window. Sniff. Sniff.
I'm gonna have a hissy fit! I swear! <g>...
Could you do me a favor, Harald? Could you send me the test script you used
to test my last Windows.pl with your code changes (now integrated into my
copy)? At least this way, I can pin down if its related to the rest of my
code somehow...
Argh.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
From [EMAIL PROTECTED] Tue May 01 18:20:15 2001
Received: from fepout3.telus.net ([199.185.220.238]
helo=priv-edtnes11-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ulJO-00030F-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
18:20:14 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes11-hme0.telusplanet.net
(InterMail vM.4.01.03.13 201-229-121-113) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 1 May 2001 19:20:08 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 01 May 2001 18:16:32 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED] l.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] Perl2exe
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
Thanks for all your help in the past
this is my first time using the Perl2exe compiler
is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
if i want to create a gui application with an icon?
The perl2exe faq is confusing and i get the following compile errors
Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
Pro version
Converting 'singletransfer.pl -gui -icon=favicon.ico' to singletransfer.exe
Compiling singletransfer.pl
Error: File -gui not found
Undefined subroutine &main::Cleanup called at D:\backup\perl
stuff\p2x56\perl2ex
e.pl line 266.
From [EMAIL PROTECTED] Tue May 01 18:33:07 2001
Received: from fepout2.telus.net ([199.185.220.237]
helo=priv-edtnes04-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14ulVr-0006Nh-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
18:33:07 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes04-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Tue, 1 May 2001 19:33:01 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Tue, 01 May 2001 18:29:25 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] Perl2exe -icons
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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,
how do i create an icon for use with perl2exe?
I find the faq confusing and i don't have DevStudio.
Jeremy
From [EMAIL PROTECTED] Tue May 01 20:24:33 2001
Received: from imo-m02.mx.aol.com ([64.12.136.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14unFh-0005qe-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 01 May 2001
20:24:33 -0700
Received: from [EMAIL PROTECTED]
by imo-m02.mx.aol.com (mail_out_v30.10.) id 6.b7.dbe6e8a (26120)
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 1 May 2001
23:24:23 -0400 (EDT)
From: [EMAIL PROTECTED]
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 1 May 2001 23:24:22 EDT
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
To: perl-win32-gui-users@lists.sourceforge.net
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="part1_b7.dbe6e8a.2820d7e6_boundary"
X-Mailer: AOL 6.0 for Windows US sub 10520
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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_b7.dbe6e8a.2820d7e6_boundary
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
>>- it doesn't seem to be on a PPM anywhere - I always get .502?<<
Are you on a proxy or behind a firewall (or both)? try clearing any caches
you might have, then try again.
-
___________________________
"Rarely is the question asked: Is our children learning?"
~George W. Bush
--part1_b7.dbe6e8a.2820d7e6_boundary
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
<HTML><FONT FACE=arial,helvetica><FONT COLOR="#000040" SIZE=2>>>- it
doesn't seem to be on a PPM anywhere - I always get .502?<<
<BR>Are you on a proxy or behind a firewall (or both)? try clearing any
caches
<BR>you might have, then try again.
<BR>
<BR><P ALIGN=CENTER>-
<BR>___________________________
<BR>"Rarely is the question asked: Is our children learning?"
<BR>~George W. Bush
<BR>
<BR></P></FONT></HTML>
--part1_b7.dbe6e8a.2820d7e6_boundary--
From [EMAIL PROTECTED] Wed May 02 02:26:42 2001
Received: from entoo.connect.com.au ([192.189.54.8])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14usuA-0004iF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
02:26:42 -0700
Received: from tom (acc10-ppp249.mel.dialup.connect.net.au [210.10.132.249])
by entoo.connect.com.au (Postfix) with ESMTP id A2F6EDD387
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 2 May 2001
19:24:05 +1000 (EST)
From: "Tom Paton" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 2 May 2001 19:28:38 +1000
MIME-Version: 1.0
Content-type: text/plain; charset=ISO-8859-1
Content-transfer-encoding: Quoted-printable
Subject: Re: [perl-win32-gui-users] ChooseFont - can't get it to work
Priority: normal
In-reply-to: <[EMAIL PROTECTED]>
X-mailer: Pegasus Mail for Win32 (v3.12a)
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.3
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/>
On 30 Apr 01, at 9:55, Johan Lindstrom wrote:
> Does the Win32::GUI::ChooseFont() work?
sorry, don't know about that.
> The -name is pretty straightforward, but I don't understand what I
> should do with the -size I get back. If I use it to set a font size in
> a RichEdit, the type is smaller than what I selected.
from memory, the richedit control's font size is double what you'd
expect. presumably to allow font sizes like 9.5pt with an integer
property. don't remember that they bothered to tell anyone though.
anyway, 20 =3D 10pt and so on.
unfortunately, i've never played with either rich edits or
ChooseFont() in Win32::GUI so i can't help any further.
> The -size passed to the sub doesn't seem to affect the preselected
> Size in the dialog box. The -height attribute seems to determine the
> Size in the dialog box, but no -height is returned. I'm trying to do a
> RichEdit->SetCharFormat() which unfortunately is undocumented, so...
> :/
>
> BTW, the TreeView example behaves kind of weird if you do "Options |
> Choose font...".
>
>
> /J
> --
> Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
> [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
>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tompaton (at) connect (dot) net (dot) au
http ... people.connect.net.au/~tompaton
From [EMAIL PROTECTED] Wed May 02 06:14:10 2001
Received: from george.emsts.com ([209.172.25.11] helo=emsts.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uwSH-0007fA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
06:14:10 -0700
Received: from wrkstn848 [209.172.25.20] by emsts.com [209.172.25.11]
with SMTP (MDaemon.v3.5.3.R)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
09:13:12 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Anthony C. George" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED] l.com> <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl2exe
Date: Wed, 2 May 2001 09:13:09 -0400
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
X-MDRemoteIP: 209.172.25.20
X-Return-Path: [EMAIL PROTECTED]
X-MDaemon-Deliver-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.3
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, the docs are kind of confusing... it would be:
perl2exe -gui -icon=favicon.ico thefile.pl
>tony
----- Original Message -----
From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, May 01, 2001 9:16 PM
Subject: [perl-win32-gui-users] Perl2exe
>
> Hi all,
>
> Thanks for all your help in the past
>
> this is my first time using the Perl2exe compiler
>
> is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
>
> if i want to create a gui application with an icon?
>
> The perl2exe faq is confusing and i get the following compile errors
>
>
> Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
> Pro version
> Converting 'singletransfer.pl -gui -icon=favicon.ico' to
singletransfer.exe
> Compiling singletransfer.pl
> Error: File -gui not found
> Undefined subroutine &main::Cleanup called at D:\backup\perl
> stuff\p2x56\perl2ex
> e.pl line 266.
>
>
> _______________________________________________
> 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 May 02 06:19:33 2001
Received: from george.emsts.com ([209.172.25.11] helo=emsts.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uwXU-0000qI-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
06:19:32 -0700
Received: from wrkstn848 [209.172.25.20] by emsts.com [209.172.25.11]
with SMTP (MDaemon.v3.5.3.R)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
09:19:08 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Anthony C. George" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl2exe -icons
Date: Wed, 2 May 2001 09:19:04 -0400
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
X-MDRemoteIP: 209.172.25.20
X-Return-Path: [EMAIL PROTECTED]
X-MDaemon-Deliver-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.3
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/>
Any icon editor will do(MichaelAngelo,IconForge, etc)
the docs only state the icon must contain a 32x32 AND a 16x16 bitmap, but
the icon can be no larger than 1K..
Anything further, feel free to email me off-list before this gets even more
off-topic...
>tony
----- Original Message -----
From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, May 01, 2001 9:29 PM
Subject: [perl-win32-gui-users] Perl2exe -icons
> hi,
>
>
> how do i create an icon for use with perl2exe?
>
> I find the faq confusing and i don't have DevStudio.
>
> Jeremy
>
>
> _______________________________________________
> 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 May 02 06:36:03 2001
Received: from fepz.post.tele.dk ([195.41.46.133])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uwnT-00044a-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
06:36:03 -0700
Received: from oemcomputer ([212.65.196.240]) by fepZ.post.tele.dk
(InterMail vM.4.01.03.00 201-229-121) with ESMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Wed, 2 May 2001 15:35:57 +0200
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 2 May 2001 15:36:48 +0200
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] Windows freezing
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 LWP modul. This application uses
LWP modul to post to some web pages.Previously I used to run
this program as CGI script.I needed to use a web server. For this
reason also I decided to change the program a little and used
Win32::GUI modul. In CGI version there was no problem with
freezing a window. I could switch from any windows to any other
windows at any time.
Now that I use Win32::GUI at some moments( when LWP works) it
seems that the window with the application has frozen.But If I wait
some time it works again. But I do not like waiting.
I know about Win32::GUI::DoEvents() method but I think it is used
in a loop only. Does anybody have any idea how to stop frezing
windows?
Thank you for help
Ladislav
From [EMAIL PROTECTED] Wed May 02 06:37:38 2001
Received: from p1.orchidbio.com ([209.191.43.242] helo=mail.orchidbio.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uwp0-0004Dy-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
06:37:38 -0700
Received: by mail.orchid.com with Internet Mail Service (5.5.2653.19)
id <JTAZH694>; Wed, 2 May 2001 09:37:08 -0400
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] Perl2exe
Date: Wed, 2 May 2001 09:36:58 -0400
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.3
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/>
Can anyone kindly tell me where I can find the perl2.exe and the docs?
Thanks,
David
-----Original Message-----
From: Anthony C. George [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 02, 2001 9:13 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Perl2exe
yes, the docs are kind of confusing... it would be:
perl2exe -gui -icon=favicon.ico thefile.pl
>tony
----- Original Message -----
From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Tuesday, May 01, 2001 9:16 PM
Subject: [perl-win32-gui-users] Perl2exe
>
> Hi all,
>
> Thanks for all your help in the past
>
> this is my first time using the Perl2exe compiler
>
> is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
>
> if i want to create a gui application with an icon?
>
> The perl2exe faq is confusing and i get the following compile errors
>
>
> Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
> Pro version
> Converting 'singletransfer.pl -gui -icon=favicon.ico' to
singletransfer.exe
> Compiling singletransfer.pl
> Error: File -gui not found
> Undefined subroutine &main::Cleanup called at D:\backup\perl
> stuff\p2x56\perl2ex
> e.pl line 266.
>
>
> _______________________________________________
> 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] Wed May 02 06:41:51 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uwt4-0005Vr-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
06:41:50 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id JAA26973;
Wed, 2 May 2001 09:42:15 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Wed, 02 May 2001 09:43:20 -0400
To: perl-win32-gui-users@lists.sourceforge.net,
perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Windows freezing
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 about Win32::GUI::DoEvents() method but I think it is used
>in a loop only. Does anybody have any idea how to stop frezing
In essence, LWP uses a blocking call to do whatever it's trying to do.
Meaning that while LWP is running, Win32::GUI isn't listening to events,
which is why the window appears to freeze (it's really just not listening
to your mouseclicks or your window focus).
Besides doing a lot of magic, you may want to look into setting the network
timeouts on LWP to something really low like 2 seconds. In this event, the
window will freeze for only 2 seconds (at most).
As it is now, the window will freeze until LWP feels like giving control
back - if your network is slow or there is network congestion, this could
be as much as three minutes or more (depends on your machine and connection).
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
From [EMAIL PROTECTED] Wed May 02 07:09:22 2001
Received: from george.emsts.com ([209.172.25.11] helo=emsts.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uxJh-00026S-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
07:09:21 -0700
Received: from wrkstn848 [209.172.25.20] by emsts.com [209.172.25.11]
with SMTP (MDaemon.v3.5.3.R)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
10:08:40 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Anthony C. George" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl2exe
Date: Wed, 2 May 2001 10:08:39 -0400
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
X-MDRemoteIP: 209.172.25.20
X-Return-Path: [EMAIL PROTECTED]
X-MDaemon-Deliver-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.3
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/>
Head on over to www.perl2exe.com ! :)
>tony
----- Original Message -----
From: "Kuo, David" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, May 02, 2001 9:36 AM
Subject: RE: [perl-win32-gui-users] Perl2exe
> Can anyone kindly tell me where I can find the perl2.exe and the docs?
>
> Thanks,
>
> David
>
> -----Original Message-----
> From: Anthony C. George [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, May 02, 2001 9:13 AM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] Perl2exe
>
>
> yes, the docs are kind of confusing... it would be:
> perl2exe -gui -icon=favicon.ico thefile.pl
>
> >tony
>
> ----- Original Message -----
> From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Tuesday, May 01, 2001 9:16 PM
> Subject: [perl-win32-gui-users] Perl2exe
>
>
> >
> > Hi all,
> >
> > Thanks for all your help in the past
> >
> > this is my first time using the Perl2exe compiler
> >
> > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
> >
> > if i want to create a gui application with an icon?
> >
> > The perl2exe faq is confusing and i get the following compile errors
> >
> >
> > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
> > Pro version
> > Converting 'singletransfer.pl -gui -icon=favicon.ico' to
> singletransfer.exe
> > Compiling singletransfer.pl
> > Error: File -gui not found
> > Undefined subroutine &main::Cleanup called at D:\backup\perl
> > stuff\p2x56\perl2ex
> > e.pl line 266.
> >
> >
> > _______________________________________________
> > 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
>
> _______________________________________________
> 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 May 02 08:13:06 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 14uyJN-0008JH-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
08:13:05 -0700
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 LAA19026
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 2 May 2001
11:12:56 -0400 (EDT)
From: David Hiltz <[EMAIL PROTECTED]>
Received: ([EMAIL PROTECTED]) by whsun3.wh.whoi.edu (8.9.3+Sun/8.6.9) id
LAA26321 for perl-win32-gui-users@lists.sourceforge.net; Wed, 2 May 2001
11:12:57 -0400 (EDT)
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl2exe
To: perl-win32-gui-users@lists.sourceforge.net
Date: Wed, 2 May 2001 11:12:56 -0400 (EDT)
In-Reply-To: <[EMAIL PROTECTED]> from "Kuo, David" at May 02, 2001 09:36:58 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.3
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 using version 4.03 of perl2exe which works fine for
creating GUI EXEs, but when I use the '-icon' option it
does not include the icon. Do I need a higher version
of perl2exe? Or better yet, has anybody gotten it to
work and if so with what version?
Thanks.
David Hiltz
> yes, the docs are kind of confusing... it would be:
> perl2exe -gui -icon=favicon.ico thefile.pl
>
> >tony
>
> ----- Original Message -----
> From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Tuesday, May 01, 2001 9:16 PM
> Subject: [perl-win32-gui-users] Perl2exe
>
>
> >
> > Hi all,
> >
> > Thanks for all your help in the past
> >
> > this is my first time using the Perl2exe compiler
> >
> > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
> >
> > if i want to create a gui application with an icon?
> >
> > The perl2exe faq is confusing and i get the following compile errors
> >
> >
> > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
> > Pro version
> > Converting 'singletransfer.pl -gui -icon=favicon.ico' to
> singletransfer.exe
> > Compiling singletransfer.pl
> > Error: File -gui not found
> > Undefined subroutine &main::Cleanup called at D:\backup\perl
> > stuff\p2x56\perl2ex
> > e.pl line 266.
> >
> >
> > _______________________________________________
> > 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
>
> _______________________________________________
> 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 May 02 08:18:05 2001
Received: from xenia.renault.fr ([193.194.133.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uyOC-0002xV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
08:18:04 -0700
Received: from univers.mc2.renault.fr by xenia.renault.fr id RAA19548 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 2 May 2001 17:17:59 +0200
(MET DST)
Received: from aosus019 by univers.mc2.renault.fr id RAA00711 for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 2 May 2001 17:17:58 +0200
(MET DST)
Received: from [138.21.107.102] by aosus019 with ESMTP for
perl-win32-gui-users@lists.sourceforge.net; Wed, 2 May 2001 17:17:58 +0200
Received: from wsmtpin03.mc2.renault.fr ([138.21.107.166]) by
wsmtpout01.mc2.renault.fr (Netscape Messaging Server 4.15) with
ESMTP id GCPRTY00.3TL for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 2 May 2001
17:17:58 +0200
Received: from ntmarc ([172.26.137.76]) by
wsmtpin03.mc2.renault.fr (Netscape Messaging Server 4.15) with
SMTP id GCPRTX00.J6F for
<perl-win32-gui-users@lists.sourceforge.net>; Wed, 2 May 2001
17:17:57 +0200
Message-Id: <[EMAIL PROTECTED]>
From: "NAHUM Marc" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Perl2exe
Date: Wed, 2 May 2001 17:17:57 +0200
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 6.00.2462.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2462.0000
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 help ... but i have exactly the same ...
----- Original Message -----
From: "David Hiltz" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, May 02, 2001 5:12 PM
Subject: Re: [perl-win32-gui-users] Perl2exe
>
> I'm using version 4.03 of perl2exe which works fine for
> creating GUI EXEs, but when I use the '-icon' option it
> does not include the icon. Do I need a higher version
> of perl2exe? Or better yet, has anybody gotten it to
> work and if so with what version?
>
> Thanks.
>
> David Hiltz
>
> > yes, the docs are kind of confusing... it would be:
> > perl2exe -gui -icon=favicon.ico thefile.pl
> >
> > >tony
> >
> > ----- Original Message -----
> > From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
> > To: <perl-win32-gui-users@lists.sourceforge.net>
> > Sent: Tuesday, May 01, 2001 9:16 PM
> > Subject: [perl-win32-gui-users] Perl2exe
> >
> >
> > >
> > > Hi all,
> > >
> > > Thanks for all your help in the past
> > >
> > > this is my first time using the Perl2exe compiler
> > >
> > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
> > >
> > > if i want to create a gui application with an icon?
> > >
> > > The perl2exe faq is confusing and i get the following compile errors
> > >
> > >
> > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
> > > Pro version
> > > Converting 'singletransfer.pl -gui -icon=favicon.ico' to
> > singletransfer.exe
> > > Compiling singletransfer.pl
> > > Error: File -gui not found
> > > Undefined subroutine &main::Cleanup called at D:\backup\perl
> > > stuff\p2x56\perl2ex
> > > e.pl line 266.
> > >
> > >
> > > _______________________________________________
> > > 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
> >
> > _______________________________________________
> > 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] Wed May 02 08:28:19 2001
Received: from p1.orchidbio.com ([209.191.43.242] helo=mail.orchidbio.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14uyY6-0004UY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
08:28:18 -0700
Received: by mail.orchid.com with Internet Mail Service (5.5.2653.19)
id <JTAZH7HW>; Wed, 2 May 2001 11:27:53 -0400
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] Perl2exe
Date: Wed, 2 May 2001 11:27:52 -0400
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.3
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 very much.
-----Original Message-----
From: Anthony C. George [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 02, 2001 10:09 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Perl2exe
Head on over to www.perl2exe.com ! :)
>tony
----- Original Message -----
From: "Kuo, David" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, May 02, 2001 9:36 AM
Subject: RE: [perl-win32-gui-users] Perl2exe
> Can anyone kindly tell me where I can find the perl2.exe and the docs?
>
> Thanks,
>
> David
>
> -----Original Message-----
> From: Anthony C. George [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, May 02, 2001 9:13 AM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] Perl2exe
>
>
> yes, the docs are kind of confusing... it would be:
> perl2exe -gui -icon=favicon.ico thefile.pl
>
> >tony
>
> ----- Original Message -----
> From: "Jeremy Aiyadurai" <[EMAIL PROTECTED]>
> To: <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Tuesday, May 01, 2001 9:16 PM
> Subject: [perl-win32-gui-users] Perl2exe
>
>
> >
> > Hi all,
> >
> > Thanks for all your help in the past
> >
> > this is my first time using the Perl2exe compiler
> >
> > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico"
> >
> > if i want to create a gui application with an icon?
> >
> > The perl2exe faq is confusing and i get the following compile errors
> >
> >
> > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software
> > Pro version
> > Converting 'singletransfer.pl -gui -icon=favicon.ico' to
> singletransfer.exe
> > Compiling singletransfer.pl
> > Error: File -gui not found
> > Undefined subroutine &main::Cleanup called at D:\backup\perl
> > stuff\p2x56\perl2ex
> > e.pl line 266.
> >
> >
> > _______________________________________________
> > 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
>
> _______________________________________________
> 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] Wed May 02 16:14:36 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14v5pM-0008RD-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 02 May 2001
16:14:36 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <2BQ5KJWZ>; Wed, 2 May 2001 16:14:28 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] AutoScrolling a RichEdit?
Date: Wed, 2 May 2001 16:14:27 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.3
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/>
| Dammit, I don't know what my problem is then.
OK, I tracked it down - I'm using Windoze 2000, you are on 98.
The workaround is:
$logbox->SendMessage (0x115, 7, 0); # scroll to bottom
$logbox->SendMessage (0x115, 2, 0); # scroll one page up
In your case, where you only ever display one single line, you can also do
$logbox->SendMessage (0x115, 1, 0); # scroll one line down
because it will only scroll once the scrollbar is visible.
Or, how about one line per \n in the message plus one for the \n added
outside the var:
$logbox->SendMessage (0x115, 1, 0) while $message =~ /\n|$/g;
... okay, this lacks readability, but it works, even under 98 :-)
This is for further experimenting and reference, taken from WINUSER.H:
/*
* Scroll Bar Commands
*/
#define SB_LINEUP 0
#define SB_LINELEFT 0
#define SB_LINEDOWN 1
#define SB_LINERIGHT 1
#define SB_PAGEUP 2
#define SB_PAGELEFT 2
#define SB_PAGEDOWN 3
#define SB_PAGERIGHT 3
#define SB_THUMBPOSITION 4
#define SB_THUMBTRACK 5
#define SB_TOP 6
#define SB_LEFT 6
#define SB_BOTTOM 7
#define SB_RIGHT 7
#define SB_ENDSCROLL 8
From [EMAIL PROTECTED] Thu May 03 06:44:38 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14vJPJ-0001G0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 03 May 2001
06:44:37 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id JAA02247
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 3 May 2001
09:45:05 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Thu, 03 May 2001 09:46:07 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] AutoScrolling a RichEdit?
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 workaround is:
> $logbox->SendMessage (0x115, 7, 0); # scroll to bottom
> $logbox->SendMessage (0x115, 2, 0); # scroll one page up
> $logbox->SendMessage (0x115, 1, 0); # scroll one line down
>
>Or, how about one line per \n in the message plus one for the \n added
>outside the var:
> $logbox->SendMessage (0x115, 1, 0) while $message =~ /\n|$/g;
>... okay, this lacks readability, but it works, even under 98 :-)
Whoo hoo! The "1" worked perfectly for me. Thanks for hunting this down for
me. I appreciate it dearly... You've made the next version of AmphetaDesk
(shameless plug: http://www.disobey.com/amphetadesk/) even better...
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
From [EMAIL PROTECTED] Thu May 03 07:54:22 2001
Received: from fepz.post.tele.dk ([195.41.46.133])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14vKUo-0007zc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 03 May 2001
07:54:22 -0700
Received: from oemcomputer ([212.65.196.114]) by fepZ.post.tele.dk
(InterMail vM.4.01.03.00 201-229-121) with ESMTP
id <[EMAIL PROTECTED]>;
Thu, 3 May 2001 16:54:18 +0200
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Date: Thu, 3 May 2001 16:54:38 +0200
MIME-Version: 1.0
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Subject: Re: [perl-win32-gui-users] Windows freezing
CC: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Priority: urgent
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.3
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/>
Dear Morbus,
Thank you for your email.
> In essence, LWP uses a blocking call to do whatever it's trying to do.
> Meaning that while LWP is running, Win32::GUI isn't listening to
> events, which is why the window appears to freeze (it's really just
> not listening to your mouseclicks or your window focus).
I do not think it is a problem of LWP but Win32::GUI. because
when I used to run very similar procedure as a CGI script under
Apache web server, that is without Win32::GUI ,there were not
such problems.
Ladislav
From [EMAIL PROTECTED] Thu May 03 08:06:08 2001
Received: from red.totalnetnh.net ([63.173.138.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14vKgB-0000SY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 03 May 2001
08:06:07 -0700
Received: from morbus.disobey.com (morbus.totalnetnh.net [63.173.138.23])
by red.totalnetnh.net (8.9.3/8.9.3) with ESMTP id LAA05018;
Thu, 3 May 2001 11:06:36 -0400
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Thu, 03 May 2001 11:07:38 -0400
To: [EMAIL PROTECTED], perl-win32-gui-users@lists.sourceforge.net
From: Morbus Iff <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Windows freezing
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
At 10:54 AM 5/3/01, [EMAIL PROTECTED] wrote:
>Dear Morbus,
>Thank you for your email.
>> In essence, LWP uses a blocking call to do whatever it's trying to do.
>> Meaning that while LWP is running, Win32::GUI isn't listening to
>> events, which is why the window appears to freeze (it's really just
>> not listening to your mouseclicks or your window focus).
>
>I do not think it is a problem of LWP but Win32::GUI. because
>when I used to run very similar procedure as a CGI script under
>Apache web server, that is without Win32::GUI ,there were not
>such problems.
Right - that's my point. When you were running your CGI script through
Apache, you weren't using Win32::GUI. Apache spawns your CGI script as a
new process, so LWP can take as long as it wants without interfering with
everything else.
As soon as you run Win32::GUI, you've got to have one stream of
consciousness listening to all the events happening in Windows. It has to
listen to mouseclicks, focus events, window grabs, and all that crap. This
is a constant "all the time" process.
LWP, on the other hand, takes over totally. It becomes the "all the time"
process the moment it runs. You can't (easily) have two "all the time"
processes running at the same time, so LWP "wins" since it's the
latest/newest one.
With LWP being the "all the time", Win32::GUI can't listen to all the crap
that's going on, so it doesn't know that it's supposed to refresh the
screen or listen to your mouseclicks or so forth.
It's not a problem with Win32::GUI or LWP really. Both are doing what
they're supposed to do. And they conflict because of that. If you want your
window to stop freezing, you have to figure out how to have Win32::GUI and
LWP listen "all the time" at the same time.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
From [EMAIL PROTECTED] Thu May 03 08:27:49 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 14vL1A-0002wY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 03 May 2001
08:27:49 -0700
Received: (from [EMAIL PROTECTED])
by fe-3.inet.it (8.9.3/8.9.3) id RAA93126
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 3 May 2001
17:27:47 +0200
Received: from unknown(194.185.18.147) by fe-3.inet.it via I-SMTP
id queue/s-194.185.18.147-Rmm77a; Thu May 3 17:27:46 2001
Date: Thu, 3 May 2001 17:34:37 +0200
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] Windows freezing
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.3
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:
> I do not think it is a problem of LWP but Win32::GUI. because
> when I used to run very similar procedure as a CGI script under
> Apache web server, that is without Win32::GUI ,there were not
> such problems.
woah! this is, perhaps, the most pure nonsense since the epoch ;-)
CGI programming and GUI (or even 'proper') programming are two very
different beasts. you just can't compare them.
your CGI script did indeed 'freeze' just as your Win32::GUI script
does, but you were on the other side of an HTTP connection, so
you didn't noticed this (in fact, staring at the browser waiting
for data to come is the CGI equivalent of 'freezing' :-).
but in this case, there is no 'other side', so your whole program
is blocking (thus no UI -- user interaction) while LWP is working.
this is not a problem of LWP, neither a Win32::GUI one. the real
'problem' here is in the programming approach. you need to perform two
tasks in parallel (UI and LWP fetching its stuff), so guess what you
need? multithreading!
try this:
perldoc -f fork
perldoc perlfork
not the easiest thing in the world, but this is the right way.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
From [EMAIL PROTECTED] Fri May 04 09:23:50 2001
Received: from imo-d01.mx.aol.com ([205.188.157.33])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14viMw-0006ES-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 04 May 2001
09:23:50 -0700
Received: from [EMAIL PROTECTED]
by imo-d01.mx.aol.com (mail_out_v30.10.) id 6.c9.fb599ac (15881)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 4 May 2001
12:23:42 -0400 (EDT)
Received: from web32.aolmail.aol.com (web32.aolmail.aol.com [205.188.222.8])
by air-id07.mx.aol.com (v77_r1.37) with ESMTP; Fri, 04 May 2001 12:23:42 -0400
Date: Fri, 04 May 2001 12:23:42 EDT
From: [EMAIL PROTECTED]
To: <perl-win32-gui-users@lists.sourceforge.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Mailer: Unknown (No Version)
Message-ID: <[EMAIL PROTECTED]>
Subject: [perl-win32-gui-users] Show In Taskbar
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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 get a window to not display in the taskbar, and I'm unable to do
so without negative side effects. (i.e. the window not properly redrawing, or
the window becoming a toolbar-esque window.) Anyone know how I could get around
this? I've been using, of course, SetWindowLong with the appropriate constants.
Dave
From [EMAIL PROTECTED] Fri May 04 10:05:37 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14vj1M-0003Yu-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 04 May 2001
10:05:37 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 4 May 2001
17:59:08 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Fri, 04 May 2001 13:02:19 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Show In Taskbar
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.3
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/>
Dave wrote:
>I'm trying to get a window to not display in the taskbar, and I'm unable
>to do so without negative side effects. (i.e. the window not properly
>redrawing, or the window becoming a toolbar-esque window.) Anyone know how
>I could get around this? I've been using, of course, SetWindowLong with
>the appropriate constants.
This was discussed some time ago on the list. What we figured out then was
that creating a window with a -parent => $winParent will make the new
window a child window. It will stay on top of the parent window and it will
not be displayed in the task bar.
I'm not sure how to do it without having a window already, but maybe it's
possible to make it a child of e.g. the desktop hwind or something else.
Just a thought.
BTW, how did you go about for getting a toolbar-esque window? Because
that's something I'm doing right now :) My current solution is to create a
window like this:
$hOption{-style} =
0x00C00000 | #WS_CAPTION
0x80000000 | #WS_POPUP
0x00800000 | #WS_BORDER
0;
Win32::GUI::Window->new(%hOption);
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri May 04 10:23:44 2001
Received: from imo-m08.mx.aol.com ([64.12.136.163])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14vjIu-0005hM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 04 May 2001
10:23:44 -0700
Received: from [EMAIL PROTECTED]
by imo-m08.mx.aol.com (mail_out_v30.10.) id 6.f4.9ba25b0 (15892)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 4 May 2001
13:23:30 -0400 (EDT)
Received: from web27.aolmail.aol.com (web27.aolmail.aol.com [205.188.222.3])
by air-id08.mx.aol.com (v77_r1.37) with ESMTP; Fri, 04 May 2001 13:23:30 -0400
Date: Fri, 04 May 2001 13:23:30 EDT
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] Show In Taskbar
To: <perl-win32-gui-users@lists.sourceforge.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Mailer: Unknown (No Version)
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.3
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/>
Alrighty, I'll take a look at that.
With regards to the other bit, there are two types of window styles: regular,
win3.1 era, and extended, i.e. 95+. Both affect how the window is drawn in
different ways. Try this:
$window->SetWindowLong(-20, 128); #-20 = GWL_EXSTYLE. 128 =
WS_EX_sometoolbarconstantorother.
It's setting the extended style bits - that's what the -20 is for - and it can
probably be done via a property, but I'm too lazy to figure out how, and this
is easier. BTW, you have to hide and reshow the form if you want to change
these bits whilst the form is visible.
Dave
From [EMAIL PROTECTED] Fri May 04 10:49:16 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14vjhb-0002Ub-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 04 May 2001
10:49:16 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 4 May 2001
18:42:46 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Fri, 04 May 2001 13:46:24 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.3
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/>
Dave wrote:
>$window->SetWindowLong(-20, 128); #-20 = GWL_EXSTYLE. 128 =
>WS_EX_sometoolbarconstantorother.
Ahh...
This is the 128 message:
#define WS_EX_TOOLWINDOW 0x00000080L
(This is documented in the Win32 Programmer's Reference help file and in
the winuser.h file from Visual C++)
And this would be _so_ neat to use:
WS_EX_ACCEPTFILES -- Specifies that a window created with this style
accepts drag-drop files.
Anyone have any idea of things I have to think about if I want to try to
implement a drag-n-drop feature? I have already found the correct set of
functions and messages in the Win32 Reference.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri May 04 12:11:14 2001
Received: from imo-m01.mx.aol.com ([64.12.136.4])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14vkyw-0001TS-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 04 May 2001
12:11:14 -0700
Received: from [EMAIL PROTECTED]
by imo-m01.mx.aol.com (mail_out_v30.10.) id 6.34.148e1b85 (3969)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 4 May 2001
15:11:08 -0400 (EDT)
From: [EMAIL PROTECTED]
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 4 May 2001 15:11:08 EDT
Subject: Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
To: perl-win32-gui-users@lists.sourceforge.net
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="part1_34.148e1b85.282458cc_boundary"
X-Mailer: AOL 6.0 for Windows US sub 10523
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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_34.148e1b85.282458cc_boundary
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
This is the 128 message:
#define WS_EX_TOOLWINDOW 0x00000080L
(This is documented in the Win32 Programmer's Reference help file and in
the winuser.h file from Visual C++)
Yup. Didn't have my VC++ install at work, though...
>
>
> And this would be _so_ neat to use:
>
> WS_EX_ACCEPTFILES -- Specifies that a window created with this style
> accepts drag-drop files.
>
> Anyone have any idea of things I have to think about if I want to try to
> implement a drag-n-drop feature? I have already found the correct set of
> functions and messages in the Win32 Reference.
>
Eh, I forget exactly how it works, but in VB you had to subclass some message
or another... wasn't too bad. If you have the exact procedure down, it's
pretty simple.
Dave
--part1_34.148e1b85.282458cc_boundary
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
<HTML><FONT FACE=arial,helvetica><FONT SIZE=2>This is the 128 message:
<BR>#define WS_EX_TOOLWINDOW
0x00000080L
<BR>
<BR>(This is documented in the Win32 Programmer's Reference help file and in
<BR>the winuser.h file from Visual C++)</FONT><FONT COLOR="#000000" SIZE=3
FAMILY="SANSSERIF" FACE="Arial" LANG="0"></BLOCKQUOTE>
<BR>
<BR></FONT><FONT COLOR="#000000" SIZE=2 FAMILY="SANSSERIF" FACE="Arial"
LANG="0">Yup. Didn't have my VC++ install at work, though...
<BR></FONT><FONT COLOR="#000000" SIZE=3 FAMILY="SANSSERIF" FACE="Arial"
LANG="0">
<BR></FONT><FONT COLOR="#000000" SIZE=2 FAMILY="SANSSERIF" FACE="Arial"
LANG="0"><BLOCKQUOTE TYPE=CITE style="BORDER-LEFT: #0000ff 2px solid;
MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px">
<BR>
<BR>And this would be _so_ neat to use:
<BR>
<BR>WS_EX_ACCEPTFILES -- Specifies that a window created with this style
<BR>accepts drag-drop files.
<BR>
<BR>Anyone have any idea of things I have to think about if I want to try to
<BR>implement a drag-n-drop feature? I have already found the correct set of
<BR>functions and messages in the Win32 Reference.
<BR></BLOCKQUOTE>
<BR>
<BR>Eh, I forget exactly how it works, but in VB you had to subclass some
message
<BR>or another... wasn't too bad. If you have the exact procedure down, it's
<BR>pretty simple.
<BR>
<BR>Dave</FONT></HTML>
--part1_34.148e1b85.282458cc_boundary--
From [EMAIL PROTECTED] Sat May 05 21:13:20 2001
Received: from fepout3.telus.net ([199.185.220.238]
helo=priv-edtnes11-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wFv5-0006gm-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sat, 05 May 2001
21:13:20 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes11-hme0.telusplanet.net
(InterMail vM.4.01.03.13 201-229-121-113) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sat, 5 May 2001 22:13:13 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Sat, 05 May 2001 21:09:43 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] MIME::Base64 nmake install problems
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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,
thank you for your help in the past
I want to use www.Jeb.ca's win32::gui::bitmapinline module, but it say's i
need
MIME-Base64.
I have activestate perl version 5.6.
I get the following error on the nmake install.
##
E:\productivity\perl\MIME-Base64-2.12.tar\MIME-Base64-2.12\MIME-Base64-2.12>
nmak
e install
Microsoft (R) Program Maintenance Utility Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.
cl -c -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1 -MD
-DNDE
BUG -DVERSION=\"2.12\" -DXS_VERSION=\"2.12\"
-IE:\productivity\perl\lib\C
ORE Base64.c
'cl' is not recognized as an internal or external command,
operable program or batch file.
NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
Stop.
##
your help is always appreciated
Jeremy A
From [EMAIL PROTECTED] Sun May 06 02:05:50 2001
Received: from natpost.webmailer.de ([192.67.198.65] helo=post.webmailer.de)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wKU9-00029o-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 06 May 2001
02:05:49 -0700
Received: from FRITZweb (ACB8AA55.ipt.aol.com [172.184.170.85])
by post.webmailer.de (8.9.3/8.8.7) with SMTP id LAA00199
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 6 May 2001
11:05:45 +0200 (MET DST)
From: "=?iso-8859-1?Q?Peter_K=F6ller?=" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Sun, 6 May 2001 11:06:05 +0200
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 V4.72.2106.4
Importance: Normal
Subject: [perl-win32-gui-users] Model-View-Controller (MVC) with Win32::GUI?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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,
has anyone an approach how to use Win32::GUI with the Model-View-Controller
(MVC) principle? Or if that would be impossible: What would be the best way
to separate business code and gui?
Sincerely
Peter
From [EMAIL PROTECTED] Sun May 06 07:30:20 2001
Received: from george.emsts.com ([209.172.25.11] helo=emsts.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wPYC-0000PT-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 06 May 2001
07:30:20 -0700
Received: from bing [208.18.226.100] by emsts.com [209.172.25.11]
with SMTP (MDaemon.v3.5.3.R)
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 06 May 2001
10:29:56 -0400
Date: Sun, 06 May 2001 10:29:13 -0400
From: Anthony George <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] MIME::Base64 nmake install problems
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
MIME-Version: 1.0
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
X-Mailer: Becky! ver. 2.00.05
X-MDRemoteIP: 208.18.226.100
X-Return-Path: [EMAIL PROTECTED]
X-MDaemon-Deliver-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.5
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/>
ppm install MIME-Base64
On Sat, 05 May 2001 21:09:43 -0700
Jeremy Aiyadurai <[EMAIL PROTECTED]> wrote:
> Hello all,
>
> thank you for your help in the past
>
> I want to use www.Jeb.ca's win32::gui::bitmapinline module, but it say's i
> need
> MIME-Base64.
>
> I have activestate perl version 5.6.
>
> I get the following error on the nmake install.
>
> ##
> E:\productivity\perl\MIME-Base64-2.12.tar\MIME-Base64-2.12\MIME-Base64-2.12>
> nmak
> e install
>
> Microsoft (R) Program Maintenance Utility Version 1.50
> Copyright (c) Microsoft Corp 1988-94. All rights reserved.
>
> cl -c -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
> -DHAVE_DES_FCRYPT
> -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1 -MD
> -DNDE
> BUG -DVERSION=\"2.12\" -DXS_VERSION=\"2.12\"
> -IE:\productivity\perl\lib\C
> ORE Base64.c
> 'cl' is not recognized as an internal or external command,
> operable program or batch file.
> NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
> Stop.
> ##
>
> your help is always appreciated
>
> Jeremy A
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
--
Anthony George <[EMAIL PROTECTED]>
From [EMAIL PROTECTED] Thu May 03 13:50:05 2001
Received: from terausinc02.erols.com ([208.58.135.114] helo=server.tera-us.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14vQ32-0001Xe-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 03 May 2001
13:50:04 -0700
Received: by SERVER with Internet Mail Service (5.5.2650.21)
id <KDGXM8HV>; Thu, 3 May 2001 16:52:15 -0400
Message-ID: <[EMAIL PROTECTED]>
From: Piet De Jong <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 3 May 2001 16:52:07 -0400
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C0D412.EE94A916"
Subject: [perl-win32-gui-users] Using GetOpenFileName
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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_01C0D412.EE94A916
Content-Type: text/plain;
charset="iso-8859-1"
Hi
I want to be able to show a dialog box with just a directory listing.
Can I pass any parameters to the function GetOpenFileName to only show
information relative to directories
return the selected directory ?
Or is there a different function that I need to use ?
Many thanks,
Piet
------_=_NextPart_001_01C0D412.EE94A916
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>Using GetOpenFileName</TITLE>
</HEAD>
<BODY>
<BR>
<P><FONT SIZE=3D2 FACE=3D"Arial">Hi </FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">I want to be able to show a dialog =
box with just a directory listing.</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Can I pass any parameters to the =
function GetOpenFileName to only show information relative to =
directories </FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">return the selected directory =
?</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Or is there a different function that =
I need to use ?</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Many thanks,</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">Piet</FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C0D412.EE94A916--
From [EMAIL PROTECTED] Sun May 06 20:00:48 2001
Received: from tomts6.bellnexxia.net ([209.226.175.26]
helo=tomts6-srv.bellnexxia.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wbGS-0007jq-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 06 May 2001
20:00:48 -0700
Received: from j ([64.230.209.56]) by tomts6-srv.bellnexxia.net
(InterMail vM.4.01.03.16 201-229-121-116-20010115) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Sun, 6 May 2001 23:00:41 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Erick Bourgeois" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Using GetOpenFileName
Date: Sun, 6 May 2001 22:59:49 -0400
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.6600
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
Using GetOpenFileName$dir_path = Win32::GUI::BrowseForFolder(
-title => "Choose a directory:",
);
Piet De Jong wrote:
| Hi
| I want to be able to show a dialog box with just a directory listing.
| Can I pass any parameters to the function GetOpenFileName to only show
information relative to directories
| return the selected directory ?
| Or is there a different function that I need to use ?
| Many thanks,
| Piet
From [EMAIL PROTECTED] Sun May 06 20:42:48 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14wbv5-0004Tj-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 06 May 2001
20:42:48 -0700
Received: from jpllaptop.bosscasinos.com (205.160.233.247)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
04:36:18 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Sun, 06 May 2001 23:39:52 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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 wrote:
>Anyone have any idea of things I have to think about if I want to try to
>implement a drag-n-drop feature? I have already found the correct set of
>functions and messages in the Win32 Reference.
Ok, so I managed to tell a window to accept files dragged from the Explorer
with the DragAcceptFiles() function (from the shell32.dll).
When I drag the mouse over the window, the mouse pointer changes. When I
drop, the window is sent a WM_DROPFILES event.
My problem now is how I should capture this event.
Naive first try: timer which triggers really often. In the event handler I
call
$myWindow->PeekMessage(WM_DROPFILES, WM_DROPFILES)
and if it returns true, I call
$myWindow->GetMessage(WM_DROPFILES, WM_DROPFILES)
That works like one in ten times or something. Clearly not the way to go.
So, any better way of detecting the WM_DROPFILES event?
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Sun May 06 22:04:25 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14wdC5-0007SM-00
for <perl-win32-gui-users@lists.sourceforge.net>; Sun, 06 May 2001
22:04:25 -0700
Received: from jpllaptop.bosscasinos.com (205.160.233.247)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
05:57:56 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 07 May 2001 01:01:19 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Model-View-Controller (MVC) with
Win32::GUI?
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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/>
Peter wrote:
>has anyone an approach how to use Win32::GUI with the Model-View-Controller
>(MVC) principle? Or if that would be impossible: What would be the best way
>to separate business code and gui?
In a previous Win32::GUI app I provided both a CLI and a GUI interface.
I used one class for the actual application/business logic, one base class
for the abstract UI and one subclass each for the CLI and the GUI interface
(that is basically a variation of the Model-View-Controller pattern with
the View and Controller merged).
The interfaces between the app/GUI-classes had to evolve a lot during
implementation since I didn't anticipate many of the interactions between
the app and the UI. An interesting observation is that the actual business
logic was kind of small compared to the UI code.
I designed the UI subclass for Win32::GUI as a singleton to avoid all the
global vars. Ideally I would like to see the option of subclassing e.g.
Win32::GUI::Window and have the event methods called as methods on that
object instead; the singleton is really just a workaround for that.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon May 07 00:24:33 2001
Received: from gorilla.mchh.siemens.de ([194.138.158.18])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wfKm-000415-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
00:21:32 -0700
Received: from moody.mchh.siemens.de (mail2.mchh.siemens.de [194.138.158.226])
by gorilla.mchh.siemens.de (8.9.3/8.9.3) with ESMTP id JAA10057
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
09:18:25 +0200 (MET DST)
Received: from mchh273e.demchh201e.icn.siemens.de ([139.21.200.83])
by moody.mchh.siemens.de (8.9.1/8.9.1) with ESMTP id JAA00338
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
09:18:26 +0200 (MET DST)
Received: by MCHH273E with Internet Mail Service (5.5.2653.19)
id <JWJHT6PA>; Mon, 7 May 2001 09:18:26 +0200
Message-ID: <[EMAIL PROTECTED]>
From: Hedemann Henrik <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Using GetOpenFileName
Date: Mon, 7 May 2001 09:18:16 +0200
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.5
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, Piet!
You might try this subsequent code for your purpose.
I've taken one of the files of the examples and changed
it for the purpose ot this widget.
Henrik Hedemann
################################################
# dirselect #
################################################
# usage $path=dirselect($title); #
# selects a directory from WinNT system and #
# returns it. #
#
sub dirselect {
my $title=shift;
my ($i,$ans,$drive,$hashkey);
my (@drvs,@dirs);
$Window = new GUI::Window(
-name => "widgets::Window",
-title => "Dirselect: $title",
-height => 430,
-width => 265,
-left => 100,
-top => 100,
);
$TV = $Window->AddTreeView(
-name => "widgets::Tree",
-text => "hello world!",
-width=> $Window->ScaleWidth,
-height=> $Window->ScaleHeight-100,
-left => 0,
-top => 0,
-lines => 1,
-rootlines => 1,
-buttons => 1,
-visible => 1,
);
$Wlabel=$Window->AddLabel(-text=>"Selected:",
-left=>10,
-top=>350);
$Wtext=$Window->AddTextfield(-name=>"widgets::Selected",
-left=>70,
-top=>350,
-height=>20,
-width=>260);
$Waccept=$Window->AddButton(-text =>"Accept",
-left =>10,
-top =>380,
-height=>20,
-name =>"widgets::Wacc");
$Wdismiss=$Window->AddButton(-text =>"Dismiss",
-left =>260,
-top =>380,
-height=>20,
-name =>"widgets::Wdis");
$hashkey="\\";
$tree{$hashkey} = $TV->
InsertItem(-text => "\\",
-item => 0,
);
$key[$tree{$hashkey}]=$hashkey;
for($i=0;$i<=24;$i++){
$ans=chr(ord('C')+$i);
$drive=$ans.":\\";
if (-d "$drive/"){
$tree{$drive}=
$TV->InsertItem(-parent => $tree{"\\"},
-text => "$ans");
$key[$tree{$drive}]=$drive;
push(@drvs, $drive);
}
}
foreach $drive (@drvs) {
opendir(DIR, $drive);
undef @dirs;
foreach $i (readdir(DIR)) {
if ((-d "$drive/$i" )&&
($i ne "..") &&
($i ne ".")) {
push (@dirs, $i);
}
}
closedir(DIR);
foreach($i=0;$i<=$#dirs;$i++) {
$hashkey=$drive.$dirs[$i]."\\";
$tree{$hashkey}=$TV->
InsertItem(-parent => $tree{$drive},
-text => "$dirs[$i]");
$key[$tree{$hashkey}]=$hashkey;
}
}
$Window->Show();
Win32::GUI::Dialog();
$path=$Wtext->Text();
return $path;
}
sub Wacc_Click {
undef(@tree);
undef(@key);
$Window->Hide();
return -1;
}
sub Wdis_Click {
undef(@tree);
undef(@key);
$Window->Hide();
$path="";
return -1;
}
sub Window_Terminate {
undef(@key);
undef(@tree);
$Window->Hide();
$Wtext->Text("");
$Window->PostQuitMessage(0);
}
sub Window_Resize {
my $w=$Window->ScaleWidth;
my $h=$Window->ScaleHeight;
$TV->Resize($w,$h-100);
$Wlabel->Move(10,$h-70);
$Wtext->Move(70,$h-70);
$Wtext->Resize($w-90,20);
$Waccept->Move(10,$h-40);
$Wdismiss->Move($w-90,$h-40);
}
sub Tree_NodeClick {
my %node = $TV->GetItem($_[0]);
$path=$key[$_[0]];
if ($path ne "\\") {
$Wtext->Text($path);
}else {
$Wtext->Text("");
}
return 1;
}
sub Tree_Expand {
my %node = $TV->GetItem($_[0]);
my ($hk,$sd);
my @sds;
$path=$key[$_[0]];
if ($path ne "\\") {
opendir(DIR, $path);
foreach $i (readdir(DIR)) {
if ((-d $path.$i )&&
($i ne "..") &&
($i ne ".")) {
$sd=$path.$i."\\";
opendir(SDIR, $sd);
undef @sds;
foreach $j (readdir(SDIR)) {
if ((-d $sd.$j )&&
($j ne "..") &&
($j ne ".")) {
push (@sds, $j);
}
}
closedir(SDIR);
for($j=0;$j<=$#sds;$j++) {
$hk=$sd.$sds[$j]."\\";
if (!($key[$tree{$hk}])) {
$tree{$hk}=$TV->
InsertItem(-parent =>$tree{$sd},
-text =>"$sds[$j]");
$key[$tree{$hk}]=$hk;
}
}
}
}
closedir(DIR);
}
return 1;
}
sub Tree_Collapse {
my %node = $TV->GetItem($_[0]);
$path=$key[$_[0]];
return 1;
}
################################################
# end: dirselect #
################################################
> -----Original Message-----
> From: Piet De Jong [SMTP:[EMAIL PROTECTED]
> Sent: Thursday, May 03, 2001 10:52 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: [perl-win32-gui-users] Using GetOpenFileName
>
>
> Hi
> I want to be able to show a dialog box with just a directory listing.
>
> Can I pass any parameters to the function GetOpenFileName to only show
> information relative to directories
> return the selected directory ?
>
> Or is there a different function that I need to use ?
>
> Many thanks,
> Piet
>
From [EMAIL PROTECTED] Mon May 07 07:28:40 2001
Received: from imo-d04.mx.aol.com ([205.188.157.36])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wm07-0000DS-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
07:28:39 -0700
Received: from [EMAIL PROTECTED]
by imo-d04.mx.aol.com (mail_out_v30.10.) id 6.33.14930f9c (15891)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
10:28:28 -0400 (EDT)
Received: from web38.aolmail.aol.com (web38.aolmail.aol.com [205.188.222.14])
by air-id08.mx.aol.com (v77_r1.37) with ESMTP; Mon, 07 May 2001 10:28:27 -0400
Date: Mon, 07 May 2001 10:28:27 EDT
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
To: <perl-win32-gui-users@lists.sourceforge.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Mailer: Unknown (No Version)
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.5
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/>
In all likelihood, your best bet is to subclass the window you want it to ac=
cept the files, then filter for the appropriate message. I can dig up some M=
SKB articles on it if you'd like.
Dave
In a message dated Sun, 6 May 2001 11:47:29 PM Eastern Daylight Time, Johan=20=
Lindstrom <[EMAIL PROTECTED]> writes:
<< I wrote:
>Anyone have any idea of things I have to think about if I want to try to=20
>implement a drag-n-drop feature? I have already found the correct set of=20
>functions and messages in the Win32 Reference.
Ok, so I managed to tell a window to accept files dragged from the Explorer=20
with the DragAcceptFiles() function (from the shell32.dll).
When I drag the mouse over the window, the mouse pointer changes. When I=20
drop, the window is sent a WM_DROPFILES event.
My problem now is how I should capture this event.
Naive first try: timer which triggers really often. In the event handler I=20
call
$myWindow->PeekMessage(WM_DROPFILES, WM_DROPFILES)
and if it returns true, I call
$myWindow->GetMessage(WM_DROPFILES, WM_DROPFILES)
That works like one in ten times or something. Clearly not the way to go.
So, any better way of detecting the WM_DROPFILES event?
/J
--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
[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 May 07 09:47:49 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 14woAm-0003vf-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
09:47:48 -0700
Received: (qmail 11475 invoked from network); 7 May 2001 16:47:36 -0000
Received: from unknown (HELO livin) ([213.224.225.146]) (envelope-sender
<[EMAIL PROTECTED]>)
by hercules.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 7 May 2001 16:47:36
-0000
Date: Tue, 8 May 2001 18:48:54 +0200
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] Win32::Print ?
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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'm resending this since there wasn't any reply about this topic..
althought it still would be interresting for many of our
perlmongers.
is there already any module for printing out graphical data..
i'm trying to make a little catalog, and to print it out via
win32::gui .. but i can't find a solid solution
i'm NOT willing to export data to PDF or HTML and afterwards print
it.
I thought of a solution whereby you could preformat your text &
images, and than output it to the printer spool.
Although i have no idea to realize it :) I'm basing myself on the
system that is being used by Waty Tierry is using in VB 5 or 6.
Could we maybe port this to perl win32::gui or make use of his
system ?
as reference; the adress of the printpreview OCX..
http://www.vbdiamond.com/Products/PrintPreview/PrintPreview.asp
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 May 07 10:16:04 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14woc8-0007UK-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
10:16:04 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <KNLRJLQM>; Mon, 7 May 2001 10:15:48 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Win32::Print ?
Date: Mon, 7 May 2001 10:15:47 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.5
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 thought of a solution whereby you could preformat your text &
| images, and than output it to the printer spool.
The only thing I can contribute to this is my rather unpleasant experience
with printing graphical data in windows (GDI, not any specific language). I
tried to open a bitmap (paper size in 300 dpi, 1 bps = 1 lousy MB), write
and draw into it and then just give it to the printer driver. It turned out
that most printer drivers just refuse to handle it. The ugly workaround was
to convert the bitmap to PCL code and copy that file to the printer port,
bypassing the driver. Which, of course, restricts you to PCL printers. I
hated it.
It seems that other programs slice the bitmap and pass several stripes to
the printer driver, but I tried this and it still mangled up the picture.
Having to keep a deadline, I just took the creepy hack with the PCL and
never wanted to think about it again. I might ad that it was way back,
Win3.1 and later Win95.
My point is, it might not be as easy as you would like it to be.
Have fun,
Harald
From [EMAIL PROTECTED] Mon May 07 13:07:15 2001
Received: from tartarus.telenet-ops.be ([195.130.132.34] helo=smtp2.pandora.be)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14wrHg-0007wB-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
13:07:09 -0700
Received: (qmail 29544 invoked from network); 7 May 2001 20:06:54 -0000
Received: from unknown (HELO livin) ([213.224.225.146]) (envelope-sender
<[EMAIL PROTECTED]>)
by tartarus.telenet-ops.be (qmail-ldap-1.03) with SMTP
for <perl-win32-gui-users@lists.sourceforge.net>; 7 May 2001 20:06:54
-0000
Date: Tue, 8 May 2001 22:08:18 +0200
From: Danny Zak <[EMAIL PROTECTED]>
X-Mailer: The Bat! (v1.49) UNREG / CD5BF9353B3B7091
Organization: Europictures
X-Priority: 3 (Normal)
Message-ID: <[EMAIL PROTECTED]>
To: "Piske, Harald" <perl-win32-gui-users@lists.sourceforge.net>
Subject: Re[2]: [perl-win32-gui-users] Win32::Print ?
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.5
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 Harald,
I see.. well the system that is being used in the OCX is more
flexible.. it offers the possibility to write or preformat your
page in the spool memory by using simple commands, just like you
are outputting it to the screen, you need to paramater x and y
locations. Afterwards it is printed to any (in windows
installed) printer device. Printing images (read :
pre-formating) aren't giving any problems.
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
-------------------------------------------------------------------
Monday, May 07, 2001, 7:15:47 PM, you wrote:
PH> | I thought of a solution whereby you could preformat your text &
PH> | images, and than output it to the printer spool.
PH> The only thing I can contribute to this is my rather unpleasant experience
PH> with printing graphical data in windows (GDI, not any specific language). I
PH> tried to open a bitmap (paper size in 300 dpi, 1 bps = 1 lousy MB), write
PH> and draw into it and then just give it to the printer driver. It turned out
PH> that most printer drivers just refuse to handle it. The ugly workaround was
PH> to convert the bitmap to PCL code and copy that file to the printer port,
PH> bypassing the driver. Which, of course, restricts you to PCL printers. I
PH> hated it.
PH> It seems that other programs slice the bitmap and pass several stripes to
PH> the printer driver, but I tried this and it still mangled up the picture.
PH> Having to keep a deadline, I just took the creepy hack with the PCL and
PH> never wanted to think about it again. I might ad that it was way back,
PH> Win3.1 and later Win95.
PH> My point is, it might not be as easy as you would like it to be.
PH> Have fun,
PH> Harald
PH> _______________________________________________
PH> Perl-Win32-GUI-Users mailing list
PH> Perl-Win32-GUI-Users@lists.sourceforge.net
PH> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
From [EMAIL PROTECTED] Mon May 07 13:30:40 2001
Received: from panoramix.valinux.com ([198.186.202.147] helo=mail2.valinux.com)
by usw-sf-list1.sourceforge.net with esmtp
(Cipher TLSv1:DES-CBC3-SHA:168) (Exim 3.22 #1 (Debian))
id 14wreR-00039E-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
13:30:39 -0700
Received: from [209.88.65.6] (helo=mail)
by mail2.valinux.com with smtp (Exim 3.22 #1 (Debian))
id 14wreP-0007tA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
13:30:37 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
21:23:22 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Mon, 07 May 2001 16:27:00 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Win32::Print ?
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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 wrote:
> I see.. well the system that is being used in the OCX is more
> flexible.. it offers the possibility to write or preformat your
Win32::OLE can do ActiveX/OLE stuff. But according to the POD it doesn't
yet support OCX-controls, so you may be out of luck. I think that's the
only existing module that does what you need.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Mon May 07 13:48:49 2001
Received: from imo-d04.mx.aol.com ([205.188.157.36])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14wrw1-0005WK-00
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 07 May 2001
13:48:49 -0700
Received: from [EMAIL PROTECTED]
by imo-d04.mx.aol.com (mail_out_v30.10.) id 6.25.14f17d9b (5708)
for <perl-win32-gui-users@lists.sourceforge.net>; Mon, 7 May 2001
16:48:39 -0400 (EDT)
Received: from web47.aolmail.aol.com (web47.aolmail.aol.com [205.188.161.8])
by air-id04.mx.aol.com (v78.38) with ESMTP; Mon, 07 May 2001 16:48:39 -0400
Date: Mon, 07 May 2001 16:48:39 EDT
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] Win32::Print ?
To: <perl-win32-gui-users@lists.sourceforge.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Mailer: Unknown (No Version)
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.5
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/>
Yup, probably a 95% chance that implementing OCX support is way too much tro=
uble for anyone to bother with in the immediate future... Your best bet is t=
o find a dll that does the equivilant.
Dave, the ever-wary of COM.
<< Danny wrote:
> I see.. well the system that is being used in the OCX is more
> flexible.. it offers the possibility to write or preformat your
Win32::OLE can do ActiveX/OLE stuff. But according to the POD it doesn't=20
yet support OCX-controls, so you may be out of luck. I think that's the=20
only existing module that does what you need.
/J
--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
[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] Tue May 08 05:59:39 2001
Received: from nat208239159248.amp.com ([208.239.159.248]
helo=us038mx00.amp.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14x75W-0006vn-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
05:59:39 -0700
Received: from ammex001.amp.com ([163.241.175.7]) by us038mx00.amp.com with
SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
id KQCJ19Y2; Tue, 8 May 2001 08:59:30 -0400
Received: by ammex001.amp.com with Internet Mail Service (5.5.2653.19)
id <KGZTZJFY>; Tue, 8 May 2001 08:59:28 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Bullock, Howard A." <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Tue, 8 May 2001 08:59:22 -0400
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] DrWatson build 623 mod:558 W2k Pro
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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 am attempting to use "Win32-GUI-PPM-5.6 0.0.558 January 31, 2001" from
http://sourceforge.net/projects/perl-win32-gui on ActiveState Perl build
623.
In order to learn how to use it, I have attempted to execute a script found
on Jenda's site: http://jenda.krynicky.cz/perl/dbgrid.pl.txt.
The line shown below causes a fatal error and Perl closes.
$Status = new GUI::StatusBar($W,
-text => " ",
-width => $W->ScaleWidth,
);
Based on the DrWatson log, strcpy seems to be problem function.
I remove the Win32-GUI listed above and reinstalled the package from
ActiveState's PPM repository. The script continues to generate the error.
Can anyone shed some light on this for me? Is this a known issue with this
this module version and build 623 or W2K?
Howard A. Bullock, MCSE
Global IT Infrastructure
Tyco Electronics
Voice: 717-810-3584
From [EMAIL PROTECTED] Tue May 08 08:48:19 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14x9il-0000O9-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
08:48:19 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <KNLRJSNP>; Tue, 8 May 2001 08:48:04 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro
Date: Tue, 8 May 2001 08:48:03 -0700
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.5
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 can confirm the behavior, but the real problem is a bug in the script, not
in GUI:
*EVERY* GUI object needs a unique name. Add -name => options to both the
statusbar and the progressbar below it and the script starts up.
| -----Original Message-----
| From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]
[...]
| The line shown below causes a fatal error and Perl closes.
|
| $Status = new GUI::StatusBar($W,
| -text => " ",
| -width => $W->ScaleWidth,
| );
From [EMAIL PROTECTED] Tue May 08 09:01:44 2001
Received: from nat012026084095.amp.com ([12.26.84.95] helo=us194mx00.amp.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14x9vj-0002Ul-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
09:01:43 -0700
Received: from ammex001.amp.com ([163.241.175.7]) by us194mx00.amp.com with
SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
id KPKHQ0YT; Tue, 8 May 2001 12:01:02 -0400
Received: by ammex001.amp.com with Internet Mail Service (5.5.2653.19)
id <KGZT5FSV>; Tue, 8 May 2001 12:00:21 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Bullock, Howard A." <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro
Date: Tue, 8 May 2001 12:00:14 -0400
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.5
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 for the help in understanding the issue. Now on to testing and
learning how use this module...
-----Original Message-----
From: Piske, Harald [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 08, 2001 11:48 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro
I can confirm the behavior, but the real problem is a bug in the script, not
in GUI:
*EVERY* GUI object needs a unique name. Add -name => options to both the
statusbar and the progressbar below it and the script starts up.
| -----Original Message-----
| From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]
[...]
| The line shown below causes a fatal error and Perl closes.
|
| $Status = new GUI::StatusBar($W,
| -text => " ",
| -width => $W->ScaleWidth,
| );
_______________________________________________
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 May 08 21:29:37 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14xLbU-0001h8-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
21:29:36 -0700
Received: from jpllaptop.bosscasinos.com (205.160.233.247)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 9 May 2001
05:23:00 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Wed, 09 May 2001 00:17:34 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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/>
Dave wrote:
>In all likelihood, your best bet is to subclass the window you want it to
>accept the files, then filter for the appropriate message. I can dig up
>some MSKB articles on it if you'd like.
Um... are we talking subclassing using the Win32::GUI::Class here?
After having looked through the XS code, I haven't found any way to change
which messages are handled, except for the "predefined" classes with their
own MsgLoops.
Well... there is this %Win32::GUI::callbacks hash, but I still haven't
figured out if I can get it to work with the WM_DROPFILES event.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Tue May 08 22:30:26 2001
Received: from deviet-f.a2000.nl ([62.108.1.240] helo=smtp3.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xMYL-0007Fa-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
22:30:25 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp3.a2000.nl with esmtp (Exim 2.05 #7)
id 14xMYF-0005hj-00
for perl-win32-gui-users@lists.sourceforge.net; Wed, 9 May 2001
07:30:24 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Wed, 09 May 2001 07:30:16 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] Hello!
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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,
Glad I found this list! And since you'll all be seeing more of me, I thought
I'd give a short intro of myself.
I was born and raised in the Netherlands - and very nearly moved to the US but
that won't happen now that my employer has been taken over by another company,
so I'll stay in beautiful Amsterdam.
I've been working in IT for many years, different functions, but whatever I do,
I still like coding, so if it isn't part of my job, I'll do it in my own time
(or both) ;-) I've used many languages, and though at present my Perl is at an
intermediate level, it helps that a number of years ago I write a fairly
extensive toolset in AWK. (It also sometimes confuses me :) That toolset was to
support Clarion programmers; a while later I set out to make "wrappers" round
many Win32 GUI functions since while Clarion for Windows was easy to use, it
also shielded you from a lot of functionality. That was never finished due to
lack of time; but looking at the Win32::GUI package now I can imagine the
amount of work that went into it - and admire a job well done!
Yes, I know it's incomplete, there are holes in the documentation, and some
things don't work right yet - it's still a fantastic job. And fun to work with.
Right now I'm working on a biggish project in my own time again - wanting to
parse XML DTDs (with the aim of generating files based on the information), and
using Win32::GUI to build a Wizard-like user interface to drive the process.
Both the parsing and the GUI take a lot of learning how to use it at this
point, so I'm alternating between the two.
That should give you a little background, and context for the questions,
suggestions and workarounds I'll come up with!
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Tue May 08 22:44:46 2001
Received: from deviet-f.a2000.nl ([62.108.1.240] helo=smtp3.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xMmD-0008Vi-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
22:44:45 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp3.a2000.nl with esmtp (Exim 2.05 #7)
id 14xMmD-0005zW-00
for perl-win32-gui-users@lists.sourceforge.net; Wed, 9 May 2001
07:44:45 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Wed, 09 May 2001 07:44:42 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] Regions in statusbar? (was: DrWatson build 623
mod:558 W2k Pro)
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
Talking about status bars - while I have no problem creating a status bar and
mn aking it resize with the main window, I wondered if it's possible to create
one with different regions. I could really use that since I have different
pieces of information I need to show (filename, state, ...)
Anyone?
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Tue May 08 23:17:28 2001
Received: from deviet-f.a2000.nl ([62.108.1.240] helo=smtp3.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xNHr-000227-00
for <perl-win32-gui-users@lists.sourceforge.net>; Tue, 08 May 2001
23:17:28 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp3.a2000.nl with esmtp (Exim 2.05 #7)
id 14xNHq-0006fy-00
for perl-win32-gui-users@lists.sourceforge.net; Wed, 9 May 2001
08:17:26 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Wed, 09 May 2001 08:17:23 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] Font size - problems and workaround
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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'vew been running into problems getting and setting correct font sizes.
Since I'm new to this list, I searched the archives, but could find no
reference. What I did find was a problem with GetTextExtentPoint32( STRING,
[FONT] ) reported to always deliver values that were too large. I didn't
investigate, but it might be related to what I'm seeing.
I don't know if it's platform dependent (I'm working on Win2000 SP1) but I hope
not: if so, my workaround would not work on other platfoms (Win95/98/ME?).
The first thing I noticed was then when I create a Textfield and set the font
size for it, the fiont size ended up actually smaller than what I specified.
Other weird things happened too.
So, making a variation on the example program found with the package, I started
to experiment and found a number of interlocking problems. Here's a summary:
- To ceate a font, there are both size and height attributes. Both should set
the font size in points (I think).
- When using a font size for a control, it turns out too small
- When using the Font dialog, both size and height are returned as output; but
both are incorrect: size is size as specified in the dialog - only 10 times
larger; height is repirted as a negative number, but even the absolute value is
too large.
It took a bit of trial and error to figure out what "too small" and "too large"
actually meant but looking at the numbers I got a sudden hunch: screens are
often assumed to be 72 pixels per inch - but for PCs that is actually (supposed
to be) 96 pixels per inch. Guess what: the proportion 96/72 fit exactly the too
large/too small values I was experiencing.
My workarounds:
- To specify a font size for a control, multiply by 96/72 and round up to the
nearest integer
- If output from a Font dialog is to be used to change the font size for a
control, *delete* the size attribute (it's 10 x too large) and take the
absolute value of the reported height attribute (still too large inreal terms,
but that has the 96/72 "correction" already built in).
Examples using the workarounds:
#create a Font to use in a control:
$fontsize = 8; # intended size
$fontsize = int($fontsize*(96/72)+0.5); # workaround for specifying size
$fontname = "Lucida console";
#print "fudged font size: $fontsize \n";
$dispFont = new Win32::GUI::Font(
-name => $fontname,
-size => $fontsize,
);
#now use it:
$W->AddTextfield(
-name => "dispDtdFile",
-multiline => 1,
-vscroll => 1,
-hscroll => 1,
-top => $titleheight+2*$pad,
-left => $lblleft,
-width => $w-2*$pad,
-height => $th-2*$btnvspace,
-font => $dispFont,
-background => $txtback,
-foreground => $txtfore, # try if we can color it
);
#Change font size for the control (a button "Font..." calls up the Font dialog):
sub btnFont_Click {
my $key = ();
$W->Disable(); # disable window before showing
font dialog
# --- current font ----------------------
my $hcurFont = $W->dispDtdFile->GetFont();
my %fontdetails = Win32::GUI::Font::Info($hcurFont);
# --- choose font -----------------------
my @newFont = Win32::GUI::ChooseFont(%fontdetails);
%fontdetails = @newFont;
# --- create new font -----------------------
# make -height positive and delete -size to create "corrected" input for
creating new font
$fontdetails{"-height"} = abs($fontdetails{"-height"});
delete $fontdetails{"-size"};
# --- apply font -----------------------
# create new font object with these parameters
my $newFontObj = new Win32::GUI::Font(%fontdetails);
$dispFont = $newFontObj; # redefine global font object;
$newFontObj gets destroyed
$W->dispDtdFile->SetFont($dispFont); # undocumented method!!!
$W->dispDtdFile->Hide(); # force repaint
$W->Enable();
$W->SetForegroundWindow();
show_controls();
}
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Wed May 09 03:44:53 2001
Received: from deviet-f.a2000.nl ([62.108.1.240] helo=smtp3.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xRSe-0006cY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
03:44:52 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp3.a2000.nl with esmtp (Exim 2.05 #7)
id 14xQ9Z-0004YM-00
for perl-win32-gui-users@lists.sourceforge.net; Wed, 9 May 2001
11:21:05 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Wed, 09 May 2001 11:17:02 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
Subject: RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro
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.5
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's what I'm using:
# -- define window layout -------------
my $W = new GUI::Window(
-name => "MainDialog",
-title => "Marjolein's XML DTD Parser v0.0.1",
-left => $xposinit,
-top => $yposinit,
-width => $winwidth,
-height => $winheight,
-minsize => $minsize,
);
my $w = $W->ScaleWidth;
my $h = $W->ScaleHeight;
# -- set window icon ------------------
my $I = new Win32::GUI::Icon("hsh.ico");
$W->SetIcon($I);
# Main window -------------------------
my $SB = $W->AddStatusBar(
-name => "Status",
-text => "Ready"
);
my $statheight = $SB->Height;
[... and later on ...]
# NOTE: this is always called on init of a resizable window!
sub MainDialog_Resize {
$w = $W->ScaleWidth;
$h = $W->ScaleHeight;
$SB->Move(0, $h - $statheight);
$SB->Resize($w, $statheight);
[...]
}
At 12:00 2001-05-08 -0400, you wrote:
>Thanks for the help in understanding the issue. Now on to testing and
>learning how use this module...
>
>[snip]
>| -----Original Message-----
>| From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]
>[...]
>| The line shown below causes a fatal error and Perl closes.
>|
>| $Status = new GUI::StatusBar($W,
>| -text => " ",
>| -width => $W->ScaleWidth,
>| );
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Wed May 09 03:44:54 2001
Received: from deviet-f.a2000.nl ([62.108.1.240] helo=smtp3.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xRSg-0006cY-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
03:44:54 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp3.a2000.nl with esmtp (Exim 2.05 #7)
id 14xQUc-0005U0-00
for perl-win32-gui-users@lists.sourceforge.net; Wed, 9 May 2001
11:42:50 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Wed, 09 May 2001 11:41:28 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Subject: [perl-win32-gui-users] Using system colors
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
How do I get at the system colors? I found a string of COLOR_ names in GUI.pm,
and I'm trying to use this:
$color = Win32::GUI::constant("COLOR_BTNSHADOW", 0);
However, this seems to return only the *index* to that particular color, not
the color itself. Is there an interface to GetSysColor() that I can use?
(I'm drawing a separator line, and want to use the user's shadow and highlight
colors for that.)
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Wed May 09 04:35:08 2001
Received: from piroga.fortalnet.com.br ([200.253.251.19])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xSFG-0000zy-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
04:35:06 -0700
Received: from biga (ps7.S9.fortalnet.com.br [200.253.182.202])
by piroga.fortalnet.com.br (8.9.3/8.9.3) with SMTP id IAA18935
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 9 May 2001
08:32:57 -0300
From: "Glenn W Munroe" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 9 May 2001 08:34:15 -0300
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.4522.1200
Subject: [perl-win32-gui-users] ListView checkbox
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
Can anybody tell me how to set the initial state of a ListView checkbox?
I know I can test the state with the ItemCheck method, but what about
setting it? I tried setting a "checked" option, but that didn't work:
my $item = $mw->ListView->InsertItem(
-item => $mw->ListView->Count(),
-text => "Name",
-checked => 1,
);
Thanks in advance for any help.
Glenn Munroe
From [EMAIL PROTECTED] Wed May 09 10:14:33 2001
Received: from imo-m06.mx.aol.com ([64.12.136.161])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xXXl-00061c-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
10:14:33 -0700
Received: from [EMAIL PROTECTED]
by imo-m06.mx.aol.com (mail_out_v30.10.) id 6.10.c93d3d4 (15892)
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 9 May 2001
13:14:24 -0400 (EDT)
Received: from web46.aolmail.aol.com (web46.aolmail.aol.com [205.188.161.7])
by air-id08.mx.aol.com (v77_r1.37) with ESMTP; Wed, 09 May 2001 13:14:24 -0400
Date: Wed, 09 May 2001 13:14:24 EDT
From: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
To: <perl-win32-gui-users@lists.sourceforge.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Mailer: Unknown (No Version)
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.5
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/>
Eh, no... I was actually thinking pure SetWindowCapture stuff. Haven't done=20=
it in the while, but that's how we used to do it in VB.
Dave
In a message dated Wed, 9 May 2001 12:43:06 AM Eastern Daylight Time, Johan=20=
Lindstrom <[EMAIL PROTECTED]> writes:
<< Dave wrote:
>In all likelihood, your best bet is to subclass the window you want it to=20
>accept the files, then filter for the appropriate message. I can dig up=20
>some MSKB articles on it if you'd like.
Um... are we talking subclassing using the Win32::GUI::Class here?
After having looked through the XS code, I haven't found any way to change=20
which messages are handled, except for the "predefined" classes with their=20
own MsgLoops.
Well... there is this %Win32::GUI::callbacks hash, but I still haven't=20
figured out if I can get it to work with the WM_DROPFILES event.
/J
--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
[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 May 09 10:24:50 2001
Received: from nat208239159248.amp.com ([208.239.159.248]
helo=us038mx00.amp.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xXhh-00081u-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
10:24:49 -0700
Received: from ammex001.amp.com ([163.241.175.7]) by us038mx00.amp.com with
SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
id KS1GZM3G; Wed, 9 May 2001 13:24:23 -0400
Received: by ammex001.amp.com with Internet Mail Service (5.5.2653.19)
id <KGZT9GGV>; Wed, 9 May 2001 13:24:21 -0400
Message-ID: <[EMAIL PROTECTED]>
From: "Bullock, Howard A." <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 9 May 2001 13:24:13 -0400
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: text/plain
Subject: [perl-win32-gui-users] Displaying DB data
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
Can some point to more documentation and/or sample scripts that display
multi-row and multi-column data than
http://jenda.krynicky.cz/perl/dbgrid.pl.txt as a sample; The grid does not
display for me. Instead I get small boxes with one or two characters in
each, 11 boxes per line.
I found Win32::GUI::GridLayout as part of the Win32::GUI package but can't
quite figure out what to do with it. The above script listed above is
supposed to provide a grid display using:
$LV->InsertColumn(-index => 0,-width => 150, -text => "Row#");
@Cols = $db->FieldNames();
$lastcol=$#Cols;
for($i=1;$i<=$lastcol;$i++) {
$columname=$Cols[$i];
$LV->InsertColumn(-index => $i, -width => 200, -text => $columname);
}
Where does Win32::GUI::GridLayout fit into he picture? Any sample or
additional links would be appreciated.
From [EMAIL PROTECTED] Wed May 09 11:56:32 2001
Received: from duck.a2000.nl ([62.108.1.88] helo=smtp2.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xZ8R-0000PA-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
11:56:31 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp2.a2000.nl with esmtp (Exim 2.02 #4)
id 14xZ8O-0006VI-00
for perl-win32-gui-users@lists.sourceforge.net; Wed, 9 May 2001
20:56:28 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Wed, 09 May 2001 20:56:28 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Displaying DB data
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.5
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 played with GridLayout a little. The way I understand it, it is to lay out
controls on a window. Took me a while to figure out what was happening.
For instance: define a grid of 4 rows by 8 columns. Then put a button in the
last row and last column (and noting else in that row): you'll get 8 columns
all the width of that button - unless another row has a control that's wider,
and then you'll get 8 columns all the width of *that* control. It seems to try
to make all cells the same width and the same height: add anotehr control and
everything rearranges itself. Combined with a Window (resizable) rather than a
Dialog (fixed size), it can be pretty hard to get a reasonable layout.
Anyway, what happens is pretty clever - but I decided it was not what I was
looking for. It's probably useful for things like tool windows, where you can
be sure every cell (button) will be same size, but not for general window
layout with labels, input controls and buttons, which all should take up
different amounts of space (or at least width).
I haven't tried dbgrid - but I hope this helps a little anyway.
At 13:24 2001-05-09 -0400, Bullock, Howard A. wrote:
[snip]
>I found Win32::GUI::GridLayout as part of the Win32::GUI package but can't
>quite figure out what to do with it.
[snip]
>Where does Win32::GUI::GridLayout fit into he picture? Any sample or
>additional links would be appreciated.
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Perl-Win32-GUI-Users@lists.sourceforge.net
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Wed May 09 12:31:24 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xZgC-0000JL-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
12:31:24 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <KNLRJ66W>; Wed, 9 May 2001 12:31:24 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Displaying DB data
Date: Wed, 9 May 2001 12:31:22 -0700
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
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.5
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/>
| grid does not
| display for me. Instead I get small boxes with one or two
| characters in
| each, 11 boxes per line.
Same here. Just checked on Windoze98, same picture. It seems to me that this
script was made some time ago and may have worked with an older version of
Win32::GUI.
As for the GridLayout itself, check out
velocity.activestate.com/code/cpan/w/wi/Win32-GUI.html/docs/html/GridLayout.
html
That should clarify a thing or two. Although it looks like there's still a
lot of room for trial and error ;-)
Have fun,
Harald
From [EMAIL PROTECTED] Wed May 09 23:11:42 2001
Received: from mailout1-100bt.midsouth.rr.com ([24.92.68.6]
helo=mailout1-hme0.midsouth.rr.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xjfp-00015A-00
for <perl-win32-gui-users@lists.sourceforge.net>; Wed, 09 May 2001
23:11:42 -0700
Received: from fcuk (HubK-mcr-24-24-108-120.midsouth.rr.com [24.24.108.120])
by mailout1-hme0.midsouth.rr.com (8.11.2/8.11.2) with SMTP id
f4A6BVb10751
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
01:11:31 -0500 (CDT)
Message-ID: <[EMAIL PROTECTED]>
From: "Chris Etzel" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Wed, 9 May 2001 13:23:04 -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.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Subject: [perl-win32-gui-users] weird textfield issue
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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 am playing around with Win32::GUI trying to refresh my memory on Perl and
Win32::GUI, and:
I have written a test program that basically brings up a toolbar with a
button to open a launcher window that I can type a command in and launch
directly. Well, all works fine exept I can't see the text field. I even
tried to copy and paste from my working example directly to the new code,
but still no text field. Before I go insane, can someone look at this code
and tell me if I messed up somewhere? Thanks!
Chris
----------code below--------------
use Win32::GUI;
($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);
my $Toolbar=Win32::GUI::Window->new(
-name=>'Toolbar',
-size=>[600,75],
-title=>"PEaRL ToolBar",
);
my $launcher=$Toolbar->AddButton(
-name=>'launcher',
-pos=>[10,10],
-text=>"Launcher",
);
$Toolbar->launcher->Show();
sub launcher_Click{
my $Launcher=Win32::GUI::Window->new(
-name=>'CommandLauncher',
-size=>[300,75],
-title=>"Launcher",
);
$Launcher->Show();
my $runline=$Launcher->AddTextField(
-name=>'CommandBox', #Here is
where It should show the text field-but doesn't
-background=>[255,255,255],
-pos=>[10,10],
-size=>[150,22],
-prompt=>'Enter Command:',
);
my $runButton-$Launcher->AddButton(
-name=>'runbutton',
-pos=>[160,10],
-text=>'Run',
-size=>[30,22],
);
$Launcher->runbutton->Show();
sub runButton_Click{
exec($textfield->Text);
}
}
$Toolbar->Show();
Win32::GUI::Dialog();
From [EMAIL PROTECTED] Thu May 10 02:16:22 2001
Received: from duck.a2000.nl ([62.108.1.88] helo=smtp2.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xmYY-0002RW-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
02:16:22 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp2.a2000.nl with esmtp (Exim 2.02 #4)
id 14xmYU-0007Vy-00; Thu, 10 May 2001 11:16:18 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Thu, 10 May 2001 11:16:18 +0200
To: perl-win32-gui-users@lists.sourceforge.net,
<perl-win32-gui-users@lists.sourceforge.net>
From: Marjolein Katsma <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] weird textfield issue
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.5
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/>
Chris,
Forgive me if I sound pedantic - but here's some advice from an old hand
(slightly rheumatic by now - seriously!) at programming. If you want to find
out the hard way (may do!) delete this *now*; don't read any further.
On the other hand...:
Do *not* hide that DOS (command-line) window until you've fully debugged,
alpha-tested and beta-tested your program. Until it's ready for release, you
*need* that command-line window.
Unless you want (or can afford to) to shell out for a debugger - but you don't
*need* (to shell out for) a debugger until you've exhausted all other methods.
(When I was starting to writing COBOL there *were* no 'debuggers'. Debugging
your code was inserting as many useful DISPLAY statements you could think of
and then interpreting the text on the print-out you got back.) I have a
debugger for Perl (Part of ActiveState's PDK, which costs $$$) but I rarely use
it. I use the command-line window to display my "display" statements (plain old
print in Perl) until I'm really stuck.
If you want to know what goes on in your script, keep that window, and put
liberal [print] statements into your code to trace every step: you're robbing
yourself of a valuable resource until your code is really working (and
confirmed as really working by people using your code). They'll give you a
trace of what's happening, and a means of finding problems - well before you'll
even *need* a debugger (or this list, for that matter). Leave your print
statements (and code variations!) but 'comment them out' while you're trying to
figure out something. Once it works, put in a new comment that explains (to
you, 6 months later!) why it works. When you can still understand that comment
after a week, your're ready to deleted the other commented-out trial-and-error
code. If not, go back and explain it to yourself again (if you can still
remember why this worked in the first place and something else didn't!); in a
comment.
And don't under-estimate the life-time of your code: trivial code intended for
a week or so has a nasty habit of staying alive for 2 years or more...
Debuggers are a wonderful invention - and I use them. But you don't need them
(need to *pay* for them!) until you've exhausted all possibilities of
displaying traces and variable values of your program while it's executing.
With Perl on Win - that's just what you need your command-line window for:
without it (or a debugger): how do you know what's happening?
My Perl scripts (until ready for release) look really 'dirty' until they're
working: they're full of comments of what I'm trying (commented code), and why,
and why it doesn't work so what I'm trying next.
So try a few things, put in some print statements, and if your code doesn't
work as you intended and you figured out why, put that into a comment as well.
Ultimately you'll end up with working code, and comments explaining (to you!)
why this works and something else you tried doesn't.
(OK, I didn't even try your code - I just noticed you disabled the very means
of finding out why it didn't work in the first place. IGNORE if you're not
interested!)
At 13:23 2001-05-09 -0500, Chris Etzel wrote:
>Hello,
>
>I am playing around with Win32::GUI trying to refresh my memory on Perl and
>Win32::GUI, and:
>
>I have written a test program that basically brings up a toolbar with a
>button to open a launcher window that I can type a command in and launch
>directly. Well, all works fine exept I can't see the text field. I even
>tried to copy and paste from my working example directly to the new code,
>but still no text field. Before I go insane, can someone look at this code
>and tell me if I messed up somewhere? Thanks!
>
>Chris
>
>----------code below--------------
>
>use Win32::GUI;
>($DOS) = Win32::GUI::GetPerlWindow();
> Win32::GUI::Hide($DOS);
>
>my $Toolbar=Win32::GUI::Window->new(
> -name=>'Toolbar',
> -size=>[600,75],
> -title=>"PEaRL ToolBar",
> );
>my $launcher=$Toolbar->AddButton(
> -name=>'launcher',
> -pos=>[10,10],
> -text=>"Launcher",
> );
>$Toolbar->launcher->Show();
>
> sub launcher_Click{
> my $Launcher=Win32::GUI::Window->new(
> -name=>'CommandLauncher',
> -size=>[300,75],
> -title=>"Launcher",
> );
> $Launcher->Show();
>
> my $runline=$Launcher->AddTextField(
> -name=>'CommandBox', #Here is
>where It should show the text field-but doesn't
> -background=>[255,255,255],
> -pos=>[10,10],
> -size=>[150,22],
> -prompt=>'Enter Command:',
> );
>
> my $runButton-$Launcher->AddButton(
> -name=>'runbutton',
> -pos=>[160,10],
> -text=>'Run',
> -size=>[30,22],
> );
> $Launcher->runbutton->Show();
> sub runButton_Click{
> exec($textfield->Text);
> }
>
> }
>
>
>
>
>$Toolbar->Show();
>Win32::GUI::Dialog();
>
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Perl-Win32-GUI-Users@lists.sourceforge.net
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Thu May 10 06:27:21 2001
Received: from mailout1-100bt.midsouth.rr.com ([24.92.68.6]
helo=mailout1-hme0.midsouth.rr.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xqTQ-0003N0-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
06:27:20 -0700
Received: from fcuk (HubK-mcr-24-24-108-120.midsouth.rr.com [24.24.108.120])
by mailout1-hme0.midsouth.rr.com (8.11.2/8.11.2) with SMTP id
f4ADR6b13476
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
08:27:06 -0500 (CDT)
Message-ID: <[EMAIL PROTECTED]>
From: "Chris Etzel" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] weird textfield issue
Date: Wed, 9 May 2001 20:38:39 -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.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.5
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 it. I had AddTextField instead of AddTextfield. Correct caps are not
my strong point apparently, but I imagine learning them would prevent
further headaches!
Thanks for the debugging tips. They came in handy when trying to find the
problem.
----- Original Message -----
From: "Marjolein Katsma" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>;
<perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, May 10, 2001 4:16 AM
Subject: Re: [perl-win32-gui-users] weird textfield issue
> Chris,
>
> Forgive me if I sound pedantic - but here's some advice from an old hand
(slightly rheumatic by now - seriously!) at programming. If you want to find
out the hard way (may do!) delete this *now*; don't read any further.
> On the other hand...:
>
> Do *not* hide that DOS (command-line) window until you've fully debugged,
alpha-tested and beta-tested your program. Until it's ready for release, you
*need* that command-line window.
>
> Unless you want (or can afford to) to shell out for a debugger - but you
don't *need* (to shell out for) a debugger until you've exhausted all other
methods.
> (When I was starting to writing COBOL there *were* no 'debuggers'.
Debugging your code was inserting as many useful DISPLAY statements you
could think of and then interpreting the text on the print-out you got
back.) I have a debugger for Perl (Part of ActiveState's PDK, which costs
$$$) but I rarely use it. I use the command-line window to display my
"display" statements (plain old print in Perl) until I'm really stuck.
>
> If you want to know what goes on in your script, keep that window, and put
liberal [print] statements into your code to trace every step: you're
robbing yourself of a valuable resource until your code is really working
(and confirmed as really working by people using your code). They'll give
you a trace of what's happening, and a means of finding problems - well
before you'll even *need* a debugger (or this list, for that matter). Leave
your print statements (and code variations!) but 'comment them out' while
you're trying to figure out something. Once it works, put in a new comment
that explains (to you, 6 months later!) why it works. When you can still
understand that comment after a week, your're ready to deleted the other
commented-out trial-and-error code. If not, go back and explain it to
yourself again (if you can still remember why this worked in the first place
and something else didn't!); in a comment.
>
> And don't under-estimate the life-time of your code: trivial code intended
for a week or so has a nasty habit of staying alive for 2 years or more...
>
> Debuggers are a wonderful invention - and I use them. But you don't need
them (need to *pay* for them!) until you've exhausted all possibilities of
displaying traces and variable values of your program while it's executing.
With Perl on Win - that's just what you need your command-line window for:
without it (or a debugger): how do you know what's happening?
>
> My Perl scripts (until ready for release) look really 'dirty' until
they're working: they're full of comments of what I'm trying (commented
code), and why, and why it doesn't work so what I'm trying next.
> So try a few things, put in some print statements, and if your code
doesn't work as you intended and you figured out why, put that into a
comment as well. Ultimately you'll end up with working code, and comments
explaining (to you!) why this works and something else you tried doesn't.
>
> (OK, I didn't even try your code - I just noticed you disabled the very
means of finding out why it didn't work in the first place. IGNORE if you're
not interested!)
>
> At 13:23 2001-05-09 -0500, Chris Etzel wrote:
> >Hello,
> >
> >I am playing around with Win32::GUI trying to refresh my memory on Perl
and
> >Win32::GUI, and:
> >
> >I have written a test program that basically brings up a toolbar with a
> >button to open a launcher window that I can type a command in and launch
> >directly. Well, all works fine exept I can't see the text field. I even
> >tried to copy and paste from my working example directly to the new code,
> >but still no text field. Before I go insane, can someone look at this
code
> >and tell me if I messed up somewhere? Thanks!
> >
> >Chris
> >
> >----------code below--------------
> >
> >use Win32::GUI;
> >($DOS) = Win32::GUI::GetPerlWindow();
> > Win32::GUI::Hide($DOS);
> >
> >my $Toolbar=Win32::GUI::Window->new(
> > -name=>'Toolbar',
> > -size=>[600,75],
> > -title=>"PEaRL ToolBar",
> > );
> >my $launcher=$Toolbar->AddButton(
> > -name=>'launcher',
> > -pos=>[10,10],
> > -text=>"Launcher",
> > );
> >$Toolbar->launcher->Show();
> >
> > sub launcher_Click{
> > my $Launcher=Win32::GUI::Window->new(
> > -name=>'CommandLauncher',
> > -size=>[300,75],
> > -title=>"Launcher",
> > );
> > $Launcher->Show();
> >
> > my $runline=$Launcher->AddTextField(
> > -name=>'CommandBox', #Here
is
> >where It should show the text field-but doesn't
> > -background=>[255,255,255],
> > -pos=>[10,10],
> > -size=>[150,22],
> > -prompt=>'Enter Command:',
> > );
> >
> > my $runButton-$Launcher->AddButton(
> > -name=>'runbutton',
> > -pos=>[160,10],
> > -text=>'Run',
> > -size=>[30,22],
> > );
> > $Launcher->runbutton->Show();
> > sub runButton_Click{
> > exec($textfield->Text);
> > }
> >
> > }
> >
> >
> >
> >
> >$Toolbar->Show();
> >Win32::GUI::Dialog();
> >
> >
> >
> >
> >_______________________________________________
> >Perl-Win32-GUI-Users mailing list
> >Perl-Win32-GUI-Users@lists.sourceforge.net
> >http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
> Cheers,
>
> Marjolein Katsma
> HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
>
>
> _______________________________________________
> 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 May 10 09:57:36 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14xtkt-00059o-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
09:57:35 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
17:51:06 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Thu, 10 May 2001 12:54:52 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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/>
Wohoo! I got it to work! :)
It took some XS hacking though. Nothing fancy, mostly copy-paste and common
sense.
I added the WM_DROPFILES message to the WindowMsgLoop so that it throws an
event DropFiles() with the drop handle in question.
And once in Perl it was piece a cake to call the shell32.dll functions
DragQueryFile and DragFinish to actually get the files. Cool. This is fun!
Some code:
GUI.xs, line 1839:
----------
case WM_DROPFILES:
if(GetObjectName(NOTXSCALL hwnd, Name)) {
/*
* (@)EVENT:DropFiles(DROP_HANDLE)
* Sent when the window receives dropped files.
* (@)APPLIES_TO:Window, DialogBox
*/
strcat(Name, "_DropFiles");
PerlResult = DoEvent_Long(NOTXSCALL Name, UINT(wParam));
}
break;
----------
http://www.bahnhof.se/~johanl/perl/Win32GUI/
- AdHoc.pm
Perl subs for dealing with the shell32.dll calls handling the drop
operation (among other things).
- dragdrop.pl
Working demo program (if you rebuild the XS code). The actual drag-drop
code is this simple in a Perl application:
----------
Win32::GUI::AdHoc::windowDragAcceptFiles($winMain, 1);
sub winMain_DropFiles {
my ($handleDrop) = @_;
print join("\n", Win32::GUI::AdHoc::windowGetDroppedFiles($handleDrop))
.
"\n\n";
return(1);
}
----------
I guess a more complete solution would include drag-drop to e.g. a RichEdit
or Textfield control etc. but I'm not sure what the implications are.
I'm not sure how to continue with this. For my personal use, I'm probably
gonna create a Win32::GUI::DragDrop module or something (using my XS mod),
but maybe this belongs in the next release of Win32::GUI after a code
review (after all, I relly don't _know_ these things). Aldo?
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu May 10 12:15:24 2001
Received: from phoenix.a2000.nl ([62.108.1.203] helo=smtp1.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14xvuF-0007Fp-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
12:15:23 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp1.a2000.nl with esmtp (Exim 2.02 #4)
id 14xvu3-0000tA-00; Thu, 10 May 2001 21:15:11 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Thu, 10 May 2001 21:15:18 +0200
To: perl-win32-gui-users@lists.sourceforge.net,
<perl-win32-gui-users@lists.sourceforge.net>
From: Marjolein Katsma <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] weird textfield issue
In-Reply-To: <[EMAIL PROTECTED]>
References: <[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.5
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/>
Chris,
At 20:38 2001-05-09 -0500, Chris Etzel wrote:
>I found it.
Great!
> I had AddTextField instead of AddTextfield. Correct caps are not
>my strong point apparently, but I imagine learning them would prevent
>further headaches!
You know, I do that *all* the time ;-)
It's just part of learning how to use this great package.
>Thanks for the debugging tips. They came in handy when trying to find the
>problem.
That's just the general stuff that will basically apply to any programming
language. There are some Perl-specific tricks. Have you tried 'use strict;'
yet?
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Thu May 10 20:44:45 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14y3rB-0005i3-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
20:44:45 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
04:38:30 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Thu, 10 May 2001 23:42:00 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [perl-win32-gui-users] DragDrop.pm and new Oasis release
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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 now a Win32::GUI::DragDrop module available at
http://www.bahnhof.se/~johanl/perl/Win32GUI/
There is a complete example/demo program in the POD if you would like to
take the trouble to rebuild your Win32::GUI module.
There is also a new version of Perl Oasis which, of course, contains
drag-n-drop support (and if you use the binary you won't need to rebuild
Win32::GUI).
Another nice feature is a useful toolbar floating on top of UltraEdit when
you edit your code. Read all about it here:
http://www.bahnhof.se/~johanl/perl/Oasis/
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu May 10 21:29:28 2001
Received: from fepout4.telus.net ([199.185.220.239]
helo=priv-edtnes12-hme0.telusplanet.net)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14y4YS-0007en-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
21:29:28 -0700
Received: from jeremy ([216.232.80.114])
by priv-edtnes12-hme0.telusplanet.net
(InterMail vM.4.01.03.10 201-229-121-110) with SMTP
id <[EMAIL PROTECTED]>
for <perl-win32-gui-users@lists.sourceforge.net>;
Thu, 10 May 2001 22:29:13 -0600
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Light Version 3.0.3 (32)
Date: Thu, 10 May 2001 21:25:41 -0700
To: perl-win32-gui-users@lists.sourceforge.net
From: Jeremy Aiyadurai <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_989580341==_"
Subject: [perl-win32-gui-users] Win32::GUI::Icon
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
--=====================_989580341==_
Content-Type: text/plain; charset="us-ascii"
hello all,
thankyou for your help so far
is this Win32::GUI::Icon functional, or is there something wrong with my file.
new Win32::GUI::Icon("favicon.ico");
thanks
Jeremy .A
--=====================_989580341==_
Content-Type: application/octet-stream; name="favicon.ico"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="favicon.ico"
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA
/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARERERERERERP////////9E///0RP
///0T///T/T///RP//9P9P//9E///0RP///0T///T/T///RP//9ET///9E/////////0RERERERE
REQAAAQAAEAAAAAABEREQAAAAAAAAAAAAAD//wAA//8AAP//AAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+98AAPgfAAD//wAA
--=====================_989580341==_
Content-Type: text/plain; charset="us-ascii"
--=====================_989580341==_--
From [EMAIL PROTECTED] Thu May 10 21:57:57 2001
Received: from ring.secom-sis.co.jp ([202.218.246.75] helo=secom-sis.co.jp)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14y501-0002CU-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
21:57:57 -0700
Received: from scan1.secom-sis.co.jp (scan1.secom-sis.co.jp [172.27.9.60])
by secom-sis.co.jp (8.9.3/3.7W) with SMTP id NAA26606;
Fri, 11 May 2001 13:57:54 +0900 (JST)
Received: from 172.27.11.245 by scan1.secom-sis.co.jp (InterScan E-Mail
VirusWall NT); Fri, 11 May 2001 13:59:35 +0900
To: perl-win32-gui-users@lists.sourceforge.net
From: Hirosi Taguti <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
X-Mailer: Winbiff [Version 2.31PL5 (on Trial)]
Date: Fri, 11 May 2001 13:58:38 +0900
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: [perl-win32-gui-users] Re: DragDrop.pm and new Oasis release
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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/>
> There is now a Win32::GUI::DragDrop module available at
>
> http://www.bahnhof.se/~johanl/perl/Win32GUI/
>
> There is a complete example/demo program in the POD if you would like to
> take the trouble to rebuild your Win32::GUI module.
I've just tried.
The demo program in the POD printed,
"Initial state : accepts drops: 0",
and memory vioration occured, says,
pgm 0x01d61c6a accessed 0x00000000, cann't become as read...
(this is really in Japanese)
I'm using ActivePerl Build 626 in Win2K pro.
I inserted "case WM_DROPFILES" after GUI.xs, line 1839: as instructed,
nmake,
nmake install.
re-boot machine,
execute the demo program.
Any help?
--
Hirosi Taguti
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Thu May 10 22:21:22 2001
Received: from phoenix.a2000.nl ([62.108.1.203] helo=smtp1.a2000.nl)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14y5Mf-0003vV-00
for <perl-win32-gui-users@lists.sourceforge.net>; Thu, 10 May 2001
22:21:21 -0700
Received: from node149c.a2000.nl ([62.108.20.156] helo=grace.javawoman.com)
by smtp1.a2000.nl with esmtp (Exim 2.02 #4)
id 14y5MT-0006IY-00
for perl-win32-gui-users@lists.sourceforge.net; Fri, 11 May 2001
07:21:10 +0200
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3.2
Date: Fri, 11 May 2001 07:21:17 +0200
To: perl-win32-gui-users@lists.sourceforge.net
From: Marjolein Katsma <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Win32::GUI::Icon
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.5
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,
What you have there is correct - but how are you using it?
When I use an icon for a window (system) icon, it works fine, but I have been
unable to make one work on a button (but a Bitmap works in that case).
For a system icon the normal size restrictions apply: 16x16 for as it appears
in the title bar and a start bar button; add a 32x32 image into the same file
if you make a free-standing exe so Windows can display a large icon for it as
well.
# -- set window icon ------------------
my $I = new Win32::GUI::Icon("hsh.ico"); #hsh.ico contains both 16x16
and 32x32 images
$W->SetIcon($I); #W is the previously defined
Window
At 21:25 2001-05-10 -0700, Jeremy Aiyadurai wrote:
>hello all,
>
>
>thankyou for your help so far
>
>is this Win32::GUI::Icon functional, or is there something wrong with my file.
>
>
>new Win32::GUI::Icon("favicon.ico");
>
>thanks
>
>Jeremy .A
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
From [EMAIL PROTECTED] Fri May 11 04:51:37 2001
Received: from mailout1-hme2.midsouth.rr.com ([24.165.200.73]
helo=mailout1-hme0.midsouth.rr.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14yBSK-0006eF-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
04:51:36 -0700
Received: from fcuk (HubK-mcr-24-24-108-120.midsouth.rr.com [24.24.108.120])
by mailout1-hme0.midsouth.rr.com (8.11.2/8.11.2) with SMTP id
f4BBpQb22245
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
06:51:26 -0500 (CDT)
Message-ID: <[EMAIL PROTECTED]>
From: "Chris Etzel" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Date: Thu, 10 May 2001 19:02:56 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0014_01C0D983.D2EE9C50"
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] keeping a window open
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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_0014_01C0D983.D2EE9C50
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ok, it may be that I have hacking at my script so long I am cross-eyed, =
but it is too much fun to stop now. I figured the best way to learn the =
Win32::GUI was to write a cool little toolbar with a couple of my most =
used apps on it. It floats and brings up my apps like it should, but it =
closes after I click the button for the app. How do I keep the script =
open until I exit it manually?=20
I have an exit button but for the life of me I can't figure out how to =
tell it=20
unless I click EXIT, stay open.
I will kick myself in advance in case this is a basic perl coding issue =
and not a Win32gui issue.
Thanks,=20
Chris
------=_NextPart_000_0014_01C0D983.D2EE9C50
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 size=3D2>Ok, it may be that I have hacking at my script so =
long I am=20
cross-eyed, but it is too much fun to stop now. I figured the best way =
to learn=20
the Win32::GUI was to write a cool little toolbar with a couple of my =
most used=20
apps on it. It floats and brings up my apps like it should, but it =
closes after=20
I click the button for the app. How do I keep the script open until I =
exit it=20
manually? </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I have an exit button but for the life of me I can't =
figure=20
out how to tell it </FONT></DIV>
<DIV><FONT size=3D2> unless I click EXIT, stay=20
open.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I will kick myself in advance in case this is a =
basic perl=20
coding issue and not a Win32gui issue.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Thanks, </FONT></DIV>
<DIV><FONT size=3D2>Chris</FONT></DIV></BODY></HTML>
------=_NextPart_000_0014_01C0D983.D2EE9C50--
From [EMAIL PROTECTED] Fri May 11 05:31:11 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 14yC4c-0004Md-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
05:31:10 -0700
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <KRVC2WZB>; Fri, 11 May 2001 08:31:42 -0400
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] keeping a window open
Date: Fri, 11 May 2001 08:31:15 -0400
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C0DA16.54B38C04"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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_01C0DA16.54B38C04
Content-Type: text/plain;
charset="iso-8859-1"
Do you have the Win::GUI::Dialog(); statement in there?
-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have hacking at my script so long I am cross-eyed, but
it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most used
apps on it. It floats and brings up my apps like it should, but it closes
after I click the button for the app. How do I keep the script open until I
exit it manually?
I have an exit button but for the life of me I can't figure out how to tell
it
unless I click EXIT, stay open.
I will kick myself in advance in case this is a basic perl coding issue and
not a Win32gui issue.
Thanks,
Chris
------_=_NextPart_001_01C0DA16.54B38C04
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=#ffffff>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN
class=616242712-11052001>Do you have the Win::GUI::Dialog(); statement in
there?</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN
class=616242712-11052001></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN
class=616242712-11052001></SPAN></FONT> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px;
PADDING-LEFT: 5px">
<DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Chris Etzel
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Thursday, May 10, 2001 8:03
PM<BR><B>To:</B>
perl-win32-gui-users@lists.sourceforge.net<BR><B>Subject:</B>
[perl-win32-gui-users] keeping a window open<BR><BR></DIV></FONT>
<DIV><FONT size=2>Ok, it may be that I have hacking at my script so long I am
cross-eyed, but it is too much fun to stop now. I figured the best way to
learn the Win32::GUI was to write a cool little toolbar with a couple of my
most used apps on it. It floats and brings up my apps like it should, but it
closes after I click the button for the app. How do I keep the script open
until I exit it manually? </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2>I have an exit button but for the life of me I can't figure
out how to tell it </FONT></DIV>
<DIV><FONT size=2> unless I click EXIT, stay
open.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2>I will kick myself in advance in case this is a basic perl
coding issue and not a Win32gui issue.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2>Thanks, </FONT></DIV>
<DIV><FONT size=2>Chris</FONT></DIV></BLOCKQUOTE></BODY></HTML>
------_=_NextPart_001_01C0DA16.54B38C04--
From [EMAIL PROTECTED] Fri May 11 06:06:42 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14yCcz-0004aQ-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
06:06:41 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
13:57:25 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Fri, 11 May 2001 08:58:52 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] keeping a window open
In-Reply-To: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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/>
Chris wrote:
>Ok, it may be that I have hacking at my script so long I am cross-eyed,
>but it is too much fun to stop now. I figured the best way to learn the
>Win32::GUI was to write a cool little toolbar with a couple of my most
>used apps on it. It floats and brings up my apps like it should, but it
>closes after I click the button for the app. How do I keep the script open
>until I exit it manually?
1. In the yourButton_Click() event handler, do you return -1? Return 1 instead.
2. When you start your program, what command do you use? If you use exec(),
it won't return.
3. As previously mentioned, putting a few print statements in your code
isn't all that bad if you want to see the program flow.
BTW, if you really want a floating toolbar, check out the
Win32::GUI::ToolbarWindow module in the Oasis source. It will create such a
window for you (small titlebar and non-visible in the task bar. You can
also apply -topmost on it).
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri May 11 06:11:22 2001
Received: from [209.88.65.6] (helo=mail)
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14yChV-0005nc-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
06:11:21 -0700
Received: from jpllaptop.bosscasinos.com (209.88.65.146)
by mail with MERCUR-SMTP/POP3/IMAP4-Server (v3.30.03 AS-0098306)
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
14:04:49 +0100
Message-Id: <[EMAIL PROTECTED]>
X-Sender: [EMAIL PROTECTED]
X-Mailer: QUALCOMM Windows Eudora Version 4.3
Date: Fri, 11 May 2001 09:08:11 -0400
To: perl-win32-gui-users@lists.sourceforge.net
From: Johan Lindstrom <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] Re: DragDrop.pm and new Oasis
release
In-Reply-To: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"; format=flowed
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.5
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/>
Hirosi Taguti wrote:
>I've just tried.
>
>The demo program in the POD printed,
>"Initial state : accepts drops: 0",
>and memory vioration occured, says,
>pgm 0x01d61c6a accessed 0x00000000, cann't become as read...
That's weird. I just call the DragAcceptFiles() function to tell the window
that it's able to accept drops. That far in the program the GUI.xs patch
isn't used, so that shouldn't have anything to do with it. Maybe I didn't
prototype the API call correctly or something.
I'll look into this today or during the weekend.
/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
From [EMAIL PROTECTED] Fri May 11 06:26:46 2001
Received: from mailout1-hme2.midsouth.rr.com ([24.165.200.73]
helo=mailout1-hme0.midsouth.rr.com)
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14yCwP-0007ob-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
06:26:45 -0700
Received: from fcuk (HubK-mcr-24-24-108-120.midsouth.rr.com [24.24.108.120])
by mailout1-hme0.midsouth.rr.com (8.11.2/8.11.2) with SMTP id
f4BDQYb00043
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
08:26:34 -0500 (CDT)
Message-ID: <[EMAIL PROTECTED]>
From: "Chris Etzel" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] keeping a window open
Date: Thu, 10 May 2001 20:38:05 -0500
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_002C_01C0D991.1D85B0C0"
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.5
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_002C_01C0D991.1D85B0C0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
yes.=20
Here is the code. It's messy, but commented ...
use Win32::GUI;
#($DOS) =3D Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
# this is basically a test to learn Win32::GUI
my $Toolbar=3DWin32::GUI::Window->new(
-name=3D>'Toolbar',
-size=3D>[600,75],
-title=3D>"PERL ToolBar",
);
# launcher button on main bar
my $launcher=3D$Toolbar->AddButton(
-name=3D>'launcher',
-pos=3D>[10,10],
-text=3D>"Launcher",
);
$Toolbar->launcher->Show();
#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
sub launcher_Click{
my $Launcher=3DWin32::GUI::Window->new(=20
-name=3D>'CommandLauncher',
-size=3D>[200,75],
-title=3D>"Launcher",
);
$Launcher->Show();
my $textfield=3D$Launcher->AddTextfield(
-name=3D>'CommandBox',
-background=3D>[255,255,0],
-pos=3D>[10,10],
-size=3D>[150,22],
);
#run button on launcher window
my $runButton-$Launcher->AddButton(
-name=3D>'runbutton',
-pos=3D>[160,10],
-text=3D>'Run',
-size=3D>[30,22],
);
$Launcher->runbutton->Show();
# this executes the user input of $textfield=20
sub runbutton_Click{
exec($textfield->Text);
}
}
my $NotePadButton=3D$Toolbar->AddButton(
-name=3D>'notepad',
-pos=3D>[75,10],
-text=3D>'notepad',
);
=20
$Toolbar->notepad->Show();
sub notepad_Click{
exec("notepad.exe");
}
#exit the program. This is a test to figure out how to keep the=20
#toolbar floating without exiting on button_Click.=20
my $ExitButton=3D$Toolbar->AddButton(
-name=3D>'Exit',
-pos=3D>[150,10],
-text=3D>'Exit Toolbar',
);
=20
sub Exit_Click {
exit;
}
=20
$Toolbar->Show();
Win32::GUI::Dialog();
# commented this out trying to troubleshoot=20
# sub Toolbar_Terminate{
# -1;
# }
=20
----- Original Message -----=20
From: Peter Eisengrein=20
To: 'perl-win32-gui-users@lists.sourceforge.net'=20
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open
Do you have the Win::GUI::Dialog(); statement in there?
=20
=20
-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have hacking at my script so long I am =
cross-eyed, but it is too much fun to stop now. I figured the best way =
to learn the Win32::GUI was to write a cool little toolbar with a couple =
of my most used apps on it. It floats and brings up my apps like it =
should, but it closes after I click the button for the app. How do I =
keep the script open until I exit it manually?=20
I have an exit button but for the life of me I can't figure out how =
to tell it=20
unless I click EXIT, stay open.
I will kick myself in advance in case this is a basic perl coding =
issue and not a Win32gui issue.
Thanks,=20
Chris
------=_NextPart_000_002C_01C0D991.1D85B0C0
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 size=3D2>yes. </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Here is the code. It's messy, but commented =
...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>use Win32::GUI;<BR>#($DOS) =3D=20
Win32::GUI::GetPerlWindow();<BR># Win32::GUI::Hide($DOS);</FONT></DI=
V>
<DIV> </DIV>
<DIV><FONT size=3D2># this is basically a test to learn Win32::GUI<BR>my =
$Toolbar=3DWin32::GUI::Window->new(<BR> -=
name=3D>'Toolbar',<BR> -size=3D>[600,7=
5],<BR> -title=3D>"PERL=20
ToolBar",<BR> );</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2># launcher button on main bar<BR>my=20
$launcher=3D$Toolbar->AddButton(<BR> -nam=
e=3D>'launcher',<BR> -pos=3D>[10,10],<=
BR> -text=3D>"Launcher",<BR> &=
nbsp; );<BR>$Toolbar->launcher->Show();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR>#launch the launcher panel and create panel as =
separate=20
window<BR>#this is where I can type a command in and run it directly =
from=20
<STDIN><BR> sub launcher_Click{<BR> my=20
$Launcher=3DWin32::GUI::Window->new( <BR> =
=20
-name=3D>'CommandLauncher',<BR> &nb=
sp; =20
-size=3D>[200,75],<BR> =
=20
-title=3D>"Launcher",<BR> &nb=
sp; =20
);<BR> $Launcher->Show();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR> my=20
$textfield=3D$Launcher->AddTextfield(<BR>  =
; =20
-name=3D>'CommandBox',<BR> &n=
bsp; =20
-background=3D>[255,255,0],<BR> &nb=
sp; =20
-pos=3D>[10,10],<BR> &n=
bsp; =20
-size=3D>[150,22],<BR> =
=20
);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>#run button on launcher =
window<BR> my=20
$runButton-$Launcher->AddButton(<BR> &nbs=
p; -name=3D>'runbutton',<BR> &=
nbsp; -pos=3D>[160,10],<BR> &n=
bsp; -text=3D>'Run',<BR>  =
; -size=3D>[30,22],<BR> =
);<BR> $Launcher->runbutton->Show();</=
FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2># this executes the user input of $textfield=20
<BR> sub=20
runbutton_Click{<BR> exec($textfield->Tex=
t);<BR> }<BR> }<BR>my=20
$NotePadButton=3D$Toolbar->AddButton(<BR>  =
; =20
-name=3D>'notepad',<BR> =20
-pos=3D>[75,10],<BR> =20
-text=3D>'notepad',<BR> =
=20
);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
size=3D2> <BR>$Toolbar->notepad->Show();<BR> =
sub=20
notepad_Click{<BR> exec("notepad.exe");<BR> &=
nbsp; }</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>#exit the program. This is a test to figure out how =
to keep=20
the <BR>#toolbar floating without exiting on button_Click. </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR>my=20
$ExitButton=3D$Toolbar->AddButton(<BR> -n=
ame=3D>'Exit',<BR> -pos=3D>[150,10],<B=
R> -text=3D>'Exit=20
Toolbar',<BR> );<BR> =
<BR> sub=20
Exit_Click=20
{<BR> exit;<BR> }<BR> =
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2><BR>$Toolbar->Show();<BR>Win32::GUI::Dialog();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2># commented this out trying to troubleshoot=20
<BR># sub=20
Toolbar_Terminate{<BR># -1;<BR># }</FONT></DI=
V>
<DIV> </DIV>
<DIV><FONT size=3D2> </FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<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]>Peter=20
Eisengrein</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> Friday, May 11, 2001 7:31 =
AM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> RE: =
[perl-win32-gui-users]=20
keeping a window open</DIV>
<DIV><BR></DIV>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D616242712-11052001>Do you have the Win::GUI::Dialog(); =
statement in=20
there?</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D616242712-11052001></SPAN></FONT> </DIV>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D616242712-11052001></SPAN></FONT> </DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT: 5px; =
MARGIN-RIGHT: 0px; PADDING-LEFT: 5px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Chris Etzel [<A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]</A>]=
<BR><B>Sent:</B>=20
Thursday, May 10, 2001 8:03 PM<BR><B>To:</B> <A=20
=
href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net";>perl-win32-gui=
[EMAIL PROTECTED]</A><BR><B>Subject:</B>=20
[perl-win32-gui-users] keeping a window open<BR><BR></DIV></FONT>
<DIV><FONT size=3D2>Ok, it may be that I have hacking at my script =
so long I=20
am cross-eyed, but it is too much fun to stop now. I figured the =
best way to=20
learn the Win32::GUI was to write a cool little toolbar with a =
couple of my=20
most used apps on it. It floats and brings up my apps like it =
should, but it=20
closes after I click the button for the app. How do I keep the =
script open=20
until I exit it manually? </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I have an exit button but for the life of me I =
can't=20
figure out how to tell it </FONT></DIV>
<DIV><FONT size=3D2> unless I click EXIT, stay=20
open.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I will kick myself in advance in case this is a =
basic perl=20
coding issue and not a Win32gui issue.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Thanks, </FONT></DIV>
<DIV><FONT =
size=3D2>Chris</FONT></DIV></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_002C_01C0D991.1D85B0C0--
From [EMAIL PROTECTED] Fri May 11 06:56:21 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 14yDP1-0005WG-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
06:56:19 -0700
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <KRVC2YA4>; Fri, 11 May 2001 09:56:50 -0400
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] keeping a window open
Date: Fri, 11 May 2001 09:56:19 -0400
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C0DA22.39808F66"
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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_01C0DA22.39808F66
Content-Type: text/plain;
charset="iso-8859-1"
replace exec with system and it works. exec tells perl to run something and
quit.
-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 9:38 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] keeping a window open
yes.
Here is the code. It's messy, but commented ...
use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
-name=>'Toolbar',
-size=>[600,75],
-title=>"PERL ToolBar",
);
# launcher button on main bar
my $launcher=$Toolbar->AddButton(
-name=>'launcher',
-pos=>[10,10],
-text=>"Launcher",
);
$Toolbar->launcher->Show();
#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
sub launcher_Click{
my $Launcher=Win32::GUI::Window->new(
-name=>'CommandLauncher',
-size=>[200,75],
-title=>"Launcher",
);
$Launcher->Show();
my $textfield=$Launcher->AddTextfield(
-name=>'CommandBox',
-background=>[255,255,0],
-pos=>[10,10],
-size=>[150,22],
);
#run button on launcher window
my $runButton-$Launcher->AddButton(
-name=>'runbutton',
-pos=>[160,10],
-text=>'Run',
-size=>[30,22],
);
$Launcher->runbutton->Show();
# this executes the user input of $textfield
sub runbutton_Click{
exec($textfield->Text);
}
}
my $NotePadButton=$Toolbar->AddButton(
-name=>'notepad',
-pos=>[75,10],
-text=>'notepad',
);
$Toolbar->notepad->Show();
sub notepad_Click{
exec("notepad.exe");
}
#exit the program. This is a test to figure out how to keep the
#toolbar floating without exiting on button_Click.
my $ExitButton=$Toolbar->AddButton(
-name=>'Exit',
-pos=>[150,10],
-text=>'Exit Toolbar',
);
sub Exit_Click {
exit;
}
$Toolbar->Show();
Win32::GUI::Dialog();
# commented this out trying to troubleshoot
# sub Toolbar_Terminate{
# -1;
# }
----- Original Message -----
From: Peter Eisengrein <mailto:[EMAIL PROTECTED]>
To: 'perl-win32-gui-users@lists.sourceforge.net'
<mailto:'perl-win32-gui-users@lists.sourceforge.net'>
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open
Do you have the Win::GUI::Dialog(); statement in there?
-----Original Message-----
From: Chris Etzel [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
<mailto:perl-win32-gui-users@lists.sourceforge.net>
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have hacking at my script so long I am cross-eyed, but
it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most used
apps on it. It floats and brings up my apps like it should, but it closes
after I click the button for the app. How do I keep the script open until I
exit it manually?
I have an exit button but for the life of me I can't figure out how to tell
it
unless I click EXIT, stay open.
I will kick myself in advance in case this is a basic perl coding issue and
not a Win32gui issue.
Thanks,
Chris
------_=_NextPart_001_01C0DA22.39808F66
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.2722.2800" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D524305313-11052001>replace exec with system and it works. exec =
tells perl=20
to run something and quit.</SPAN></FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT: 5px; =
MARGIN-RIGHT: 0px; PADDING-LEFT: 5px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Chris Etzel=20
[mailto:[EMAIL PROTECTED]<BR><B>Sent:</B> Thursday, May 10, =
2001 9:38=20
PM<BR><B>To:</B> =
perl-win32-gui-users@lists.sourceforge.net<BR><B>Subject:</B>=20
Re: [perl-win32-gui-users] keeping a window open<BR><BR></DIV></FONT>
<DIV><FONT size=3D2>yes. </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Here is the code. It's messy, but commented =
...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>use Win32::GUI;<BR>#($DOS) =3D=20
=
Win32::GUI::GetPerlWindow();<BR># Win32::GUI::Hide($DOS);</FONT></D=
IV>
<DIV> </DIV>
<DIV><FONT size=3D2># this is basically a test to learn =
Win32::GUI<BR>my=20
=
$Toolbar=3DWin32::GUI::Window->new(<BR> =
-name=3D>'Toolbar',<BR> -size=3D>[600=
,75],<BR> -title=3D>"PERL=20
ToolBar",<BR> );</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2># launcher button on main bar<BR>my=20
=
$launcher=3D$Toolbar->AddButton(<BR> -na=
me=3D>'launcher',<BR> -pos=3D>[10,10]=
,<BR> -text=3D>"Launcher",<BR> &nbs=
p; );<BR>$Toolbar->launcher->Show();</FONT></DIV>=
<DIV> </DIV>
<DIV><FONT size=3D2><BR>#launch the launcher panel and create panel =
as separate=20
window<BR>#this is where I can type a command in and run it directly =
from=20
<STDIN><BR> sub launcher_Click{<BR> my=20
=
$Launcher=3DWin32::GUI::Window->new( <BR>  =
; =20
=
-name=3D>'CommandLauncher',<BR> &n=
bsp; =20
=
-size=3D>[200,75],<BR>  =
; =20
=
-title=3D>"Launcher",<BR> &n=
bsp; =20
);<BR> $Launcher->Show();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR> my=20
=
$textfield=3D$Launcher->AddTextfield(<BR> &nbs=
p; =20
=
-name=3D>'CommandBox',<BR> &=
nbsp; =20
=
-background=3D>[255,255,0],<BR> &n=
bsp; =20
=
-pos=3D>[10,10],<BR> &=
nbsp; =20
=
-size=3D>[150,22],<BR>  =
; =20
);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>#run button on launcher =
window<BR> my=20
=
$runButton-$Launcher->AddButton(<BR> &nb=
sp; -name=3D>'runbutton',<BR>  =
; -pos=3D>[160,10],<BR>  =
; -text=3D>'Run',<BR> &=
nbsp; -size=3D>[30,22],<BR> &=
nbsp; );<BR> $Launcher->runbutton->Sho=
w();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2># this executes the user input of $textfield=20
<BR> sub=20
=
runbutton_Click{<BR> exec($textfield->Te=
xt);<BR> }<BR> }<BR>my=20
=
$NotePadButton=3D$Toolbar->AddButton(<BR> &nbs=
p; =20
-name=3D>'notepad',<BR> =20
-pos=3D>[75,10],<BR> =20
-text=3D>'notepad',<BR> =20
);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
=
size=3D2> <BR>$Toolbar->notepad->Show();<BR>  =
;sub=20
=
notepad_Click{<BR> exec("notepad.exe");<BR> =
}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>#exit the program. This is a test to figure out =
how to keep=20
the <BR>#toolbar floating without exiting on button_Click. =
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR>my=20
=
$ExitButton=3D$Toolbar->AddButton(<BR> -=
name=3D>'Exit',<BR> -pos=3D>[150,10],=
<BR> -text=3D>'Exit=20
=
Toolbar',<BR> );<BR>  =
; <BR> sub=20
Exit_Click=20
=
{<BR> exit;<BR> }<BR> =
; </FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
=
size=3D2><BR>$Toolbar->Show();<BR>Win32::GUI::Dialog();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2># commented this out trying to troubleshoot=20
<BR># sub=20
=
Toolbar_Terminate{<BR># -1;<BR># }</FONT></D=
IV>
<DIV> </DIV>
<DIV><FONT size=3D2> </FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<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]"=20
[EMAIL PROTECTED]>Peter Eisengrein</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]>'perl-win32-gui-users=
@lists.sourceforge.net'</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Friday, May 11, 2001 =
7:31=20
AM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> RE: =
[perl-win32-gui-users]=20
keeping a window open</DIV>
<DIV><BR></DIV>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D616242712-11052001>Do you have the Win::GUI::Dialog(); =
statement in=20
there?</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D616242712-11052001></SPAN></FONT> </DIV>
<DIV><FONT color=3D#0000ff face=3D"Courier New" size=3D2><SPAN=20
class=3D616242712-11052001></SPAN></FONT> </DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT: 5px; =
MARGIN-RIGHT: 0px; PADDING-LEFT: 5px">
<DIV align=3Dleft class=3DOutlookMessageHeader dir=3Dltr><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> Chris Etzel =
[<A=20
=
href=3D"mailto:[EMAIL PROTECTED]">mailto:[EMAIL PROTECTED]</A>=
]<BR><B>Sent:</B>=20
Thursday, May 10, 2001 8:03 PM<BR><B>To:</B> <A=20
=
href=3D"mailto:perl-win32-gui-users@lists.sourceforge.net";>perl-win32-gu=
[EMAIL PROTECTED]</A><BR><B>Subject:</B>=20
[perl-win32-gui-users] keeping a window open<BR><BR></DIV></FONT>
<DIV><FONT size=3D2>Ok, it may be that I have hacking at my =
script so long I=20
am cross-eyed, but it is too much fun to stop now. I figured the =
best way=20
to learn the Win32::GUI was to write a cool little toolbar with a =
couple=20
of my most used apps on it. It floats and brings up my apps like =
it=20
should, but it closes after I click the button for the app. How =
do I keep=20
the script open until I exit it manually? </FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I have an exit button but for the life of me =
I can't=20
figure out how to tell it </FONT></DIV>
<DIV><FONT size=3D2> unless I click EXIT, stay=20
open.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I will kick myself in advance in case this is =
a basic=20
perl coding issue and not a Win32gui issue.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Thanks, </FONT></DIV>
<DIV><FONT=20
size=3D2>Chris</FONT></DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY=
></HTML>
------_=_NextPart_001_01C0DA22.39808F66--
From [EMAIL PROTECTED] Fri May 11 07:05:02 2001
Received: from smtp017.mail.yahoo.com ([216.136.174.114])
by usw-sf-list1.sourceforge.net with smtp (Exim 3.22 #1 (Debian))
id 14yDXS-0008AP-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
07:05:02 -0700
Received: from pm681-13.dialip.mich.net (HELO jb) (207.73.72.71)
by smtp.mail.vip.sc5.yahoo.com with SMTP; 11 May 2001 14:05:00 -0000
X-Apparently-From: <[EMAIL PROTECTED]>
From: "Jeremy Blonde" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] keeping a window open
Date: Fri, 11 May 2001 10:08:31 -0400
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)
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
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.5
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 are going to want to change 'exec' to 'system'. That should take care
of the problem.
Check the 'perlfunc' section of the Perl documentation to note the
differences between 'exec' and 'system'.
Jeremy Blonde
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Chris
Etzel
Sent: Thursday, May 10, 2001 9:38 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] keeping a window open
yes.
Here is the code. It's messy, but commented ...
use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
-name=>'Toolbar',
-size=>[600,75],
-title=>"PERL ToolBar",
);
# launcher button on main bar
my $launcher=$Toolbar->AddButton(
-name=>'launcher',
-pos=>[10,10],
-text=>"Launcher",
);
$Toolbar->launcher->Show();
#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
sub launcher_Click{
my
uncher=Win32::GUI::Window->new(
-name=>'CommandLauncher',
-size=>[200,75],
-title=>"Launcher",
);
$Launcher->Show();
my $textfield=$Launcher->AddTextfield(
-name=>'CommandBox',
-background=>[255,255,0],
-pos=>[10,10],
-size=>[150,22],
);
#run button on launcher window
my $runButton-$Launcher->AddButton(
-name=>'runbutton',
-pos=>[160,10],
-text=>'Run',
-size=>[30,22],
);
$Launcher->runbutton->Show();
# this executes the user input of $textfield
sub runbutton_Click{
exec($textfield->Text);
}
}
my $NotePadButton=$Toolbar->AddButton(
-name=>'notepad',
-pos=>[75,10],
-text=>'notepad',
);
$Toolbar->notepad->Show();
sub notepad_Click{
exec("notepad.exe");
}
#exit the program. This is a test to figure out how to keep the
#toolbar floating without exiting on button_Click.
my $ExitButton=$Toolbar->AddButton(
-name=>'Exit',
-pos=>[150,10],
-text=>'Exit Toolbar',
);
sub Exit_Click {
exit;
}
$Toolbar->Show();
Win32::GUI::Dialog();
# commented this out trying to troubleshoot
# sub Toolbar_Terminate{
# -1;
# }
----- Original Message -----
From: Peter Eisengrein
To: 'perl-win32-gui-users@lists.sourceforge.net'
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open
Do you have the Win::GUI::Dialog(); statement in there?
-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have hacking at my script so long I am cross-eyed, but it
is too much fun to stop now. I figured the best way to learn the Win32::GUI was
to write a cool little toolbar with a couple of my most used apps on it. It
floats and brings up my apps like it should, but it closes after I click the
button for the app. How do I keep the script open until I exit it manually?
I have an exit button but for the life of me I can't figure out how to tell it
unless I click EXIT, stay open.
I will kick myself in advance in case this is a basic perl coding issue and not
a Win32gui issue.
Thanks,
Chris
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
From [EMAIL PROTECTED] Fri May 11 07:11:49 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 14yDe1-0000P6-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
07:11:49 -0700
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] keeping a window open
Date: Fri, 11 May 2001 10:11:47 -0400
Message-ID: <[EMAIL PROTECTED]>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: [perl-win32-gui-users] keeping a window open
Thread-Index: AcDaIVsJzTg/cM7ET/uahh1pyOweagAANSDA
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.5
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/>
>perldoc -f exec
exec LIST
exec PROGRAM LIST
The `exec()' function executes a system command *AND
NEVER RETURNS* - use `system()' instead of `exec()' if
you want it to return. It fails and returns FALSE only
if the command does not exist *and* it is executed
directly instead of via your system's command shell (see
below).
=20
note the AND NEVER RETURNS part. =20
=20
You may want system, but that locks the toolbar until the application
returns. You probably want to use fork if you are running Perl 5.6.
Win32::Process may might also be an alternative, but using both are
outside of my expertise as far as returning messages from the CALLED
back to the CALLEE( your program).=20
=20
Also, I would probably set a return 1 statement at the end of each
event. Not sure it this is needed or not, perhaps someone else could
verify. =20
=20
-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 9:38 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] keeping a window open
yes.=20
=20
Here is the code. It's messy, but commented ...
=20
use Win32::GUI;
#($DOS) =3D Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
=20
# this is basically a test to learn Win32::GUI
my $Toolbar=3DWin32::GUI::Window->new(
-name=3D>'Toolbar',
-size=3D>[600,75],
-title=3D>"PERL ToolBar",
);
=20
# launcher button on main bar
my $launcher=3D$Toolbar->AddButton(
-name=3D>'launcher',
-pos=3D>[10,10],
-text=3D>"Launcher",
);
$Toolbar->launcher->Show();
=20
#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
sub launcher_Click{
my $Launcher=3DWin32::GUI::Window->new(=20
-name=3D>'CommandLauncher',
-size=3D>[200,75],
-title=3D>"Launcher",
);
$Launcher->Show();
=20
my $textfield=3D$Launcher->AddTextfield(
-name=3D>'CommandBox',
-background=3D>[255,255,0],
-pos=3D>[10,10],
-size=3D>[150,22],
);
=20
#run button on launcher window
my $runButton-$Launcher->AddButton(
-name=3D>'runbutton',
-pos=3D>[160,10],
-text=3D>'Run',
-size=3D>[30,22],
);
$Launcher->runbutton->Show();
=20
# this executes the user input of $textfield=20
sub runbutton_Click{
exec($textfield->Text);
}
}
my $NotePadButton=3D$Toolbar->AddButton(
-name=3D>'notepad',
-pos=3D>[75,10],
-text=3D>'notepad',
);
=20
=20
$Toolbar->notepad->Show();
sub notepad_Click{
exec("notepad.exe");
}
=20
#exit the program. This is a test to figure out how to keep the=20
#toolbar floating without exiting on button_Click.=20
=20
my $ExitButton=3D$Toolbar->AddButton(
-name=3D>'Exit',
-pos=3D>[150,10],
-text=3D>'Exit Toolbar',
);
=20
sub Exit_Click {
exit;
}
=20
=20
$Toolbar->Show();
Win32::GUI::Dialog();
=20
# commented this out trying to troubleshoot=20
# sub Toolbar_Terminate{
# -1;
# }
=20
=20
=20
=20
=20
=20
----- Original Message -----=20
From: Peter Eisengrein <mailto:[EMAIL PROTECTED]> =20
To: 'perl-win32-gui-users@lists.sourceforge.net'
<mailto:'perl-win32-gui-users@lists.sourceforge.net'> =20
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open
Do you have the Win::GUI::Dialog(); statement in there?
=20
=20
-----Original Message-----
From: Chris Etzel [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
<mailto:perl-win32-gui-users@lists.sourceforge.net>=20
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have hacking at my script so long I am cross-eyed,
but it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most
used apps on it. It floats and brings up my apps like it should, but it
closes after I click the button for the app. How do I keep the script
open until I exit it manually?=20
=20
I have an exit button but for the life of me I can't figure out how to
tell it=20
unless I click EXIT, stay open.
=20
I will kick myself in advance in case this is a basic perl coding issue
and not a Win32gui issue.
=20
Thanks,=20
Chris
From [EMAIL PROTECTED] Fri May 11 08:29:39 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 14yErI-0003c2-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
08:29:37 -0700
Received: from fw1 (fw1.linux.httptech.com [10.10.10.1])
by linux.httptech.com (8.9.3/8.9.3) with SMTP id KAA16905
for <[EMAIL PROTECTED]>; Fri, 11 May 2001 10:39:02 -0400
Received: by fatx1.atx.com with Internet Mail Service (5.5.2650.21)
id <KRVC2ZPP>; Fri, 11 May 2001 11:29:59 -0400
Message-ID: <[EMAIL PROTECTED]>
From: Peter Eisengrein <[EMAIL PROTECTED]>
To: "Perl GUI Mail list (E-mail)" <[EMAIL PROTECTED]>
Date: Fri, 11 May 2001 11:29:30 -0400
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] Minimized GUI windows fall asleep
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.5
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 had a problem with a Window that "falls asleep" if it has been
minimized for a while. I have this problem and it takes quite a while (> 10
minutes sometimes) for the system to return it when it is restored. This is
especially prevalent in Win98 but have also seen it on NT4.0.
Is there a fix other than "don't minimize the window"?
From [EMAIL PROTECTED] Fri May 11 10:02:16 2001
Received: from mailout1-hme0.midsouth.rr.com ([24.165.200.10])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14yGIQ-00009d-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
10:02:14 -0700
Received: from fcuk (HubK-mcr-24-24-108-120.midsouth.rr.com [24.24.108.120])
by mailout1-hme0.midsouth.rr.com (8.11.2/8.11.2) with SMTP id
f4BGxnb24368
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
11:59:50 -0500 (CDT)
Message-ID: <[EMAIL PROTECTED]>
From: "Chris Etzel" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
References: <[EMAIL PROTECTED]>
Subject: Re: [perl-win32-gui-users] keeping a window open
Date: Fri, 11 May 2001 00:11:11 -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.5
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/>
That did it. Thanks!
Chris
----- Original Message -----
From: "Frazier, Joe Jr" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Friday, May 11, 2001 9:11 AM
Subject: RE: [perl-win32-gui-users] keeping a window open
>perldoc -f exec
exec LIST
exec PROGRAM LIST
The `exec()' function executes a system command *AND
NEVER RETURNS* - use `system()' instead of `exec()' if
you want it to return. It fails and returns FALSE only
if the command does not exist *and* it is executed
directly instead of via your system's command shell (see
below).
note the AND NEVER RETURNS part.
You may want system, but that locks the toolbar until the application
returns. You probably want to use fork if you are running Perl 5.6.
Win32::Process may might also be an alternative, but using both are
outside of my expertise as far as returning messages from the CALLED
back to the CALLEE( your program).
Also, I would probably set a return 1 statement at the end of each
event. Not sure it this is needed or not, perhaps someone else could
verify.
-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 9:38 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] keeping a window open
yes.
Here is the code. It's messy, but commented ...
use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
-name=>'Toolbar',
-size=>[600,75],
-title=>"PERL ToolBar",
);
# launcher button on main bar
my $launcher=$Toolbar->AddButton(
-name=>'launcher',
-pos=>[10,10],
-text=>"Launcher",
);
$Toolbar->launcher->Show();
#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
sub launcher_Click{
my $Launcher=Win32::GUI::Window->new(
-name=>'CommandLauncher',
-size=>[200,75],
-title=>"Launcher",
);
$Launcher->Show();
my $textfield=$Launcher->AddTextfield(
-name=>'CommandBox',
-background=>[255,255,0],
-pos=>[10,10],
-size=>[150,22],
);
#run button on launcher window
my $runButton-$Launcher->AddButton(
-name=>'runbutton',
-pos=>[160,10],
-text=>'Run',
-size=>[30,22],
);
$Launcher->runbutton->Show();
# this executes the user input of $textfield
sub runbutton_Click{
exec($textfield->Text);
}
}
my $NotePadButton=$Toolbar->AddButton(
-name=>'notepad',
-pos=>[75,10],
-text=>'notepad',
);
$Toolbar->notepad->Show();
sub notepad_Click{
exec("notepad.exe");
}
#exit the program. This is a test to figure out how to keep the
#toolbar floating without exiting on button_Click.
my $ExitButton=$Toolbar->AddButton(
-name=>'Exit',
-pos=>[150,10],
-text=>'Exit Toolbar',
);
sub Exit_Click {
exit;
}
$Toolbar->Show();
Win32::GUI::Dialog();
# commented this out trying to troubleshoot
# sub Toolbar_Terminate{
# -1;
# }
----- Original Message -----
From: Peter Eisengrein <mailto:[EMAIL PROTECTED]>
To: 'perl-win32-gui-users@lists.sourceforge.net'
<mailto:'perl-win32-gui-users@lists.sourceforge.net'>
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open
Do you have the Win::GUI::Dialog(); statement in there?
-----Original Message-----
From: Chris Etzel [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
<mailto:perl-win32-gui-users@lists.sourceforge.net>
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have hacking at my script so long I am cross-eyed,
but it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most
used apps on it. It floats and brings up my apps like it should, but it
closes after I click the button for the app. How do I keep the script
open until I exit it manually?
I have an exit button but for the life of me I can't figure out how to
tell it
unless I click EXIT, stay open.
I will kick myself in advance in case this is a basic perl coding issue
and not a Win32gui issue.
Thanks,
Chris
_______________________________________________
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 May 11 10:32:25 2001
Received: from exchange.bowneglobal.com ([209.79.235.5])
by usw-sf-list1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 14yGm9-0004RO-00
for <perl-win32-gui-users@lists.sourceforge.net>; Fri, 11 May 2001
10:32:25 -0700
Received: by exchange.bowneglobal.com with Internet Mail Service (5.5.2653.19)
id <KNLRKKF0>; Fri, 11 May 2001 10:32:10 -0700
Message-ID: <[EMAIL PROTECTED]>
From: "Piske, Harald" <[EMAIL PROTECTED]>
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
Subject: RE: [perl-win32-gui-users] Minimized GUI windows fall asleep
Date: Fri, 11 May 2001 10:32:09 -0700
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.5
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/>
Never had that at all, and I love to keep my taskbar stuffed with around 15
open apps, 10 of which are min'd while I deal with 3 of the other 5. Even on
mon mornings, after around 64 hrs of win-dozing, they come up normally ...
that is, as painfully slow as is usual for this OS ;-)
There must be something in your water. Does it only affect your Win32::GUI
wins? Then you should check their ... erm ... sleep cycle by i.e. having a
timer sub that changes the caption. That way, you can see right in the
taskbar button of your app, if it still breathes.
One other suspicion: you're short of RAM and have something running with a
memory leak. I have an app with no leak, but reeeeeeally memory hungry. Once
that thing is up, it surges all available real memory and when I reactivate
one of the other windows, it takes like until next tuesday before they have
swapped themselves out of virtual and into real memory. One other prog, that
does have a leak, slowly gobbles all RAM until everything else stalls. If,
at that point, I close it, it looks frozen, but actually needs about 20%
*more* RAM to shut down - I suspect a side effect of the garbage collection,
trying to free the leaked resources and having to build a hash or something
like that. After a couple of minutes, it really closes and everything is
back to normal.
If on NT or 2k, keep the task manager open and watch, which app or process
burns the CPU power and RAM. If on 9x, the task scheduler worx differently
there and you can have one malfunctioning app freezing all others, given a
few conditions.
One last idea: when did you last check for viruses?
| -----Original Message-----
| From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
| Sent: Friday, May 11, 2001 8:30
| To: Perl GUI Mail list (E-mail)
| Subject: [perl-win32-gui-users] Minimized GUI windows fall asleep
|
|
| Anyone had a problem with a Window that "falls asleep" if it has been
| minimized for a while. I have this problem and it takes quite
| a while (> 10
| minutes sometimes) for the system to return it when it is
| restored. This is
| especially prevalent in Win98 but have also seen it on NT4.0.
|
| Is there a fix other than "don't minimize the window"?
|
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Perl-Win32-GUI-Users@lists.sourceforge.net
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
|
