File: listvar.t

package info (click to toggle)
perl-tk 1%3A804.035-0.1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 35,068 kB
  • sloc: ansic: 349,547; perl: 52,290; sh: 17,904; makefile: 5,732; asm: 3,565; ada: 1,681; pascal: 1,089; cpp: 1,006; yacc: 883; cs: 879
file content (40 lines) | stat: -rw-r--r-- 717 bytes parent folder | download | duplicates (10) 
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
 
#!/usr/bin/perl -w
use strict;
use Test;
BEGIN { plan tests =>18, todo => [] }

use Tk;
my $mw = MainWindow->new;
$mw->geometry('+100+100');
my @l;
my $lb = $mw->Listbox()->pack;
ok(defined($lb),1,"Widget Created");
$lb->insert(0,qw(p q r));
my $v = $lb->cget('-listvariable');
ok(!defined($v));
ok($lb->get(0),'p');
ok($lb->get($lb->index('end')-1),'r');

$lb->configure(-listvariable => \@l);
ok($lb->cget('-listvariable'),\@l);

@l = (qw/a b c d e f/);
ok($l[0],'a');
ok($l[5],'f');
ok(@l,6);
ok($#l,5);
ok($lb->index('end'),@l);
push(@l,qw(more things));
for my $i (reverse 0..$#l)
 {
  my $e = $l[$i];
  my $v = $lb->get($i);
  ok($v,$e,"Value at $i is $e");
 }

$lb->after(1000,[destroy => $mw]);
MainLoop;