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.6 by root, Sat Jan 7 23:18:56 2006 UTC vs.
Revision 1.10 by root, Sun Jan 8 00:48:14 2006 UTC

… …
27} 27}
28 28
29sub on_motion_notify { 29sub on_motion_notify {
30 my ($self, $event) = @_; 30 my ($self, $event) = @_;
31 31
32 delete $self->{hover};
33
34 my ($row, $col) = ($event->{row}, $event->{col});
35 if ($col >= 0 && $col < $self->ncol
36 && $row >= 0 && $row < @{ $self->{data}{item} }) {
32 $self->{hover} = $event->{row} + 1; 37 $self->{hover} = $event->{row} + 1;
33 refresh $self; 38 }
39 $self->refresh;
34 40
35 1 41 1
36} 42}
37 43
38sub on_button_press { 44sub on_button_press {
39 my ($self, $event) = @_; 45 my ($self, $event) = @_;
40 46
41 $self->{press}[$event->{button}] = 1; 47 $self->{press}[$event->{button}] = 1;
42 refresh $self; 48 $self->refresh;
43 49
44 1 50 1
45} 51}
46 52
47sub on_button_release { 53sub on_button_release {
48 my ($self, $event) = @_; 54 my ($self, $event) = @_;
49
50 my $row = $event->{row};
51 my $col = $event->{col};
52 55
53 if ($event->{button} == $self->{data}{event}{button}) { 56 if ($event->{button} == $self->{data}{event}{button}) {
54 $self->ungrab; 57 $self->ungrab;
55 $self->destroy; 58 $self->destroy;
56 } 59 }
57 60
58 $self->{press}[$event->{button}] = 0; 61 $self->{press}[$event->{button}] = 0;
59 62
60 if ($event->{button} == 1) { 63 my ($row, $col) = ($event->{row}, $event->{col});
61 refresh $self; 64 if ($col >= 0 && $col < $self->ncol
65 && $row >= 0 && $row < @{ $self->{data}{item} }) {
66 $self->{data}{item}[$row]{activate}->($event);
67 }
62 68
63 warn "$event->{row} $event->{col}\n";#d# 69 $self->refresh;
64
65 if ($col >= 0 && $col < $self->ncol
66 && $row >= 0 && $row < @{ $self->{data}{item} }) {
67 $self->{data}{item}[$row]{activate}->($event);
68 print "ok\n";
69 }
70 }
71 70
72 1 71 1
73} 72}
74 73
75sub on_focus_out { 74sub on_focus_out {
76 my ($self) = @_; 75 my ($self) = @_;
77 76
78 delete $self->{hover}; 77 delete $self->{hover};
79 refresh $self; 78 $self->refresh;
80 79
81 () 80 ()
82} 81}
83 82
84sub on_init { 83sub on_init {
… …
110} 109}
111 110
112sub on_start { 111sub on_start {
113 my ($self) = @_; 112 my ($self) = @_;
114 113
114 $self->cmd_parse ("\x1b[?25l\x1b[?7l");
115 $self->refresh;
116
115 # might fail, but try anyways 117 # might fail, but try anyways
116 $self->grab ($self->{data}{event}{time}, 1) 118 $self->grab ($self->{data}{event}{time}, 1)
117 and $self->allow_events_async; 119 and $self->allow_events_async;
118 120
119 on_button_press $self, $self->{data}{event} if $self->{data}{event}{button}; 121 on_button_press $self, $self->{data}{event} if $self->{data}{event}{button};
120
121 $self->cmd_parse ("\x1b[?25l\x1b[?7l");
122 refresh $self;
123 122
124 () 123 ()
125} 124}
126 125
127sub on_map_notify { 126sub on_map_notify {

Diff Legend

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