Przedstawiając możliwości zastosowania biblioteki Tk w Ekosystemie Perla, przybliżymy na gotowym przykładzie, zaczerpniętym z sieci, wykorzystanie komponentów. Będą to
Cytat:
Tk::Tree
Tk::MListbox
Tk::Adjuster
Tk::Separator
Autor skryptów pokazał w jaki sposób połączyć te wszystkie elementy, aby można było zarządzać projektami. Na uwagę zasługuje dobór przezroczystości koloru przy zaznaczaniu pozycji w komponencie
TK-MListbox. Jeśli chcemy rozbudować listę o dodatkowe pola to musimy zmienić zapis w trzech pozycjach
Cytat:
Dopisać linię
$jobfiles->columnGet(7)->Subwidget('heading')->configure(-relief => 'raised', -activeforeground => 'brown', -activebackground => 'grey86', -background => 'grey86', -foreground => 'RoyalBlue3');
Zmienić zapis na
push(@bucket,["$file_name", "$job_name", "$project_name", "$obj->{$file_name}->{type}", "$obj->{$file_name}->{size}", "$obj->{$file_name}->{date}", "$obj->{$file_name}->{time}", "$obj->{$file_name}->{history}[0]"]);
Zmienić zapis na
foreach my $q(sort {$a->[0] cmp $b->[0]} @bucket) {
my $row = [];
for my $l(0..7) {push(@{$row},"$q->[$l]")}
$jobfiles->insert('end', $row);
}
Artykuł wraz z kilkoma wariantami oprogramowania, dostępny jest na tej
stronie...
PerlGtk.pl
