File: tlist_demo

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; yacc: 762
file content (28 lines) | stat: -rw-r--r-- 717 bytes parent folder | download | duplicates (11)
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

use strict;
use Tk ();
use Tk::TList;

my $mw = Tk::MainWindow->new();
my $num = 150;
$mw->Label(-text=>"\nA TList with $num widgets\n")->pack;
my ($tl, $orient);
$mw->Checkbutton(-command => sub{ $tl->configure(-orient=> $orient) },
                -onvalue  => 'horizontal',
                -offvalue => 'vertical',
                -variable => \$orient,
                -text     => "horizontal Orientation",
                )->pack;
$tl = $mw->Scrolled('TList', -scrollbars => 'osow');
my $sw = $tl->Subwidget('scrolled');
$tl->pack(-expand=>'yes',-fill=>'both');
my $l;
foreach (1 .. $num)
  {
    $tl->insert('end', -itemtype => 'window', -window=> $sw->Button(-text=>"**$_**") );
  }
Tk::MainLoop;
__END__