Tk and group of listboxes

[Moon, John]

I define the following binding on three listboxes. Any listbox I select I
always end up with the focus on the last listbox in the list. I'm trying to
make sure that if any listitem is selected the corresponding listitem in the
other two listboxes are the current - active - items ... and the focus
remain on the selected listbox... 

Can someone see what I'm doing wrong ?

...
push @{$file_display_lb}, $logs_fm->Listbox(-selectmode=>'single',
-width=>$file_nm eq '.account'?14:0);
...
foreach my $lb (@{$file_display_lb}) {
        $lb->bind('<ButtonRelease-1>'=>[ \&Select_All_Listboxes, $lb,
@$file_display_lb]);
        }
...

sub Select_All_Listboxes{
        my ($selected_lb, @all_lb) = @_;
        my $index = ($selected_lb->curselection())[0];
        return unless defined($index);
        $_->selectionSet($index)foreach (@all_lb);
        $selected_lb->focus();
}
...

Thanks in advance ...

jwm
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs