Scrolbar control

[perltk]

Does anyone have a method to coordinate 2 scrollbars so that they move 
in unison?
I have 2 listctrl widgets where I'd like the horizontal scrollbar to 
track each other.

This is in wxGTK and it appears all the scroll events are not 
functioning, at least not with listctrl.

Wx::Event::EVT_SCROLL($this->{data_summary_listctrlsearch1}, sub {
        my $xpos 
=$this->{data_summary_listctrlsearch1}->GetScrollPos(wxHORIZONTAL);
        
$this->{data_summary_listctrlsearch2}->SetScrollPos(wxHORIZONTAL,$xpos,1);
        print "=$xpos\n";
});
        
Thanks
Jeff