File Coverage

blib/lib/Tickit/Widget/Fill.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             # You may distribute under the terms of either the GNU General Public License
2             # or the Artistic License (the same terms as Perl itself)
3             #
4             # (C) Paul Evans, 2014 -- leonerd@leonerd.org.uk
5              
6             package Tickit::Widget::Fill;
7              
8 1     1   858 use strict;
  1         1  
  1         23  
9 1     1   3 use warnings;
  1         1  
  1         16  
10 1     1   16 use 5.010; # //
  1         2  
11 1     1   3 use base qw( Tickit::Widget );
  1         6  
  1         57  
12             use Tickit::Style;
13              
14             our $VERSION = '0.27';
15              
16             use Tickit::Utils qw( textwidth );
17              
18             =head1 NAME
19              
20             C - fill an area with repeated text
21              
22             =head1 DESCRIPTION
23              
24             This class provides a widget which displays a given piece of text repeatedly
25             over its entire area. By default the text is a single space, meaning the area
26             will be entirely drawn with spaces.
27              
28             =head1 STYLE
29              
30             The default style pen is used as the widget pen.
31              
32             The following style keys are used:
33              
34             =over 4
35              
36             =item text => STRING
37              
38             The text to display in a repeating pattern on the window.
39              
40             =item skew => INT
41              
42             If defined, successive lines will be advanced by this number of columns (which
43             may be negative) to create a skewed repeating pattern.
44              
45             =back
46              
47             =cut
48              
49             style_definition base =>
50             text => " ";
51              
52             style_redraw_keys qw( text skew );
53              
54             use constant WIDGET_PEN_FROM_STYLE => 1;
55              
56             sub lines { 1 }
57             sub cols { 1 }
58              
59             sub render_to_rb
60             {
61             my $self = shift;
62             my ( $rb, $rect ) = @_;
63              
64             my ( $text, $skew ) = $self->get_style_values(qw( text skew ));
65             $skew //= 0;
66              
67             my $len = textwidth( $text );
68              
69             my $left = $rect->left;
70             $left -= $left % $len;
71              
72             my $repeat = int( ( $rect->right - $left + $len - 1 ) / $len );
73             $repeat++ if $skew;
74              
75             foreach my $line ( $rect->linerange ) {
76             my $lineskew = ( $line * $skew ) % $len;
77             $lineskew -= $len if $skew;
78              
79             $rb->goto( $line, $left + $lineskew );
80             $rb->text( $text x $repeat );
81             }
82             }
83              
84             =head1 AUTHOR
85              
86             Paul Evans
87              
88             =cut
89              
90             0x55AA;