mirror of
https://github.com/gryf/tabbedalt.git
synced 2025-12-17 11:30:31 +01:00
Merge with tabbed distributed with urxvt 9.16
This commit is contained in:
49
tabbed
49
tabbed
@@ -293,31 +293,51 @@ sub make_current {
|
|||||||
delete $tab->{lastActivity};
|
delete $tab->{lastActivity};
|
||||||
$self->refresh;
|
$self->refresh;
|
||||||
|
|
||||||
();
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_focus_in {
|
sub on_focus_in {
|
||||||
my ($self, $event) = @_;
|
my ($self, $event) = @_;
|
||||||
|
|
||||||
$self->{cur}->focus_in;
|
$self->{cur}->focus_in;
|
||||||
();
|
|
||||||
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_focus_out {
|
sub on_focus_out {
|
||||||
my ($self, $event) = @_;
|
my ($self, $event) = @_;
|
||||||
|
|
||||||
$self->{cur}->focus_out;
|
$self->{cur}->focus_out;
|
||||||
();
|
|
||||||
|
()
|
||||||
|
}
|
||||||
|
|
||||||
|
sub on_tt_write {
|
||||||
|
my ($self, $octets) = @_;
|
||||||
|
|
||||||
|
$self->{cur}->tt_write ($octets);
|
||||||
|
|
||||||
|
1
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_key_press {
|
sub on_key_press {
|
||||||
my ($self, $event) = @_;
|
my ($self, $event) = @_;
|
||||||
|
|
||||||
$self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
|
$self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
|
||||||
1;
|
|
||||||
|
1
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_key_release {
|
sub on_key_release {
|
||||||
my ($self, $event) = @_;
|
my ($self, $event) = @_;
|
||||||
|
|
||||||
$self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time});
|
$self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time});
|
||||||
1;
|
|
||||||
|
1
|
||||||
|
}
|
||||||
|
|
||||||
|
sub on_button_press {
|
||||||
|
1
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_button_release {
|
sub on_button_release {
|
||||||
@@ -334,6 +354,10 @@ sub on_button_release {
|
|||||||
1
|
1
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub on_motion_notify {
|
||||||
|
1
|
||||||
|
}
|
||||||
|
|
||||||
sub on_init {
|
sub on_init {
|
||||||
my ($self) = @_;
|
my ($self) = @_;
|
||||||
|
|
||||||
@@ -439,7 +463,7 @@ sub on_start {
|
|||||||
->cb ( sub { $self->refresh; } );
|
->cb ( sub { $self->refresh; } );
|
||||||
}
|
}
|
||||||
|
|
||||||
();
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_configure_notify {
|
sub on_configure_notify {
|
||||||
@@ -448,16 +472,16 @@ sub on_configure_notify {
|
|||||||
$self->configure;
|
$self->configure;
|
||||||
$self->refresh;
|
$self->refresh;
|
||||||
|
|
||||||
();
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
sub on_wm_delete_window {
|
sub on_wm_delete_window {
|
||||||
my ($self) = @_;
|
my ($self) = @_;
|
||||||
|
|
||||||
$_->destroy for @{ $self->{tabs} };
|
$_->destroy for @{ $self->{tabs} };
|
||||||
1;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
1
|
||||||
|
}
|
||||||
|
|
||||||
sub tab_start {
|
sub tab_start {
|
||||||
my ($self, $tab) = @_;
|
my ($self, $tab) = @_;
|
||||||
@@ -469,7 +493,7 @@ sub tab_start {
|
|||||||
# $tab->{name} ||= scalar @{ $self->{tabs} };
|
# $tab->{name} ||= scalar @{ $self->{tabs} };
|
||||||
$self->make_current ($tab);
|
$self->make_current ($tab);
|
||||||
|
|
||||||
();
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
sub tab_destroy {
|
sub tab_destroy {
|
||||||
@@ -489,7 +513,7 @@ sub tab_destroy {
|
|||||||
$self->{destroy} = urxvt::iw->new->start->cb (sub { $self->destroy });
|
$self->{destroy} = urxvt::iw->new->start->cb (sub { $self->destroy });
|
||||||
}
|
}
|
||||||
|
|
||||||
();
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
sub tab_key_press {
|
sub tab_key_press {
|
||||||
@@ -588,7 +612,7 @@ sub tab_key_press {
|
|||||||
#}
|
#}
|
||||||
}
|
}
|
||||||
|
|
||||||
();
|
()
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@@ -618,3 +642,4 @@ package urxvt::ext::tabbed::tab;
|
|||||||
die if $@;
|
die if $@;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user