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öm    Sourcerer @ 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