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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
# 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, 2009-2023 -- leonerd@leonerd.org.uk
use v5.20;
use warnings;
use Object::Pad 0.807;
package Tickit::Widget::VBox 0.53;
class Tickit::Widget::VBox :strict(params);
inherit Tickit::Widget::LinearBox;
use Tickit::Style;
use Tickit::RenderBuffer qw( CAP_BOTH );
use List::Util qw( sum max );
=head1 NAME
C<Tickit::Widget::VBox> - distribute child widgets in a vertical column
=head1 SYNOPSIS
use Tickit;
use Tickit::Widget::VBox;
use Tickit::Widget::Static;
my $vbox = Tickit::Widget::VBox->new;
foreach my $position (qw( top middle bottom )) {
$vbox->add(
Tickit::Widget::Static->new(
text => $position,
align => "centre",
valign => $position,
),
expand => 1
);
}
Tickit->new( root => $vbox )->run;
=head1 DESCRIPTION
This subclass of L<Tickit::Widget::LinearBox> distributes its children in a
vertical column. Its width will be the width of the widest child, and its
height will be the sum of the heights of all the children, plus the
inter-child spacing.
Optionally, if given a non-zero spacing between child widgets and a style to
draw in, a horizontal dividing line will be drawn between each child.
=head1 STYLE
The default style pen is used as the widget pen. The following style pen
prefixes are also used:
=over 4
=item line => PEN
I<Since version 0.52.>
The pen used to render a dividing line between child widgets.
=back
Note that while the widget pen is mutable and changes to it will result in
immediate redrawing, any changes made will be lost if the widget style is
changed.
The following style keys are used:
=over 4
=item spacing => INT
The number of lines of spacing between children
=item line_style => INT
I<Since version 0.52.>
If set, the style to draw a dividing line between each child widget. Must be
one of the C<LINE_*> constants from L<Tickit::RenderBuffer>.
=back
=cut
style_definition base =>
spacing => 0,
line_style => 0;
style_reshape_keys qw( spacing );
style_redraw_keys qw( line_style );
use constant WIDGET_PEN_FROM_STYLE => 1;
method lines
{
my $spacing = $self->get_style_values( "spacing" );
return ( sum( map { $_->requested_lines } $self->children ) || 1 ) +
$spacing * ( $self->children - 1 );
}
method cols
{
return max( 1, map { $_->requested_cols } $self->children );
}
method get_total_quota
{
my ( $window ) = @_;
return $window->lines;
}
method get_child_base
{
my ( $child ) = @_;
return $child->requested_lines;
}
method set_child_window
{
my ( $child, $top, $lines, $window ) = @_;
if( $window and $lines ) {
if( my $childwin = $child->window ) {
$childwin->change_geometry( $top, 0, $lines, $window->cols );
}
else {
my $childwin = $window->make_sub( $top, 0, $lines, $window->cols );
$child->set_window( $childwin );
}
}
else {
if( my $childwin = $child->window ) {
$child->set_window( undef );
$childwin->close;
}
}
}
method render_dividing_line
{
my ( $rb, $prev_win, $next_win, $style, $pen ) = @_;
my $left = 0;
my $gap_top = $prev_win->bottom;
my $gap_bottom = $next_win->top - 1;
my $right = $next_win->right;
my $line_row = int( ( $gap_top + $gap_bottom ) / 2 );
$rb->hline_at( $line_row, $left, $right, $style, $pen, CAP_BOTH );
}
=head1 AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
=cut
0x55AA;
|
