mirror of
https://github.com/gryf/tabbedalt.git
synced 2025-12-17 11:30:31 +01:00
Changed marker is_inputting_name to is_being_renamed.
This commit is contained in:
14
tabbedalt
14
tabbedalt
@@ -379,7 +379,7 @@ sub make_current {
|
|||||||
}
|
}
|
||||||
|
|
||||||
if ($cur) {
|
if ($cur) {
|
||||||
if ($cur->{is_inputting_name}) {
|
if ($cur->{is_being_renamed}) {
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
$cur->enable_activity_hook(1);
|
$cur->enable_activity_hook(1);
|
||||||
@@ -465,7 +465,7 @@ _on button_release => sub {
|
|||||||
$event->{button} == 3 ||
|
$event->{button} == 3 ||
|
||||||
$event->{button} > 5 ||
|
$event->{button} > 5 ||
|
||||||
$event->{row} != 0 ||
|
$event->{row} != 0 ||
|
||||||
$self->{cur}->{is_inputting_name}) {
|
$self->{cur}->{is_being_renamed}) {
|
||||||
return ();
|
return ();
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -634,14 +634,14 @@ sub _rename_tab_key_press {
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($tab->{is_inputting_name}) {
|
if ($tab->{is_being_renamed}) {
|
||||||
if ($keysym == 0xff0d || $keysym == 0xff8d) { # enter
|
if ($keysym == 0xff0d || $keysym == 0xff8d) { # enter
|
||||||
$tab->{name} = $tab->{new_name};
|
$tab->{name} = $tab->{new_name};
|
||||||
$tab->{is_inputting_name} = 0;
|
$tab->{is_being_renamed} = 0;
|
||||||
$self->disable('key_press');
|
$self->disable('key_press');
|
||||||
} elsif ($keysym == 0xff1b) { # escape
|
} elsif ($keysym == 0xff1b) { # escape
|
||||||
$tab->{name} = $tab->{old_name};
|
$tab->{name} = $tab->{old_name};
|
||||||
$tab->{is_inputting_name} = 0;
|
$tab->{is_being_renamed} = 0;
|
||||||
$self->disable('key_press');
|
$self->disable('key_press');
|
||||||
} elsif ($keysym == 0xff08) { # backspace
|
} elsif ($keysym == 0xff08) { # backspace
|
||||||
substr $tab->{new_name}, -1, 1, "";
|
substr $tab->{new_name}, -1, 1, "";
|
||||||
@@ -700,10 +700,10 @@ sub new_tab {
|
|||||||
sub rename_tab {
|
sub rename_tab {
|
||||||
my ($self, $params) = @_;
|
my ($self, $params) = @_;
|
||||||
my $tab = $self->{cur};
|
my $tab = $self->{cur};
|
||||||
if ($tab->{is_inputting_name}) {
|
if ($tab->{is_being_renamed}) {
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
$tab->{is_inputting_name} = 1;
|
$tab->{is_being_renamed} = 1;
|
||||||
$tab->{old_name} = $tab->{name} ? $tab->{name} : "";
|
$tab->{old_name} = $tab->{name} ? $tab->{name} : "";
|
||||||
$tab->{new_name} = "";
|
$tab->{new_name} = "";
|
||||||
$tab->{name} = "█";
|
$tab->{name} = "█";
|
||||||
|
|||||||
Reference in New Issue
Block a user