Re: PERL on a CD

[Octavian Rasnita]

Hi,

Search with Google for "microweb".
You will find that perl, php, MySQL and Apache can run from a CD, with no
installation needed.

Teddy

- Original Message - 
From: "Michael D. Smith" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 25, 2006 8:31 PM
Subject: Re: PERL on a CD


>
> Is it possible to burn PERL and a script onto a CD and execute it from
> there without installing perl on the host computer?
>
> There would be nothing in the registry. The path to perl.exe would have to
> be included for the script to execute -- but beyond that, I'm a blank.
>
> Any thoughts appreciated.
>
> Actually, it would be unknown if PERL were installed on the host computer
> or not -- is there any way to check first? -- as it would definitely
> execute quicker off the hard drive than off a CD.
>
> TIA
>
> ms
>
> ___
> 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: Beta of PPM version 4 released: Usability, Feature Suggestions

[Octavian Rasnita]

Hi,

Oh yes, if the command line mode will be able to do everything what the GUI
can, then it is no problem.
I have understood that the PPM shell will be removed but that we will still
be able to run ppm in command line mode, specifying all the parameters of
ppm directly in the DOS shell, like:

ppm install Module-Name

So it is OK, but the problem is that I am sure that in time, the shell
version won't be developed, but only the GUI one.
And I also think that some features won't be accessible in the command line
mode, or they will be accessible but much harder.

For example, it is very simple to read a list view or tree view in a GUI
even if it is very long, but it is much harder in command line.
Not ppm directly is the problem, but the Tk library which is not accessible
for screen readers like WX or Win32::GUI are.

Teddy

- Original Message - 
From: "Bernie Cosell" <[EMAIL PROTECTED]>
To: 
Sent: Sunday, June 18, 2006 4:25 PM
Subject: Re: Beta of PPM version 4 released: Usability, Feature Suggestions


> On 17 Jun 2006 at 13:29, Veli-Pekka Tätilä wrote:
>
> > Glad to see PPM is developing big time. I'm thinking of taking the beta
for
> > a ride once the GUI stuff is implemented, if only to report any possible
> > accessibility issues. Which reminds me, so is this TK X stuff going to
be
> > screen reader accessible? I sure know the GUI stuff shipping with Python
is
> > not. If this should extend to PPm4, I do hope the old console interface
will
> > still be offered.
>
> I will confess to not being all that well-informed about all the issues
> surrounding accommodating blind-folks [and I *know* I'm guilty of
> producing GUI-based app that I'd guess are near-impossible to use if
> you're not "sighted"[*]], so, perhaps naively, I ask: 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? That is, harking back to the
> old pre-Brown v Bd of Ed days, is there a real problem with "separate but
> equal" interfaces?
>
> [*] In my [lame] defense, I'm actually two levels down: I write
> software at the behest of our customer, but the actual *users* of my
> software are _their_ customers, so I've implemented stuff to their
> specs.  When/if they get complaints about that sort of thing from
> their customers [who are the ones actually using the code I write]
> I'll rectify those problems.  [I know: I should be well-enough
> informed on this kind of thing to embrace it in my apps without the
> customer having to explicitly address it in the program specs.  Fact
> is that I'm pretty new to the world of GUI-based user apps [I'm
> mostly a systems programmer and up until about two years or so ago
> had *NEVER* written a program that had other than a command line
> interface!]] and I haven't really embraced and internalized all of
> those issues (yet).
>
> It just seems odd to me, given that there *is* a command-line/console
> interface why "accessibility issues" should be much/any of a concern.  I
> would agree that the *functionality* should still be there -- if they put
> in neat new hacks, they should be in the command-line version too [as
> 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..:o)].  But given an effective textual
> interface to the machinery, why should the degree [or not] of blind-
> access accommodation to the GUI interface be all that much of a concern?
>
>   /Bernie\
>
> -- 
> Bernie Cosell Fantasy Farm Fibers
> mailto:[EMAIL PROTECTED] Pearisburg, VA
> -->  Too many people, too few sheep  <-- 
>
>
>
>
> ___
> 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: Beta of PPM version 4 released: Usability, Feature Suggestions

[Octavian Rasnita]

Hi,

I also use to read the CPAN in order to see what a certain module does, but
I don't find its interface bad at all.

If you want to search for a certain module's POD docs, just go to:

search.cpan.org

Type the name of that module, or just a part of it, hit enter, then hit
enter on the link "100" if there are more than 100 results found, and it
will show you 100 results on a page.
(Or press enter on 50 if there are fewer results found).

Then there you will find 2 important links for every module found. The first
one is the module name exactly as you are using it in perl, with the names
separated by ::, and the other one is a link to the package name with the
names separated by "-" and it also contains a version number.

If you want to read the POD documentation, click on the first link, then
jump to the text with the letter "H" if you are using Jaws screen reader.
If you want to download the module, click on the second link, and after the
first form very soon you'll find a link named "download".



Teddy

- Original Message - 
From: "Veli-Pekka Tätilä" <[EMAIL PROTECTED]>
To: 
Sent: Saturday, June 17, 2006 1:29 PM
Subject: Re: Beta of PPM version 4 released: Usability, Feature Suggestions


> Hi list,
> Ok, a long post as usual:
> For easy navigation and content skipping, I've broken this down to three
> headings that end with colons namely: Accessibility, Feature suggestions
and
> PPM3 praise.
>
> Accessibility:
>
> Jan Dubois wrote:
> > beta version of the new PPM4 client has been released  build
> > number really means it is the first beta of the 818 release).
> > Beta 1 does *not* yet include the GUI interface for PPM4, but it does
> > bundle the Tcl and Tkx modules that we are using to implement it
>
> Hi,
> Glad to see PPM is developing big time. I'm thinking of taking the beta
for
> a ride once the GUI stuff is implemented, if only to report any possible
> accessibility issues. Which reminds me, so is this TK X stuff going to be
> screen reader accessible? I sure know the GUI stuff shipping with Python
is
> not. If this should extend to PPm4, I do hope the old console interface
will
> still be offered.
>
> There are two broad criteria for judjing accessibility. OFten they are
> merely viewed as minor annoyances by the sighted but for blind folks it
> often means the difference between a perfectly valid tool and something
> virtually unusable. The first big thing accessibilitywise is that the app
is
> keyboard usable meaning complete tab orders and keyboard, menu or hotkey
> operation for all controls used. Many screen reader users are totally
blind
> so the mouse is no good. I'm legally blind, too, and although I can and do
> use the rodent occasionally heavily magnified, I only use highly
> mouse-driven apps unless there's really no alternative, despite being a
big
> GUI-fan.
>
> The second quality an accessible software should meet is that all of the
> important info it displays can be rendered to text, and later to speech or
> braille. This comes down to two separate components, I think. The app
should
> be made of textual content in a speech friendly, most significant and
> important info first, style. Additionally, most readers don't convey
spatial
> info and have no idea of semantics, interpreting the screeen mechanically
> left to right, top to bottom or following the tab order, graphical
diagrams
> and text labels whose association to the field is only visual, should be
> avoided.
>
> But to make speech and braille output a reality, the information must be
> obtainable in the first place. in Windows, controls derived from the
> standard platform widgets or those who expose the info via Microsoft
Active
> Accessibility, ought to be used. Technically it is enough for all control
> info and events to be available programmatically to 3rd party software
like
> screen readers or GUi testeres. IN practice, the more you stray from
> platform specifics the harder it is. Fire Fox is technically accessible
but
> despite my screen reader's MSAA support it requires some serious tweaking
> from the reader authors to even have the thing track the menus, oh well.
>
> Feature suggestions:
>
> I do have a couple of feature ideas concerning the new PPM. Some of these
> might already be in this release, sorry for any redundancy. It would be
> great if you could have a hierarchical view, like a WIndows tree control,
> for browsing through the module name spaces in the result set or all
> available packages. For example, I'd like to see an overview of all the
> top-level packages in PPM but so far have not found out a good way of
> getting a listing like that.
>
> Another very useful thing would be to selectively uninstall dependencies.
I
> presume this would require more history data but. Often after having
> installed a module I've noticed that it has auto-installed its
> prerequisites. Nothing wrong with that until uninstallation. If I do
decide
> to uninstall I usually no longer need the prerequi

Re: Ignoring unwanted "use"

[Octavian Rasnita]

Have you tried "require" instead of "use"?

Teddy

- Original Message - 
From: "David Ressler" <[EMAIL PROTECTED]>
To: "Perl List" 
Sent: Friday, April 21, 2006 7:58 PM
Subject: Ignoring unwanted "use"


> I have a library of Perl routines in which "use Authen::SASL;" appears and
is
> used in some, but not all, of my various websites. In those sites where I
don't
> use it, Authen is not installed, but the script fails in these sites
because
> "use" is evaluated at compile time, not run time.
>
> What's the best way to supress the "use" statement at those sites where
Authen
> is not used and is not installed? I don't want to have separate versions
of the
> library for different sites.
>
> Thanks,
> 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: SIGINT

[Octavian Rasnita]

From: "Ng, Bill" <[EMAIL PROTECTED]>

> Anyone play with signal handlers on the Win32 platform?  Specifically,
> I'm trying to print a message when  is pressed but I'm getting
> nowhere:
>
> This works on my linux box.  CTRL-C (while waiting for user input)
> prints "This works".  However, this doesn't work at all on my Win32 (XP)
> Platform (normal CTRL-C functionality remains).
>
> 
> local $SIG{INT} = sub { print "This works\n" };
> print my $a = <>;
> 
>

I have tried:

Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.
E:\lucru\sig>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 817 [257965] provided by ActiveState http://www.ActiveState.com
Built Mar 20 2006 17:54:25
E:\lucru\sig>perl sigtest.pl
[ I hit a Ctrl-C here]
This works
E:\lucru\sig>

So it works under Windows 2000 with perl 5.8.8 but there were some issues
with the signals under Windows with ActivePerl 5.8.8 build 816, so you need
to upgrade.


Teddy

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: old messages?

[Octavian Rasnita]

Yes I also received them.

Teddy

- Original Message - 
From: "Chris Wagner" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, March 07, 2006 7:56 PM
Subject: old messages?


> Did anyone else also just receive a boat load of old messages from the
list?
> I've got about 25 and more coming.  They go back to October.  And the
really
> funny thing about it is they're all from threads I participated in.  I
> checked out the headers and they're originating from mail.mytravelweb.net
> and involve somebody [EMAIL PROTECTED]  Here's one of the headers.
>
>
> Received: by mail.goodnews.net (mbox wagnerc)
>  (with Cubic Circle's cucipop (v1.31 1998/05/13) Tue Mar  7 12:35:34 2006)
> X-From_: [EMAIL PROTECTED]  Tue Mar  7
> 11:39:27 2006
> Return-Path: <[EMAIL PROTECTED]>
> Received: from mail.mytravelweb.net ([66.172.138.3])
> by mail.goodnews.net (8.11.6/8.11.6) with ESMTP id k27GdE120617
> for <[EMAIL PROTECTED]>; Tue, 7 Mar 2006 11:39:14 -0500
> Received: (qmail 3722 invoked by uid 0); 7 Mar 2006 15:53:03 -
> Delivered-To: [EMAIL PROTECTED]
> Received: (qmail 22752 invoked by uid 5061); 18 Nov 2005 07:38:31 -
> Received: by simscan 1.1.0 ppid: 22747, pid: 22749, t: 2.1300s
>  scanners: clamav: 0.87/m:34/d:1082 spam: 3.1.0
> X-Spam-Checker-Version: SpamAssassin 3.1.0 (2005-09-13) on
voip.travelone.net
> X-Spam-Level:
> X-Spam-Status: No, score=-2.6 required=5.0 tests=BAYES_00 autolearn=ham
> version=3.1.0
> Received: from unknown (HELO listserv.activestate.com) (209.17.183.249)
>   by mail.travelone.net with SMTP; 18 Nov 2005 07:38:29 -
> Received-SPF: none (mail.travelone.net: domain at listserv.ActiveState.com
> does not designate permitted sender hosts)
> Received: from listserv.activestate.com (localhost.localdomain
[127.0.0.1])
> by listserv.activestate.com (8.12.10/8.12.10) with ESMTP id
jAI7QANg004939;
> Thu, 17 Nov 2005 23:26:13 -0800
> (envelope-from [EMAIL PROTECTED])
> Received: from smtp3.ActiveState.com (smtp3.ActiveState.com
[192.168.3.19])
> by listserv.activestate.com (8.12.10/8.12.10) with ESMTP id
> jAI7GxMW004351 for ;
> Thu, 17 Nov 2005 23:16:59 -0800 (envelope-from [EMAIL PROTECTED])
> Received: from smtp7.ActiveState.com (percolator.ActiveState.com
> 192.168.2.13)
> by smtp3.ActiveState.com (8.12.11/8.12.11) with ESMTP id jAI7EFTE027798
> for <[EMAIL PROTECTED]>; Thu, 17 Nov 2005 23:14:15 -0800
> (envelope-from [EMAIL PROTECTED])
> Received: from smtp8.activestate.com (darkroast.activestate.com
[192.168.2.82])
> by smtp7.ActiveState.com (8.12.10/8.12.10) with ESMTP id jAI7Gtbm062579
> for <[EMAIL PROTECTED]>;
> Thu, 17 Nov 2005 23:16:55 -0800 (PST) (envelope-from [EMAIL PROTECTED])
> Received: from gary.yourhostdns.com (ns1.yourhostdns.com [70.84.43.68])
> by smtp8.activestate.com (8.13.4/8.13.4) with ESMTP id jAI7GstP077684
> for <[EMAIL PROTECTED]>;
> Thu, 17 Nov 2005 23:16:55 -0800 (PST) (envelope-from [EMAIL PROTECTED])
> Received: from [24.182.55.217] (helo=[192.168.192.2])
> by gary.yourhostdns.com with esmtpa (Exim 4.52)
> id 1Ed0UN-0003BS-UP; Fri, 18 Nov 2005 02:16:52 -0500
> Message-ID: <[EMAIL PROTECTED]>
> Date: Thu, 17 Nov 2005 23:16:52 -0800
> From: Glenn Linderman <[EMAIL PROTECTED]>
> User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
> rv:1.7.12) Gecko/20050915 MultiZilla/1.7.9.0a
> X-Accept-Language: en-us, en
> MIME-Version: 1.0
> To: Chris Wagner <[EMAIL PROTECTED]>
> References: <[EMAIL PROTECTED]>
> In-Reply-To: <[EMAIL PROTECTED]>
> X-No-Archive: yes
> Content-Type: text/plain; charset=us-ascii; format=flowed
> Content-Transfer-Encoding: 7bit
> X-AntiAbuse: This header was added to track abuse,
> please include it with any abuse report
> X-AntiAbuse: Primary Hostname - gary.yourhostdns.com
> X-AntiAbuse: Original Domain - activestate.com
> X-AntiAbuse: Originator/Caller UID/GID - [0 0] / [47 12]
> X-AntiAbuse: Sender Address Domain - NevCal.com
> X-Source:
> X-Source-Args:
> X-Source-Dir:
> X-PerlMx-Spam: CA, Deliver, Gauge=III, Probability=7%, Report='__CT 0,
> __CTE 0, __CT_TEXT_PLAIN 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0,
> __MIME_VERSION 0, __SANE_MSGID 0, __USER_AGENT 0'
> X-SpamReport: No antispam rules were triggered by this message
> X-PMX-Version: CA 4.7.1.128075, Antispam-Engine: 2.1.0.0,
> Antispam-Data: 2005.11.17.44
> Cc: [EMAIL PROTECTED]
> Subject: Re: Play MP3 from Perl
> X-BeenThere: perl-win32-users@listserv.ActiveState.com
> X-Mailman-Version: 2.1.4
> Precedence: list
> List-Id: Discussions relating to ActivePerl on Win32 platforms
> 
> List-Unsubscribe:
> ,
>

