ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/urxvt-popup
(Generate patch)

Comparing rxvt-unicode/src/perl/urxvt-popup (file contents):
Revision 1.7 by root, Sun Jan 8 00:29:38 2006 UTC vs.
Revision 1.8 by root, Sun Jan 8 00:34:57 2006 UTC

… …
28 28
29sub on_motion_notify { 29sub on_motion_notify {
30 my ($self, $event) = @_; 30 my ($self, $event) = @_;
31 31
32 $self->{hover} = $event->{row} + 1; 32 $self->{hover} = $event->{row} + 1;
33 refresh $self; 33 $self->refresh;
34 34
35 1 35 1
36} 36}
37 37
38sub on_button_press { 38sub on_button_press {
39 my ($self, $event) = @_; 39 my ($self, $event) = @_;
40 40
41 $self->{press}[$event->{button}] = 1; 41 $self->{press}[$event->{button}] = 1;
42 refresh $self; 42 $self->refresh;
43 43
44 1 44 1
45} 45}
46 46
47sub on_button_release { 47sub on_button_release {
… …
55 $self->destroy; 55 $self->destroy;
56 } 56 }
57 57
58 $self->{press}[$event->{button}] = 0; 58 $self->{press}[$event->{button}] = 0;
59 59
60 refresh $self;
61
62 if ($col >= 0 && $col < $self->ncol 60 if ($col >= 0 && $col < $self->ncol
63 && $row >= 0 && $row < @{ $self->{data}{item} }) { 61 && $row >= 0 && $row < @{ $self->{data}{item} }) {
64 $self->{data}{item}[$row]{activate}->($event); 62 $self->{data}{item}[$row]{activate}->($event);
65 } 63 }
64
65 $self->refresh;
66 66
67 1 67 1
68} 68}
69 69
70sub on_focus_out { 70sub on_focus_out {
71 my ($self) = @_; 71 my ($self) = @_;
72 72
73 delete $self->{hover}; 73 delete $self->{hover};
74 refresh $self; 74 $self->refresh;
75 75
76 () 76 ()
77} 77}
78 78
79sub on_init { 79sub on_init {

Diff Legend

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