Tk::TiedListbox - Listboxen gleichzeitig scrollen und anwählen

Hat man zwei oder mehr Listboxen, die man gleichzeitig scrollen möchte, dann sollte man einen Blick auf das Modul Tk::TiedListbox werfen. Nicht nur das Scroll-Ereignis, sondern auch der Klick auf ein Element in der Listbox kann synchronisiert werden. Die Listboxen sind sozusagen miteinander verbunden.

Dem Perl/Tk-Modul liegt ein Beispiel-Programm bei:

  1. #!perl
  3. use strict;
  4. use Tk;
  5. use Tk::TiedListbox;
  7. my $mw = MainWindow->new;
  8. my $f   = $mw->Frame->pack( -expand => 'yes', -fill => 'both' );
  9. my $l1  = $f->ScrlListbox(
  10. 	-relief          => 'flat',
  11. 	-exportselection => 0,
  12. 	-selectmode      => 'extended',
  13. 	-height          => 20
  14. );
  15. my $l2 = $f->ScrlListbox(
  16. 	-relief          => 'flat',
  17. 	-exportselection => 0,
  18. 	-selectmode      => 'extended',
  19. 	-height          => 10
  20. );
  21. my $l3 = $f->ScrlListbox(
  22. 	-relief          => 'flat',
  23. 	-exportselection => 0,
  24. 	-selectmode      => 'extended',
  25. 	-height          => 20,
  26. );
  28. # Checkbutton-Variablen:
  29. my ( $bv1, $bv2 );
  31. my $b1 = $f->Checkbutton(
  32. 	-text     => 'tie selection',
  33. 	-variable => \$bv1,
  34. 	-command  => [ \&set_tie, \$bv1, \$bv2 ]
  35. );
  36. my $b2 = $f->Checkbutton(
  37. 	-text     => 'tie scroll',
  38. 	-variable => \$bv2,
  39. 	-command  => [ \&set_tie, \$bv1, \$bv2 ]
  40. );
  41. $b1->pack( -side   => 'bottom' );
  42. $b2->pack( -side   => 'bottom' );
  43. $l1->pack( -expand => 'yes', -side => 'left' );
  44. $l2->pack( -expand => 'yes', -side => 'left' );
  45. $l3->pack( -expand => 'yes', -side => 'left' );
  47. foreach my $id ( 0 .. 300 ) {
  48. 	$l1->insert( 'end', $id ) if $id <100; $l2->insert( 'end', $id );
  49. 	$l3->insert( 'end', $id );
  50. }
  52. $b1->invoke;
  53. $b2->invoke;
  55. $mw->MainLoop;
  56. exit(0);
  58. sub set_tie {
  59. 	my ( $b1, $b2 ) = @_;
  60. 	my ( $x1, $x2, $x3 ) = map( $_->Subwidget('scrolled'), $l1, $l2, $l3 );
  61. 	$x1->tie( 'all', [ $x2, $x3 ] ), return if ( $$b1 && $$b2 );
  62. 	$x1->tie( 'selection', [ $x2, $x3 ] ), return if ($$b1);
  63. 	$x1->tie( 'scroll',    [ $x2, $x3 ] ), return if ($$b2);
  64. 	$x1->untie, $x2->untie, $x3->untie;
  65. }
Top