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.64 by root, Mon Jan 9 06:29:47 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.
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
1215 1215
1216 local $urxvt::popup::self = $self; 1216 local $urxvt::popup::self = $self;
1217 1217
1218 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1218 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1219 "--transient-for" => $self->{term}->parent, 1219 "--transient-for" => $self->{term}->parent,
1220 "-display" => $self->{term}->display_id,
1220 "-pe" => "urxvt-popup") 1221 "-pe" => "urxvt-popup")
1221 or die "unable to create popup window\n"; 1222 or die "unable to create popup window\n";
1222} 1223}
1223 1224
1224sub DESTROY { 1225sub DESTROY {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines