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
|
#!/usr/local/bin/perl -w
use Tk;
require Tk::HList;
$mw = MainWindow->new;
my $hl = $mw->Scrolled('HList', -separator => '.',
-width => 25,
-drawbranch => 1,
-selectmode => 'extended',
-indent => 10,
# -bg=>'green'
);
#my $hl = $mw->HList(-separator => '.',
# -width => 25,
# -drawbranch => 1,
# -selectmode => 'extended',
# -indent => 10, -bg=>'green');
print "reconfigure\n";
$hl->configure(-bg=>'red'); # none of these seem to work
$hl->configure(-background=>'yellow');
$hl->configure( -command => \&PrintLine, -browsecmd => \&PrintBug);
$hl->pack(-expand => 1, -fill => 'both');
@list = qw(one two three);
foreach $item (@list)
{
$hl->add($item,-itemtype => 'text', -text => $item, -data => {});
my $subitem;
foreach $subitem (@list)
{
$hl->addchild($item,-itemtype => 'text', -text => $subitem, -data => []);
}
}
MainLoop;
sub PrintLine {
my $row = shift;
my $data = $hl->info('data',$row);
foreach ($hl,$row,$data) {
print ref($_) ? "ref $_\n" : "string $_\n";
}
print "\n";
}
sub PrintBug {
print "Browsecmd callback executed\n";
}
__END__
|
