| 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 servicable 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) = @_; |
