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

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.62 by root, Mon Jan 9 02:06:43 2006 UTC vs.
Revision 1.65 by root, Mon Jan 9 19:25:57 2006 UTC

… …
1115Converts rxvt-unicodes text reprsentation into a perl string. See 1115Converts rxvt-unicodes text reprsentation into a perl string. See
1116C<< $term->ROW_t >> for details. 1116C<< $term->ROW_t >> for details.
1117 1117
1118=item $success = $term->grab_button ($button, $modifiermask) 1118=item $success = $term->grab_button ($button, $modifiermask)
1119 1119
1120Registers a synchronous button grab. See XGrabButton. 1120Registers a synchronous button grab. See the XGrabButton manpage.
1121 1121
1122=item $success = $term->grab ($eventtime[, $sync]) 1122=item $success = $term->grab ($eventtime[, $sync])
1123 1123
1124Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1124Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1125synchronous (C<$sync> is true). Also remembers the grab timestampe. 1125synchronous (C<$sync> is true). Also remembers the grab timestampe.
… …
1173 $sep ||= "═"; 1173 $sep ||= "═";
1174 1174
1175 $self->add_item ({ 1175 $self->add_item ({
1176 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" }, 1176 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1177 text => "", 1177 text => "",
1178 render => sub { $sep x $urxvt::TERM->ncol }, 1178 render => sub { $sep x $self->{term}->ncol },
1179 activate => sub { }, 1179 activate => sub { },
1180 }); 1180 });
1181} 1181}
1182 1182
1183sub add_title { 1183sub add_title {
… …
1191} 1191}
1192 1192
1193sub add_button { 1193sub add_button {
1194 my ($self, $text, $cb) = @_; 1194 my ($self, $text, $cb) = @_;
1195 1195
1196 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb}); 1196 $self->add_item ({ type => "button", text => $text, activate => $cb});
1197} 1197}
1198 1198
1199sub add_toggle { 1199sub add_toggle {
1200 my ($self, $text, $cb, $value) = @_; 1200 my ($self, $text, $cb, $value) = @_;
1201 1201
… …
1213sub show { 1213sub show {
1214 my ($self) = @_; 1214 my ($self) = @_;
1215 1215
1216 local $urxvt::popup::self = $self; 1216 local $urxvt::popup::self = $self;
1217 1217
1218 local $ENV{LC_ALL} = $self->{term}->locale;
1219
1218 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1220 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1219 "--transient-for" => $self->{term}->parent, 1221 "--transient-for" => $self->{term}->parent,
1222 "-display" => $self->{term}->display_id,
1220 "-pe" => "urxvt-popup") 1223 "-pe" => "urxvt-popup")
1221 or die "unable to create popup window\n"; 1224 or die "unable to create popup window\n";
1222} 1225}
1223 1226
1224sub DESTROY { 1227sub DESTROY {

Diff Legend

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