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
|
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
# (C) Paul Evans, 2014-2023 -- leonerd@leonerd.org.uk
use v5.20;
use warnings;
use Object::Pad 0.807;
package Tickit::Widget::Fill 0.42;
class Tickit::Widget::Fill :strict(params);
inherit Tickit::Widget;
use Tickit::Style;
use Tickit::Utils qw( textwidth );
=head1 NAME
C<Tickit::Widget::Fill> - fill an area with repeated text
=head1 DESCRIPTION
This class provides a widget which displays a given piece of text repeatedly
over its entire area. By default the text is a single space, meaning the area
will be entirely drawn with spaces.
=head1 STYLE
The default style pen is used as the widget pen.
The following style keys are used:
=over 4
=item text => STRING
The text to display in a repeating pattern on the window.
=item skew => INT
If defined, successive lines will be advanced by this number of columns (which
may be negative) to create a skewed repeating pattern.
=back
=cut
style_definition base =>
text => " ";
style_redraw_keys qw( text skew );
use constant WIDGET_PEN_FROM_STYLE => 1;
method lines { 1 }
method cols { 1 }
method render_to_rb
{
my ( $rb, $rect ) = @_;
my ( $text, $skew ) = $self->get_style_values(qw( text skew ));
$skew //= 0;
my $len = textwidth( $text );
my $left = $rect->left;
$left -= $left % $len;
my $repeat = int( ( $rect->right - $left + $len - 1 ) / $len );
$repeat++ if $skew;
foreach my $line ( $rect->linerange ) {
my $lineskew = ( $line * $skew ) % $len;
$lineskew -= $len if $skew;
$rb->goto( $line, $left + $lineskew );
$rb->text( $text x $repeat );
}
}
=head1 AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
=cut
0x55AA;
|