> List-Archive:
> 
> List-Post: 
> List-Help:
> 
> List-Subscribe:
> ,
>

> Sender: [EMAIL PROTECTED]
> Errors-To: [EMAIL PROTECTED]
>

using MS Excel grid

[Octavian Rasnita]

Hi,

Is it possible to insert an MS Excel grid control in a Win32::GUI
application?

I know that there is Win32::GUI::Grid control that can be used, but it is
not so accessible for screen readers..

Thank you.

Teddy

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Why is PerlApp's .exe package smaller than PAR?

[Octavian Rasnita]

BTW, can you tell me, why the programs made using the Tk library are not
accessible at all for screen readers? (while Win32::GUI is very accessible)
Because of the TCL/TK library, or because of its port to perl...?

Thank you.

Teddy

- Original Message - 
From: "Jan Dubois" <[EMAIL PROTECTED]>
To: "'Jeff Griffiths'" <[EMAIL PROTECTED]>
Cc: 
Sent: Friday, December 23, 2005 21:49 PM
Subject: RE: Why is PerlApp's .exe package smaller than PAR?


> On Fri, 23 Dec 2005, Jeff Griffiths wrote:
> > Thomas, Mark - BLS CTR wrote:
> >>> Also, I may end up distributing more than 1 Perl application to the
> >>> same host. Is there a way for multiple distributions to share common
> >>> libraries (maybe core dlls) so that the file can be even smaller? I
> >>> don't mind if the libraries are thrown into windows/system32/.
> >>> That's fine.
>
> [...]
>
> > This is my best impression of how our implementation works, I'm sure
> > Jan can shed more light on the specifics.
>
> Sure, please let me know if there are specific questions.  Ideally I
> would like to see that discussion on the PDK mailing list, where it
> is "more" on topic.
>
> Here is a snippet of what I wrote previously on the PDK list in response
> to a different question:
>
> | A library is indeed just another PerlApp program (or PerlCtrl or
> | whatever). However, it may make sense to just put a little dummy stub
> | program into your library. Personally, I would also give a library a
> | .dll extension on Windows even though it is not really a DLL when you
> | build it with PerlApp.
> |
> | The idea is simply to put all shared modules into a single executable:
> |
> |  perlapp --scan app1.pl --scan app2.pl --shared private stub.pl --exe
lib.dll
> |  perlapp --use lib.dll --xclude --shared private app1.pl
> |  perlapp --use lib.dll --xclude --shared private app2.pl
> |
> | Both the library and the applications must be compiled using the --
> | shared option. Otherwise they won't be able to access each others
> | bundled modules at runtime.
> |
> | If you want to put your lib.dll and the perl58.dll into a separate
> | directory (which I recommend), then you also want to use the --runlib
> | option for the latter 2 commands.
>
> Cheers,
> -Jan
>
>
>
> ___
> 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: How to quit when Windows shut down?

[Octavian Rasnita]

Try to put a signal handler in your program.

my $seen = 0;
$SIG{INT} = sub {$seen++;};

while(!$seen) {
#infinite loop
}

Teddy

- Original Message - 
From: "Ted Zeng" <[EMAIL PROTECTED]>
To: 
Sent: marti, 20 decembrie 2005 00:52 AM
Subject: How to quit when Windows shut down?


Hi,

I have a perl script that runs in an infinite loop whenever a machine
starts.

My problem is, when I shut down the PC, Windows could not
Stop the script. It put the dialog asking if user wants to stop the process.

Is there a way in the script to quit automatically when Windows shut down?


Ted zeng

___
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: How to quit when Windows shut down?

[Octavian Rasnita]

I couldn't find the shutdown command under Windows 2000
Teddy

- Original Message - 
From: "John Serink" <[EMAIL PROTECTED]>
To: "Ted Zeng" <[EMAIL PROTECTED]>; 
Sent: marti, 20 decembrie 2005 03:31 AM
Subject: RE: How to quit when Windows shut down?


C:\>shutdown /?
Usage: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t
xx] [-c "comment"] [
-d up:xx:yy]

No args Display this message (same as -?)
-i  Display GUI interface, must be the first
option
-l  Log off (cannot be used with -m option)
-s  Shutdown the computer
-r  Shutdown and restart the computer
-a  Abort a system shutdown
-m \\computername   Remote computer to
shutdown/restart/abort
-t xx   Set timeout for shutdown to xx seconds
-c "comment"Shutdown comment (maximum of 127
characters)
-f  Forces running applications to close
without warning
-d [u][p]:xx:yy The reason code for the shutdown
u is the user code
p is a planned shutdown code
xx is the major reason code (positive
integer less than 25
6)
yy is the minor reason code (positive
integer less than 65
536)

Use the -f switch.

John

> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Ted Zeng
> Sent: Tuesday, December 20, 2005 6:53 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: How to quit when Windows shut down?
>
>
> Hi,
>
> I have a perl script that runs in an infinite loop whenever a
> machine starts.
>
> My problem is, when I shut down the PC, Windows could not
> Stop the script. It put the dialog asking if user wants to
> stop the process.
>
> Is there a way in the script to quit automatically when
> Windows shut down?
>
>
> Ted zeng
>
> ___
> 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: moving the focus using tab, Accessibility, UI Alternatives

[Octavian Rasnita]

Hi,

Hmm, you might be right. Maybe those combinations of keys like control+tab
are not a part of the tab strips controls but built in Windows dialogs.
But I don't know too much about the dialogs yet, and I don't know if there
is a kind of dialog that uses a tab strip which I can populate with
controls...

I guess what you want is not a Windows GUI, but a kind of MS DOS gui and I
don't know if perl can be used for this.

