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.5 by root, Sat Jan 7 21:43:17 2006 UTC vs.
Revision 1.12 by root, Sun Jan 8 22:58:13 2006 UTC

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.
5
6use List::Util;
7 5
8sub refresh { 6sub refresh {
9 my ($self) = @_; 7 my ($self) = @_;
10 8
11 my $cmd = "\x1b[H"; 9 my $cmd = "\x1b[H";
12 10
13 my $row = 1; 11 my $row = 1;
14 for my $item (@{ $self->{data}{item} }) { 12 for my $item (@{ $self->{data}{item} }) {
15 my $rend = "\x1b[30;47m"; 13 my $rend = "normal";
16 14
17 if ($row == $self->{hover}) { 15 if ($row == $self->{hover}) {
18 $rend = $self->{press} ? "\x1b[m" : "\x1b[30;46m"; 16 $rend = $self->{press} ? "active" : "hover";
19 } 17 }
20 18
21 $cmd .= "$rend\x1b[K"; 19 $cmd .= "$item->{rend}{$rend}\x1b[K";
22 $cmd .= $self->locale_encode ($item->{render}->($item)); 20 $cmd .= $self->locale_encode ($item->{render}->($item));
23 $cmd .= "\015\012"; 21 $cmd .= "\015\012";
24 22
25 $row++; 23 $row++;
26 } 24 }
… …
29} 27}
30 28
31sub on_motion_notify { 29sub on_motion_notify {
32 my ($self, $event) = @_; 30 my ($self, $event) = @_;
33 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} }) {
34 $self->{hover} = $event->{row} + 1; 37 $self->{hover} = $event->{row} + 1;
35 refresh $self; 38 }
39 $self->refresh;
36 40
37 1 41 1
38} 42}
39 43
40sub on_button_press { 44sub on_button_press {
41 my ($self, $event) = @_; 45 my ($self, $event) = @_;
42 46
43 $self->{press}[$event->{button}] = 1; 47 $self->{press}[$event->{button}] = 1;
44 refresh $self; 48 $self->refresh;
45 49
46 1 50 1
47} 51}
48 52
49sub on_button_release { 53sub on_button_release {
50 my ($self, $event) = @_; 54 my ($self, $event) = @_;
51
52 my $row = $event->{row};
53 my $col = $event->{col};
54 55
55 if ($event->{button} == $self->{data}{event}{button}) { 56 if ($event->{button} == $self->{data}{event}{button}) {
56 $self->ungrab; 57 $self->ungrab;
57 $self->destroy; 58 $self->destroy;
58 } 59 }
59 60
60 $self->{press}[$event->{button}] = 0; 61 $self->{press}[$event->{button}] = 0;
61 62
62 if ($event->{button} == 1) { 63 my ($row, $col) = ($event->{row}, $event->{col});
63 refresh $self; 64 if ($col >= 0 && $col < $self->ncol
65 && $row >= 0 && $row < @{ $self->{data}{item} }) {
66 my $item = $self->{data}{item}[$row];
67 $item->{activate}->($event, $item);
68 }
64 69
65 warn "$event->{row} $event->{col}\n";#d# 70 $self->refresh;
66
67 if ($col >= 0 && $col < $self->ncol
68 && $row >= 0 && $row < @{ $self->{data}{item} }) {
69 $self->{data}{item}[$row]{activate}->($event);
70 print "ok\n";
71 }
72 }
73 71
74 1 72 1
75} 73}
76 74
77sub on_focus_out { 75sub on_focus_out {
78 my ($self) = @_; 76 my ($self) = @_;
79 77
80 delete $self->{hover}; 78 delete $self->{hover};
81 refresh $self; 79 $self->refresh;
82 80
83 () 81 ()
84} 82}
85 83
86sub on_init { 84sub on_init {
… …
100 my $pos = ""; 98 my $pos = "";
101 99
102 if ($data->{event}) { 100 if ($data->{event}) {
103 my $x = int List::Util::max 0, $data->{event}{x_root} - $width * $data->{term}->fwidth * 0.5; 101 my $x = int List::Util::max 0, $data->{event}{x_root} - $width * $data->{term}->fwidth * 0.5;
104 my $y = int List::Util::max 0, $data->{event}{y_root} - $data->{term}->fheight * 0.5; 102 my $y = int List::Util::max 0, $data->{event}{y_root} - $data->{term}->fheight * 0.5;
105
106 $pos = "+$x+$y"; 103 $pos = "+$x+$y";
107 } 104 }
108 105
109 $self->resource (geometry => "${width}x${height}$pos"); 106 $self->resource (geometry => "${width}x${height}$pos");
110 107
… …
112} 109}
113 110
114sub on_start { 111sub on_start {
115 my ($self) = @_; 112 my ($self) = @_;
116 113
114 $self->cmd_parse ("\x1b[?25l\x1b[?7l");
115 $self->refresh;
116
117 # might fail, but try anyways 117 # might fail, but try anyways
118 $self->grab ($self->{data}{event}{time}, 1) 118 $self->grab ($self->{data}{event}{time}, 1)
119 and $self->allow_events_async; 119 and $self->allow_events_async;
120 120
121 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};
122
123 $self->cmd_parse ("\x1b[?25l\x1b[?7l");
124 refresh $self;
125 122
126 () 123 ()
127} 124}
128 125
129sub on_map_notify { 126sub on_map_notify {
… …
133 $self->grab ($self->{data}{event}{time}, 1) 130 $self->grab ($self->{data}{event}{time}, 1)
134 and $self->allow_events_async; 131 and $self->allow_events_async;
135} 132}
136 133
137 134
138
139
140
141

Diff Legend

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