Re: Help with Win32::GUI
On 07/09/2012 12:48 PM, Barry Brevik wrote:
> I am lost with this simple app, and I hope I am posting to the correct
> list; the Sourceforge list appears to dead.
>
> Anyway, the problem is with the event model (I guess). I have 2 fields
> and all I want is when the user presses ENTER or TAB in the first field,
> I want to capture the text, and have the focus move to the next field. I
> have Change set for the fields, which is alright, but I fail to see how
> I can capture the RETURN or TAB key. Annoyingly, the LostFocus event
> fires every time a key is pressed, which makes no sense to me.
>
> Below is my simplified code which displays the action. I'm sorry that it
> is about 90 lines in length. Can anyone help?
It seems that the dialogui will overwrite the Enter key binding. Also it
depends on whether the Textfield is multiline or not.
So. you can roll your own key checking into these boxes. The revised
code is below.
I have bound Enter in the username to go to the password box. I have
bound Enter in the password box to show the username and password in a
label...
##
use strict;
use warnings;
use Win32;
use Win32::GUI();
use Win32::GUI::Constants qw(VK_RETURN VK_TAB);
my $main = Win32::GUI::Window -> new
(
-name => 'Main',
-title => 'Test v0.1',
-width => 430,
-height => 200
);
my $monoinput = Win32::GUI::Font -> new(-name => 'Consolas', -size =>
10, -bold => 0, -italic => 0);
my $monolabel = Win32::GUI::Font -> new(-name => 'Consolas', -size =>
10, -bold => 1, -italic => 0);
my $userlabel = $main -> AddLabel
(
-font => $monolabel,
-pos => [10, 22],
-text => 'username:',
-foreground => 0xff
);
# Create a text input field.
my $userfield = $main -> AddTextfield
(
-eventmodel => "byname",
-name => "username",
-align=> "left",
-pos => [96, 20],
-size => [100, 24],
-width=> 100,
-height => 20,
-password => 0,
-passwordChar => chr(249),
-background => 0xff,
-font => $monoinput,
-text => '',
);
my $passlabel = $main -> AddLabel
(
-font => $monolabel,
-pos => [10, 64],
-text => 'password:',
-foreground => 0xff
);
# Create a text input field.
my $passfield = $main -> AddTextfield
(
-eventmodel => "byname",
-name => "password",
-align=> "left",
-tabstop => 1,
-pos => [96, 60],
-size => [100, 24],
-password => 1,
-passwordChar => chr(249),
-background => 0xff,
-font => $monoinput,
-text => '',
# -dialogui => 1 # Enable keyboard navigation like DialogBox
);
my $resultLabel = $main -> AddLabel
(
-font => $monolabel,
-pos => [10, 100],
-text => ' ',
-wrap => 0,
-width => 400,
-foreground => 0x00,
-background => 0xff
);
$userfield -> MaxLength(16);
$passfield -> MaxLength(16);
$userfield -> SetFocus();
$main -> Show();
Win32::GUI::Dialog();
exit(0);
#--
sub password_KeyDown {
my($flags,$key) = @_;
if($key == VK_RETURN){
my $string = "Username: ". $userfield->Text(). " Password: ".
$passfield->Text();
$resultLabel->Change(-text=>$string);
}
elsif ($key == VK_TAB) {
$userfield ->SelectAll();
$userfield ->SetFocus();
}
return 1;
}
#--
sub username_KeyDown {
my($flags,$key) = @_;
if($key == VK_RETURN or $key == VK_TAB){
$passfield ->SelectAll();
$passfield ->SetFocus();
}
return 1;
}
#------
sub Main_Terminate {-1;}
########
Jack D.
>
> Thank you,
>
> Barry Brevik
> ---
> use strict;
> use warnings;
> use Win32;
> use Win32::GUI();
>
> my $main = Win32::GUI::Window -> new
> (
>-name => 'Main',
>-title => 'Test v0.1',
>-width => 400,
>-height => 200
> );
>
> my $monoinput = Win32::GUI::Font -> new(-name => 'Consolas', -size =>
> 10, -bold => 0, -italic => 0);
> my $monolabel = Win32::GUI::Font -> new(-name => 'Consolas', -size =>
> 10, -bold => 1, -italic => 0);
>
> my $userlabel = $main -> AddLabel
> (
>-font => $monolabel,
Help with Win32::GUI
I am lost with this simple app, and I hope I am posting to the correct
list; the Sourceforge list appears to dead.
Anyway, the problem is with the event model (I guess). I have 2 fields
and all I want is when the user presses ENTER or TAB in the first field,
I want to capture the text, and have the focus move to the next field. I
have Change set for the fields, which is alright, but I fail to see how
I can capture the RETURN or TAB key. Annoyingly, the LostFocus event
fires every time a key is pressed, which makes no sense to me.
Below is my simplified code which displays the action. I'm sorry that it
is about 90 lines in length. Can anyone help?
Thank you,
Barry Brevik
---
use strict;
use warnings;
use Win32;
use Win32::GUI();
my $main = Win32::GUI::Window -> new
(
-name => 'Main',
-title => 'Test v0.1',
-width => 400,
-height => 200
);
my $monoinput = Win32::GUI::Font -> new(-name => 'Consolas', -size =>
10, -bold => 0, -italic => 0);
my $monolabel = Win32::GUI::Font -> new(-name => 'Consolas', -size =>
10, -bold => 1, -italic => 0);
my $userlabel = $main -> AddLabel
(
-font => $monolabel,
-pos => [10, 22],
-text => 'username:',
-foreground => 0xff
);
# Create a text input field.
my $userfield = $main -> AddTextfield
(
-eventmodel => "byname",
-name => "username",
-align=> "left",
-tabstop => 1,
-pos => [76, 20],
-size => [100, 24],
-width=> 100,
-height => 20,
-password => 0,
-passwordChar => chr(249),
-background => 0xff,
-font => $monoinput,
-text => '',
-dialogui => 1 # Enable keyboard navigation like DialogBox
);
my $passlabel = $main -> AddLabel
(
-font => $monolabel,
-pos => [10, 64],
-text => 'password:',
-foreground => 0xff
);
# Create a text input field.
my $passfield = $main -> AddTextfield
(
-eventmodel => "byname",
-name => "password",
-align=> "left",
-tabstop => 1,
-pos => [76, 60],
-size => [100, 24],
-password => 1,
-passwordChar => chr(249),
-background => 0xff,
-font => $monoinput,
-text => '',
-dialogui => 1 # Enable keyboard navigation like DialogBox
);
$userfield -> MaxLength(16);
$passfield -> MaxLength(16);
$main -> username -> SetFocus();
$main -> Show();
Win32::GUI::Dialog();
exit(0);
#--
sub username_Change
{
Win32::MsgBox("Username field has changed", 48, "Message from
Username");
$userfield -> SetFocus();
}
#--
sub username_LostFocus
{
Win32::MsgBox("Username field has lost focus", 48, "Message from
Password");
}
#--
sub Main_Terminate {-1;}
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
Jan - Fixed, thanks for your help. Probably not necessary, but . . . - removed PDK - removed Active Perl - Cleaned out a couple of left-over registry entries in CLSID for "PerlDB.exe" - Re-installed all - Re-installed my license - Re-started . . . and it's all working :-) Dan On 03/19/12 01:32 PM, Jan Dubois wrote: > On Mon, 19 Mar 2012, Daniel Rawson wrote: >> Chris - >> >> That's what I was afraid of . . . .my 5.14.2 install is definitely >> 64-bit, but the old PDK is from 2004, so it's certainly 32-bit :-( > > The 32-bit PDK debugger should still work with 64-bit Perl. > They run in separate processes and just exchange information > in text format. > > Cheers, > -Jan > > > > -- The information contained in this communication and any attachments is confidential and may be privileged, and is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. Unless explicitly stated otherwise in the body of this communication or the attachment thereto (if any), the information is provided on an AS-IS basis without any express or implied warranties or liabilities. To the extent you are relying on this information, you are doing so at your own risk. If you are not the intended recipient, please notify the sender immediately by replying to this message and destroy all copies of this message and any attachments. ASML is neither liable for the proper and complete transmission of the information contained in this communication, nor for any delay in its receipt. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: gui debuggers?
On Mon, 19 Mar 2012, Daniel Rawson wrote: > Chris - > > That's what I was afraid of . . . .my 5.14.2 install is definitely > 64-bit, but the old PDK is from 2004, so it's certainly 32-bit :-( The 32-bit PDK debugger should still work with 64-bit Perl. They run in separate processes and just exchange information in text format. Cheers, -Jan ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: gui debuggers?
The relevant value is PERL5DB. It should have been set by pdkdebug
for you, but maybe there is some permissions issue if you don't
run it elevated.
pdkdebug will set this variable in the registry under the Perl key,
but you can also add it manually to the environment yourself.
The value should be something like:
"{BEGIN {require q}}"
without the quotes, and you have to figure out the exact path yourself
(it may not even be under the PDK/bin/lib directory in PDK6, I can't
remember).
Cheers,
-Jan
On Mon, 19 Mar 2012, Daniel Rawson wrote:
>
> Jan -
>
> Thanks . . . I did finally get it to install, but it won't start by default
> from perl -d :-(
>
> I tried setting PERL5LIB to the install path, but that didn't help. The
> debug listener is running,
> and -query shows that it's running in local mode . . . . any other ideas?
>
> Thanks!
>
> Dan
>
> On 03/19/12 12:55 PM, Jan Dubois wrote:
> > Daniel,
> >
> > There is no GUI debugger included in ActivePerl (I think Mark
> > may be mixing it up with the GUI interface to Perl::Critic,
> > which was initially added to the PDK, but has been moved to
> > ActivePerl since then).
> >
> > However, the GUI debugger from your PDK should still work with
> > the latest ActivePerl, even though PerlApp& friends won't
> > (I can't remember what was included in PDK 6, but generally
> > everything that was labeled a "productivity tool" should be
> > version independent, whereas everything labeled a "deployment
> > tool" has code that needs to be adapted to each Perl release).
> >
> > Cheers,
> > -Jan
> >
> > On Mon, 19 Mar 2012, Daniel Rawson wrote:
> >> Mark -
> >>
> >> Thanks . . . I get the command-line debugger when I start with -d . .
> >> . more research, I guess :-)
> >>
> >> Dan On 03/19/12 06:37 AM, Mark Dootson wrote:
> >>> I think you'll find ActivePerl 5.14.2 comes with its own graphical
> >>> debugger. If it doesn't load by default with -d, you must have some
> >>> setting present that prevents this.
> >>>
> >>> On 19/03/2012 10:15, Daniel Rawson wrote:
> >>>> My work system was recently "upgraded" to Windows 7 and ActivePerl
> >>>> 5.14.2 - I had been using v5.8 +
> >> PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with
> >> my company-provided install of
> >> 5.14.2. In addition, the Devel::ptkdb module is not available for
> >> 5.14.
> >>>>
> >>>> I've been using the regular command-line debugger, but I would love
> >>>> to find another GUI debugger.
> >>>>
> >>>> Suggestions?
> >>>>
> >>>> Thanks
> >>>>
> >>>> Dan
> >
> >
> >
> >
>
> --
> The information contained in this communication and any attachments is
> confidential and may be
> privileged, and is for the sole use of the intended recipient(s). Any
> unauthorized review, use,
> disclosure or distribution is prohibited. Unless explicitly stated otherwise
> in the body of this
> communication or the attachment thereto (if any), the information is provided
> on an AS-IS basis
> without any express or implied warranties or liabilities. To the extent you
> are relying on this
> information, you are doing so at your own risk. If you are not the intended
> recipient, please notify
> the sender immediately by replying to this message and destroy all copies of
> this message and any
> attachments. ASML is neither liable for the proper and complete transmission
> of the information
> contained in this communication, nor for any delay in its receipt.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
Chris - That's what I was afraid of . . . .my 5.14.2 install is definitely 64-bit, but the old PDK is from 2004, so it's certainly 32-bit :-( perl -V returns: == Summary of my perl5 (revision 5 version 14 subversion 2) configuration: Platform: osname=MSWin32, osvers=5.2, archname=MSWin32-x64-multi-thread == Dan On 03/19/12 01:21 PM, Christopher Taranto wrote: > Hi Daniel, > > I don't believe that there is a 64-bit PDK gui debugger which is what I > believe that you are trying to use. > > Chris > > On Mon, Mar 19, 2012 at 10:18 AM, Daniel > Rawsonmailto:daniel.raw...@asml.com>> wrote: > Jan - > > Thanks . . . I did finally get it to install, but it won't start by default > from perl -d :-( > > I tried setting PERL5LIB to the install path, but that didn't help. The > debug listener is running, and -query shows that it's running in local mode . > . . . any other ideas? > > Thanks! > > Dan > > On 03/19/12 12:55 PM, Jan Dubois wrote: >> Daniel, >> >> There is no GUI debugger included in ActivePerl (I think Mark >> may be mixing it up with the GUI interface to Perl::Critic, >> which was initially added to the PDK, but has been moved to >> ActivePerl since then). >> >> However, the GUI debugger from your PDK should still work with >> the latest ActivePerl, even though PerlApp& friends won't >> (I can't remember what was included in PDK 6, but generally >> everything that was labeled a "productivity tool" should be >> version independent, whereas everything labeled a "deployment >> tool" has code that needs to be adapted to each Perl release). >> >> Cheers, >> -Jan >> >> On Mon, 19 Mar 2012, Daniel Rawson wrote: >>> Mark - >>> >>> Thanks . . . I get the command-line debugger when I start with -d . . >>> . more research, I guess :-) >>> >>> Dan On 03/19/12 06:37 AM, Mark Dootson wrote: >>>> I think you'll find ActivePerl 5.14.2 comes with its own graphical >>>> debugger. If it doesn't load by default with -d, you must have some >>>> setting present that prevents this. >>>> >>>> On 19/03/2012 10:15, Daniel Rawson wrote: >>>>> My work system was recently "upgraded" to Windows 7 and ActivePerl >>>>> 5.14.2 - I had been using v5.8 + >>> PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with >>> my company-provided install of >>> 5.14.2. In addition, the Devel::ptkdb module is not available for >>>5.14. >>>>> >>>>> I've been using the regular command-line debugger, but I would love >>>>> to find another GUI debugger. >>>>> >>>>> Suggestions? >>>>> >>>>> Thanks >>>>> >>>>> Dan -- The information contained in this communication and any attachments is confidential and may be privileged, and is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. Unless explicitly stated otherwise in the body of this communication or the attachment thereto (if any), the information is provided on an AS-IS basis without any express or implied warranties or liabilities. To the extent you are relying on this information, you are doing so at your own risk. If you are not the intended recipient, please notify the sender immediately by replying to this message and destroy all copies of this message and any attachments. ASML is neither liable for the proper and complete transmission of the information contained in this communication, nor for any delay in its receipt. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
Hi Daniel, I don't believe that there is a 64-bit PDK gui debugger which is what I believe that you are trying to use. Chris On Mon, Mar 19, 2012 at 10:18 AM, Daniel Rawson wrote: > Jan - > > Thanks . . . I did finally get it to install, but it won't start by > default from perl -d :-( > > I tried setting PERL5LIB to the install path, but that didn't help. The > debug listener is running, and -query shows that it's running in local mode > . . . . any other ideas? > > Thanks! > > Dan > > On 03/19/12 12:55 PM, Jan Dubois wrote: > > Daniel, > > > > There is no GUI debugger included in ActivePerl (I think Mark > > may be mixing it up with the GUI interface to Perl::Critic, > > which was initially added to the PDK, but has been moved to > > ActivePerl since then). > > > > However, the GUI debugger from your PDK should still work with > > the latest ActivePerl, even though PerlApp& friends won't > > (I can't remember what was included in PDK 6, but generally > > everything that was labeled a "productivity tool" should be > > version independent, whereas everything labeled a "deployment > > tool" has code that needs to be adapted to each Perl release). > > > > Cheers, > > -Jan > > > > On Mon, 19 Mar 2012, Daniel Rawson wrote: > >> Mark - > >> > >> Thanks . . . I get the command-line debugger when I start with -d . . > >> . more research, I guess :-) > >> > >> Dan On 03/19/12 06:37 AM, Mark Dootson wrote: > >>> I think you'll find ActivePerl 5.14.2 comes with its own graphical > >>> debugger. If it doesn't load by default with -d, you must have some > >>> setting present that prevents this. > >>> > >>> On 19/03/2012 10:15, Daniel Rawson wrote: > >>>> My work system was recently "upgraded" to Windows 7 and ActivePerl > >>>> 5.14.2 - I had been using v5.8 + > >> PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with > >> my company-provided install of > >> 5.14.2. In addition, the Devel::ptkdb module is not available for > >> 5.14. > >>>> > >>>> I've been using the regular command-line debugger, but I would love > >>>> to find another GUI debugger. > >>>> > >>>> Suggestions? > >>>> > >>>> Thanks > >>>> > >>>> Dan > > > > > > > > > > -- > The information contained in this communication and any attachments is > confidential and may be privileged, and is for the sole use of the intended > recipient(s). Any unauthorized review, use, disclosure or distribution is > prohibited. Unless explicitly stated otherwise in the body of this > communication or the attachment thereto (if any), the information is > provided on an AS-IS basis without any express or implied warranties or > liabilities. To the extent you are relying on this information, you are > doing so at your own risk. If you are not the intended recipient, please > notify the sender immediately by replying to this message and destroy all > copies of this message and any attachments. ASML is neither liable for the > proper and complete transmission of the information contained in this > communication, nor for any delay in its receipt. > > > ___ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
Jan - Thanks . . . I did finally get it to install, but it won't start by default from perl -d :-( I tried setting PERL5LIB to the install path, but that didn't help. The debug listener is running, and -query shows that it's running in local mode . . . . any other ideas? Thanks! Dan On 03/19/12 12:55 PM, Jan Dubois wrote: > Daniel, > > There is no GUI debugger included in ActivePerl (I think Mark > may be mixing it up with the GUI interface to Perl::Critic, > which was initially added to the PDK, but has been moved to > ActivePerl since then). > > However, the GUI debugger from your PDK should still work with > the latest ActivePerl, even though PerlApp& friends won't > (I can't remember what was included in PDK 6, but generally > everything that was labeled a "productivity tool" should be > version independent, whereas everything labeled a "deployment > tool" has code that needs to be adapted to each Perl release). > > Cheers, > -Jan > > On Mon, 19 Mar 2012, Daniel Rawson wrote: >> Mark - >> >> Thanks . . . I get the command-line debugger when I start with -d . . >> . more research, I guess :-) >> >> Dan On 03/19/12 06:37 AM, Mark Dootson wrote: >>> I think you'll find ActivePerl 5.14.2 comes with its own graphical >>> debugger. If it doesn't load by default with -d, you must have some >>> setting present that prevents this. >>> >>> On 19/03/2012 10:15, Daniel Rawson wrote: >>>> My work system was recently "upgraded" to Windows 7 and ActivePerl >>>> 5.14.2 - I had been using v5.8 + >> PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with >> my company-provided install of >> 5.14.2. In addition, the Devel::ptkdb module is not available for >> 5.14. >>>> >>>> I've been using the regular command-line debugger, but I would love >>>> to find another GUI debugger. >>>> >>>> Suggestions? >>>> >>>> Thanks >>>> >>>> Dan > > > > -- The information contained in this communication and any attachments is confidential and may be privileged, and is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. Unless explicitly stated otherwise in the body of this communication or the attachment thereto (if any), the information is provided on an AS-IS basis without any express or implied warranties or liabilities. To the extent you are relying on this information, you are doing so at your own risk. If you are not the intended recipient, please notify the sender immediately by replying to this message and destroy all copies of this message and any attachments. ASML is neither liable for the proper and complete transmission of the information contained in this communication, nor for any delay in its receipt. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: gui debuggers?
Daniel, There is no GUI debugger included in ActivePerl (I think Mark may be mixing it up with the GUI interface to Perl::Critic, which was initially added to the PDK, but has been moved to ActivePerl since then). However, the GUI debugger from your PDK should still work with the latest ActivePerl, even though PerlApp & friends won't (I can't remember what was included in PDK 6, but generally everything that was labeled a "productivity tool" should be version independent, whereas everything labeled a "deployment tool" has code that needs to be adapted to each Perl release). Cheers, -Jan On Mon, 19 Mar 2012, Daniel Rawson wrote: > Mark - > > Thanks . . . I get the command-line debugger when I start with -d . . > . more research, I guess :-) > > Dan On 03/19/12 06:37 AM, Mark Dootson wrote: >> I think you'll find ActivePerl 5.14.2 comes with its own graphical >> debugger. If it doesn't load by default with -d, you must have some >> setting present that prevents this. >> >> On 19/03/2012 10:15, Daniel Rawson wrote: >>> My work system was recently "upgraded" to Windows 7 and ActivePerl >>> 5.14.2 - I had been using v5.8 + > PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with > my company-provided install of > 5.14.2. In addition, the Devel::ptkdb module is not available for > 5.14. >>> >>> I've been using the regular command-line debugger, but I would love >>> to find another GUI debugger. >>> >>> Suggestions? >>> >>> Thanks >>> >>> Dan ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: gui debuggers?
Hi,
I guess you have toggled the debugger onto the command-line by setting
environment variable
PERL5DB=BEGIN { require 'perl5db.pl'; }
Check http://docs.activestate.com/komodo/4.4/debugperl.html, Disabling and
Enabling the Perl Dev Kit (PDK) Debugger
-rainer-
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Daniel
Rawson
Sent: 19. maaliskuuta 2012 12:43
To: Mark Dootson
Cc: perl-win32-users@listserv.ActiveState.com
Subject: Re: gui debuggers?
Mark -
Thanks . . . I get the command-line debugger when I start with -d . . . more
research, I guess :-)
Dan
On 03/19/12 06:37 AM, Mark Dootson wrote:
> I think you'll find ActivePerl 5.14.2 comes with its own graphical
> debugger. If it doesn't load by default with -d, you must have some
> setting present that prevents this.
>
> On 19/03/2012 10:15, Daniel Rawson wrote:
>> My work system was recently "upgraded" to Windows 7 and ActivePerl 5.14.2 -
>> I had been using v5.8 + PDK v6 for years. Unfortunately, the old 32-bit PDK
>> doesn't work with my company-provided install of 5.14.2. In addition, the
>> Devel::ptkdb module is not available for 5.14.
>>
>> I've been using the regular command-line debugger, but I would love to find
>> another GUI debugger.
>>
>> Suggestions?
>>
>> Thanks
>>
>> Dan
--
The information contained in this communication and any attachments is
confidential and may be privileged, and is for the sole use of the intended
recipient(s). Any unauthorized review, use, disclosure or distribution is
prohibited. Unless explicitly stated otherwise in the body of this
communication or the attachment thereto (if any), the information is provided
on an AS-IS basis without any express or implied warranties or liabilities. To
the extent you are relying on this information, you are doing so at your own
risk. If you are not the intended recipient, please notify the sender
immediately by replying to this message and destroy all copies of this message
and any attachments. ASML is neither liable for the proper and complete
transmission of the information contained in this communication, nor for any
delay in its receipt.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
Ooops On 19/03/2012 10:37, Mark Dootson wrote: > I think you'll find ActivePerl 5.14.2 comes with its own graphical > debugger. If it doesn't load by default with -d, you must have some > setting present that prevents this. I'm thinking I imagined this. Can't find a reference to it anywhere. Sorry, it appears I had a senior moment. :-( Mark ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
Mark - Thanks . . . I get the command-line debugger when I start with -d . . . more research, I guess :-) Dan On 03/19/12 06:37 AM, Mark Dootson wrote: > I think you'll find ActivePerl 5.14.2 comes with its own graphical > debugger. If it doesn't load by default with -d, you must have some > setting present that prevents this. > > On 19/03/2012 10:15, Daniel Rawson wrote: >> My work system was recently "upgraded" to Windows 7 and ActivePerl 5.14.2 - >> I had been using v5.8 + PDK v6 for years. Unfortunately, the old 32-bit PDK >> doesn't work with my company-provided install of 5.14.2. In addition, the >> Devel::ptkdb module is not available for 5.14. >> >> I've been using the regular command-line debugger, but I would love to find >> another GUI debugger. >> >> Suggestions? >> >> Thanks >> >> Dan -- The information contained in this communication and any attachments is confidential and may be privileged, and is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. Unless explicitly stated otherwise in the body of this communication or the attachment thereto (if any), the information is provided on an AS-IS basis without any express or implied warranties or liabilities. To the extent you are relying on this information, you are doing so at your own risk. If you are not the intended recipient, please notify the sender immediately by replying to this message and destroy all copies of this message and any attachments. ASML is neither liable for the proper and complete transmission of the information contained in this communication, nor for any delay in its receipt. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: gui debuggers?
I think you'll find ActivePerl 5.14.2 comes with its own graphical debugger. If it doesn't load by default with -d, you must have some setting present that prevents this. On 19/03/2012 10:15, Daniel Rawson wrote: > My work system was recently "upgraded" to Windows 7 and ActivePerl 5.14.2 - I > had been using v5.8 + PDK v6 for years. Unfortunately, the old 32-bit PDK > doesn't work with my company-provided install of 5.14.2. In addition, the > Devel::ptkdb module is not available for 5.14. > > I've been using the regular command-line debugger, but I would love to find > another GUI debugger. > > Suggestions? > > Thanks > > Dan ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
gui debuggers?
My work system was recently "upgraded" to Windows 7 and ActivePerl 5.14.2 - I had been using v5.8 + PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with my company-provided install of 5.14.2. In addition, the Devel::ptkdb module is not available for 5.14. I've been using the regular command-line debugger, but I would love to find another GUI debugger. Suggestions? Thanks Dan -- /* - * * Dan Rawson * ASML \_/* * daniel.raw...@asml.com * Software Configuration Mgmt. | ~ ~ |* * 203-563-3881 * (- 0 0 -) * *-oOOo-(_)-oOOo-* * Searching is half the fun: life is much more manageable when * * thought of as a scavenger hunt as opposed to a surprise party.* * - Jimmy Buffett */ -- The information contained in this communication and any attachments is confidential and may be privileged, and is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. Unless explicitly stated otherwise in the body of this communication or the attachment thereto (if any), the information is provided on an AS-IS basis without any express or implied warranties or liabilities. To the extent you are relying on this information, you are doing so at your own risk. If you are not the intended recipient, please notify the sender immediately by replying to this message and destroy all copies of this message and any attachments. ASML is neither liable for the proper and complete transmission of the information contained in this communication, nor for any delay in its receipt. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::GUI, minimize, and window resize
For future googlers, the answer to the problem is get rid of the $mw->Show()
call in the resize routine.
Ken Cornetet 812.482.8499
To err is human - to moo, bovine.
From: Ken Cornetet
Sent: Thursday, December 15, 2011 10:02 AM
To: perl-win32-users@listserv.activestate.com
Subject: Win32::GUI, minimize, and window resize
Here's an odd problem.
I've written a win32::GUI application, but it will not maximize or minimize.
When I try, I see the window sort of blink, and I can see that the "resize" sub
has been called. If I comment out the Main_Resize sub, the program maximizes
and minimizes as expected.
Any ideas?
Here's the applicable bits of code:
my $menu = Win32::GUI::Menu->new(
'&File' => 'menuUP',
' > E&xit' => 'menuExit',
'&Control' => 'menuControl',
' > &Up' => 'menuUp',
'&Help' =>
'menuHelp',
' > &Help' => 'menuHelp',
);
my $mw = Win32::GUI::Window->new( -name => 'Main', -menu => $menu, -text =>
"Xen Mon", -size => [ 900, 900 ], -pos => [ 200, 200 ] );
my $sb = $mw->AddStatusBar();
my $lv = $mw->AddListView(-pos => [ 0, 0 ], -width => $mw->ScaleWidth(),
-height => $mw->ScaleHeight(), -hscroll => 1, -vscroll => 1);
$lv->InsertColumn( -item => 0, -text => "SILO/SERVER", -width => 120, -align
=>'left');
$lv->InsertColumn( -item => 1, -text => "USERS",-width => 50, -align
=>'right');
$lv->InsertColumn( -item => 2, -text => "SESS/DISC",-width => 75, -align
=>'right');
$lv->InsertColumn( -item => 3, -text => "MEM/TOT", -width => 75, -align
=>'right');
$lv->InsertColumn( -item => 4, -text => "UP", -width => 60, -align
=>'right');
$lv->InsertColumn( -item => 5, -text => 'LOAD%',-width => 50, -align
=>'right');
$lv->InsertColumn( -item => 6, -text => 'CPU%', -width => 50, -align
=>'right');
$lv->InsertColumn( -item => 7, -text => "", -width => 300, -align
=>'left');
$lv->Hook(NM_CUSTOMDRAW, \&lv_CustomDraw);
sub Main_Resize {
print "*** resize ***\n";
$sb->Move(0, $mw->ScaleHeight - $sb->Height);
$sb->Resize($mw->ScaleWidth, $sb->Height);
$lv->Resize($mw->ScaleWidth, $mw->ScaleHeight - $sb->Height -
$menu->Height);
$mw->Show;
return 1;
}
Ken Cornetet 812.482.8499
To err is human - to moo, bovine.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI, minimize, and window resize
Here's an odd problem.
I've written a win32::GUI application, but it will not maximize or minimize.
When I try, I see the window sort of blink, and I can see that the "resize" sub
has been called. If I comment out the Main_Resize sub, the program maximizes
and minimizes as expected.
Any ideas?
Here's the applicable bits of code:
my $menu = Win32::GUI::Menu->new(
'&File' => 'menuUP',
' > E&xit' => 'menuExit',
'&Control' => 'menuControl',
' > &Up' => 'menuUp',
'&Help' =>
'menuHelp',
' > &Help' => 'menuHelp',
);
my $mw = Win32::GUI::Window->new( -name => 'Main', -menu => $menu, -text =>
"Xen Mon", -size => [ 900, 900 ], -pos => [ 200, 200 ] );
my $sb = $mw->AddStatusBar();
my $lv = $mw->AddListView(-pos => [ 0, 0 ], -width => $mw->ScaleWidth(),
-height => $mw->ScaleHeight(), -hscroll => 1, -vscroll => 1);
$lv->InsertColumn( -item => 0, -text => "SILO/SERVER", -width => 120, -align
=>'left');
$lv->InsertColumn( -item => 1, -text => "USERS",-width => 50, -align
=>'right');
$lv->InsertColumn( -item => 2, -text => "SESS/DISC",-width => 75, -align
=>'right');
$lv->InsertColumn( -item => 3, -text => "MEM/TOT", -width => 75, -align
=>'right');
$lv->InsertColumn( -item => 4, -text => "UP", -width => 60, -align
=>'right');
$lv->InsertColumn( -item => 5, -text => 'LOAD%',-width => 50, -align
=>'right');
$lv->InsertColumn( -item => 6, -text => 'CPU%', -width => 50, -align
=>'right');
$lv->InsertColumn( -item => 7, -text => "", -width => 300, -align
=>'left');
$lv->Hook(NM_CUSTOMDRAW, \&lv_CustomDraw);
sub Main_Resize {
print "*** resize ***\n";
$sb->Move(0, $mw->ScaleHeight - $sb->Height);
$sb->Resize($mw->ScaleWidth, $sb->Height);
$lv->Resize($mw->ScaleWidth, $mw->ScaleHeight - $sb->Height -
$menu->Height);
$mw->Show;
return 1;
}
Ken Cornetet 812.482.8499
To err is human - to moo, bovine.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI, WMI, and threads
I'd try putting all the Win32::OLE stuff into its own (single) thread, separate from the GUI thread. Some creative use of variables (and e.g. a Tk Progress bar) can allow you to provide a GUI which indicates how long you've been waiting for a WMI call to respond. HTH, Jonathan On 10/27/2011 5:24 PM, Ken Cornetet wrote: I am writing a Win32::GUI app to monitor a Citrix farm of servers and I’ve got things going pretty well. The problem is that I make a lot of WMI calls (via Win32::OLE) and they can take anywhere from a second to a couple of minutes to complete. This prevents the GUI code from doing its normal event loop processing and results in a non-responsive windows interface. I’m thinking that threads are the answer, but any time I’ve mixed threads and Win32::OLE, the results have been less than satisfactory. Does anyone know how to make Win32::OLE (WMI specifically) and threads work together? Or, is there any way to do async WMI calls? Ken Cornetet 812.482.8499 To err is human - to moo, bovine. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI, WMI, and threads
I am writing a Win32::GUI app to monitor a Citrix farm of servers and I've got things going pretty well. The problem is that I make a lot of WMI calls (via Win32::OLE) and they can take anywhere from a second to a couple of minutes to complete. This prevents the GUI code from doing its normal event loop processing and results in a non-responsive windows interface. I'm thinking that threads are the answer, but any time I've mixed threads and Win32::OLE, the results have been less than satisfactory. Does anyone know how to make Win32::OLE (WMI specifically) and threads work together? Or, is there any way to do async WMI calls? Ken Cornetet 812.482.8499 To err is human - to moo, bovine. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: GUI based perl
On Thu, 30 Jul 2009, Serguei Trouchelle wrote: > I'd say Tkx because Tk is no longer developed. In case you haven't seen it, the TkDocs site has a tutorial that shows how to use the latest Tk bindings from Tcl, Ruby, Python and Perl, using the Tkx interface for the Perl code: http://www.tkdocs.com/tutorial/index.html Cheers, -Jan ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: GUI based perl
I'd say Tkx because Tk is no longer developed. Also, wxPerl (and Cava Packager) may be an interesting alternative to Tk*. mohammed.must...@wipro.com wrote: > Use perl *TK *utility. -- Serguei Trouchelle ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: GUI based perl
try activestate's guibuilder from http://spectcl.sourceforge.net. It has some issues but is mostly functional. vptk_w is another option but I consider guibuilder better! mohammed.must...@wipro.com wrote: Honestly speaking that takes sometime. But I don't have any idea about the tool which help u to avoid that stuff. Please let me know if someone reply u with that tool and not marking the complete list in the *TO* list.Sometime this the possibility. :-) Regards, Mustafa begin:vcard fn:Angelos Karageorgiou n:Karageorgiou;Angelos org:Vivodi Telecommunications S.A. email;internet:ange...@unix.gr title:Technology Manager tel;work:+30 211 7503 893 tel;fax:+30 211 7503 701 tel;cell:+30 6949120773 note;quoted-printable:=0D=0A= =0D=0A= Linkedin Profile = =0D=0A= http://www.linkedin.com/in/unixgr=0D=0A= =0D=0A= =0D=0A= =0D=0A= Personal Web Site=0D=0A= http://www.unix.gr=0D=0A= =0D=0A= =0D=0A= Blog Site=0D=0A= http://angelos-proverbs.blogspot.com x-mozilla-html:FALSE url:http://www.linkedin.com/in/unixgr version:2.1 end:vcard ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: GUI based perl
Honestly speaking that takes sometime. But I don't have any idea about the tool which help u to avoid that stuff. Please let me know if someone reply u with that tool and not marking the complete list in the TO list.Sometime this the possibility. :-) Regards, Mustafa From: Kprasad [mailto:kpra...@aptaracorp.com] Sent: Thu 7/30/2009 11:30 AM To: Mohammed Mustafa (WT01 - PES-Semi-Technology); perl-win32-users@listserv.ActiveState.com Subject: Re: GUI based perl But it needs lot of coding to draw anything. Is there any utility where I can make user interface by creating from already defined tool bar?? Kanhaiya Prasad - Original Message - From: mohammed.must...@wipro.com To: kpra...@aptaracorp.com ; perl-win32-users@listserv.ActiveState.com Sent: Thursday, July 30, 2009 11:01 AM Subject: RE: GUI based perl Use perl TK utility. Regards, Mustafa From: perl-win32-users-boun...@listserv.activestate.com on behalf of Kprasad Sent: Wed 7/29/2009 9:22 PM To: perl-win32-users@listserv.ActiveState.com Subject: GUI based perl Hi Please suggest me that what should I use to create interactive GUI for running perl script. There may be button to Browse file and Run particular tool available with that interface. While script is running user can view the progress of that script and after completion of execution download button should be available to download that file. Kanhaiya Prasad Please do not print this email unless it is absolutely necessary. The information contained in this electronic message and any attachments to this message are intended for the exclusive use of the addressee(s) and may contain proprietary, confidential or privileged information. If you are not the intended recipient, you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately and destroy all copies of this message and any attachments. WARNING: Computer viruses can be transmitted via email. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. www.wipro.com Please do not print this email unless it is absolutely necessary. The information contained in this electronic message and any attachments to this message are intended for the exclusive use of the addressee(s) and may contain proprietary, confidential or privileged information. If you are not the intended recipient, you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately and destroy all copies of this message and any attachments. WARNING: Computer viruses can be transmitted via email. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. www.wipro.com ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: GUI based perl
But it needs lot of coding to draw anything. Is there any utility where I can make user interface by creating from already defined tool bar?? Kanhaiya Prasad - Original Message - From: mohammed.must...@wipro.com To: kpra...@aptaracorp.com ; perl-win32-users@listserv.ActiveState.com Sent: Thursday, July 30, 2009 11:01 AM Subject: RE: GUI based perl Use perl TK utility. Regards, Mustafa -- From: perl-win32-users-boun...@listserv.activestate.com on behalf of Kprasad Sent: Wed 7/29/2009 9:22 PM To: perl-win32-users@listserv.ActiveState.com Subject: GUI based perl Hi Please suggest me that what should I use to create interactive GUI for running perl script. There may be button to Browse file and Run particular tool available with that interface. While script is running user can view the progress of that script and after completion of execution download button should be available to download that file. Kanhaiya Prasad Please do not print this email unless it is absolutely necessary. The information contained in this electronic message and any attachments to this message are intended for the exclusive use of the addressee(s) and may contain proprietary, confidential or privileged information. If you are not the intended recipient, you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately and destroy all copies of this message and any attachments. WARNING: Computer viruses can be transmitted via email. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. www.wipro.com ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: GUI based perl
Use perl TK utility. Regards, Mustafa From: perl-win32-users-boun...@listserv.activestate.com on behalf of Kprasad Sent: Wed 7/29/2009 9:22 PM To: perl-win32-users@listserv.ActiveState.com Subject: GUI based perl Hi Please suggest me that what should I use to create interactive GUI for running perl script. There may be button to Browse file and Run particular tool available with that interface. While script is running user can view the progress of that script and after completion of execution download button should be available to download that file. Kanhaiya Prasad Please do not print this email unless it is absolutely necessary. The information contained in this electronic message and any attachments to this message are intended for the exclusive use of the addressee(s) and may contain proprietary, confidential or privileged information. If you are not the intended recipient, you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately and destroy all copies of this message and any attachments. WARNING: Computer viruses can be transmitted via email. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. www.wipro.com ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
GUI based perl
Hi Please suggest me that what should I use to create interactive GUI for running perl script. There may be button to Browse file and Run particular tool available with that interface. While script is running user can view the progress of that script and after completion of execution download button should be available to download that file. Kanhaiya Prasad___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Gui builder
all, I found activestate's gui builder, which is very helpful btw, but I had a couple of questions: 1) Why did activestate stop integrating it in with komodo? It's probably the only component in komodo that I'd actually use heavily.. 2) Is there a group that maintains it? There are a couple of very annoying bugs in it (namely, for some reason, you can't have default text in an entry box, and all entry boxes have an extra argument '-width 0' which causes them to expand if you put text in them.. very annoying. You also can't have any other button besides a square one, although that may be because I'm not very familiar with the tool). I can of course, fix the bugs in the outputted code, but why fix them there if there is another option. Ed ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Registerhotkey() Using Win32 API and GUI
On 24/09/2007, Veli-Pekka Tätilä <[EMAIL PROTECTED]> wrote:
> Robert May wrote:
>>> Has anyone gotten the system wide RegisterHotkey and UnrEgister hotkey
>>> Win32 functions working with Win32::GUI and Win32::API?
>> See here:
>> http://www.mail-archive.com/[EMAIL PROTECTED]/msg05248.html
>
> Now the only big question is what was the difference to my code?
> the only major differences I can see is at a gllance, with a screen
> reader, are as follows:
[snip]
> Last but not least, you use a nice constant like:
>
> VK_A
>
> Where I use the ASCII value
>
> ord 'q'
>
> since I read in Petzold that the virtual key codes for letters are the
> ASCII codes for those letters. Does the case matter normally or since
> shift is down?
>
> ord 'Q'; # is obviously quite different from the lowercase q.
This is the difference. The virtual key code for a key does not
change when the shift key is down. It's the combination of seeing the
virtual key code for the shift key and a letter key that allows
TranslateMessage convert virtual key codes in WM_KEYDOWN/WM_KEYUP
messages to the WM_CHAR messages containing the 'character' to be
used.
The virtual key codes for the letter keys are (on an English keyboard)
the ASCII codes for the UPPER case letters.
> Here are the significant snippets from my original:
[snip]
> RegisterHotKey
> (
>$win->{'-handle'}, HOTKEY_ID,
>MOD_SHIFT | MOD_CONTROL,
>ord 'q'
> ) or die "HOtkey registration failed: $^E\n";
I think if you use ord 'Q' rather than ord 'q' your code would work (untested).
Regards,
Rob.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Registerhotkey() Using Win32 API and GUI
Robert May wrote:
> > Has anyone gotten the system wide RegisterHotkey and UnrEgister hotkey
> > Win32 functions working with Win32::GUI and Win32::API?
> See here:
> http://www.mail-archive.com/[EMAIL PROTECTED]/msg05248.html
Hey great, thanks for the link and code, it works well. It even
demonstrates using a systray icon, which is incidentally something I'll
need to do as well in Win32::GUI but thought I'd figure that out on my
own based on the tutorial.
Now the only big question is what was the difference to my code?
In addition to more sophisticated event handling in the hook function
itself, and a separate set_hotkey function with reversed last two args,
the only major differences I can see is at a gllance, with a screen
reader, are as follows:
using the old style parameter names i and l in stead of INT and UINT
like I did. That is:
My code:
Win32::API->Import
(
user32 => # target window, some id, modifiers, virtual key code.
'BOOL RegisterHotKey(HWND w, int id, UINT mod, UINT vk)'
);
Your style:
Win32::API->Import('user32', 'RegisterHotKey', 'LiII', 'I');
You use an int in stead of bool in the return value, and also the two
last params are UINts in my case. I lifted the prototype straight from
the Windows SDk docs myself, though.
Another possibly crucial matter is the definition of the constants:
Mine:
use constant {MOD_CONTROL => 2, MOD_SHIFT => 4}; # HOtkey modifiers from
Your's:
sub MOD_CONTROL() {0x002} # Ctrl key
sub MOD_SHIFT() {0x004} # Shift key
The style you use is clearer, we're talking bit flags here.
Both 4 and 0x004 print 4, though,
Last but not least, you use a nice constant like:
VK_A
Where I use the ASCII value
ord 'q'
since I read in Petzold that the virtual key codes for letters are the
ASCII codes for those letters. Does the case matter normally or since
shift is down?
ord 'Q'; # is obviously quite different from the lowercase q.
Of course, it might be some different thing entirely that I've failed to
notice. The significant thing is that the register function does work,
letting me stay firmly in the Perl territory. I just find it a bit
unnerving that something suddenly works but I don't know why, .
Here are the significant snippets from my original:
# Constants.
use constant {MOD_CONTROL => 2, MOD_SHIFT => 4};
use constant qw|HOTKEY_ID 32|;
# Importing.
Win32::API->Import
(
user32 => # target window, some id, modifiers, virtual key code.
'BOOL RegisterHotKey(HWND w, int id, UINT mod, UINT vk)'
);
Win32::API->Import
(
user32 =>
'BOOL UnregisterHotKey(HWND w, int id)'
);
# Hooking and calling after having created win.
$win->Hook(WM_HOTKEY, \&key);
RegisterHotKey
(
$win->{'-handle'}, HOTKEY_ID,
MOD_SHIFT | MOD_CONTROL,
ord 'q'
) or die "HOtkey registration failed: $^E\n";
--
With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED])
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Registerhotkey() Using Win32 API and GUI
On 23/09/2007, Veli-Pekka Tätilä <[EMAIL PROTECTED]> wrote:
> Hi,
> Has anyone gotten the system wide RegisterHotkey and UnrEgister hotkey
> Win32 functions working with Win32::GUI and Win32::API?
See here:
http://www.mail-archive.com/[EMAIL PROTECTED]/msg05248.html
Regards,
Rob.
> I just tried but
> my event handler never gets called. Any help as to why this is would be
> appreciated. I hope it's some quirk in my own code I just haven't
> noticed.
>
> My understanding is this:
> YOu call RegisterHotkey with a window handle via which virtual keycode
> messages should be posted, a unique ID for that window handle to
> distinguish multiple key handlers, a list of modifier keys that need to
> be down and finally a virtual keycode to match for the posting to happen
> in the first place. UnregisterHotkey is much the same except that only
> the first two params are needed.
>
> The first problem I had was having to manually dig up constants like
> MOD_WIN from winuser.h (VC2005 Express), it appears to be missing in the
> listing in Win32::GUI::Constant. The second thing was that I couldn't
> find a method of retrieving the Win32 handle from a Win32::GUI::Window
> without having to look at its internals. Thirdly and finally, my event
> handler is never called. This might either be some glich in importing
> the functions, registering the hotkey handlers or adding event handling
> hooks to Win32::GUI, which I've never done before.
>
> Here's the whole code, for your information. What it does is create a
> dummy, currently visible window, register a hotkey handler for
> shift+ctrl+q, and if that handler is triggered, then prints out the
> params in the console:
>
>
> use strict; use warnings;
>
> use constant {MOD_CONTROL => 2, MOD_SHIFT => 4}; # HOtkey modifiers from
> winuser.h
>
> use constant qw|HOTKEY_ID 32|; # Almost any int will do.
>
> use Win32::GUI qw||; use Win32::GUI::Constants qw|WM_HOTKEY|;
> use Win32::API;
>
> # Import the funcs use to register system wide hotkey notifications.
> Win32::API->Import
> (
>user32 => # target window, some id, modifiers, virtual key code.
> 'BOOL RegisterHotKey(HWND w, int id, UINT mod, UINT vk)'
> );
>
> Win32::API->Import
> (
>user32 =>
>'BOOL UnregisterHotKey(HWND w, int id)'
> );
>
> my $win = Win32::GUI::Window->new
> (
>-name => 'main', -text => 'main', -size => [320, 240],
>-onTerminate => \&quit
> );
> $win->Show();
>
>
> # Process the virtual key codes sent to us.
> $win->Hook(WM_HOTKEY, \&key);
>
> # Register hotkey, for alphanumerics ASCIi code is virtual key code.
> RegisterHotKey
> (
>$win->{'-handle'}, HOTKEY_ID,
>MOD_SHIFT | MOD_CONTROL,
>ord 'q'
> ) or die "HOtkey registration failed: $^E\n";
>
> Win32::GUI::Dialog();
>
> sub quit
> { # Unregister hotkey handler and quit.
>UnregisterHotKey($win->{'-handle'}, HOTKEY_ID) or die "Unregistration
> failed: $^E\n";
>-1;
> } # sub
>
> sub key
> { # Just a debug print of the key postedd to us.
>print "Key with params: @_\n";
>1
> } # sub
>
> Finally, a cool solution to the hotkey problem and many other uses, in
> which hooks are desired would be this:
>
> Create a DLL in C which does the actual hooking and is somewhat
> customizable in terms of what it posts back to its user i.e. functions
> to specify how to match params and which window receives the message.
>
> Post the desired data to a window registered with the DLL using
> WM_COPYMESSAGE.
> Then use Win32::API to wrap that DLL and have a possibly invisible
> Win32::GUI::Window receive the things that were hooked.
>
> Even better would be a Perl module which encapsulates having to create
> the window and wrap the DLL.
>
> There are plenty of code examples for hooks in the code project.
> Googling for Win32 hooks produces some nice links, for instance. I've
> used hooks a bit in screen reading but the code is way too ugly to be
> published, . And for screen reading, Win32::ActAcc is infinitely
> better.
>
>
> --
> With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED])
> Accessibility, game music, synthesizers and programming:
> http://www.student.oulu.fi/~vtatila
> ___
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
--
Please update your address book with my new email address:
[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Registerhotkey() Using Win32 API and GUI
Hi,
Has anyone gotten the system wide RegisterHotkey and UnrEgister hotkey
Win32 functions working with Win32::GUI and Win32::API? I just tried but
my event handler never gets called. Any help as to why this is would be
appreciated. I hope it's some quirk in my own code I just haven't
noticed.
My understanding is this:
YOu call RegisterHotkey with a window handle via which virtual keycode
messages should be posted, a unique ID for that window handle to
distinguish multiple key handlers, a list of modifier keys that need to
be down and finally a virtual keycode to match for the posting to happen
in the first place. UnregisterHotkey is much the same except that only
the first two params are needed.
The first problem I had was having to manually dig up constants like
MOD_WIN from winuser.h (VC2005 Express), it appears to be missing in the
listing in Win32::GUI::Constant. The second thing was that I couldn't
find a method of retrieving the Win32 handle from a Win32::GUI::Window
without having to look at its internals. Thirdly and finally, my event
handler is never called. This might either be some glich in importing
the functions, registering the hotkey handlers or adding event handling
hooks to Win32::GUI, which I've never done before.
Here's the whole code, for your information. What it does is create a
dummy, currently visible window, register a hotkey handler for
shift+ctrl+q, and if that handler is triggered, then prints out the
params in the console:
use strict; use warnings;
use constant {MOD_CONTROL => 2, MOD_SHIFT => 4}; # HOtkey modifiers from
winuser.h
use constant qw|HOTKEY_ID 32|; # Almost any int will do.
use Win32::GUI qw||; use Win32::GUI::Constants qw|WM_HOTKEY|;
use Win32::API;
# Import the funcs use to register system wide hotkey notifications.
Win32::API->Import
(
user32 => # target window, some id, modifiers, virtual key code.
'BOOL RegisterHotKey(HWND w, int id, UINT mod, UINT vk)'
);
Win32::API->Import
(
user32 =>
'BOOL UnregisterHotKey(HWND w, int id)'
);
my $win = Win32::GUI::Window->new
(
-name => 'main', -text => 'main', -size => [320, 240],
-onTerminate => \&quit
);
$win->Show();
# Process the virtual key codes sent to us.
$win->Hook(WM_HOTKEY, \&key);
# Register hotkey, for alphanumerics ASCIi code is virtual key code.
RegisterHotKey
(
$win->{'-handle'}, HOTKEY_ID,
MOD_SHIFT | MOD_CONTROL,
ord 'q'
) or die "HOtkey registration failed: $^E\n";
Win32::GUI::Dialog();
sub quit
{ # Unregister hotkey handler and quit.
UnregisterHotKey($win->{'-handle'}, HOTKEY_ID) or die "Unregistration
failed: $^E\n";
-1;
} # sub
sub key
{ # Just a debug print of the key postedd to us.
print "Key with params: @_\n";
1
} # sub
Finally, a cool solution to the hotkey problem and many other uses, in
which hooks are desired would be this:
Create a DLL in C which does the actual hooking and is somewhat
customizable in terms of what it posts back to its user i.e. functions
to specify how to match params and which window receives the message.
Post the desired data to a window registered with the DLL using
WM_COPYMESSAGE.
Then use Win32::API to wrap that DLL and have a possibly invisible
Win32::GUI::Window receive the things that were hooked.
Even better would be a Perl module which encapsulates having to create
the window and wrap the DLL.
There are plenty of code examples for hooks in the code project.
Googling for Win32 hooks produces some nice links, for instance. I've
used hooks a bit in screen reading but the code is way too ugly to be
published, . And for screen reading, Win32::ActAcc is infinitely
better.
--
With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED])
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: PPM4 GUI and the Blind (Was: Beta of PPM version 4 released: Usability, Feature Suggestions)
Bernie Cosell wrote: is there really a need to make the GUI stuff blind-accessible if there's a command-line interface from which you can do everything? surprisingly as some blind folk might find it, there are some of us sighted folk who *prefer* command line/console interfaces to things like these over-GUI-ed up interfaces.. Despite occasional accessibility problems and poor keybord interfaces, sight-impaired folks all over the world find they're enjoying the GUI as much as their sighted counter parts. Adapting your original comment slightly, surprisingly as some sighted folk might find it, most of us blind folk do prefer the GUI to the command line and console interfaces. I can live with a good command-line interface to PPM, especially as it is a friendly command-line utility to begin with. Also, a command-line interface is typically more enjoyable to use than a highly inaccessible bearly usable GUI. But given a good GUI and a good COmmand-line the GUI usually wins hands-down in my book. Another point is that sometimes a keybord accessible GUI can be much more speech friendly than the command-line interface. A screen reader reads everything from left to right top to bottom with no idea of the semantics. So a row of ls -l sounds like this: dee are double u ex dash dash ex dash dash ex three vtatila otol fifteen thirty six june seven zero one colon fourty four public under line h t m l Redundant bits cannot be skipped and the name column giving meaning to the rest of the data is the last rather than the first one. Some of these problems are there in PPM in mild form, and adding the GUI would solve them. Also, hierarchical trees are very hard to manage efficiently in the command-line. One can cursor around the ls output in line, word or char units to get more structure but the basic issues remain. There are Braille displays showing fourty chars on a line in Braille but they are very expensive and you still have to scan the output with your fingers left to right. In contrast, a multi-column list view in Win32 let's you choose exactly the type, order and sort criteria for columns, And all this through the menus and dialogs. Another advantage is that such a list can have the focus inside it so a screen reader automagically follows selection changes. In a console app the cursor cannot go to the ls listing, so you need a separate screen reader specific virtual cursor mode for getting the focus there. Similarly consider auto-completion on the command-line. The form displaying a single item name is quite usable but slow. But a form showing a list of names is much harder. You have to linearly iterate the list with speech: one choice at a time with no easy means of telling the synth to skip around. Again, in a Win32 list view I can type in substring matches from the beginning of an item name and hear the matching item in real time after every letter. Much easier and there's no command-line equivalent to my knowledge. Hope this clarifies matters. -- With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED]) Accessibility, game music, synthesizers and programming: http://www.student.oulu.fi/~vtatila/ ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: [aswin32] Win32::GUI: How do I use a splitter (window "frames")
I posted this example to the list not that long ago. I've since
corrected it so that it doesn't leave ugly lines all over the place.
Regards,
Rob.
#!perl -w
use strict;
use warnings;
use Win32::GUI;
my $mw = Win32::GUI::Window->new(
-title => "Splitter Test",
-pos => [100,100],
-size => [500,400],
-onResize => \&main_resize,
);
$mw->AddTextfield(
-name => "TF1",
-multiline => 1,
-width => 200,
);
$mw->AddSplitter(
-name => "SP",
-left => 200,
-width => 5,
-onRelease => \&do_splitter,
);
$mw->AddTextfield(
-name => "TF2",
-multiline => 1,
-left => 200 + $mw->SP->Width(),
);
$mw->Show();
Win32::GUI::Dialog();
exit(0);
# NEM splitter event gets 2 parameters. The first (as always)
# is the window object the event came from - in this case the
# splitter window; The second depends on the splitter orientation:
# if horzontal it is the top coordinate; if vertical it is
# the left coordinate. (coordinates relative to the parent's
# client area)
# The splitter window is moved by the splitter object, so you only
# have to re-position your other windows
sub do_splitter
{
my ($splitter, $coord) = @_;
$mw->TF1->Width($coord);
$mw->TF2->Left($coord+$mw->SP->Width());
# Swap these next 2 lines to see the 'bug' come back
#$mw->TF2->Width($mw->ScaleWidth()-$mw->SP->Width());
$mw->TF2->Width($mw->ScaleWidth()-$mw->SP->Width()-$coord);
}
sub main_resize
{
my $self = shift;
$self->TF1->Height($self->ScaleHeight());
$self->SP->Height($self->ScaleHeight());
$self->TF2->Resize($self->ScaleWidth()-$self->TF1->Width()-$self->SP->Width(),
$self->ScaleHeight());
}
__END__
A. Pollock wrote:
I built a simple Win32::GUI application which connects to an
Access database containing hierarchical records and builds
a tree view out of them. Now I would like to extend the
application so that clicking on a record in the tree in the
right-hand pane will display the record details in a left
hand pane. Try as I might, I can nowhere find any example
program that uses a moveable splitter to separate a Window
into panes or "frames."
Can anybody give me a simple example showing how to set up
frames in Win32:GUI and put something in them? I'm an idiot
without examples to guide me.
Thanks!
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI: How do I use a splitter (window "frames")
I built a simple Win32::GUI application which connects to an Access database containing hierarchical records and builds a tree view out of them. Now I would like to extend the application so that clicking on a record in the tree in the right-hand pane will display the record details in a left hand pane. Try as I might, I can nowhere find any example program that uses a moveable splitter to separate a Window into panes or "frames." Can anybody give me a simple example showing how to set up frames in Win32:GUI and put something in them? I'm an idiot without examples to guide me. Thanks! -- ___ Search for businesses by name, location, or phone number. -Lycos Yellow Pages http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.asp?SRC=lycos10 ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
FW: MY GUI gets blank
Any help?
From: "SolHai Haile" <[EMAIL PROTECTED]>
To: perl-win32-users@listserv.ActiveState.com
Subject: MY GUI gets blank
Date: Mon, 03 Oct 2005 10:51:29 -0700
I am new to perl/tk, but I am making a good progress.
I wrote this script (perl/TK) to run a test on our appliance. The applinace
is connected
directely to a terminal server. Once I am connected to the applinace, I
send a series of tests
and buffering the result:
@output = $telnet->cmd ('test_cmd');
The test might take from 10 to 25 minutes. During this time, or
transtioning from one test to the
other test, the GUI gets blank. Any help?
I don't have this problem if the appliance is directely connected to
Windows serial port (COM1 ).
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
MY GUI gets blank
I am new to perl/tk, but I am making a good progress.
I wrote this script (perl/TK) to run a test on our appliance. The applinace
is connected
directely to a terminal server. Once I am connected to the applinace, I send
a series of tests
and buffering the result:
@output = $telnet->cmd ('test_cmd');
The test might take from 10 to 25 minutes. During this time, or transtioning
from one test to the
other test, the GUI gets blank. Any help?
I don't have this problem if the appliance is directely connected to Windows
serial port (COM1 ).
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
TK's Screen Reader and Keybord Accessibility, Win32::GUI Questions
Hi list, Ok, I just installed Active TCL with the default settings and tried out both the TK samples of Active TCL and the Synopsis code of Perl's TKX package. But when it comes to accessibility, I'm very disappointed. I'm using Dolphin Supernova 6.x but I doubt Jaws would be able to handle things any better as TK seems so fundamentally inaccessible. Warning subjective ranting ahead: The good news, compared to Swing, the widgets do look very much like their Win32 counterparts to me and TK perfectly respects my color scheme, too. However, very few controls are accessible. The title bars and some HTML areas seem to be but virtually nothing else is. static text, the various buttons and text fields just don't seem to be there as far as the screen reader goes. It announces right from the start no focus detected and is not able to read any control text, type and state, navigate between the controls or manipulate them. Even when using a screen reader specific navigation mode called virtual focus, it doesn't go beyond the title bar in most cases. I've changed the screen reader map file to MSAA Application with no visible improvements. Also some gripes about TK. As is the case with so many custom GUIs that try to be Windows like, it feels sort of clumsy in places. Edit areas don't seem to have the familiar context menu with choices like select all, copy or undo. SCroll bars don't have context menus either when even Notepad does have them. KEybord usage is a bit patchy, too. In the 50 States example, the arrow keys, as well as, pg up/down and home/end don't move the selection in the list box. Neither is item searching by rapidly typing in one or more letters implemented. Enough gripes. It seems obvious to me that the only accessible GUI library is Win32::GUI at least as far as perl on Win32 systems is concerned. However, I'd like to design GUis comfortably without having to rely on font properties and do some guess work as to where a control will be layed out. In Java programming, I like Swing's layout manager abstraction but haven't seen it cloned anywhere else including dot net, tk and Win32::GUI. As far as static dialogs go, another thing I like is designing a dialog visually in the Visual Studio 6 resource editor. It is just very convenient even if it requires precise mouse movement and heavy magnification in my case. But is there support in Win32::GUI for loading such dialog resources? What if I import the relevant functions from the real Win32 API, will I be able to attach Win32::GUI event-handling code to the controls in my dialog resources? Any help greatly appreciated. System: -HP NX8220 laptop with 1 GB of RAM -Win XP SP 2 Pro English with latest fixes -Dolphin Supernova 6.03 -Active State Perl 5.86 -- With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED]) Accessibility, game music, synthesizers and programming: http://www.student.oulu.fi/~vtatila/ ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: GTK2 Accessibility on Win32, Alternative GUi Libs?
ActiveState recently released the Tkx module on CPAN; Tkx works in a similar fashion to Python's Tkinter or the existing Tcl::Tk module. Tkx provides a clean interface into scripting Tk from Perl, and should support MSAA version 1 at least. Tkx also allows you to use themed Tk widgets; an example of this could be seen in the Gui interfaces of our own PDK product. http://search.cpan.org/~gaas/Tkx-1.02/Tkx.pm cheers, JeffG Veli-Pekka Tätilä wrote: Hi list, The recent post about GTK on Win32 got me thinking of using that library in Perl applications intended for Win32. I'd like to do a GUI in perl but such that it is accessible to WIndows screen reader programs. That's because I have to use one myself. While the Win32::GUI package does work, it's still a bit early and experimental. In particular, I haven't found out a way to load dialog resources and have found that some window metrics appear to be mising. TK, on the other hand, is well documented but many of their "standard" controls are not accessible out of the box. Neither using NArrator nor with any of the big three readers as far as I know. I've only tried TK sample apps with Dolphin Supernova 6.x betas, though. Something as fundamental as a push button doesn't look like a button to the screen reader and keybord usage is slightly different, too. So if someone is using GTK2 on WIn32, does that mean the accessibility support inherent in GTK2 will migrate to Windows via Microsoft Active accessibility (MSAA)? I suppose not. Most of my experiences about Win32 ported GTK2 apps have been rather negative. I'm not sure if it's just the Win32 port or the use of custom controls in graphically intensive apps like Dia. By the way, even if GTK2 uses MSAA on Windows I reckon the support could still vary widely. Most readers seem to rely on screen interception and WIn32 hooks as the primary means of "data mining" with only limited MSAA support. So, how Windows like the non-native GTK2 widgets appear is down to the MSAA implementation in a particular reader. If the widgets were native, however, they would have a familiar MSAA representation in addition to supporting system-wide Win32 hooks well. As a case study, the latest Visual Studio betas use MSAA to expose most of the info on screen. However, current readers, at least on default settings, cannot make too much sense of the form designer, which I find a bit ironic considering that it's an MS app and an MS standard. But that is an OT:ish quibble, anyway. Any thoughts appreciated. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
GTK2 Accessibility on Win32, Alternative GUi Libs?
Hi list, The recent post about GTK on Win32 got me thinking of using that library in Perl applications intended for Win32. I'd like to do a GUI in perl but such that it is accessible to WIndows screen reader programs. That's because I have to use one myself. While the Win32::GUI package does work, it's still a bit early and experimental. In particular, I haven't found out a way to load dialog resources and have found that some window metrics appear to be mising. TK, on the other hand, is well documented but many of their "standard" controls are not accessible out of the box. Neither using NArrator nor with any of the big three readers as far as I know. I've only tried TK sample apps with Dolphin Supernova 6.x betas, though. Something as fundamental as a push button doesn't look like a button to the screen reader and keybord usage is slightly different, too. So if someone is using GTK2 on WIn32, does that mean the accessibility support inherent in GTK2 will migrate to Windows via Microsoft Active accessibility (MSAA)? I suppose not. Most of my experiences about Win32 ported GTK2 apps have been rather negative. I'm not sure if it's just the Win32 port or the use of custom controls in graphically intensive apps like Dia. By the way, even if GTK2 uses MSAA on Windows I reckon the support could still vary widely. Most readers seem to rely on screen interception and WIn32 hooks as the primary means of "data mining" with only limited MSAA support. So, how Windows like the non-native GTK2 widgets appear is down to the MSAA implementation in a particular reader. If the widgets were native, however, they would have a familiar MSAA representation in addition to supporting system-wide Win32 hooks well. As a case study, the latest Visual Studio betas use MSAA to expose most of the info on screen. However, current readers, at least on default settings, cannot make too much sense of the form designer, which I find a bit ironic considering that it's an MS app and an MS standard. But that is an OT:ish quibble, anyway. Any thoughts appreciated. -- With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED]) Accessibility, game music, synthesizers and programming: http://www.student.oulu.fi/~vtatila/ ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI::AxWindow - browser
Hi,
I am trying to create a "browser control" using Win32::GUI::AxWindow and I
don't know if it is possible to set some options for that browser.
For example, I am thinking that there are some "advanced settings" in
Control Panel/Internet Settings/Advanced tab that I would like to change in
my browser control. If it is possible, could you tell me how?
I have created the browser control using:
use Win32::GUI;
use Win32::GUI::AxWindow;
my $url = "...";
# Main Window
$Window = new Win32::GUI::Window (
-name => "Window",
-title=> "Win32::GUI::AxWindow test",
-post => [0, 0],
-size => [1024, 768],
);
$Window->{-dialogui} = 1;
# Add a WebBrowser AxtiveX
$Control = new Win32::GUI::AxWindow (
-parent => $Window,
-name=> "Control",
-control => "Shell.Explorer.2",
-pos => [0, 0],
-size=> [1024, 768],
);
Thank you.
Teddy
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI::Grid
Hi, I am trying to create a grid using Win32::GUI::Grid and I want that the cells to be visible if I use the arrow keys to scroll down the grid. I have tried: $Grid->EnsureCellVisible(10, 0); to make sure the first cell from the 10th row is visible, but it is not if the grid can show only 8 rows at a time. Thank you for help and I hope there is a solution. Teddy ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: [aswin32] Re: Need help with Perl GUI
Jaime Teng wrote: Too bad win32::GUI does not have much documentations as well. Does anyone have a good win32::gui website or book even? What exists as formal documentation for Win32:GUI is available (as of yesterday) at http://perl-win32-gui.sourceforge.net/ We're actively working on completing the documentation and bringing it up to date, but it's a bit of a slow process. Regards, Rob. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
Hi, I have just tried Prima. It doesn't create very accessible interfaces for screen readers. However, I found that the grid control created by Prima is accessible, while I couldn't find such a control in Win32::GUI. Teddy - Original Message - From: <[EMAIL PROTECTED]> To: Sent: Wednesday, August 03, 2005 10:03 AM Subject: RE: Need help with Perl GUI > How about Prima? > http://www.prima.eu.org/ > > About accessibility for screen readers. > About easines to learn any other points. > > I'm interested in Perl & GUI. > I didn't make GUI application in Perl, > also I didn't use Prima. > > But for a future chance, I like to know more... > > Regards, > Hirosi Taguti > [EMAIL PROTECTED] > > > -Original Message- > > From: [EMAIL PROTECTED] > > [mailto:[EMAIL PROTECTED] On > > Behalf Of Octavian Rasnita > > Sent: Wednesday, August 03, 2005 1:44 PM > > To: [EMAIL PROTECTED]; perl-win32-users@listserv.ActiveState.com > > Subject: Re: Need help with Perl GUI > > > > Unfortunately, Tk doesn't use standard GUI libraries, so the programs > > created with it won't be accessible for screen readers used > > by the blind. > > On the other hand, the programs created with Win32::GUI are > > very accessible > > and those created with WX are pretty accessible also. > > > > Teddy > > > > - Original Message - > > From: "Hugh Loebner" <[EMAIL PROTECTED]> > > To: > > Sent: Tuesday, August 02, 2005 6:34 PM > > Subject: Re: Need help with Perl GUI > > > > > > > What parts of Tk are you having trouble understanding? > > > > > > I only know Perl Tk, but I do know that it is _extremely_ powerful. > > > There are a few counter intuitive (for me) constructs, but once you > > > catch on to the syntax things aren't too bad. I don't know > > if any of > > > the other GUI's are more powerful, but I have yet to find a GUI task > > > that I want the computer to do that Tk can't accomplish. > > > > > > As far as speed is concerned, my applications are heavily into file > > > access, which is what really eats up time. I don't think > > using Tk vs > > > another GUI will make much difference in operating speed if you do > > > much I/O > > > > > > The book "Mastering Perl/Tk" by Lidie and Walsh is, unfortunately, > > > written very poorly. It's quite disorganized. However, > > buried in its > > > nooks and crannies is all the information you need. It's > > just too bad > > > that the authors go out of their way to make some simple ideas > > > unnecessarily complex. > > > > > > A few suggestions: I almost always use "form" rather than > > "pack" for > > > positioning an object - it's much more powerful and, for me, more > > > logical. "Grid" is also very useful for presenting tabular > > material. > > > I usually use "grid" with a "Scrolled Pane" rather than the > > gibberish. > > > > > > Hugh Loebner > > > > > > > > > > > > > > > > > > > Hi, > > > > > > > > I've been learning Perl Tk for the past few weeks and > > honestly, I find > > > > it very difficult to learn Tk. Secondly, according to a > > friend who had > > > > worked on Perl GUI before, "Tk run slower than most other > > Perl GUI". > > > > > > > > Seeing that I am having hard time learning Tk, I sure > > would like to > > > > learn other "Better" Perl GUI out there. In your honest > > opinion, what is > > > > the easier and better performing Perl GUI available? > > > > > > > > wxPerl? Win32-GUI? whatelse? > > > > > > > > Thanks. > > > > > > > > Jaime > > > > > > > > > > > > Email Advisory== > > > > To ensure delivery of message to [EMAIL PROTECTED], please > > contact your > > > > email provider and ask them if your email server has a > > valid DNS entry. > > > > Public Email Servers must have a valid hostname and > > routeable public IP > > > > Address per RFC1912 compliance. > > > > > > > > To test the compliance of your email server, please send > > an email t
RE: Need help with Perl GUI
How about Prima? http://www.prima.eu.org/ About accessibility for screen readers. About easines to learn any other points. I'm interested in Perl & GUI. I didn't make GUI application in Perl, also I didn't use Prima. But for a future chance, I like to know more... Regards, Hirosi Taguti [EMAIL PROTECTED] > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Octavian Rasnita > Sent: Wednesday, August 03, 2005 1:44 PM > To: [EMAIL PROTECTED]; perl-win32-users@listserv.ActiveState.com > Subject: Re: Need help with Perl GUI > > Unfortunately, Tk doesn't use standard GUI libraries, so the programs > created with it won't be accessible for screen readers used > by the blind. > On the other hand, the programs created with Win32::GUI are > very accessible > and those created with WX are pretty accessible also. > > Teddy > > - Original Message - > From: "Hugh Loebner" <[EMAIL PROTECTED]> > To: > Sent: Tuesday, August 02, 2005 6:34 PM > Subject: Re: Need help with Perl GUI > > > > What parts of Tk are you having trouble understanding? > > > > I only know Perl Tk, but I do know that it is _extremely_ powerful. > > There are a few counter intuitive (for me) constructs, but once you > > catch on to the syntax things aren't too bad. I don't know > if any of > > the other GUI's are more powerful, but I have yet to find a GUI task > > that I want the computer to do that Tk can't accomplish. > > > > As far as speed is concerned, my applications are heavily into file > > access, which is what really eats up time. I don't think > using Tk vs > > another GUI will make much difference in operating speed if you do > > much I/O > > > > The book "Mastering Perl/Tk" by Lidie and Walsh is, unfortunately, > > written very poorly. It's quite disorganized. However, > buried in its > > nooks and crannies is all the information you need. It's > just too bad > > that the authors go out of their way to make some simple ideas > > unnecessarily complex. > > > > A few suggestions: I almost always use "form" rather than > "pack" for > > positioning an object - it's much more powerful and, for me, more > > logical. "Grid" is also very useful for presenting tabular > material. > > I usually use "grid" with a "Scrolled Pane" rather than the > gibberish. > > > > Hugh Loebner > > > > > > > > > > > > > Hi, > > > > > > I've been learning Perl Tk for the past few weeks and > honestly, I find > > > it very difficult to learn Tk. Secondly, according to a > friend who had > > > worked on Perl GUI before, "Tk run slower than most other > Perl GUI". > > > > > > Seeing that I am having hard time learning Tk, I sure > would like to > > > learn other "Better" Perl GUI out there. In your honest > opinion, what is > > > the easier and better performing Perl GUI available? > > > > > > wxPerl? Win32-GUI? whatelse? > > > > > > Thanks. > > > > > > Jaime > > > > > > > > > Email Advisory== > > > To ensure delivery of message to [EMAIL PROTECTED], please > contact your > > > email provider and ask them if your email server has a > valid DNS entry. > > > Public Email Servers must have a valid hostname and > routeable public IP > > > Address per RFC1912 compliance. > > > > > > To test the compliance of your email server, please send > an email to: > > > [EMAIL PROTECTED]; our server will reply with a > result within > > > minutes. ==Email > > > Advisory > > > > > > ___ > > > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > > > > ___ > > > Perl-Win32-Users mailing list > > > Perl-Win32-Users@listserv.ActiveState.com > > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > > > > > ___ > > Perl-Win32-Users mailing list > > Perl-Win32-Users@listserv.ActiveState.com > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > ___ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
Unfortunately, Tk doesn't use standard GUI libraries, so the programs created with it won't be accessible for screen readers used by the blind. On the other hand, the programs created with Win32::GUI are very accessible and those created with WX are pretty accessible also. Teddy - Original Message - From: "Hugh Loebner" <[EMAIL PROTECTED]> To: Sent: Tuesday, August 02, 2005 6:34 PM Subject: Re: Need help with Perl GUI > What parts of Tk are you having trouble understanding? > > I only know Perl Tk, but I do know that it is _extremely_ powerful. > There are a few counter intuitive (for me) constructs, but once you > catch on to the syntax things aren't too bad. I don't know if any of > the other GUI's are more powerful, but I have yet to find a GUI task > that I want the computer to do that Tk can't accomplish. > > As far as speed is concerned, my applications are heavily into file > access, which is what really eats up time. I don't think using Tk vs > another GUI will make much difference in operating speed if you do > much I/O > > The book "Mastering Perl/Tk" by Lidie and Walsh is, unfortunately, > written very poorly. It's quite disorganized. However, buried in its > nooks and crannies is all the information you need. It's just too bad > that the authors go out of their way to make some simple ideas > unnecessarily complex. > > A few suggestions: I almost always use "form" rather than "pack" for > positioning an object - it's much more powerful and, for me, more > logical. "Grid" is also very useful for presenting tabular material. > I usually use "grid" with a "Scrolled Pane" rather than the gibberish. > > Hugh Loebner > > > > > > > Hi, > > > > I've been learning Perl Tk for the past few weeks and honestly, I find > > it very difficult to learn Tk. Secondly, according to a friend who had > > worked on Perl GUI before, "Tk run slower than most other Perl GUI". > > > > Seeing that I am having hard time learning Tk, I sure would like to > > learn other "Better" Perl GUI out there. In your honest opinion, what is > > the easier and better performing Perl GUI available? > > > > wxPerl? Win32-GUI? whatelse? > > > > Thanks. > > > > Jaime > > > > > > Email Advisory== > > To ensure delivery of message to [EMAIL PROTECTED], please contact your > > email provider and ask them if your email server has a valid DNS entry. > > Public Email Servers must have a valid hostname and routeable public IP > > Address per RFC1912 compliance. > > > > To test the compliance of your email server, please send an email to: > > [EMAIL PROTECTED]; our server will reply with a result within > > minutes. ==Email > > Advisory > > > > ___ > > Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > > ___ > > Perl-Win32-Users mailing list > > Perl-Win32-Users@listserv.ActiveState.com > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > > ___ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
Jaime Teng asked on 03 Aug 2005 10:31:03: > Does anyone have a good win32::gui website or book even? See the very-recent anouncement below: | From: Robert May <[EMAIL PROTECTED]> | To: [EMAIL PROTECTED], | Date: Tue, 02 Aug 2005 22:35:15 +0100 | Subject: [perl-win32-gui-users] ANNOUNCE: New home on the web | | I am pleased to announce that Win32::GUI has a new home on the web | at: http://perl-win32-gui.sourceforge.net/ | | There you'll find links to all things Win32::GUI including the | latest documentation. Problems/suggestions/corrections to the | users mailing list please. | | Regards, | Rob. | | Perl-Win32-GUI-Users mailing list | [EMAIL PROTECTED] | https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users --Suresh ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
- Original Message - From: "Jaime Teng" > > Too bad win32::GUI does not have much documentations as well. > Does anyone have a good win32::gui website or book even? > The Win32::GUI source tarball has some handy stuff in the 'docs' and 'samples' folder. You can get the source tarball at: http://search.cpan.org/CPAN/authors/id/R/RO/ROBERTMAY/Win32-GUI/Win32-GUI-1.02.tar.gz (among other places). Cheers, Rob ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
Hi, I am currently comparing Tk with Win32::GUI. Seeing that I'll be programming for Win32, protability (to unix/mac) is not needed. In just a short time (with win32::GUI) i was able to write simple windows already. albeit crude, at least it took me a lot less time than with Tk. Perlapp and GUI opened a new programming world for me. And it is worth time and effort to learn it. But learning Tk? Hmmm. Is it this difficult to learn it? Too bad win32::GUI does not have much documentations as well. Does anyone have a good win32::gui website or book even? thanks Jaime At 11:53 PM 2005-08-02 +0800, Hugh Loebner wrote: >What parts of Tk are you having trouble understanding? > >I only know Perl Tk, but I do know that it is _extremely_ powerful. >There are a few counter intuitive (for me) constructs, but once you >catch on to the syntax things aren't too bad. I don't know if any of >the other GUI's are more powerful, but I have yet to find a GUI task >that I want the computer to do that Tk can't accomplish. > >As far as speed is concerned, my applications are heavily into file >access, which is what really eats up time. I don't think using Tk vs >another GUI will make much difference in operating speed if you do >much I/O > >The book "Mastering Perl/Tk" by Lidie and Walsh is, unfortunately, >written very poorly. It's quite disorganized. However, buried in its >nooks and crannies is all the information you need. It's just too bad >that the authors go out of their way to make some simple ideas >unnecessarily complex. > >A few suggestions: I almost always use "form" rather than "pack" for >positioning an object - it's much more powerful and, for me, more >logical. "Grid" is also very useful for presenting tabular material. >I usually use "grid" with a "Scrolled Pane" rather than the gibberish. > >Hugh Loebner > > > > > >> Hi, >> >> I've been learning Perl Tk for the past few weeks and honestly, I find >> it very difficult to learn Tk. Secondly, according to a friend who had >> worked on Perl GUI before, "Tk run slower than most other Perl GUI". >> >> Seeing that I am having hard time learning Tk, I sure would like to >> learn other "Better" Perl GUI out there. In your honest opinion, what is >> the easier and better performing Perl GUI available? >> >> wxPerl? Win32-GUI? whatelse? >> >> Thanks. >> >> Jaime >> >> >> Email Advisory== >> To ensure delivery of message to [EMAIL PROTECTED], please contact your >> email provider and ask them if your email server has a valid DNS entry. >> Public Email Servers must have a valid hostname and routeable public IP >> Address per RFC1912 compliance. >> >> To test the compliance of your email server, please send an email to: >> [EMAIL PROTECTED]; our server will reply with a result within >> minutes. ==Email >> Advisory >> >> ___ >> Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com >> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >> >> ___ >> Perl-Win32-Users mailing list >> Perl-Win32-Users@listserv.ActiveState.com >> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >> > >___ >Perl-Win32-Users mailing list >Perl-Win32-Users@listserv.ActiveState.com >To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > Email Advisory== To ensure delivery of message to [EMAIL PROTECTED], please contact your email provider and ask them if your email server has a valid DNS entry. Public Email Servers must have a valid hostname and routeable public IP Address per RFC1912 compliance. To test the compliance of your email server, please send an email to: [EMAIL PROTECTED]; our server will reply with a result within minutes. ==Email Advisory ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
I meant to conclude with:: I usually use "grid" with a "Scrolled Pane" rather than the gibberish that Lidie and Walsh present for having one scrollbar with multiple widgets. pp 147-148.. On 8/2/05, Hugh Loebner <[EMAIL PROTECTED]> wrote: > What parts of Tk are you having trouble understanding? > > I only know Perl Tk, but I do know that it is _extremely_ powerful. > There are a few counter intuitive (for me) constructs, but once you > catch on to the syntax things aren't too bad. I don't know if any of > the other GUI's are more powerful, but I have yet to find a GUI task > that I want the computer to do that Tk can't accomplish. > > As far as speed is concerned, my applications are heavily into file > access, which is what really eats up time. I don't think using Tk vs > another GUI will make much difference in operating speed if you do > much I/O > > The book "Mastering Perl/Tk" by Lidie and Walsh is, unfortunately, > written very poorly. It's quite disorganized. However, buried in its > nooks and crannies is all the information you need. It's just too bad > that the authors go out of their way to make some simple ideas > unnecessarily complex. > > A few suggestions: I almost always use "form" rather than "pack" for > positioning an object - it's much more powerful and, for me, more > logical. "Grid" is also very useful for presenting tabular material. > I usually use "grid" with a "Scrolled Pane" rather than the gibberish. > > Hugh Loebner > > > > > > > Hi, > > > > I've been learning Perl Tk for the past few weeks and honestly, I find > > it very difficult to learn Tk. Secondly, according to a friend who had > > worked on Perl GUI before, "Tk run slower than most other Perl GUI". > > > > Seeing that I am having hard time learning Tk, I sure would like to > > learn other "Better" Perl GUI out there. In your honest opinion, what is > > the easier and better performing Perl GUI available? > > > > wxPerl? Win32-GUI? whatelse? > > > > Thanks. > > > > Jaime > > > > > > Email Advisory== > > To ensure delivery of message to [EMAIL PROTECTED], please contact your > > email provider and ask them if your email server has a valid DNS entry. > > Public Email Servers must have a valid hostname and routeable public IP > > Address per RFC1912 compliance. > > > > To test the compliance of your email server, please send an email to: > > [EMAIL PROTECTED]; our server will reply with a result within > > minutes. ==Email > > Advisory > > > > ___ > > Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > > ___ > > Perl-Win32-Users mailing list > > Perl-Win32-Users@listserv.ActiveState.com > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Need help with Perl GUI
What parts of Tk are you having trouble understanding? I only know Perl Tk, but I do know that it is _extremely_ powerful. There are a few counter intuitive (for me) constructs, but once you catch on to the syntax things aren't too bad. I don't know if any of the other GUI's are more powerful, but I have yet to find a GUI task that I want the computer to do that Tk can't accomplish. As far as speed is concerned, my applications are heavily into file access, which is what really eats up time. I don't think using Tk vs another GUI will make much difference in operating speed if you do much I/O The book "Mastering Perl/Tk" by Lidie and Walsh is, unfortunately, written very poorly. It's quite disorganized. However, buried in its nooks and crannies is all the information you need. It's just too bad that the authors go out of their way to make some simple ideas unnecessarily complex. A few suggestions: I almost always use "form" rather than "pack" for positioning an object - it's much more powerful and, for me, more logical. "Grid" is also very useful for presenting tabular material. I usually use "grid" with a "Scrolled Pane" rather than the gibberish. Hugh Loebner > Hi, > > I've been learning Perl Tk for the past few weeks and honestly, I find > it very difficult to learn Tk. Secondly, according to a friend who had > worked on Perl GUI before, "Tk run slower than most other Perl GUI". > > Seeing that I am having hard time learning Tk, I sure would like to > learn other "Better" Perl GUI out there. In your honest opinion, what is > the easier and better performing Perl GUI available? > > wxPerl? Win32-GUI? whatelse? > > Thanks. > > Jaime > > > Email Advisory== > To ensure delivery of message to [EMAIL PROTECTED], please contact your > email provider and ask them if your email server has a valid DNS entry. > Public Email Servers must have a valid hostname and routeable public IP > Address per RFC1912 compliance. > > To test the compliance of your email server, please send an email to: > [EMAIL PROTECTED]; our server will reply with a result within > minutes. ==Email > Advisory > > ___ > Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > ___ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Need help with Perl GUI
Hi Jaime, I am using wxPerl. As a GUI builder I use visualWX http://visualwx.altervista.org/. But however, it is always better having some knowledge of how these GUIs API should be used (http://wxperl.sourceforge.net/documentation.html). Kind regards, Jean-Philippe -- Jean-Philippe Ulpiano Professional Phone Number: +49 (0)89-45918-593 Mobile Phone Number:+49 (0)172-886-9545 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jaime Teng Sent: Monday, August 01, 2005 9:24 AM To: perl-win32-users@listserv.ActiveState.com Subject: Need help with Perl GUI Hi, I've been learning Perl Tk for the past few weeks and honestly, I find it very difficult to learn Tk. Secondly, according to a friend who had worked on Perl GUI before, "Tk run slower than most other Perl GUI". Seeing that I am having hard time learning Tk, I sure would like to learn other "Better" Perl GUI out there. In your honest opinion, what is the easier and better performing Perl GUI available? wxPerl? Win32-GUI? whatelse? Thanks. Jaime Email Advisory== To ensure delivery of message to [EMAIL PROTECTED], please contact your email provider and ask them if your email server has a valid DNS entry. Public Email Servers must have a valid hostname and routeable public IP Address per RFC1912 compliance. To test the compliance of your email server, please send an email to: [EMAIL PROTECTED]; our server will reply with a result within minutes. ==Email Advisory ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Need help with Perl GUI
Hi, I've been learning Perl Tk for the past few weeks and honestly, I find it very difficult to learn Tk. Secondly, according to a friend who had worked on Perl GUI before, "Tk run slower than most other Perl GUI". Seeing that I am having hard time learning Tk, I sure would like to learn other "Better" Perl GUI out there. In your honest opinion, what is the easier and better performing Perl GUI available? wxPerl? Win32-GUI? whatelse? Thanks. Jaime Email Advisory== To ensure delivery of message to [EMAIL PROTECTED], please contact your email provider and ask them if your email server has a valid DNS entry. Public Email Servers must have a valid hostname and routeable public IP Address per RFC1912 compliance. To test the compliance of your email server, please send an email to: [EMAIL PROTECTED]; our server will reply with a result within minutes. ==Email Advisory ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Problems with Win32::GUI::Brush / Pen
I did look at it. It turns out that the problem was trying to use the GetDC method inline. $ChildWin->GetDC->SelectObject($dragpen) When I assigned the DC to a variable and used the variable instead my $DCC = $ChildWin->GetDC(); $DCC->SelectObject($dragpen); everything works just fine. It doesn't make much sense to me why it happens this way but at least now I know how to make it work. I guess that's what I get for taking shortcuts. Thanks, Chris PS: Also, I would like to apologize to the list for double posting. My first post didn't show up for about 8 hours so I thought something went wrong. As far as I can tell, the second post still hasn't shown up but it probably will. Again, sorry for being impatient. On 7/11/05, Sisyphus <[EMAIL PROTECTED]> wrote: > > - Original Message - > From: "Chris Rogers" <[EMAIL PROTECTED]> > To: > Sent: Tuesday, July 12, 2005 4:16 AM > Subject: Problems with Win32::GUI::Brush / Pen > > > > I have been playing around with samples/BitmapScroll.pl from the > > Win32-GUI-1.0 source using perl 5.6 on WinXP SP2. I can't seem to get > > a Brush or Pen working for me. No matter what I do (so far), the > > rectangle is drawn with the brush/pen I think I'm specifying. Here's > > a sample of my broken code: > > > > 'samples/Draw.pl' (in the source distro) uses Brush and Pen. I imagine > you've checked it out already - but if you haven't, then it might help. > > Cheers, > Rob > > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Problems with Win32::GUI::Brush / Pen
- Original Message - From: "Chris Rogers" <[EMAIL PROTECTED]> To: Sent: Tuesday, July 12, 2005 4:16 AM Subject: Problems with Win32::GUI::Brush / Pen > I have been playing around with samples/BitmapScroll.pl from the > Win32-GUI-1.0 source using perl 5.6 on WinXP SP2. I can't seem to get > a Brush or Pen working for me. No matter what I do (so far), the > rectangle is drawn with the brush/pen I think I'm specifying. Here's > a sample of my broken code: > 'samples/Draw.pl' (in the source distro) uses Brush and Pen. I imagine you've checked it out already - but if you haven't, then it might help. Cheers, Rob ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Problems with Win32::GUI::Brush and PEN
I have been playing around with samples/BitmapScroll.pl from the
Win32-GUI-1.0 source using perl 5.6 on WinXP SP2. I can't seem to get
a Brush or Pen working for me. No matter what I do (so far), the
rectangle is drawn with the brush/pen I think I'm specifying. The
majority of this code is straight from the BtimapScroll.pl sample.
use Win32::GUI;
use strict;
#create a new class which stops the WM_ERASEBKGND message from erasing
the background
#this stops the flicker of the window on resize.
my $WC = new Win32::GUI::Class(
-name => "NoFlicker",
-style => 0,
);
#Create the window and child controls.
my $mainwin = new Win32::GUI::Window (
-pos => [100, 100],
-size=> [330, 235],
-name=> "Window",
-text=> "Bitmap Scroll demo",
-pushstyle => WS_CLIPCHILDREN,
-class => $WC,
#NEM Events for this window
-onResize=> \&MainResize,
-onTerminate => sub {return -1;}
);
$mainwin->AddButton (
-name=> 'Open',
-pos => [205, 20],
-size=> [110, 20],
-text=> 'Open Bitmap',
-onClick => \&FindAndOpenBitmap,
);
#Define global variables
my $memdc;
my $bitmap;#will hold the bitmap
###
# my brush and pen objects
our $dragpen = Win32::GUI::Pen->new(-color=>[0,255,0],-width=>5);
our $dragbrush = Win32::GUI::Brush->new(-color=>[0,0,255]);
###
#Create a child window with a scroll bars.
my $ChildWin = new Win32::GUI::Window (
-parent => $mainwin,
-name=> "ChildWin",
-pos => [0, 0],
-size=> [200, 200],
-popstyle=> WS_CAPTION | WS_SIZEBOX,
-pushstyle => WS_CHILD | WS_CLIPCHILDREN,
-pushexstyle => WS_EX_CLIENTEDGE,
-class => $WC,
-hscroll => 1,
-vscroll => 1,
-onScroll=> \&Scroll,
-onResize=> sub {&Resize($bitmap,@_)},
-onPaint => sub {&Paint($memdc,@_)},
-onMouseDown => \&MouseDown,
-onMouseUp => \&MouseUp,
-onMouseMove => \&MouseMove,
-interactive => 1,
);
#Create a memory DC compatible with the child window DC
$memdc=$ChildWin->GetDC->CreateCompatibleDC();
#show both windows and enter the Dialog phase.
$mainwin->Show();
$ChildWin->Show();
########
# my attempt at a rectangle
$ChildWin->SelectObject($dragpen);
$ChildWin->SelectObject($dragbrush);
$ChildWin->GetDC->Rectangle(10,10,50,50);
$ChildWin->GetDC->Validate();
Win32::GUI::Dialog();
The window displays with no errors. The rectangle is drawn with a
thin black border and a white background. I was expecting a thick
green border with a blue background. What am I doing wrong?
Thanks,
Chris
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
ANNOUNCE: Win32::GUI v1.02
I am please to announce that v1.02 of Win32::GUI is available for download from SourceForge. Win32::GUI is a Perl extension allowing creation of native Win32 GUI applications. Project summary and download: http://sourceforge.net/projects/perl-win32-gui/ Release notes: http://sourceforge.net/project/shownotes.php?release_id=341357 Regards, Rob. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Problems with Win32::GUI::Brush / Pen
I have been playing around with samples/BitmapScroll.pl from the
Win32-GUI-1.0 source using perl 5.6 on WinXP SP2. I can't seem to get
a Brush or Pen working for me. No matter what I do (so far), the
rectangle is drawn with the brush/pen I think I'm specifying. Here's
a sample of my broken code:
use Win32::GUI;
use strict;
###
# my brush and pen objects
our $dragpen = Win32::GUI::Pen->new(-color=>[0,255,0],-width=>5);
our $dragbrush = Win32::GUI::Brush->new(-color=>[0,0,255]);
###
#create a new class which stops the WM_ERASEBKGND message from erasing
the background
#this stops the flicker of the window on resize.
my $WC = new Win32::GUI::Class(
-name => "NoFlicker",
-style => 0,
);
#Create the window and child controls.
my $mainwin = new Win32::GUI::Window (
-pos => [100, 100],
-size=> [330, 235],
-name=> "Window",
-text=> "Bitmap Scroll demo",
-pushstyle => WS_CLIPCHILDREN,
-class => $WC,
#NEM Events for this window
-onResize=> \&MainResize,
-onTerminate => sub {return -1;}
);
$mainwin->AddButton (
-name=> 'Open',
-pos => [205, 20],
-size=> [110, 20],
-text=> 'Open Bitmap',
-onClick => \&FindAndOpenBitmap,
);
#Define global variables
my $memdc;
my $bitmap;#will hold the bitmap
#Create a child window with a scroll bars.
my $ChildWin = new Win32::GUI::Window (
-parent => $mainwin,
-name=> "ChildWin",
-pos => [0, 0],
-size=> [200, 200],
-popstyle=> WS_CAPTION | WS_SIZEBOX,
-pushstyle => WS_CHILD | WS_CLIPCHILDREN,
-pushexstyle => WS_EX_CLIENTEDGE,
-class => $WC,
-hscroll => 1,
-vscroll => 1,
-onScroll=> \&Scroll,
-onResize=> sub {&Resize($bitmap,@_)},
-onPaint => sub {&Paint($memdc,@_)},
-onMouseDown => \&MouseDown,
-onMouseUp => \&MouseUp,
-onMouseMove => \&MouseMove,
-interactive => 1,
);
#Create a memory DC compatible with the child window DC
$memdc=$ChildWin->GetDC->CreateCompatibleDC();
#show both windows and enter the Dialog phase.
$mainwin->Show();
$ChildWin->Show();
####
# my attempt at a rectangle
$ChildWin->SelectObject($dragpen);
$ChildWin->SelectObject($dragbrush);
$ChildWin->GetDC->Rectangle(10,10,50,50);
$ChildWin->GetDC->Validate();
Win32::GUI::Dialog();
The rectangle is drawn but with a single pixel black border and white
background. I was expecting a thick green border with a blue
background. What am I doing wrong?
Thanks,
Chris
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI::Label, Bitmaps, and Resizing
It's a timing issue. I need to know whether the user has clicked the mouse button as a single click, double click, or holding it down for dragging. I have looked for something that will return the state of the mouse buttons but all I could find was Win32::Console and that just doesn't seem to be what I was looking for. I'm still working on the details of implementing it and would be glad to hear other suggestions. On 7/6/05, Sisyphus <[EMAIL PROTECTED]> wrote: > > - Original Message - > From: "Chris Rogers" <[EMAIL PROTECTED]> > To: "Glenn Linderman" <[EMAIL PROTECTED]> > Cc: <[EMAIL PROTECTED]>; > Sent: Thursday, July 07, 2005 6:34 AM > Subject: Re: Win32::GUI::Label, Bitmaps, and Resizing > > > > Thanks again. After a little more research, I came up with the > > following which I am still working on. I'll be using the GetTickCount > > so that I can tell if the user clicked, double-clicked or began to > > drag the mouse. > > Afaik, Win32::GetTickCount() returns the number of milliseconds elapsed > since the last system boot . nothing more, nothing less. I don't see how > it can help you. > > Cheers, > Rob > > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI::Label, Bitmaps, and Resizing
- Original Message - From: "Chris Rogers" <[EMAIL PROTECTED]> To: "Glenn Linderman" <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]>; Sent: Thursday, July 07, 2005 6:34 AM Subject: Re: Win32::GUI::Label, Bitmaps, and Resizing > Thanks again. After a little more research, I came up with the > following which I am still working on. I'll be using the GetTickCount > so that I can tell if the user clicked, double-clicked or began to > drag the mouse. Afaik, Win32::GetTickCount() returns the number of milliseconds elapsed since the last system boot . nothing more, nothing less. I don't see how it can help you. Cheers, Rob ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI::Label, Bitmaps, and Resizing
Thanks again. After a little more research, I came up with the
following which I am still working on. I'll be using the GetTickCount
so that I can tell if the user clicked, double-clicked or began to
drag the mouse. With a little luck and the help of you guys on this
list, I might just end up with a working model in a week or so.
sub MouseMove
{
if($mouseisdown == 1)
{
print "Moving: " . (join "," , GetMouseXY()) . "\n";
}
}
sub MouseDown
{
$mouseisdown=1;
$mousedownticks = Win32::GetTickCount();
($mouseisdownx,$mouseisdowny) = GetMouseXY();
#print $mousedownticks;
print "MouseDown " . (join "," , ($mouseisdownx,$mouseisdowny)) . "\n";
}
sub MouseUp
{
$mouseisdown=0;
$mouseupticks = Win32::GetTickCount();
#print ($mouseupticks - $mousedownticks);
($mouseisupx,$mouseisupy) = GetMouseXY();
print "MouseUp " . (join "," , ($mouseisupx,$mouseisupy)) . "\n";
}
sub GetMouseXY
{
my ($x,$y) = $ChildWin->ScreenToClient(Win32::GUI::GetCursorPos);
return ($x, $y);
}
On 7/6/05, Glenn Linderman <[EMAIL PROTECTED]> wrote:
>
>
> On approximately 7/6/2005 7:52 AM, came the following characters from
> the keyboard of Chris Rogers:
> > Thanks for the info. It works perfectly. Too bad the ppm I installed
> > didn't include the samples.
> >
> > I was able to get the mouse coordinates using:
> > my $GetMouseCoord = new Win32::API('user32', 'GetCursorPos', 'P', 'V');
> > my $point = pack('LL', 0, 0);
> > $GetMouseCoord->Call($point);
> > my ($x, $y) = unpack('LL', $point);
>
> my ( $x, $y ) = Win32::GUI::GetCursorPos();
>
> might do that trick in fewer lines... and it might be window relative...
>
> > Now I just have to get the coordinates of the mainwindow,childwindow,
> > and bitmap so I can make the mouse coordinates relative to the bitmap
> > instead of the screen.
>
> Look at $window->GetWindowRect();
>
> > Thanks again,
> > Chris
> >
> >
> > On 7/6/05, Glenn Linderman <[EMAIL PROTECTED]> wrote:
> >
> >>[Questions about Win32::GUI might be found and responded to faster on
> >>the perl-win32-gui-users list on sourceforge.net.]
> >>
> >>On approximately 7/5/2005 7:19 PM, came the following characters from
> >>the keyboard of Chris Rogers:
> >>
> >>
> >>>UPDATE:
> >>>
> >>>The more I look at this problem, the more worried I get. I'll explain
> >>>the desired end result in a little more detail so you guys can tell me
> >>>if I'm barking up the wrong tree.
> >>>
> >>>1) I need to be able to display a large image in a smaller container
> >>>and allow the user to scroll the image in the container.
> >>
> >>There is some nice sample code Jez White contributed and I massaged a
> >>bit to make more generic, in the source tree for Win32::GUI
> >>samples/BitmapScroll.pl It solves this problem nicely.
> >>
> >>
> >>>2) I need to be able to capture the xy coordinates relative to the
> >>>image when the user clicks the mouse.
> >>>3) I need to be able to capture the xy coordinates relative to the
> >>>image when the user presses the mouse button as well as the
> >>>coordinates when the user releases the button.
> >>
> >>I haven't needed these myself, but there are mousedown and mouseup sorts
> >>of events for windows, as well as click, so I think it should work.
> >>
> >>
> >>>The big picture:
> >>>I would like to display an image and allow the user to click and drag
> >>>to define areas in the image. I will store the defined area and allow
> >>>the user to give it a name, description and either a destination image
> >>>or select a list of assets that reside in that area. That way when
> >>>the user clicks a defined area, a new image or the inventory list can
> >>>be displayed.
> >>>
> >>>It sounds like a simple task but I'm just not sure if there is a way
> >>>to do this in Win32::GUI. I thought the label control would work but
> >>>I'm not even sure that it responds to the Click event.
> >>
> >>Labels are pretty limited. I was using them in despair until Jez showed
> >>me the way...
> >>
> >>
> >>>Please feel free to tell me if I'm crazy but there has to be a way to do
> >>&
Re: Win32::GUI::Label, Bitmaps, and Resizing
Thanks for the info. It works perfectly. Too bad the ppm I installed
didn't include the samples.
I was able to get the mouse coordinates using:
my $GetMouseCoord = new Win32::API('user32', 'GetCursorPos', 'P', 'V');
my $point = pack('LL', 0, 0);
$GetMouseCoord->Call($point);
my ($x, $y) = unpack('LL', $point);
Now I just have to get the coordinates of the mainwindow,childwindow,
and bitmap so I can make the mouse coordinates relative to the bitmap
instead of the screen.
Thanks again,
Chris
On 7/6/05, Glenn Linderman <[EMAIL PROTECTED]> wrote:
> [Questions about Win32::GUI might be found and responded to faster on
> the perl-win32-gui-users list on sourceforge.net.]
>
> On approximately 7/5/2005 7:19 PM, came the following characters from
> the keyboard of Chris Rogers:
>
> > UPDATE:
> >
> > The more I look at this problem, the more worried I get. I'll explain
> > the desired end result in a little more detail so you guys can tell me
> > if I'm barking up the wrong tree.
> >
> > 1) I need to be able to display a large image in a smaller container
> > and allow the user to scroll the image in the container.
>
> There is some nice sample code Jez White contributed and I massaged a
> bit to make more generic, in the source tree for Win32::GUI
> samples/BitmapScroll.pl It solves this problem nicely.
>
> > 2) I need to be able to capture the xy coordinates relative to the
> > image when the user clicks the mouse.
> > 3) I need to be able to capture the xy coordinates relative to the
> > image when the user presses the mouse button as well as the
> > coordinates when the user releases the button.
>
> I haven't needed these myself, but there are mousedown and mouseup sorts
> of events for windows, as well as click, so I think it should work.
>
> > The big picture:
> > I would like to display an image and allow the user to click and drag
> > to define areas in the image. I will store the defined area and allow
> > the user to give it a name, description and either a destination image
> > or select a list of assets that reside in that area. That way when
> > the user clicks a defined area, a new image or the inventory list can
> > be displayed.
> >
> > It sounds like a simple task but I'm just not sure if there is a way
> > to do this in Win32::GUI. I thought the label control would work but
> > I'm not even sure that it responds to the Click event.
>
> Labels are pretty limited. I was using them in despair until Jez showed
> me the way...
>
> > Please feel free to tell me if I'm crazy but there has to be a way to do
> > this.
> >
> > Thanks,
> > Chris
> >
> > On 7/5/05, Chris Rogers <[EMAIL PROTECTED]> wrote:
> >
> >>Is there a way to keep a label from resizing itself and the bitmap?
> >>
> >>Here's the scenario:
> >>I want to use a label that is 400x400 to hold a bitmap whose
> >>dimensions are unknown and use scroll bars to move the image around if
> >>the image is larger than the label. The need here is to be able to
> >>display very large images without distortion and allow the user to
> >>move around in the image.
> >>
> >>Adding the scroll bars to the label is easy enough using
> >> -addstyle=3D>WS_VSCROLL|WS_HSCROLL
> >>but everything I have tried has resized either the label or the bitmap.
> >>
> >>Perhaps I am going about this the wrong way and am open to to other
> >>suggestions.
> >>
> >>Thanks,
> >>Chris
> >>
> >
> >
> > ___
> > Perl-Win32-Users mailing list
> > Perl-Win32-Users@listserv.ActiveState.com
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> >
> >
> >
> >
>
> --
> Glenn -- http://nevcal.com/
> ===
> Having identified a vast realm of ignorance, Wolfram is saying that much
> of this realm lies forever outside the light cone of human knowledge.
> -- Michael Swaine, Dr Dobbs Journal, Sept 2002
>
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI::Label, Bitmaps, and Resizing
- Original Message - From: "Chris Rogers" <[EMAIL PROTECTED]> To: Sent: Wednesday, July 06, 2005 12:19 PM Subject: Re: Win32::GUI::Label, Bitmaps, and Resizing > UPDATE: > > The more I look at this problem, the more worried I get. I'll explain > the desired end result in a little more detail so you guys can tell me > if I'm barking up the wrong tree. > > 1) I need to be able to display a large image in a smaller container > and allow the user to scroll the image in the container. There's no problem with that. The cpan source for Win32-GUI-1.0, which you can get from http://search.cpan.org/CPAN/authors/id/L/LR/LROCHER/Win32-GUI-1.0.zip contains a file called samples/BitmapScroll.pl. If you run that script and elect to open WINNT\System32\setup.bmp you'll see that you can scroll around within that image (which is too big to fit into the window). You'll also notice that you can control the opening scroll position by altering the values within: $cwin->ScrollPos( 0, 0 ); $cwin->ScrollPos( 1, 0 ); Try, for example: $cwin->ScrollPos( 0, 100 ); $cwin->ScrollPos( 1, 20 ); So, I think that indicates that you'll be able to get to the portion of the picture that you want simply by specifying the xy coordinates. As for being able to capture the xy coordinates with mouse click/unclick I really don't know if that can be done with Win32::GUI. You may need to call on Win32::API. Do you really need to define an *area* ? I'm thinking it might be sufficient to define just the upper left xy coordinates - which would be simpler... Is there a Win32::GUI-specific help list ? I thought there is/was . but I could be wrong. Cheers, Rob ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI::Label, Bitmaps, and Resizing
UPDATE: The more I look at this problem, the more worried I get. I'll explain the desired end result in a little more detail so you guys can tell me if I'm barking up the wrong tree. 1) I need to be able to display a large image in a smaller container and allow the user to scroll the image in the container. 2) I need to be able to capture the xy coordinates relative to the image when the user clicks the mouse. 3) I need to be able to capture the xy coordinates relative to the image when the user presses the mouse button as well as the coordinates when the user releases the button. The big picture: I would like to display an image and allow the user to click and drag to define areas in the image. I will store the defined area and allow the user to give it a name, description and either a destination image or select a list of assets that reside in that area. That way when the user clicks a defined area, a new image or the inventory list can be displayed. It sounds like a simple task but I'm just not sure if there is a way to do this in Win32::GUI. I thought the label control would work but I'm not even sure that it responds to the Click event. Please feel free to tell me if I'm crazy but there has to be a way to do this. Thanks, Chris On 7/5/05, Chris Rogers <[EMAIL PROTECTED]> wrote: > Is there a way to keep a label from resizing itself and the bitmap? > > Here's the scenario: > I want to use a label that is 400x400 to hold a bitmap whose > dimensions are unknown and use scroll bars to move the image around if > the image is larger than the label. The need here is to be able to > display very large images without distortion and allow the user to > move around in the image. > > Adding the scroll bars to the label is easy enough using >-addstyle=3D>WS_VSCROLL|WS_HSCROLL > but everything I have tried has resized either the label or the bitmap. > > Perhaps I am going about this the wrong way and am open to to other > suggestions. > > Thanks, > Chris > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI::Label, Bitmaps, and Resizing
Is there a way to keep a label from resizing itself and the bitmap? Here's the scenario: I want to use a label that is 400x400 to hold a bitmap whose dimensions are unknown and use scroll bars to move the image around if the image is larger than the label. The need here is to be able to display very large images without distortion and allow the user to move around in the image. Adding the scroll bars to the label is easy enough using -addstyle=3D>WS_VSCROLL|WS_HSCROLL but everything I have tried has resized either the label or the bitmap. Perhaps I am going about this the wrong way and am open to to other suggestions. Thanks, Chris ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI::AxWindow
Could someone please tell me why I can't get the following code to work.
The javascript doesn't work when embeding html.
Please help
tks
Anton
use Win32::GUI;
use Win32::GUI::AxWindow; # Main Window
my $user = undef;
my $html = undef;
get_html();
my $font = Win32::GUI::Font->new(
-name => "Times New Roman",
-size => 10,
-bold => 1
);
my $Window = new Win32::GUI::Window (
-name => "Window",
-title=> "GlobeLocator Client",
-post => [100, 100],
-size => [1000, 800],
);
# Add a WebBrowser AxtiveX
$Control = new Win32::GUI::AxWindow (
-parent => $Window,
-name=> "Control",
-control => "$html",
-pos => [0, 0],
-size=> [400, 400]
); # Register some event
$Control->CallMethod("Navigate");
$Window->DrawMenuBar();
$Window->Show();
Win32::GUI::Dialog(); # Main window event handler
sub Window_Resize {
if (defined $Window) {
($width, $height) = ($Window->GetClientRect)[2..3];
$Control->Move (0, 0);
$Control->Resize ($width, $height);
}
}
sub get_html{
($html = <
Your title here
<!-- Hide from older browsers;
alert('Hello World');
}
// end hide -->
HELLO WORLD
HTML
}
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI::AxWindow
Hello to all, I'm trying to write a Win32::GUI::AxWindow application by opening a web page. But for some reason I'm not able to get my javascript work and also I couldn't load the following scripts loaded in my active x window: http://some.com/CSS/lst.css";> http://some.com/test.js"</a>;> please help. tks Anton ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI::Grid question
Hello, all, I'm writing Win32 GUI application and using grid control. End users will have to fill cells of that grid with float, not integer numbers. I have some questions: 1) as I understood, if cell have type GVIT_NUMERIC it's impossible fill it with float. Is it true or I have miss something? 2) in each rowthere is cell containing sum of all the other cell values in a row. On BeginEdit event the value of cell being edited substracted from sum cell value. On EndEdit event current value of cell added to sum cell value. But there is an issue - calculated total sum displayed in corresponding cell with comma as decimal delimiter. So I can't use it without some handling. Such handling is quite simple, but I'm just interested why comma appears. -- Thankful, Sergey mailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::GUI
At 23:35 2005-04-18, Peter Eisengrein wrote:
> $W->{dialogui} = 1;
>
> Is this correct?
>
Actually it is $W->{-dialogui} = 1;
Ehrm... Sorry about that :)
/J
-- --- -- -- -- - - -- -
Johan LindströmSourcerer @ Boss Casinos johanl AT DarSerMan.com
Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::GUI
> $W->{dialogui} = 1;
>
> Is this correct?
>
Actually it is $W->{-dialogui} = 1;
> But the problem is that the interface is still not accessible
> for a screen
> reader. No object from the form has the focus.
> If I pressed on a button using the mouse, it got the focus,
> but I was not
> able to move the focus to the next control on the page by
> pressing tab.
>
Next you need to add
-tabstop => 1,
to whichever widgets you want to be able to tab to/from.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::GUI
Hi,
I have tried:
$W = new Win32::GUI::Window(
-title=> "Win32::GUI::Button (and variants) test",
-left => 100,
-top => 100,
-width=> 360,
-height => 260,
-name => "Window",
);
$W->{dialogui} = 1;
Is this correct?
But the problem is that the interface is still not accessible for a screen
reader. No object from the form has the focus.
If I pressed on a button using the mouse, it got the focus, but I was not
able to move the focus to the next control on the page by pressing tab.
I have put here the entire sample program at the end of this message.
Thank you.
--- Original message: ---
Try setting
$win-> {dialogui} = 1;
to enable that.
/J
-- --- -- -- -- - - -- -
Johan LindströmSourcerer @ Boss Casinos johanl AT DarSerMan.com
The program:
use Win32::GUI;
$BS_GROUPBOX = 7;
$W = new Win32::GUI::Window(
-title=> "Win32::GUI::Button (and variants) test",
-left => 100,
-top => 100,
-width=> 360,
-height => 260,
-name => "Window",
);
$W->{dialogui} = 1;
$W->AddButton(
-name => "Simple",
-left => 5,
-top => 5,
-text => "Click button",
);
$Timer = $W->AddTimer("SimpleTimer", 0);
$W->AddLabel(
-name => "SimpleLabel",
-left => 120,
-top => 10,
-width => 150,
-height => 22,
);
$W->AddButton(
-name => "CheckGroup",
-left => 2,
-top=> 35,
-width => 115,
-height => 85,
-text => "Checkboxes",
-style => WS_VISIBLE | WS_CHILD | $BS_GROUPBOX,
);
$W->AddCheckbox(
-name => "Check1",
-left => 8,
-top => 50,
-text => "Checkbox 1",
);
$W->AddCheckbox(
-name => "Check2",
-left => 8,
-top => 70,
-text => "Checkbox 2",
);
$W->AddCheckbox(
-name => "Check3",
-left => 8,
-top => 90,
-text => "Checkbox 3",
);
$W->AddLabel(
-name => "CheckLabel",
-left => 120,
-top => 55,
-width => 150,
-height => 44,
);
$W->AddButton(
-name => "RadioGroup",
-left => 2,
-top=> 120,
-width => 115,
-height => 85,
-text => "Radiobuttons",
-style => WS_VISIBLE | WS_CHILD | $BS_GROUPBOX,
);
$W->AddRadioButton(
-name => "Radio1",
-left => 8,
-top => 135,
-text => "Radiobutton 1",
);
$W->AddRadioButton(
-name => "Radio2",
-left => 8,
-top => 155,
-text => "Radiobutton 2",
);
$W->AddRadioButton(
-name => "Radio3",
-left => 8,
-top => 175,
-text => "Radiobutton 3",
);
$W->AddLabel(
-name => "RadioLabel",
-left => 120,
-top => 140,
-width => 150,
-height => 22,
);
$Close = $W->AddButton(
-name => "Close",
-left => 250,
-top => 200,
-width => 100,
-text => "Close",
);
$W->Show;
Win32::GUI::Dialog();
sub Window_Terminate {
return -1;
}
sub Close_Click {
Window_Terminate();
}
sub Simple_Click {
$W->SimpleLabel->Text("Got a click");
$Timer->Interval(1000);
}
sub SimpleTimer_Timer {
$W->SimpleLabel->Text("");
$Timer->Kill();
}
sub Check1_Click {
my $text = "";
if($W->Check1->Checked()) {
$text .= (($text)?", ":"")."Checkbox 1";
}
if($W->Check2->Checked()) {
$text .= (($text)?", ":"")."Checkbox 2";
}
if($W->Check3->Checked()) {
$text .= (($text)?", ":"")."Checkbox 3";
}
$W->CheckLabel->Text($text);
}
sub Check2_Click { Check1_Click(); }
sub Check3_Click { Check1_Click(); }
sub Radio1_Click {
my $text = "";
if($W->Radio1->Checked()) {
$text = "Radiobutton 1";
} elsif($W->Radio2->Checked()) {
$text = "Radiobutton 2";
} elsif($W->Radio3->Checked()) {
$text = "Radiobutton 3";
}
$W->RadioLabel->Text($text);
}
sub Radio2_Click { Radio1_Click(); }
sub Radio3_Click { Radio1_Click(); }
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: WIN32::GUI
At 09:49 2005-04-17, Octavian Rasnita wrote:
Does anyone know what Windows graphics library is used by Win32::GUI?
The native Windows libraries.
I have seen that all the programs which are using the standard Win32
graphics library are very accessible for the blind (for screen readers), but
the programs which are created using Win32::GUI in perl are not.
In what way are they not accessible?
I have tested a few sample programs made with Win32::GUI and they were not
accessible using the keyboard (I could not move the focus from a control to
the next control by pressing tab), but is there a posibility that those
samples were not made very well, and I might create accessible programs
using Win32::GUI also?
Try setting
$win->{dialogui} = 1;
to enable that.
/J
-- --- -- -- -- - - -- -
Johan LindströmSourcerer @ Boss Casinos johanl AT DarSerMan.com
Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: WIN32::GUI
- Original Message - From: "Octavian Rasnita" <[EMAIL PROTECTED]> To: Sent: Sunday, April 17, 2005 5:49 PM Subject: WIN32::GUI > Hi, > > Does anyone know what Windows graphics library is used by Win32::GUI? > I don't know. I do know that GUI.h lists the following standard C headers: #include #include #include #include #include #include #include #include #include and I also know that the build process explicitly links to 'comctl32.lib'. That's the only library that I could see explicitly mentioned (in the Makefile.PL). My understanding is that any other libraries that are being linked in will be listed in 'perl -V:libs'. Does any of that help ? Cheers, Rob ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
WIN32::GUI
Hi, Does anyone know what Windows graphics library is used by Win32::GUI? I have seen that all the programs which are using the standard Win32 graphics library are very accessible for the blind (for screen readers), but the programs which are created using Win32::GUI in perl are not. On the other hand, I have seen that the programs created with the library WX (in perl) are accessible. I saw that Win32::GUI it is a little easier to use and I think that it creates smaller .exe programs (if I use perlapp to create those programs), but I am blind and I am not able to use those programs. I have tested a few sample programs made with Win32::GUI and they were not accessible using the keyboard (I could not move the focus from a control to the next control by pressing tab), but is there a posibility that those samples were not made very well, and I might create accessible programs using Win32::GUI also? Thank you for any tip. Teddy ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
gui activex control
hi all, what win32-api calls can i make in order to create a client-side activex gui control that can be embedded in an application or internet explorer, using perlctrl. I realize this cannot be done *just using* perlctrl code. What perl win32::api calls can be made to make it work, and in what order? Has anyone hacked this problem before? example code would be great! Thanks in advance, -Jeremy A. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl/Tk GUI Builder
Arigatou, (B (BAnd I found ZooZ yesterday, it's cool! (Bhttp://search.cpan.org/src/AQUMSIEH/ZooZ-1.1/ (B (BRegards, (BHirosi Taguti (B[EMAIL PROTECTED] (B (B (B> -Original Message- (B> From: [EMAIL PROTECTED] (B> [mailto:[EMAIL PROTECTED] On (B> Behalf Of Chris Wagner (B> Sent: Tuesday, March 29, 2005 9:00 PM (B> To: Perl-Win32-Users@listserv.ActiveState.com (B> Subject: Re: Perl/Tk GUI Builder (B> (B> Ohayo Taguchi-san. I don't know of a builder app but there (B> is a great deal (B> of information and examples contained in the widget.bat demo (B> that comes with (B> Active Perl. It should show u how to make any basic Tk GUI. (B> (B> (B> (B> (B> (B> (B> -- (B> REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=-- (B> "...ne cede males" (B> (B> 0100 (B> (B> ___ (B> Perl-Win32-Users mailing list (B> Perl-Win32-Users@listserv.ActiveState.com (B> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs (B> (B> (B___ (BPerl-Win32-Users mailing list (BPerl-Win32-Users@listserv.ActiveState.com (BTo unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl/Tk GUI Builder
On Mon, 28 Mar 2005, [EMAIL PROTECTED] wrote: > Does anyone know of a Perl/Tk GUI builder? I know it is asked before. > But I like to know if there is. Guido seems not be supported any more. Our "Komodo Professional" product includes a GUI builder that targets Perl/Tk among others: http://aspn.activestate.com/ASPN/docs/Komodo/3.1/komodo-doc-guibuilder.html You can download a trial version from the product website: http://www.activestate.com/Products/Komodo/ Note that the GUI builder is only part of the "Professional" edition and not included in the "Personal" version. Cheers, -Jan ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Perl/Tk GUI Builder
Ohayo Taguchi-san. I don't know of a builder app but there is a great deal of information and examples contained in the widget.bat demo that comes with Active Perl. It should show u how to make any basic Tk GUI. -- REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=-- "...ne cede males" 0100 ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Perl/Tk GUI Builder
Hello, (B (BDoes anyone know of a Perl/Tk GUI builder? (BI know it is asked before. (BBut I like to know if there is. (BGuido seems not be supported any more. (B (BAny mailing list for Perl/Tk? (B (BRegards, (BHirosi Taguti (B[EMAIL PROTECTED] (B (B___ (BPerl-Win32-Users mailing list (BPerl-Win32-Users@listserv.ActiveState.com (BTo unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
Hi Dirk,
for your conceptual question I'd say, that you're already
using the right things (-validateCommand, -invalidateCommand
callbacks).
If you want to force adherence to valid values - that's the job
of the callbacks. If you want to tell the user somehow, it's only
a moderately good idea to use a status line. Much better is
the messageBox method, which opens a dialog.
Like this:
$main->messageBox(-title => 'Error', -message => "The value '$Job' is not a
valid entry - please correct", -icon => 'error', -type => 'OK');
See 'perldoc Tk::messageBox' for details.
To return to the widget, something like this should help:
$jobEntry->selectionRange(0, 'end'); #select everything
$jobEntry->focus(); # set focus back to Entry widget
The 'bell' method works fine for me on WinXP, Perl 5.6.1.
Check your 'Volume Controls' !
Does this answer your questions?
Regards,
Gerhard
|-+>
| ||
| ||
| ||
| ||
| ||
| |"Dirk Bremer" |
| |<[EMAIL PROTECTED]> |
| ||
| |2005-01-21 08:08 PM |
| ||
|-+>
>---|
|
|
| To: Gerhard Petrowitsch/STN/SC/[EMAIL PROTECTED]
|
| cc: "perl-win32-users"
|
| Subject:RE: Perl GUI Programming
|
|
|
| Classification:
|
|
|
|
|
>---|
First of all, thanks for everyone's suggestions on Perl GUI extensions.
I have decided to use Tk. And thanks especially to Gerhard for his
pointers.
Here is the test program that I am working on:
#! C:/perl/bin/perl -w
use diagnostics;
use strict;
use warnings;
# Declare modules.
use FindBin qw($Bin);
use lib $Bin;
use Tk;
my $main = MainWindow->new(-title => 'Testing a Perl Tk Application');
$main->bind('' => sub {exit});
$main->minsize(600,300);
$main->geometry("600x300");
my $Frame1 = $main->Frame(-borderwidth=>'2',
-relief=>'sunken',
)->pack(
-anchor => 'w',
-fill => 'x',
-ipady=>5,
-ipadx=>5,
-pady=>5,
-padx=>10,
-side=>'top');
my $Frame2 = $main->Frame(-borderwidth=>'2',
-relief=>'sunken',
)->pack(
-anchor => 'w',
-fill => 'x',
-ipady=>5,
-ipadx=>5,
-pady=>5,
-padx=>10,
-side=>'top');
# Frame 1 widgets.
my ($Coop, $Cycle, $Date, $Job, $Type);
my $Label1 = $Frame1->Label(-text => 'Job Type');
my $jobEntry = $Frame1->Entry(-textvariable => \$Job,
-validate => 'focusout',
-validatecommand => sub {$_[1] =
uc($_[1]); $_[1] =~ /[BD]/},
-invalidcommand => sub {print("Invalid
data value for $_[0]\n")},
-width => 1);
my $Label2 = $Frame1->Label(-text => 'Coop_ID');
my $coopEntry = $Frame1->Entry(-justify => 'right',
-textvaria
RE: Perl GUI Programming
First of all, thanks for everyone's suggestions on Perl GUI extensions.
I have decided to use Tk. And thanks especially to Gerhard for his
pointers.
Here is the test program that I am working on:
#! C:/perl/bin/perl -w
use diagnostics;
use strict;
use warnings;
# Declare modules.
use FindBin qw($Bin);
use lib $Bin;
use Tk;
my $main = MainWindow->new(-title => 'Testing a Perl Tk Application');
$main->bind('' => sub {exit});
$main->minsize(600,300);
$main->geometry("600x300");
my $Frame1 = $main->Frame(-borderwidth=>'2',
-relief=>'sunken',
)->pack(
-anchor => 'w',
-fill => 'x',
-ipady=>5,
-ipadx=>5,
-pady=>5,
-padx=>10,
-side=>'top');
my $Frame2 = $main->Frame(-borderwidth=>'2',
-relief=>'sunken',
)->pack(
-anchor => 'w',
-fill => 'x',
-ipady=>5,
-ipadx=>5,
-pady=>5,
-padx=>10,
-side=>'top');
# Frame 1 widgets.
my ($Coop, $Cycle, $Date, $Job, $Type);
my $Label1 = $Frame1->Label(-text => 'Job Type');
my $jobEntry = $Frame1->Entry(-textvariable => \$Job,
-validate => 'focusout',
-validatecommand => sub {$_[1] =
uc($_[1]); $_[1] =~ /[BD]/},
-invalidcommand => sub {print("Invalid
data value for $_[0]\n")},
-width => 1);
my $Label2 = $Frame1->Label(-text => 'Coop_ID');
my $coopEntry = $Frame1->Entry(-justify => 'right',
-textvariable => \$Coop,
-width => 5);
my $Label3 = $Frame1->Label(-text => 'Cycle');
my $cycleEntry = $Frame1->Entry(-justify => 'right',
-textvariable => \$Cycle,
-width => 2);
my $Label4 = $Frame1->Label(-text => 'Date');
my $dateEntry = $Frame1->Entry(-width => 8,
-textvariable => \$Date);
my $Label5 = $Frame1->Label(-text => 'Type');
my $typeEntry = $Frame1->Entry(-width => 1,
-textvariable => \$Type);
$Label1->pack(-side => 'left', -padx => 5);
$jobEntry->pack(-side => 'left', -padx => 5);
$Label2->pack(-side => 'left', -padx => 5,);
$coopEntry->pack(-side => 'left', -padx => 5);
$Label3->pack(-side => 'left', -padx => 5);
$cycleEntry->pack(-side => 'left', -padx => 5);
$Label4->pack(-side => 'left', -padx => 5);
$dateEntry->pack(-side => 'left', -padx =>5);
$Label5->pack(-side => 'left', -padx => 5);
$typeEntry->pack(-side => 'left', -padx => 5);
# Frame 2 widgets.
my $Search = $Frame2->Button(-text => 'Search', -command =>
sub{do_searchButton($jobEntry, $coopEntry, $cycleEntry, $dateEntry,
$typeEntry)});
my $Done = $Frame2->Button(-text => "Done", -command => sub {exit});
$Search->pack(-side => 'left', -padx => 5, -pady => 5);
$Done->pack(-side => 'left', -padx => 5, -pady => 5);
$jobEntry->focus;
MainLoop();
I have a conceptual question as well as a practical question. The
conceptual question is what general methods do you use to validate the
user's entered data and force adherence to recognized/valid values?
The practical question can be taken from the example program. I am
attempting to use the various validation features for $jobEntry. My
concern is with the -invalidcommand. I tried the main->bell call without
success, i.e. not sound was heard, but while a bell-sound would be nice,
I am more concerned with not letting the user leave this entry until a
valid value has been entered. I have experimented with the various focus
properties without success. Basically what I would like to do here is
this:
1. Validate the entry with the -validatecommand. This appears to be
working.
2. If an invalid value is entered, have the cursor/focus remain in the
field in error.
3. Display a context-specific message in the GUI. I have considered
placing a label in the GUI for status messages. If the label refers to a
variable for its text, will the label be updated in the GUI if the
-invalidcommand sets the value of the variable? Would the program need
to do another pack on the status label to refresh its view of the lable
text variable?
TIA!
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
Dirk, one frequently overlooked option for a windows GUI is to drive IE via the Win32::OLE module. This works pretty well for simple applications. If you already know HTML fairly well, there's less of a learning curve than some of the other options. There are some examples (in VBScript) at scriptinganswers.com. You'll have to register (free), then go to the script vault, misc scripts. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dirk Bremer Sent: Thursday, January 20, 2005 10:34 AM To: perl-win32-users Subject: RE: Perl GUI Programming wxPerl is interesting but very little documentation can be found. I will require documentation from a complete beginner's viewpoint (for the GUI) as I have literally no GUI programming experience although am well-versed in Perl. -Original Message- From: David Kaufman [mailto:[EMAIL PROTECTED] Sent: Wednesday, January 19, 2005 18:43 To: Dirk Bremer; perl-win32-users Subject: Re: Perl GUI Programming Hi Dirk, Dirk Bremer <[EMAIL PROTECTED]> wrote: > >I am ready to attempt some GUI programming in Perl. I have looked at >Win32::GUI and need more documentation for it than I can readily find. >I have looked at Tk and it looks a bit cumbersome. What are you >recommendations? I require something that is compatible with 5.6 Perl. >I would like something that I can get up and running on quickly and >that is well documented for beginners. My primary interest will be in >developing a GUI that lists files for the user to choose and another >GUI that will be strictly as a scrolling display that will be updated >often. Your suggestions will be appreciated. Check out wxPerl http://wxperl.sourceforge.net/ I use it to develop perl GUI apps on windows, and the PerlDevKit from www.activestate.com to compile them to windows.exe-cutables. Here's a nice (if a bit old) tutorial: http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html hth, dave ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
Hi Dirk, I'm glad to see that you're giving Tk a try ;-) In general when using the pack geometry manager you use frames to group widgets in a special layout. Like this: use Tk; my $mw=MainWindow->new(); my $f1 = $mw->Frame()->pack(-side => 'top'); my $f2 = $mw->Frame()->pack(-side => 'top'); my $f3 = $mw->Frame()->pack(-side => 'top'); my $f4 = $mw->Frame()->pack(-side => 'top'); $f1->Label(-text => 'label1')->pack(-side => 'left'); $f1->Button(-text => 'button1')->pack(-side => 'left'); $f2->Label(-text => 'label2')->pack(-side => 'left'); $f2->Button(-text => 'button2')->pack(-side => 'left'); $f3->Label(-text => 'label3')->pack(-side => 'left'); $f3->Button(-text => 'button3')->pack(-side => 'left'); $f4->Label(-text => 'label4')->pack(-side => 'left'); $f4->Button(-text => 'button4')->pack(-side => 'left'); MainLoop; The disadvantage here is, that you don't get nice columns. If you want to have these, use this approach: use Tk; my $mw=MainWindow->new(); my $f1 = $mw->Frame()->pack(-side => 'left', -anchor => 'n'); my $f2 = $mw->Frame()->pack(-side => 'left'); $f1->Label(-text => 'label1')->pack(-side => 'top'); $f1->Label(-text => 'label2')->pack(-side => 'top'); $f1->Label(-text => 'label3')->pack(-side => 'top'); $f1->Label(-text => 'label4')->pack(-side => 'top'); $f2->Button(-text => 'button1')->pack(-side => 'top'); $f2->Button(-text => 'button2')->pack(-side => 'top'); $f2->Button(-text => 'button3')->pack(-side => 'top'); $f2->Button(-text => 'button4')->pack(-side => 'top'); MainLoop; The disadvantage here is, that you don't get nice rows (which here is a problem because of the different heights of Labels and Buttons): If you want both, use the grid geometry manager: use Tk; my $mw=MainWindow->new(); $mw->Label(-text => 'label1')->grid(-row => 0, -column => 0); $mw->Button(-text => 'button1')->grid(-row => 0, -column => 1); $mw->Label(-text => 'label2')->grid(-row => 1, -column => 0); $mw->Button(-text => 'button2')->grid(-row => 1, -column => 1); $mw->Label(-text => 'label3')->grid(-row => 2, -column => 0); $mw->Button(-text => 'button3')->grid(-row => 2, -column => 1); $mw->Label(-text => 'label4')->grid(-row => 3, -column => 0); $mw->Button(-text => 'button4')->grid(-row => 3, -column => 1); MainLoop; Get it? You can also grid Frames into grid positions and pack or grid other things in: my $container = $mw->Frame()->grid(-row =>0, -column => 0); $container->Label(-text => 'test')->pack(); $container->Button(-text => 'Press me')->pack(); But you should never use pack and grid within the same Frame or MainWindow/Toplevel (which actually are also Frames) Let me know if you need more - perhaps better over the Tk list! Regards, Gerhard |-+-> | | | | | | | | | | | | | | | | |"Dirk Bremer" <[EMAIL PROTECTED]> | | | | | |Sent by: | | |[EMAIL PROTECTED]| | |.com | | | | | |2005-01-21 03:22 PM | | | | |-+-> >---| | | | To: "perl-win32-users" | | cc: (bcc: Gerhard Petrowitsch/STN/SC/PHILIPS)
RE: Perl GUI Programming
You can wrap each label & button into a frame and then pack the frames together. Regards, Rick Michaud -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dirk Bremer Sent: Friday, January 21, 2005 9:22 AM To: perl-win32-users Subject: RE: Perl GUI Programming Let me pose a general Tk question as I'm having a bit of trouble understanding the placement of widgets. I would like the following layout: label button label button label button label button I have tried various settings of -anchor and -side and the best that I can come up with is: label button label button label button label button I have been using the pack geometry manager. Suggestions? Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters USA Central Time Zone 636-922-9158 ext. 8652 fax 636-447-4471 [EMAIL PROTECTED] www.nisc.cc ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
Let me pose a general Tk question as I'm having a bit of trouble understanding the placement of widgets. I would like the following layout: label button label button label button label button I have tried various settings of -anchor and -side and the best that I can come up with is: label button label button label button label button I have been using the pack geometry manager. Suggestions? Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters USA Central Time Zone 636-922-9158 ext. 8652 fax 636-447-4471 [EMAIL PROTECTED] www.nisc.cc ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
Gerhard,
Can you direct me to the location of the mailing list?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Thursday, January 20, 2005 06:02
To: Dirk Bremer
Cc: perl-win32-users
Subject: Re: Perl GUI Programming
Hi Dirk,
I don't know, why Tk looks cumbersome to you - it's
well documented, you get a great book about it
("Mastering Perl/Tk" by Steve Lidie, Nancy Walsh at O'Reilly)
there's a living mailing list (Steve, Nick himself and a lot of
other great Tk specialists contribute a lot) and it's very easy to use.
It's also cross platform, of course. And you can re-use a lot of
knowledge should you ever need to develop a GUI for Tcl
(which God may save you from ;-)
Once you get over the initial hurdles (which you will face
with every GUI package), you won't find it cumbersome
anymore.
Regards,
Gerhard
|-+->
| | |
| | |
| | |
| | |
| | |
| |"Dirk Bremer" <[EMAIL PROTECTED]> |
| | |
| |Sent by: |
| |[EMAIL PROTECTED]|
| |.com |
| | |
| |2005-01-19 11:21 PM |
| | |
|-+->
>---
|
|
|
| To: "perl-win32-users"
|
| cc: (bcc: Gerhard Petrowitsch/STN/SC/PHILIPS)
|
| Subject:Perl GUI Programming
|
|
|
| Classification:
|
|
|
|
|
>---
--------|
I am ready to attempt some GUI programming in Perl. I have looked at
Win32::GUI and need more documentation for it than I can readily find. I
have looked at Tk and it looks a bit cumbersome. What are you
recommendations? I require something that is compatible with 5.6 Perl. I
would like something that I can get up and running on quickly and that
is well documented for beginners. My primary interest will be in
developing a GUI that lists files for the user to choose and another GUI
that will be strictly as a scrolling display that will be updated often.
Your suggestions will be appreciated.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: GUI
Why not take Perl/Tk ? It comes readily packed
with ActiveStates Perl release.
Gerhard
|-+->
| | |
| | |
| | |
| | |
| | |
| |"Robert Suchocki" <[EMAIL PROTECTED]>|
| | |
| |Sent by: |
| |[EMAIL PROTECTED]|
| |.com |
| | |
| |2005-01-20 07:06 PM |
| | |
|-+->
>---|
|
|
| To:
|
| cc: (bcc: Gerhard Petrowitsch/STN/SC/PHILIPS)
|
| Subject:GUI
|
|
|
| Classification:
|
|
|
|
|
>---|
Is there a GUI interface for Perl scripting/programming that can be used
with Windows98SE?
(Embedded image moved to file: pic30350.gif)
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
<>___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: GUI
At 20:13 2005-01-20, Adam R. Frielink wrote: He might be looking for something like 'The GUI Loft'. Possibly SpecPerl or guido as well. I think Guido and the Loft are found at SourceForge. The GUI Loft is at: http://www.bahnhof.se/~johanl/perl/Loft/ /J -- --- -- -- -- - - -- - Johan LindströmSourcerer @ Boss Casinos johanl AT DarSerMan.com Latest bookmark: "TCP Connection Passing" http://tcpcp.sourceforge.net/ dmoz: /Computers/Programming/Languages/JavaScript/ 12 ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: GUI
> As far as I know, Win32::GUI fits that criteria. > > On approximately 1/20/2005 10:06 AM, came the following > characters from > the keyboard of Robert Suchocki: > > > > Is there a GUI interface for Perl scripting/programming > that can be > > used with Windows98SE? > He might be looking for something like 'The GUI Loft'. Possibly SpecPerl or guido as well. I think Guido and the Loft are found at SourceForge. SpecPerl can be found by Googling, if that is what you are looking for. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
GUI
Is there a GUI interface for Perl scripting/programming that can be used with Windows98SE? ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
Have you looked here? http://wxperl.sourceforge.net/documentation.html -Erich- -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dirk Bremer Sent: Thursday, January 20, 2005 10:34 AM To: perl-win32-users Subject: RE: Perl GUI Programming wxPerl is interesting but very little documentation can be found. I will require documentation from a complete beginner's viewpoint (for the GUI) as I have literally no GUI programming experience although am well-versed in Perl. -Original Message- From: David Kaufman [mailto:[EMAIL PROTECTED] Sent: Wednesday, January 19, 2005 18:43 To: Dirk Bremer; perl-win32-users Subject: Re: Perl GUI Programming Hi Dirk, Dirk Bremer <[EMAIL PROTECTED]> wrote: > >I am ready to attempt some GUI programming in Perl. I have looked at >Win32::GUI and need more documentation for it than I can readily find. >I have looked at Tk and it looks a bit cumbersome. What are you >recommendations? I require something that is compatible with 5.6 Perl. >I would like something that I can get up and running on quickly and >that is well documented for beginners. My primary interest will be in >developing a GUI that lists files for the user to choose and another >GUI that will be strictly as a scrolling display that will be updated >often. Your suggestions will be appreciated. Check out wxPerl http://wxperl.sourceforge.net/ I use it to develop perl GUI apps on windows, and the PerlDevKit from www.activestate.com to compile them to windows.exe-cutables. Here's a nice (if a bit old) tutorial: http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html hth, dave ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
wxPerl is interesting but very little documentation can be found. I will require documentation from a complete beginner's viewpoint (for the GUI) as I have literally no GUI programming experience although am well-versed in Perl. -Original Message- From: David Kaufman [mailto:[EMAIL PROTECTED] Sent: Wednesday, January 19, 2005 18:43 To: Dirk Bremer; perl-win32-users Subject: Re: Perl GUI Programming Hi Dirk, Dirk Bremer <[EMAIL PROTECTED]> wrote: > >I am ready to attempt some GUI programming in Perl. I have looked at > Win32::GUI and need more documentation for it than I can readily > find. I have looked at Tk and it looks a bit cumbersome. What are you > recommendations? I require something that is compatible with 5.6 > Perl. I would like something that I can get up and running on quickly > and that is well documented for beginners. My primary interest will > be in developing a GUI that lists files for the user to choose and > another GUI that will be strictly as a scrolling display that will be > updated often. Your suggestions will be appreciated. Check out wxPerl http://wxperl.sourceforge.net/ I use it to develop perl GUI apps on windows, and the PerlDevKit from www.activestate.com to compile them to windows.exe-cutables. Here's a nice (if a bit old) tutorial: http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html hth, dave ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Win32-GUI
Здравствуйте Charles, http://sourceforge.net/projects/perl-win32-gui -- С уважением, Сергейmailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Perl GUI Programming
Hi Dirk,
I don't know, why Tk looks cumbersome to you - it's
well documented, you get a great book about it
("Mastering Perl/Tk" by Steve Lidie, Nancy Walsh at O'Reilly)
there's a living mailing list (Steve, Nick himself and a lot of
other great Tk specialists contribute a lot) and it's very easy to use.
It's also cross platform, of course. And you can re-use a lot of
knowledge should you ever need to develop a GUI for Tcl
(which God may save you from ;-)
Once you get over the initial hurdles (which you will face
with every GUI package), you won't find it cumbersome
anymore.
Regards,
Gerhard
|-+->
| | |
| | |
| | |
| | |
| | |
| |"Dirk Bremer" <[EMAIL PROTECTED]> |
| | |
| |Sent by: |
| |[EMAIL PROTECTED]|
| |.com |
| | |
| |2005-01-19 11:21 PM |
| | |
|-+->
>---|
|
|
| To: "perl-win32-users"
|
| cc: (bcc: Gerhard Petrowitsch/STN/SC/PHILIPS)
|
| Subject:Perl GUI Programming
|
|
|
| Classification:
|
|
|
|
|
>-------|
I am ready to attempt some GUI programming in Perl. I have looked at
Win32::GUI and need more documentation for it than I can readily find. I
have looked at Tk and it looks a bit cumbersome. What are you
recommendations? I require something that is compatible with 5.6 Perl. I
would like something that I can get up and running on quickly and that
is well documented for beginners. My primary interest will be in
developing a GUI that lists files for the user to choose and another GUI
that will be strictly as a scrolling display that will be updated often.
Your suggestions will be appreciated.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Perl GUI Programming
You can try Prima (http://prima.eu.org) It works in Win32, Linux and Solaris and have a very very very nice GUI-builder. El Miércoles 19 Enero 2005 23:21, Dirk Bremer escribió: > I am ready to attempt some GUI programming in Perl. I have looked at > Win32::GUI and need more documentation for it than I can readily find. I > have looked at Tk and it looks a bit cumbersome. What are you > recommendations? I require something that is compatible with 5.6 Perl. I > would like something that I can get up and running on quickly and that > is well documented for beginners. My primary interest will be in > developing a GUI that lists files for the user to choose and another GUI > that will be strictly as a scrolling display that will be updated often. > Your suggestions will be appreciated. > > Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters > USA Central Time Zone > 636-922-9158 ext. 8652 fax 636-447-4471 > > [EMAIL PROTECTED] > www.nisc.cc > > ___ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32-GUI
If you see Loft Homepage (http://www.bahnhof.se/~johanl/perl/Loft/) The oficial PPMs are in http://rocherl.club.fr/Win32GUI.html#WinGui. El Miércoles 19 Enero 2005 23:58, Charles Maier escribió: > What server has Win32:GUI as a PPM ??? > > TIA > Chuck > ___ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32-GUI
Charles Maier wrote: > Thanks Lloyd.. > > However it appears that there is no package for Win32:GUI on that site. > It also appears that that site is not maintained so well as I found a > number of bad links on a few things I looked into. > > This problem is.. I do not understand how to install a CPAN module.. it > is very confusing process for some of us that install a module once in a > blue moon ;o)) PPM is a godsend for those of us that find this true. > > The question still remains... is there a Win32::GUI package?? and if > so...what URL will provide it? The latest I see on PPM is version 1.0 - try adding this repos: http://www.bribes.org/perl/ppm/ -- ,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED] (_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED] / ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/ -/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff) ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32-GUI
Charles Maier wrote:
Thanks Lloyd..
However it appears that there is no package for Win32:GUI on that site.
It also appears that that site is not maintained so well as I found a
number of bad links on a few things I looked into.
This problem is.. I do not understand how to install a CPAN module.. it
is very confusing process for some of us that install a module once in a
blue moon ;o)) PPM is a godsend for those of us that find this true.
The question still remains... is there a Win32::GUI package?? and if
so...what URL will provide it?
http://cpan.uwinnipeg.ca/module/Win32::GUI
Randy's CPAN search displays ppm package availability in a number of
repositories, including ActiveState's.
Cool! Looks like Win32::Gui is available from www.bribes.org =)
cheers, JeffG
TIA
Chuck
-Original Message-
*From:* Lloyd Sartor [mailto:[EMAIL PROTECTED]
*Sent:* Wednesday, January 19, 2005 6:20 PM
*To:* Charles Maier
*Subject:* Re: Win32-GUI
I received the following guidance when I queried about another package.
regards,
Lloyd
http://cpan.uwinnipeg.ca/
The above CPAN search engine conveniently shows package availability
on a
variety of ppm repositories at the bottom of the module page.
best regards,
Jeff Griffiths
Technical Support Engineer
ActiveState - Dynamic Tools for Dynamic Languages
http://www.ActiveState.com
*"Charles Maier" <[EMAIL PROTECTED]>*
Sent by: [EMAIL PROTECTED]
01/19/2005 04:58 PM
To:"Perl-Win32-Users Mailing List"
cc:
Subject:Win32-GUI
What server has Win32:GUI as a PPM ???
TIA
Chuck
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32-GUI
Thanks Lloyd.. However it appears that there is no package for Win32:GUI on that site. It also appears that that site is not maintained so well as I found a number of bad links on a few things I looked into. This problem is.. I do not understand how to install a CPAN module.. it is very confusing process for some of us that install a module once in a blue moon ;o)) PPM is a godsend for those of us that find this true. The question still remains... is there a Win32::GUI package?? and if so...what URL will provide it? TIA Chuck -Original Message-From: Lloyd Sartor [mailto:[EMAIL PROTECTED]Sent: Wednesday, January 19, 2005 6:20 PMTo: Charles MaierSubject: Re: Win32-GUII received the following guidance when I queried about another package. regards, Lloyd http://cpan.uwinnipeg.ca/The above CPAN search engine conveniently shows package availability on avariety of ppm repositories at the bottom of the module page.best regards,Jeff GriffithsTechnical Support EngineerActiveState - Dynamic Tools for Dynamic Languageshttp://www.ActiveState.com "Charles Maier" <[EMAIL PROTECTED]> Sent by: [EMAIL PROTECTED] 01/19/2005 04:58 PM To: "Perl-Win32-Users Mailing List" cc: Subject: Win32-GUIWhat server has Win32:GUI as a PPM ???TIAChuck___Perl-Win32-Users mailing listPerl-Win32-Users@listserv.ActiveState.comTo unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl GUI Programming
> I am ready to attempt some GUI programming in Perl. I have looked at > Win32::GUI and need more documentation for it than I can readily find. I > have looked at Tk and it looks a bit cumbersome. What are you > recommendations? wxPerl is the best way to go, in my opinion. Cross platform widgets for a cross platform language. -Erich- -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.13 - Release Date: 1/16/2005 ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Perl GUI Programming
Hi Dirk, Dirk Bremer <[EMAIL PROTECTED]> wrote: I am ready to attempt some GUI programming in Perl. I have looked at Win32::GUI and need more documentation for it than I can readily find. I have looked at Tk and it looks a bit cumbersome. What are you recommendations? I require something that is compatible with 5.6 Perl. I would like something that I can get up and running on quickly and that is well documented for beginners. My primary interest will be in developing a GUI that lists files for the user to choose and another GUI that will be strictly as a scrolling display that will be updated often. Your suggestions will be appreciated. Check out wxPerl http://wxperl.sourceforge.net/ I use it to develop perl GUI apps on windows, and the PerlDevKit from www.activestate.com to compile them to windows.exe-cutables. Here's a nice (if a bit old) tutorial: http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html hth, dave ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32-GUI
What server has Win32:GUI as a PPM ??? TIA Chuck ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
