1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | # this extension implements popup-menu functionality for urxvt. it works |
3 | # this extension implements popup-menu functionality for urxvt. it works |
4 | # together with the urxvt::popup class. |
4 | # together with the urxvt::popup class - "no user serviceable parts inside". |
5 | |
5 | |
6 | sub refresh { |
6 | sub refresh { |
7 | my ($self) = @_; |
7 | my ($self) = @_; |
8 | |
8 | |
9 | my $cmd = "\x1b[H"; |
9 | my $cmd = "\x1b[H"; |
… | |
… | |
106 | $pos = "+$x+$y"; |
106 | $pos = "+$x+$y"; |
107 | } |
107 | } |
108 | |
108 | |
109 | $self->resource (geometry => "${width}x${height}$pos"); |
109 | $self->resource (geometry => "${width}x${height}$pos"); |
110 | |
110 | |
|
|
111 | $self->{term}{urxvt_popup_init_done} = 1; |
|
|
112 | |
111 | () |
113 | () |
112 | } |
114 | } |
113 | |
115 | |
114 | sub on_start { |
116 | sub on_start { |
115 | my ($self) = @_; |
117 | my ($self) = @_; |