[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/urxvt-popup

Comparing rxvt-unicode/src/perl/urxvt-popup (file contents):
Revision 1.13 by root, Wed Jan 18 11:05:09 2006 UTC vs.
Revision 1.17 by sf-exg, Mon Jun 11 05:03:46 2012 UTC

 #! perl
 # this extension implements popup-menu functionality for urxvt. it works
-# together with the urxvt::popup class.
+# together with the urxvt::popup class - "no user serviceable parts inside".
 sub refresh {
    my ($self) = @_;
    my $cmd = "\x1b[H";
 }
 sub on_button_release {
    my ($self, $event) = @_;
-   if ($event->{button} == $self->{data}{event}{button}) {
-      $self->ungrab;
-      $self->destroy;
-   }
    $self->{press}[$event->{button}] = 0;
    my ($row, $col) = ($event->{row}, $event->{col});
    if ($col >= 0 && $col < $self->ncol
        && $row >= 0 && $row < @{ $self->{data}{item} }) {
       my $item = $self->{data}{item}[$row];
       $item->{activate}->($event, $item);
    }
    $self->refresh;
+   if ($event->{button} == $self->{data}{event}{button}) {
+      $self->ungrab;
+      $self->destroy;
+   }
    1
 }
 sub on_focus_out {
       $pos = "+$x+$y";
    }
    $self->resource (geometry => "${width}x${height}$pos");
+   $self->{term}{urxvt_popup_init_done} = 1;
    ()
 }
 sub on_start {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines