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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/perl
use v5.26;
use warnings;
use Test2::V0;
use Tickit::Test;
use Tickit::Widget::Scroller;
use Tickit::Widget::Scroller::Item::Text;
# At Tickit::Window 0.44, rendering is done in one go.
use Tickit::Window 0.44;
my $win = mk_window;
my $scroller = Tickit::Widget::Scroller->new(
gen_top_indicator => sub {
my $self = shift;
my ( $itemidx, $itemline ) = $self->line2item( 0 );
return sprintf "-- Start{%d/%d} items{%d} --",
$itemidx, $itemline, scalar $self->items;
},
);
$scroller->push(
map { Tickit::Widget::Scroller::Item::Text->new( "Line $_ of content" ) } 1 .. 50
);
$scroller->set_window( $win );
flush_tickit;
is_termlog( [ GOTO(0,0),
SETPEN,
PRINT("Line 1 of content"),
SETBG(undef),
ERASECH(37,1),
SETPEN(rv=>1),
PRINT("-- Start{0/0} items{50} --"),
( map { GOTO($_-1,0),
SETPEN,
PRINT("Line $_ of content"),
SETBG(undef),
ERASECH(64-length $_), } 2 .. 25 ) ],
'Termlog initially' );
is_display( [ [TEXT("Line 1 of content" . (" "x37)), TEXT("-- Start{0/0} items{50} --",rv=>1) ],
map { "Line $_ of content" } 2 .. 25 ],
'Display initially' );
$scroller->scroll( 2 );
flush_tickit;
is_termlog( [ SETPEN,
SCROLLRECT(1,0,24,80,2,0),
GOTO(0,0),
SETPEN,
PRINT("Line 3 of content"),
SETBG(undef),
ERASECH(37,1),
SETPEN(rv=>1),
PRINT("-- Start{2/0} items{50} --"),
( map { GOTO($_-3,0),
SETPEN,
PRINT("Line $_ of content"),
SETBG(undef),
ERASECH(64-length $_), } 26 .. 27 ) ],
'Termlog after ->scroll' );
is_display( [ [TEXT("Line 3 of content" . (" "x37)), TEXT("-- Start{2/0} items{50} --",rv=>1) ],
map { "Line $_ of content" } 4 .. 27 ],
'Display after ->scroll' );
$scroller->set_gen_top_indicator( undef );
flush_tickit;
is_termlog( [ GOTO(0,54),
SETPEN,
ERASECH(26) ],
'Termlog after removing top indicator' );
is_display( [ map { "Line $_ of content" } 3 .. 27 ],
'Display after removing top indicator' );
$scroller->set_gen_bottom_indicator( sub {
my $self = shift;
defined $self->item2line( -1, -1 ) ? undef : "-- more --"
} );
flush_tickit;
is_termlog( [ GOTO(24,70),
SETPEN(rv=>1),
PRINT("-- more --") ],
'Termlog after setting bottom indicator' );
is_display( [ ( map { "Line $_ of content" } 3 .. 26 ),
[TEXT("Line 27 of content" . (" "x52)), TEXT("-- more --",rv=>1) ] ],
'Display after setting bottom indicator' );
clear_term;
drain_termlog;
$win->resize( 15, 80 );
flush_tickit;
is_termlog( [ ( map { GOTO($_-3,0),
SETPEN,
PRINT("Line $_ of content"),
SETBG(undef),
ERASECH(64-length $_) } 3 .. 16 ),
GOTO(14,0),
SETPEN,
PRINT("Line 17 of content"),
SETBG(undef),
ERASECH(52,1),
SETPEN(rv=>1),
PRINT("-- more --") ],
'Termlog after window resize' );
is_display( [ ( map { "Line $_ of content" } 3 .. 16 ),
[TEXT("Line 17 of content" . (" "x52)), TEXT("-- more --",rv=>1) ] ],
'Display after window resize' );
done_testing;
|
