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
|
use lib 'alpha';
use Tk;
use Tk::ListMgr;
use Tk::Menubar;
my $mw = new MainWindow;
$mb = $mw->Menubar(-borderwidth => 2, -relief => 'raised');
$mb->Menubutton(-text => '~Help',-side => 'right');
$mb->pack(-side => 'top', -fill => 'x');
$lm = $mw->Scrolled('ListMgr',
-scrollbars => 'e',
-borderwidth => 2,
-relief => 'flat',
-background => 'WhiteSmoke',
-layout => 'vertical',
)->pack(-fill => 'both', -expand => 1);
$lm->focus;
$lm->subitemConfigure(0, -type => Image);
$lm->subitemConfigure(1, -type => Text);
$lm->subitemConfigure(2, -type => Text);
$f1 = $mw->Frame(-height => 20)->pack(-side => 'bottom', -fill => 'x');
$f1->Label(-text => 'Click middle button ...')->pack(-side => 'left');
use Tk::Pixmap;
$pm = $mw->Pixmap(-file => 'alpha/dir.xpm');
$lm->insert(0,
[$pm,"a longer text","a longer text"],
[$pm,"two","tdsdsawo"],
[$pm,"three","a longer text"],
[$pm,"four","a longer text"],
[$pm,"five","a longer text"],
[$pm,"a longer text"],
);
$lm->bind("<2>", [
sub {
my $lmgr = shift;
my $l = $lmgr->cget('-layout');
$lmgr->configure(-layout => $l eq 'vertical' ? 'horizontal' : 'vertical');
}
]);
Tk::MainLoop;
|
