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]>;
<Perl-Win32-Users@listserv.activestate.com>
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('<KeyPress>' => => [\&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
