… | |
… | |
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} }; |