1
0
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:
2013-03-19 20:38:02 +01:00
parent 454dc4aa9d
commit e3bd6e220a

49
tabbed
View File

@@ -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 $@;
} }
} }