1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| #!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::HList;
use Tk::ItemStyle;
my $mw = MainWindow->new;
$mw->title('Simple HLIST');
my $Frame = $mw->Frame(
-background => "white",
)->pack( qw/ -fill both -expand 1/ );
my $NbrColonne = 3;
my $NbrLigne = 5;
# Create a scrolled HList
my $HList = $Frame->Scrolled(
"HList",
-header => 1,
-columns => $NbrColonne,
-scrollbars => "osoe",
-height => 10,
-background => "white",
-selectbackground => "blue",
)->pack( qw/ -fill both -expand 1/);
my $StyleHList = $HList->ItemStyle(
"text",
-pady => 0,
-padx => 5,
-anchor => "nw",
-background => "red"
);
for my $NumeroColonne ( 0 .. ($NbrColonne - 1) ) {
$HList->header(
"create", $NumeroColonne,
-text => "Colonne $NumeroColonne",
-headerbackground => "green",
-borderwidth => 1,
-style => $StyleHList,
);
}
for my $NumeroLigne ( 0..($NbrLigne-1) ) {
my $EntryPath = $HList->add($NumeroLigne);
for my $NumeroColonne ( 0 .. ($NbrColonne-1) ) {
$HList->itemCreate(
$EntryPath, $NumeroColonne,
-text => "Ligne$NumeroLigne - Colonne $NumeroColonne",
-itemtype => "text",
-style => $StyleHList,
);
}
}
MainLoop; |
Partager