Teddy


- Original Message - 
From: "Veli-Pekka Tätilä" <[EMAIL PROTECTED]>
To: "Octavian Rasnita" <[EMAIL PROTECTED]>;

Sent: Friday, August 12, 2005 21:18 PM
Subject: Re: moving the focus using tab, Accessibility, UI Alternatives


> Hi Octavian,
> I'm a newbie as far as the Win32::GUI package goes having only read the
> tutorial and built simple forms. However, I've done some basic Win32 stuff
> in plain old C but consider myself still a newbie in the subject.
>
> As to tab handling, are you using dialog boxes rather than windows? I
don't
> know about Win32::GUI, but in the raw WIn32 API dialogs have a built-in
> keyboard manager that takes care of the standard keyboared shortcuts. If
you
> build directly on top of an application window, you need to respond to the
> tab presses yourself in the window procedure and do the right thing,
namely
> set the focus to the desired control.
>
> I guess Win32::GUI is my only real option of building a GUI because TK is
> not really accessible with current screen reader applications. Naturally I
> wouldn't want to build something I cannot use myself. I've got trouble
even
> having a basic tab order working in a set of check boxes. SUre I can move
> between them with the arrows but tab and shift+tab don't work as expected.
> As a keyboard user, it is crutial to have each and every control in the
tab
> order or provide some other direct means of accessing it.
>
> Finally, if I don't want to do a full GUI, would anyone happen to know
> whether there are WIn32 ports of frameworks for building simple ASCII
> dialogs? I used to run Debian Linux for a while and most of the textmode
> setup dialogs had a uniform look and feel. What kind of libs are Debian,
> Redhat etc... using in ASCII wizards and can I get the same thing for
> Windows applications in Perl?
>
> With kind regards Veli-Pekka Tätilä ([EMAIL PROTECTED])
> Accessibility, game music, synthesizers and programming:
> http://www.student.oulu.fi/~vtatila/
>
> Octavian Rasnita wrote:
> > Hi,
> >
> > I am trying to create a tab strip control using Win32::GUI::TabStrip or
> > Win32::GUI::TabFrame.
> >
> > I have used:
> >
> > $Win->{-dialogui} = 1;
> > and
> > $Tab->{-tabstop} = 1;
> >
> > I can move the focus only from a tab strip title to the next or previous
> > one using the left and right arrow keys, but I cannot move the cursor in
> > one of the pages using the tab keys.
> >
> > If I select one of the controls from a page using the mouse, the focus
> > doesn't move if I press control+tab or control+shift+tab, although it
> > should move to the next or prior page.
> >
> > Please tell me how can I make that tab strip work like almost all the
tab
> > strips found in other programs.
> > (I want to be able to move from a control to the next one using the tab
> > key, to the previous using shift+tab, and from a page to another using
> > control+tab or control+shift+tab.)
>

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

moving the focus using tab

[Octavian Rasnita]

Hi,

I am trying to create a tab strip control using Win32::GUI::TabStrip or
Win32::GUI::TabFrame.

I have used:

$Win->{-dialogui} = 1;
and
$Tab->{-tabstop} = 1;

I can move the focus only from a tab strip title to the next or previous one
using the left and right arrow keys, but I cannot move the cursor in one of
the pages using the tab keys.

If I select one of the controls from a page using the mouse, the focus
doesn't move if I press control+tab or control+shift+tab, although it should
move to the next or prior page.

Please tell me how can I make that tab strip work like almost all the tab
strips found in other programs.
(I want to be able to move from a control to the next one using the tab key,
to the previous using shift+tab, and from a page to another using
control+tab or control+shift+tab.)

Thank you very much.

Teddy


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Win32::GUI::AxWindow - browser

[Octavian Rasnita]

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

Re: Implementing Active Accessibility Clients in Perl

[Octavian Rasnita]

Hi,

Search with search.cpan.org for Active Accessibility and you will se a Perl
module there for this.

It is something like Win32::GUI::ActAcc or something like that.

Teddy

- Original Message - 
From: "Veli-Pekka Tätilä" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, August 09, 2005 12:46 PM
Subject: Implementing Active Accessibility Clients in Perl


> Hi,
> Is it possible to use Microsoft Active accessibility (MSAA) from Perl?
I've
> been reading the MSDN docs but only knowing the bear minimum of doing
basic
> OLE Automation and bits and pieces about COM, I have a hard time
> understanding what actually can or canot be done. It seems Visual Basic
code
> is able to use the client-side functionality of MSAA to get at the UI
> controls, query info about them and even manipulate the controls to a
> certain extent. However, the VB interface is not well documented and I'm
> unsure as to whether I can use some OLE interface or have to use the Win32
> API to get at the DLLs implementing MSAA directly. At least the sample VB
> code in the MSAA SDK 1.3, the gist of which is only about a screenful,
does
> not use any CreateObject method but magically calls MSAA methods like
> AccessibleObjectFromPoint directly.
>
> What I'd like to do is try out implementing some basic accessibility stuff
> in Perl like a rudimentary MSAA based screen reader with some extra
features
> thrown in. COmpare to Microsoft Narrator, the basic MSAA reader shipped
with
> WIndows 2000 and XP.
>
> So to rehash is it possible to use MSAA via OLE Automation or the WIn32
API
> perl module? Howabout being notified of events such as focus changes? The
> MSAA API offers means of attaching hook functions that get called should
> something interesting happen but can I simply substitute a function
pointer
> with a Perl code ref?  I guess it cannot be as simple as that.
>
> Finally I should mention that it would probably be easiest to use MSAA, if
> there was a Perl module for it. I found a neat Python wrapper around MSAA
> at:
>
> http://www.cs.unc.edu/~parente/tech/tr09.shtml
>
> but haven't so far found anything equivalent implemented in Perl.
>
> 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

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

creating a browser control

[Octavian Rasnita]

Hi,

Is it possible to put a browser control on a window created with Win32::GUI?

If yes, please give me some ideas how.

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

[Octavian Rasnita]

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: Installl CPAN packages without ftp.

[Octavian Rasnita]

Title: Installl CPAN packages without ftp.



Hi,
 
You could install cpan modules using the cpan 
shell.
 
Before doing this, delete all the urllist and then 
make sure you will add only CPAN sites which are not using FTP but 
http.
There are much fewer http CPAN sites than FTP 
sites, but there are some...
 
Teddy
 

  - Original Message - 
  From: 
  [EMAIL PROTECTED] 
  To: Perl-Win32-Users@listserv.ActiveState.com 
  
  Sent: Thursday, August 04, 2005 10:46 
  AM
  Subject: Installl CPAN packages without 
  ftp.
  
  Hi guys, 
     Following problem: I would like to 
  install SFTP package from CPAN on my computer but it has a lot of dependencies 
  that I need and I DO NOT have ftp access. Any other way without downloading 
  each one of them? Downloading each one of them and then search through 
  dependencies and then repeat the steps it will take to much time and it is 
  error prone.
  Thanks, Nicu 
    
  
  

  ___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 script to parse amazon!!

[Octavian Rasnita]

Hi,

You can check search.cpan.org and search for "Amazon".

Net::Amazon

Framework for accessing amazon.com via SOAP and XML/HTTP
Net-Amazon-0.34 -
12 Jul 2005 -
Michael Schilli
WWW::Amazon::Wishlist

