gryf/tabbedalt
1
0
Fork 0
mirror of https://github.com/gryf/tabbedalt.git synced 2025-12-18 20:10:30 +01:00
Code Issues Projects Releases Wiki Activity

Fix overlay placement depending on the line length

Browse Source
This commit is contained in:
gryf
2023-10-28 17:18:32 +02:00
parent 697a698add
commit 7e76d39402
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tabbedalt
View File

@@ -688,12 +688,20 @@ _on wm_delete_window => sub {
$_->destroy for @{ $self->{tabs} }; $_->destroy for @{ $self->{tabs} };
} }
} else { } else {
my $marginc = int(($self->ncol - length $msg)/2); my $marginc = 0;
$qst = "$qst (y/n)";
if ((length $msg) > (length $qst)) {
print("length $msg > length $qst\n");
$marginc = int(($self->ncol - length $msg)/2);
} elsif ((length $msg) <= (length $qst)) {
print("length $msg <= length $qst\n");
$marginc = int(($self->ncol - length $qst)/2);
}
my $marginr = int(($self->nrow - 4)/2); my $marginr = int(($self->nrow - 4)/2);
my $tab = $self->{cur}; my $tab = $self->{cur};
$tab->{overlay} = $tab->overlay_simple($marginc, $marginr, $tab->{overlay} = $tab->overlay_simple($marginc, $marginr,
"$msg\n$qst (y/n)"); "$msg\n$qst");
# action for removing all tabs will be decided in following # action for removing all tabs will be decided in following
# method. # method.
$tab->enable(key_press => \&dialog_key_press); $tab->enable(key_press => \&dialog_key_press);