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

Comparing rxvt-unicode/src/perl/urxvt-popup (file contents):
Revision 1.1 by root, Sat Jan 7 20:23:53 2006 UTC vs.
Revision 1.4 by root, Sat Jan 7 21:22:02 2006 UTC

 #! perl
+# this extension implements popup-menu functionality for urxvt. it works
+# together with the urxvt::popup class.
 use List::Util;
 sub refresh {
    my ($self) = @_;
    if ($event->{button} == $self->{data}{event}{button}) {
       $self->ungrab;
       $self->destroy;
    }
+   $self->{press}[$event->{button}] = 0;
    if ($event->{button} == 1) {
-      $self->{press}[$event->{button}] = 0;
       refresh $self;
       warn "$event->{row} $event->{col}\n";#d#
       if ($col >= 0 && $col < $self->ncol
 sub on_start {
    my ($self) = @_;
    # might fail, but try anyways
    $self->grab ($self->{data}{event}{time}, 1)
-      and $self->allow_events_sync;
+      and $self->allow_events_async;
    on_button_press $self, $self->{data}{event} if $self->{data}{event}{button};
    $self->cmd_parse ("\x1b[?25l\x1b[?7l");
    refresh $self;
 sub on_map_notify {
    my ($self, $event) = @_;
    # should definitely not fail
    $self->grab ($self->{data}{event}{time}, 1)
-      and $self->allow_events_sync;
+      and $self->allow_events_async;
-}
-sub on_destroy {
 }

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