grab all the details from your Amazon wishlist
WWW-Amazon-Wishlist-1.4 -
07 Nov 2004 -
Simon Wistow
Net::Amazon::RemoteCart

Perl extension for dealing with Amazon.com's remote shopping cart API
Net-Amazon-RemoteCart-0.03 -
13 Apr 2004 -
David Emery
Net::Amazon::Request::BrowseNode

request class for browse node search
Net-Amazon-0.34 -
12 Jul 2005 -
Michael Schilli
Net::Amazon::Request::TextStream

request class for text stream search
Net-Amazon-0.34 -
12 Jul 2005 -
Michael Schilli
Net::Amazon::Attribute::ReviewSet

A set of customer reviews
Net-Amazon-0.34 -


Teddy


- Original Message - 
From: "bruce" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, August 03, 2005 22:55 PM
Subject: perl script to parse amazon!!


> hey...
>
> i know this is probably waay off base, but has anyone run across any kind
of
> distributed perl app to parse the book database of amazon...???
>
> i need a seriously large database of books to test against for an app i'm
> working on.
>
> any suggestions..
>
> thanks
>
> -bruce
>
> ___
> 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: Creating a grid control

[Octavian Rasnita]

I have also tried this program but it is not what I want.

I have asked if there is a Win32::GUI grid control that it is accessible
from the keyboard, because there is a bigger possibility that control will
be accessible for the screen readers also.
Unfortunately the windows created by Tk are not accessible for the screen
readers. I guess that might be made accessible somehow, because I am able to
read the windows using the mouse cursor and moving it with the keyboard. If
the windows created with Win32::GUI don't use:

$Window->{dialogui} = 1;

and each control from that window doesn't use:

$Control->{tabstop} = 1;

than the windows created with Win32::GUI are same low accessible as the
windows created with TK.

That's why I think that Tk might also have some parameters I could enable to
make the caret visible and trackable in order to be accessible for the
screen readers, but until then... I couldn't use Tk.

Thank you.


Teddy


- Original Message - 
From: "Hugh Loebner" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: "Octavian Rasnita" <[EMAIL PROTECTED]>;

Sent: Wednesday, August 03, 2005 18:55 PM
Subject: Re: Creating a grid control


Try the following short program ;-)

use strict ;
use Tk ;
my $mw = MainWindow -> new() ;
my $logw = $mw -> Scrolled('ROText') -> pack ;
my %cell ;
for my $col (0 ..3){
for my $row (0 .. 5){
$cell{$col}{$row} = $logw -> Label( -text => "*$col $row*" ,
-background => 'white' ,
) -> grid( -column => $col, -row => $row) ;
}
}
my $hold_col = 0;
my $hold_row = 0 ;
$cell{$hold_col}{$hold_row} -> configure(-background => 'red') ;

$mw  -> bind('' => =>  [\&keywork,$logw ] )  ;



MainLoop ;


sub keywork{
my ($widget) = @_ ;
my $e = $widget->XEvent ;
my ($keysym_text, $keysym_decimal, $mousewheelD) = ($e->K, $e-> N,
$e->D ); # final magic
print " you pressed $keysym_text ,  $keysym_decimal,  $mousewheelD " ;
if( $keysym_text eq 'Down'){
if( $hold_row == 5 ) {
return
} ;
$cell{$hold_col}{$hold_row} -> configure( -background => 'white') ;
$hold_row ++ ;
$cell{$hold_col}{$hold_row} -> configure(-background => 'red') ;
}
if( $keysym_text eq 'Up' ){
if( $hold_row == 0 ) {
return
} ;
$cell{$hold_col}{$hold_row} -> configure( -background => 'white') ;
$hold_row -- ;
$cell{$hold_col}{$hold_row} -> configure(-background => 'red') ;
}
}

On 8/3/05, Doug Loud <[EMAIL PROTECTED]> wrote:
>
> Speaking of grid controls, is there a browser usable one?  Does the CGI
> module have one or does one have to use a java applet?
>
>
>
>
> Douglass N. Loud
> President
> Integrated Information Systems, Inc.
> 292 Fifth Avenue
> New York, NY 10001
> 212-714-3522 (office)
> 203-952-7108 (cell)
> [EMAIL PROTECTED]
>
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> Octavian Rasnita
> Sent: Wednesday, August 03, 2005 8:50 AM
> To: Perl-Win32-Users@listserv.ActiveState.com
> Subject: Creating a grid control
>
> Hi,
>
> Does anyone know if it is possible to create a grid control which is
> accessible using the keyboard only (no mouse)?
> I have tried a few examples from the Win32::GUI::Grid package, but I could
> select a cell only by using the mouse, but I would like to have a grid in
> which I can navigate using the arrow keys in order to select the rows.
>
> Is this possible with Win32::GUI?
>
> Thank you.
>
> Teddy
>
> ___
> 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

Creating a grid control

[Octavian Rasnita]

Hi,

Does anyone know if it is possible to create a grid control which is
accessible using the keyboard only (no mouse)?
I have tried a few examples from the Win32::GUI::Grid package, but I could
select a cell only by using the mouse, but I would like to have a grid in
which I can navigate using the arrow keys in order to select the rows.

Is this possible with Win32::GUI?

Thank you.

Teddy

___
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

[Octavian Rasnita]

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

[Octavian Rasnita]

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: creating a combo box

[Octavian Rasnita]

Hi,

Sorry for my previous message. I have discovered that I was using an older
version of Win32::GUI that was installed using ppm, but now after installing
it from cpan.org, it works fine.

Teddy


- Original Message - 
From: "Robert May" <[EMAIL PROTECTED]>
To: "Octavian Rasnita" <[EMAIL PROTECTED]>
Cc: 
Sent: Wednesday, July 27, 2005 20:36 PM
Subject: Re: creating a combo box


> Hi,
>
> There are 3 different types of combobox - see MSDN for details:
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/comboboxes/comboboxes.asp
>
> Two of the types include the selected item in an edit control, whose
> default behaviour is to use home/end to move to the beginning/end of the
> text.  The third has the behaviour you desire, but not the look that you
> demonstrated with you script.  It would be possible to adapt either of
> the first two types to do what you want as well, but this is certainly
> not trivial, and would deviate from the standard 'user experience'.
>
> Here's a script demonstrating all three types:
>
> #!perl -w
> use strict;
> use warnings;
>
> use Win32::GUI();
>
> my $Win = Win32::GUI::DialogBox->new(
> -title => "ComboBox Types",
> -size => [350,200],
> );
>
> # Standard: Edit control + listbox
> $Win->AddCombobox(
> -name => 'Markets1',
> -pos  => [10,10],
> -size => [100,100],
> -vscroll => 1,
> -tabstop => 1,
> );
>
> # Drop down: Edit control + drop-down
> $Win->AddCombobox(
> -name => 'Markets2',
> -pos  => [120,10],
> -size => [100,100],
> -vscroll => 1,
> -tabstop => 1,
> -dropdown => 1,
> );
>
> # Drop down list: Static control + drop-down
> $Win->AddCombobox(
> -name => 'Markets3',
> -pos  => [230,10],
> -size => [100,100],
> -vscroll => 1,
> -tabstop => 1,
> -dropdownlist => 1,
> );
>
> my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte
> publice', 'Drepturi de preferinta');
>
> $Win->Markets1->Add(@markets);
> $Win->Markets2->Add(@markets);
> $Win->Markets3->Add(@markets);
>
> $Win->Show();
> Win32::GUI::Dialog();
> exit(0);
> __END__
>
> Regards,
> Rob.
>
>
>
> Octavian Rasnita wrote:
> > Hi,
> >
> > I have created a combo box using the code below, but I cannot move the
> > cursor to select the first or the last element from the combo box using
the
> > home and end keys.
> > What can I do to be able to do this?
> >
> > Thank you.
> >
> > $Win->AddCombobox(
> > -name => 'Markets',
> > -left => 60,
> > -top => 10,
> > -width => 120,
> > -height => 22,
> > -tabstop => 1,
> > );
> >
> > my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte
> > publice', 'Drepturi de preferinta');
> >
> > $Win->Markets->Add(@markets);
> >
> > Teddy
> >
> >
> > ___
> > 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: creating a combo box

[Octavian Rasnita]

Hi,

I have tried the program you sent me in this mail, but perl gave a runtime
error.

Even if I have tried to run the following small piece of the program, it
gave that error.
Do you have any idea what could be wrong?
I have also tried to use those combo box properties in my program, but they
don't make any difference.

Thank you.

#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $Win = Win32::GUI::DialogBox->new(
-title => "ComboBox Types",
-size => [350,200],
);

Teddy


- Original Message - 
From: "Robert May" <[EMAIL PROTECTED]>
To: "Octavian Rasnita" <[EMAIL PROTECTED]>
Cc: 
Sent: Wednesday, July 27, 2005 20:36 PM
Subject: Re: creating a combo box


> Hi,
>
> There are 3 different types of combobox - see MSDN for details:
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/comboboxes/comboboxes.asp
>
> Two of the types include the selected item in an edit control, whose
> default behaviour is to use home/end to move to the beginning/end of the
> text.  The third has the behaviour you desire, but not the look that you
> demonstrated with you script.  It would be possible to adapt either of
> the first two types to do what you want as well, but this is certainly
> not trivial, and would deviate from the standard 'user experience'.
>
> Here's a script demonstrating all three types:
>
> #!perl -w
> use strict;
> use warnings;
>
> use Win32::GUI();
>
> my $Win = Win32::GUI::DialogBox->new(
> -title => "ComboBox Types",
> -size => [350,200],
> );
>
> # Standard: Edit control + listbox
> $Win->AddCombobox(
> -name => 'Markets1',
> -pos  => [10,10],
> -size => [100,100],
> -vscroll => 1,
> -tabstop => 1,
> );
>
> # Drop down: Edit control + drop-down
> $Win->AddCombobox(
> -name => 'Markets2',
> -pos  => [120,10],
> -size => [100,100],
> -vscroll => 1,
> -tabstop => 1,
> -dropdown => 1,
> );
>
> # Drop down list: Static control + drop-down
> $Win->AddCombobox(
> -name => 'Markets3',
> -pos  => [230,10],
> -size => [100,100],
> -vscroll => 1,
> -tabstop => 1,
> -dropdownlist => 1,
> );
>
> my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte
> publice', 'Drepturi de preferinta');
>
> $Win->Markets1->Add(@markets);
> $Win->Markets2->Add(@markets);
> $Win->Markets3->Add(@markets);
>
> $Win->Show();
> Win32::GUI::Dialog();
> exit(0);
> __END__
>
> Regards,
> Rob.
>
>
>
> Octavian Rasnita wrote:
> > Hi,
> >
> > I have created a combo box using the code below, but I cannot move the
> > cursor to select the first or the last element from the combo box using
the
> > home and end keys.
> > What can I do to be able to do this?
> >
> > Thank you.
> >
> > $Win->AddCombobox(
> > -name => 'Markets',
> > -left => 60,
> > -top => 10,
> > -width => 120,
> > -height => 22,
> > -tabstop => 1,
> > );
> >
> > my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte
> > publice', 'Drepturi de preferinta');
> >
> > $Win->Markets->Add(@markets);
> >
> > Teddy
> >
> >
> > ___
> > 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

creating a combo box

[Octavian Rasnita]

Hi,

I have created a combo box using the code below, but I cannot move the
cursor to select the first or the last element from the combo box using the
home and end keys.
What can I do to be able to do this?

Thank you.

$Win->AddCombobox(
-name => 'Markets',
-left => 60,
-top => 10,
-width => 120,
-height => 22,
-tabstop => 1,
);

my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte
publice', 'Drepturi de preferinta');

$Win->Markets->Add(@markets);

Teddy


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: text-to-speech

[Octavian Rasnita]

> > or how 'bout difference between "insensitive" and "clueless dolt" ?
>
>
> Point taken. My intent was not to belittle. I am amazed that it's possible
> for someone with little/no sight to accomplish programming and debugging.
>


Programming is not harder than for a sighted, but debugging with the perl
debugger... is very hard because Active Perl debugger is not (or better said
very hard) accessible for screen readers.

Teddy

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: text-to-speech

[Octavian Rasnita]

From: "Chris" <[EMAIL PROTECTED]>
Subject: RE: text-to-speech


> > I would like to use Viavoice, because it is more clear than MS
> text-to-speech, and I am blind, so I would like to use it in some
> applications.
>
> > Teddy
>
>
> Um  Not to be insensitive.  But this makes no sense at all. If you
> are blind to the point that you need to have text narrated, how do you
> manage to program?
>
>
> - Chris


I use a screen reader much better than Narrator (www.freedomscientific.com)
for accessing the computer, but I would like to create self-voiced programs
that don't need installing a screen reader.

Teddy

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

text-to-speech

[Octavian Rasnita]

Hi,

I have found the following script example that can speak a text using the
standard MS text-to-speech sinthesizer.
It works fine.

I am using Windows 2000, and I have the Narrator screen reader installed and
it uses MS text-to-speech, but I have also installed IBM ViaVoice
sinthesizer for Windows, and I can use it with Narrator.

I am wondering if it is also possible to create a perl program that uses
ViaVoice sinthesizer under Windows, because ViaVoice is also SAPI compliant,
just like MS text-to-speech sinth.

I have tried (like in the example below) to replace the class ID of MS
text-to-speech with the Registry class ID of Viavoice, but it doesn't work,
giving an error that tells that the "Speak" method cannot be applied to an
undef variable.

I would like to use Viavoice, because it is more clear than MS
text-to-speech, and I am blind, so I would like to use it in some
applications.

Thank you very much.
Teddy


use Win32::OLE qw( EVENTS );

my $DirectSS =
new Win32::OLE( "{EEE78591-FE22-11D0-8BEF-0060081841DE}" );
#I have also tried this class ID from Registry for Viavoice:
##new Win32::OLE( "{9657E2E0-F99F-11d2-A420-00203521503F}" );

