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
|
#!/usr/bin/perl -w
# -*- perl -*-
#
# Author: Slaven Rezic
#
use strict;
BEGIN {
if (!eval q{
use Test::More;
1;
}) {
print "1..0 # skip no Test::More module\n";
exit;
}
}
plan tests => 3;
use Tk;
use Tk::HList;
use Tk::ItemStyle;
my $mw = Tk::MainWindow->new;
eval { $mw->geometry('+10+10'); }; # This works for mwm and interactivePlacement
my $hl = $mw->HList(-columns => 2);
my $is = $mw->ItemStyle('text', -anchor => 'nw');
isa_ok $is, 'Tk::ItemStyle';
$hl->headerCreate(0, -style => $is);
pass 'Setting itemstyle worked';
eval { $hl->headerCreate(1, -style => 'invalid_style') };
like $@, qr{Display style "invalid_style" not found}, 'Invalid ItemStyle used';
__END__
|
