From 7e76d39402655208826957afeeae8157b078fd09 Mon Sep 17 00:00:00 2001
From: gryf <gryf73@gmail.com>
Date: Sat, 28 Oct 2023 17:18:32 +0200
Subject: [PATCH] Fix overlay placement depending on the line length

---
 tabbedalt | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/tabbedalt b/tabbedalt
index 413cade..1e4576f 100644
--- a/tabbedalt
+++ b/tabbedalt
@@ -688,12 +688,20 @@ _on wm_delete_window => sub {
                $_->destroy for @{ $self->{tabs} };
             }
          } 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 $tab = $self->{cur};
 
             $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 
             # method.
             $tab->enable(key_press => \&dialog_key_press);