$DirectSS->Speak("Good evening, Mr. Anderson.  How's your day been?  G
+od.  Well, listen, I'm going to have to ask you to be assimilated
+ into the Borg because, yeah, resistance is futile.  Oh, and about th
+ose TPS reports.  Yeah, didja get that memo?  You see, we're putting
+new cover sheets on all our TPS reports.  By the way, I've taken the
+liberty of searching, searching, searching out. your domain controlle
+rs.  It seems they're named charles and michael.  or should i say, we
+re?  cuz now they're pete and repeat.  yeah.  how do you like that?
+by the way, if pete and repeat are in a boat and pete jumps out,
who's left?  Ok, i'll say it again.  if pete and repeat are in a boat
+and pete jumps out, who's left?  that was a little borg humor for you
+.  most people don't know about it, but we can be a regular barrel of
+ laughs when we want to.  and remember: anything is possible, except
+skiing through a revolving door.  Because then where would we be?  no
+where, that's where.  by the way, you're logged in as " . getlogin .
+".  We Borg know that kind of stuff.  It's what we do, so we have to
+be good at it.  and we are.  we're really good.  really good.  really
+, really good. in fact, so good that we know that everything about yo
+ur computer.  everything.  have a pleasant remainder of your day.  ch
+eers from the borg.
");

while( $DirectSS->{Speaking} )
{
Win32::OLE->SpinMessageLoop();
Win32::Sleep( 100 );
}


Teddy


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

voice

[Octavian Rasnita]

Hi,

I have tried the following script under Windows 2000 (probably SAPI 4), but
it doesn't speak anything.

Can you give me the right code?

Thank you much.

Teddy


use strict;

use Win32::OLE;
my $voice = Win32::OLE->new("Speech.VoiceText");
$voice->Register('', 'Perl');
$voice->speak("hello world");
;# wait til it finishes speaking

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Creating a Windows service

[Octavian Rasnita]

Thank you.

I think it might be that Win32::Daemon::Simple, but it needs Win32::Daemon,
and it tells that it cannot find that module (Win32::Daemon).

I have tried to install it with ppm.

Thank you.

Teddy

- Original Message - 
From: "Aaron.Tesch" <[EMAIL PROTECTED]>
To: "Octavian Rasnita" <[EMAIL PROTECTED]>;

Sent: Thursday, July 21, 2005 4:10 PM
Subject: RE: Creating a Windows service


Dave Roth has written a package to that will allow PERL to run as a
service.

http://www.roth.net/perl/Daemon/


Here is the link to a description/doco.  You can also download the
package from his web site to install on your PC.


Aaron Tesch


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Octavian Rasnita
Sent: Thursday, July 21, 2005 7:02 AM
To: Perl-Win32-Users@listserv.ActiveState.com
Subject: Creating a Windows service

Hi,

I would like to create a Windows service in Perl. Is it possible, or I
am
able just to run/stop/pause services created in other languages?
If yes, please give me some hints and tell me what modules to use.

Thank you.

Teddy

___
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

Creating a Windows service

[Octavian Rasnita]

Hi,

I would like to create a Windows service in Perl. Is it possible, or I am
able just to run/stop/pause services created in other languages?
If yes, please give me some hints and tell me what modules to use.

Thank you.

Teddy

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Win32:OLE - Speech.VoiceText

[Octavian Rasnita]

I have also tried the following script under Windows 2000 but it doesn't
work and it doesn't give any error.
The SAPI 4 is installed by default in Windows 2000 and it works fine with
Narrator and with my screen reader so this is not a problem.

Under Windows XP SAPI 5 is installed by default, and it might have a little
different syntax...

But I am wondering why this script doesn't work...



use strict;
use warnings;

use Win32::OLE;
my $voice = Win32::OLE->new("Speech.VoiceText");
$voice->Register('', 'Perl');
$voice->speak("hello world");
;# wait til it finishes speaking

- Original Message - 
From: "Sisyphus" <[EMAIL PROTECTED]>
To: ; "Jon Bjornstad"
<[EMAIL PROTECTED]>
Sent: Tuesday, June 14, 2005 4:30 AM
Subject: Re: Win32:OLE - Speech.VoiceText


>
> - Original Message - 
> From: "Jon Bjornstad" <[EMAIL PROTECTED]>
> To: 
> Sent: Tuesday, June 14, 2005 9:26 AM
> Subject: Win32:OLE - Speech.VoiceText
>
>
> > This code:
> >
> > use Win32::Ole;
> > my $voice = Win32::Ole->new("Speech.VoiceText");
> > $voice->Register('', 'Perl');
> > $voice->speak("hello world");
> > ;# wait til it finishes speaking
> >
> > has been used succesfully on Windows98 (with the
> > Microsoft Speech SDK installed) and on Windows 2000
> > (which has it installed by default, apparently).
> >
>
> Doesn't work for me on Windows 2000. Even after I correct the typos (both
> instances of "Ole" need to be replaced with "OLE") and 'use warnings;' all
I
> get is:
>
> Win32::OLE(0.1502) error 0x8002000e: "Invalid number of parameters"
> in METHOD/PROPERTYGET "speak" at speak.pl line 5
>
> Does 'use warnings;' result in the same warning on XP ?
>
> Cheers,
> Rob
>
> ___
> 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:OLE - Speech.VoiceText

[Octavian Rasnita]

Oh great! It works this way.

Teddy

- Original Message - 
From: "Jan Dubois" <[EMAIL PROTECTED]>
To: "'Sisyphus'" <[EMAIL PROTECTED]>;
; "'Jon Bjornstad'"
<[EMAIL PROTECTED]>
Sent: Tuesday, June 14, 2005 5:19 AM
Subject: RE: Win32:OLE - Speech.VoiceText


> On Mon, 13 Jun 2005, Sisyphus wrote:
> > - Original Message -
> On Tue, 14 Jun 2005, "Jon Bjornstad" <[EMAIL PROTECTED]> wrote:
> >
> > > This code:
> > >
> > > use Win32::Ole;
> > > my $voice = Win32::Ole->new("Speech.VoiceText");
> > > $voice->Register('', 'Perl');
> > > $voice->speak("hello world");
> > > ;# wait til it finishes speaking
> > >
> > > has been used succesfully on Windows98 (with the
> > > Microsoft Speech SDK installed) and on Windows 2000
> > > (which has it installed by default, apparently).
> > >
> >
> > Doesn't work for me on Windows 2000. Even after I correct the typos
(both
> > instances of "Ole" need to be replaced with "OLE") and 'use warnings;'
all I
> > get is:
> >
> > Win32::OLE(0.1502) error 0x8002000e: "Invalid number of parameters"
> > in METHOD/PROPERTYGET "speak" at speak.pl line 5
> >
> > Does 'use warnings;' result in the same warning on XP ?
>
> I think Speak() takes 2 arguments. At least it did when I played with it
> for my OSCON talk in 1999:
>
>
http://opensource.activestate.com/authors/jandubois/Perl/TPC3/fun.html#Can_I_access_COM_OLE_objects_f
>
> So try something like
>
>   $voice->speak("hello world", 0);
>
> in the script above.
>
> Cheers,
> -Jan
>
>
>
> ___
> 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: Application Profiling

[Octavian Rasnita]

Hi,

I would also like to create a browser like application but I don't know
where I can find some examples. I don't want to create a full browser, but
just a limited browser window in another application.

Can anyone help with some examples, or point me to some web pages where I
can learn to do this?

I would prefer using standard Win32 API and not other libraries like Tk.

Thank you.

Teddy


- Original Message - 
From: "Chris" <[EMAIL PROTECTED]>
To: "perl-win32-users" 
Sent: Wednesday, June 08, 2005 7:51 PM
Subject: RE: Application Profiling


> > I'm in the final stages of building a web browser based application and
> > suddenly there are some significant slow-downs when it runs.
>
> > Any ideas or pointers?
>
> > Rod
>
>
> In addition to profiling, make sure the HTML being produced is not too
large
> or complicated for the browser or bandwidth limitations. I've made the
> mistake of producing 1-2mb html outputs which will bog down most browsers.
> Pagination works wonders.
>
> - Chris
>
>
> ___
> 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: How secure is Perl FTP function

[Octavian Rasnita]

Yes of course the hacker can do that.
If you don't want that, try using a secure FTP 
connection crypted with SSL.
 
And then use the module Net::SFTP.
 
Teddy
 
 

  - Original Message - 
  From: 
  Ted Yu 
  To: perl-win32-users@listserv.ActiveState.com 
  
  Sent: Monday, May 23, 2005 9:34 PM
  Subject: How secure is Perl FTP 
  function
  
  
  
   $ftp = Net::FTP->new("$ftp_server_name", Debug => 
0) or die(""); #&server_error,   
,   $ftp->login("$ftp_user","$ftp_pass");
   $ftp->binary;
   $ftp->put("$upload_filename");
   $ftp->quit;
If I compile the code into an .exe file with ActiveState Perl, can an 
average hacker look at the machine code to get the username, password, and 
FTP address?  
  
  

  ___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: Wintel MAC address fetch

[Octavian Rasnita]

Can the MAC address of a computer which is not in the LAN be found using
this method?
Or... is there a method to find the mac address of a computer by its IP?

Thanks.

Teddy


- Original Message - 
From: "Erich Beyrent" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, May 18, 2005 8:38 PM
Subject: Re: Wintel MAC address fetch


> Jan Miller wrote:
> > new to Perl, have need to fetch MAC address from local machine.  Can
> > anyone provide a code snippet to get me pointing in the correct
> > direction???
> >
> > Thanks
> >
> > Jan...
>
> #!/usr/bin/perl
>
> use Win32::NetAdmin;
>   $ref = {};
>   $host = $ARGV[0] || Win32::NodeName();
>   my $trans;
>   my $rtn;
>   if (Win32::NetAdmin::GetTransports( "$host", $ref)) {
> foreach $trans (keys %{$ref}) {
>   if( $ref->{$trans}->{'transport_name'} =~ /NetBT_/) {
> $rtn = $ref->{$trans}->{'transport_address'};
> $rtn =~ s/(.{2})(.{2})(.{2})(.{2})(.{2})(.{2})/$1\ $2\ $3\ $4\
> $5\ $6/;
> $rtn = uc( $rtn );
> last;
>   }
> }
>   }
>   print "MAC-Address for \"$host\": $rtn\n";
>
> -Erich-
> ___
> 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: captive cursor

[Octavian Rasnita]

Hi,

Here is a test script that shows that the cursor cannot be moved out from a
Textfield using  key.
I have also noticed that I cannot put a "\n" (or better said "\r\n"
character in the text field when pressing enter, and I need to press
control+Enter to be able to insert an end of line.

I guess I am doing something wrong.

I have tried to use your function for moving the focus with the Textfield,
but it doesn't work.

Thank you for your help.


use strict;
use Win32::GUI;

my $W = new Win32::GUI::Window(
-name => 'Window',
-text => 'Testing',
-top => 100,
-left => 100,
-width => 500,
-height => 500,
);

$W->{-dialogui} = 1;

my $Text = $W->AddTextfield(
-name => 'TextField',
-text => 'example',
-top => 10,
-left => 10,
-width => 480,
-height => 300,
-multiline => 1,
-tabstop => 1,
);

my $Button = $W->AddButton(
-name => 'But',
-text => 'ok',
-left => 200,
-top => 400,
-width => 100,
-height => 25,
-tabstop => 1,
);

$W->Show;
$W->Dialog;


sub Textfield_KeyPress {
my($key) = @_;

if($key == 9) {
$W->But->SetFocus();
}
}

Teddy


- Original Message - 
From: "Peter Eisengrein" <[EMAIL PROTECTED]>
To: "'Octavian Rasnita'" <[EMAIL PROTECTED]>;

Sent: Friday, April 29, 2005 7:23 PM
Subject: RE: captive cursor


>
> > > >
> > > > I have created a program with a few controls including a text
> > > > field, but if
> > > > I move the focus to that text field (or rich edit) I cannot
> > > > move the focus
> > > > to another control using the tab key, but only the mouse.
> > > >
>
>
> For the RichEdit, there may be a more elegant way, but since tab is a
valid
> character it won't know to go to another widget unless you tell it to. I
> would do something like this:
>
> sub RichEdit_KeyPress   ### Assuming this widget is named RichEdit
> {
> my($key) = @_;
>
> if($key == 9)
> {
> $Window->Otherwidget->SetFocus();
> }
> }
>
>
> For the textfield, well, that should just work assuming you have set
> tabstops on those widgets. Please show some code and we might be able to
> offer more help on why its not working.
>
> -Pete

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: captive cursor

[Octavian Rasnita]

I have that problem when using Win32::GUI.

Thanks.

Teddy

- Original Message - 
From: "Peter Eisengrein" <[EMAIL PROTECTED]>
To: "'Octavian Rasnita'" <[EMAIL PROTECTED]>;

Sent: Thursday, April 28, 2005 10:22 PM
Subject: RE: captive cursor


> Is this Win32::GUI or Tk?
>
>
>
> > -Original Message-
> > From: Octavian Rasnita [mailto:[EMAIL PROTECTED]
> > Sent: Thursday, April 21, 2005 10:27 AM
> > To: Perl-Win32-Users@listserv.ActiveState.com
> > Subject: captive cursor
> >
> >
> > Hi,
> >
> > I have created a program with a few controls including a text
> > field, but if
> > I move the focus to that text field (or rich edit) I cannot
> > move the focus
> > to another control using the tab key, but only the mouse.
> >
> > It is a multi line text field.
> >
> > Is there an option that allow me to move the focus from that field?
> >
> > Thank you.
> >
> > Teddy
> >
> >
> > ___
> > Perl-Win32-Users mailing list
> > Perl-Win32-Users@listserv.ActiveState.com
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> >
> >
> >
> > __
> > This message was scanned by ATX
> > 2:46:17 PM ET - 4/28/2005
> >

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

captive cursor

[Octavian Rasnita]

Hi,

I have created a program with a few controls including a text field, but if
I move the focus to that text field (or rich edit) I cannot move the focus
to another control using the tab key, but only the mouse.

It is a multi line text field.

Is there an option that allow me to move the focus from that field?

Thank you.

Teddy


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

browser window

[Octavian Rasnita]

Hi all,

Is Win32::GUI able to access a class that can display a browser window?

I would like to create a window in which appears a browser window like
Internet Explorer where there can appear web pages.

I know this is possible with Visual Basic. Is it possible with perl?

Thank you.

Teddy


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Win32::GUI

[Octavian Rasnita]

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

WIN32::GUI

[Octavian Rasnita]

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