| … | |
… | |
| 87 | my $data = $self->{data} = $urxvt::popup::self; |
87 | my $data = $self->{data} = $urxvt::popup::self; |
| 88 | |
88 | |
| 89 | $_->{width} = $self->strwidth ($_->{text}) |
89 | $_->{width} = $self->strwidth ($_->{text}) |
| 90 | for @{ $data->{item} }; |
90 | for @{ $data->{item} }; |
| 91 | |
91 | |
|
|
92 | $self->resource (title => "URxvt Popup Menu"); |
|
|
93 | $self->resource (name => "URxvt.popup"); |
|
|
94 | |
| 92 | $self->resource ($_ => $data->{term}->resource ($_)) |
95 | $self->resource ($_ => $data->{term}->resource ($_)) |
| 93 | for qw(font boldFont italicFont boldItalicFont color+0 color+1); |
96 | for qw(font boldFont italicFont boldItalicFont color+0 color+1); |
| 94 | |
97 | |
| 95 | my $width = List::Util::max map $_->{width}, @{ $data->{item} }; |
98 | my $width = List::Util::max map $_->{width}, @{ $data->{item} }; |
| 96 | my $height = @{ $data->{item} }; |
99 | my $height = @{ $data->{item} }; |
