Die Listboxen

runplex.pl

my $ff = $top->Frame(); $ff->pack('-side' => 'top', @fillxy); my ($ff_left, $left_lb) = create_listbox($ff, "Source Files", @files); my ($ff_right, $right_lb) = create_listbox($ff, "Tests", @tags); foreach my $frame (($ff_left, $ff_right)) { $frame->pack('-side' => 'left', @expandx); } $left_lb->bind('<Button-1>', \&select_file); $right_lb->bind('<Button-1>', \&select_test);

Die beiden Listboxen dienen zur Auswahl zu betrachtender Dateien oder vorgegebener Testfälle.

Angenehm ist hier die voreingestellte Reihenfolge der ``binding tags''. Nachdem die für die Listboxen zuständige Klasse die Selektion bei dem Drücken der linken Maustaste durchgeführt hat, können wir diese abfragen und die entsprechende Auswahl treffen in den für die konkreten Listbox-Widgets gegebenen Verknüpfungen mit select_file bzw. select_test.

	Die beiden Listboxen dienen zur Auswahl zu betrachtender Dateien oder vorgegebener Testfälle.
	Angenehm ist hier die voreingestellte Reihenfolge der ``binding tags''. Nachdem die für die Listboxen zuständige Klasse die Selektion bei dem Drücken der linken Maustaste durchgeführt hat, können wir diese abfragen und die entsprechende Auswahl treffen in den für die konkreten Listbox-Widgets gegebenen Verknüpfungen mit `select_file` bzw. `select_test`.