[perl-win32-gui-users] What with this Tab key?

[Waldemar Biernacki]

Hello!

I have spent much time to force my program working on my way and finally lost...
Below is the code. The question is: how to force the comboboxes (f2,f3) 
to catch TAB event similarly to that of the textfields(f0,f1)?

The mark of such behavior would be printing the "gogo" letters.

regards
Waldemar

PS I do not want use Win32::GUI::DialogBox; just want to catch keyboard events 
in comboboxes.

#########################################################
use Win32::GUI qw();
use warnings;
use strict;

my $where = 0;

my $mw  = new Win32::GUI::Window(
 -title => "Tab problem",
 -name  => "hmmm",
 -pos   => [ 100, 100 ],
 -size  => [ 310, 200 ],
);

my $f0      = $mw->AddTextfield(
 -name      => "f0",
 -text      => "1",
 -pos       => [  10, 10],
 -size      => [ 100, 20],
 -onKeyDown => \&::gogo,
);

my $f1 = $mw->AddTextfield(
 -name      => "f1",
 -text      => "2",
 -pos       => [ 120, 10],
 -size      => [ 100, 20],
 -onKeyDown => \&::gogo,
);

my $f2 = $mw->AddCombobox(
 -name         => "f2",
 -pos          => [  10,  50 ],
 -size         => [ 100, 100 ],
 -dropdown     => 1,
 -dropdownlist => 1,
 -onKeyDown    => \&::gogo,
);
$f2->InsertItem(0);
$f2->InsertItem(1);
$f2->InsertItem(2);
$f2->InsertItem(3);

$f2->SetCurSel(2);

my $f3 = $mw->AddCombobox(
 -name         => "f3",
 -pos          => [ 120,  50 ],
 -size         => [ 100, 100 ],
 -dropdown     => 1,
 -dropdownlist => 1,
 -onKeyDown    => \&::gogo,
);
$f3->InsertItem(4);
$f3->InsertItem(5);
$f3->InsertItem(6);

$f3->SetCurSel(0);

$f0->SetFocus();

sub gogo {
        print "gogo\n";

        $f0->SetFocus() if $where == 3;
        $f3->SetFocus() if $where == 2;
        $f2->SetFocus() if $where == 1;
        $f1->SetFocus() if $where == 0;

        $where++;
        $where = 0 if $where > 3;
}


$mw->Show();
Win32::GUI::Dialog();
__END__
#########################################################


------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables unlimited
royalty-free distribution of the report engine for externally facing 
server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/