src/perl/example-refresh-hooks
src/perl/block-graphics-to-ascii
src/perl/digital-clock
+src/perl/option-popup
+src/perl/urxvt-popup
src/perl/selection
src/perl/mark-urls
my $optval = $urxvt::OPTION{$name};
- $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]); warn "toggle $optval, $_[0]" },
+ $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]) },
$self->option ($optval));
}
my ($self, $event) = @_;
$self->{hover} = $event->{row} + 1;
- refresh $self;
+ $self->refresh;
1
}
my ($self, $event) = @_;
$self->{press}[$event->{button}] = 1;
- refresh $self;
+ $self->refresh;
1
}
$self->{press}[$event->{button}] = 0;
- refresh $self;
-
if ($col >= 0 && $col < $self->ncol
&& $row >= 0 && $row < @{ $self->{data}{item} }) {
$self->{data}{item}[$row]{activate}->($event);
}
+ $self->refresh;
+
1
}
my ($self) = @_;
delete $self->{hover};
- refresh $self;
+ $self->refresh;
()
}
for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
if ($_ eq "default") {
- $want_ext{$_}++ for qw(selection);
- } elsif (/-(.*)/) {
+ $want_ext{$_}++ for qw(selection option-popup);
+ } elsif (/^-(.*)$/) {
delete $want_ext{$1};
} else {
$want_ext{$_}++;