From 69d62a0104c6ef2e3a1b725f8166deaee3c7a648 Mon Sep 17 00:00:00 2001
From: Nigel <windymilla@users.noreply.github.com>
Date: Mon, 4 Sep 2023 21:15:39 +0100
Subject: [PATCH] Adjust Spell Check button positions (#1245)

Adjust button positions to more closely match what people are
used to, particularly the commonly used, Change, Skip and Skip All.

(After user feedback.)
---
 src/lib/Guiguts/SpellCheck.pm | 40 +++++++++++++++++------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/src/lib/Guiguts/SpellCheck.pm b/src/lib/Guiguts/SpellCheck.pm
index 685386e3..730706c3 100644
--- a/src/lib/Guiguts/SpellCheck.pm
+++ b/src/lib/Guiguts/SpellCheck.pm
@@ -550,7 +550,7 @@ sub spellchecker {
                 ::unbusy();
             },
             -text  => 'Change',
-            -width => 14,
+            -width => 22,
         )->pack(
             -side   => 'left',
             -pady   => 2,
@@ -572,31 +572,43 @@ sub spellchecker {
             -padx   => 3,
             -anchor => 'nw'
         );
-        my $ignoreallbutton = $spf2->Button(
+        my $dictmyaddbutton = $spf2->Button(
             -command => sub {
                 ::busy();
+                spellmyaddword( $::lglobal{misspelledentry}->get );
                 spellignoreall();
                 spellchecknext();
                 ::unbusy();
             },
-            -text  => 'Skip All <Ctrl+i>',
-            -width => 14,
+            -text  => 'Add To Project Dic. <Ctrl+p>',
+            -width => 22,
         )->pack(
             -side   => 'left',
             -pady   => 2,
             -padx   => 3,
             -anchor => 'nw'
         );
-        my $dictmyaddbutton = $spf3->Button(
+        my $dictmybutton = $spf3->Button(
+            -command => sub {
+                spelladdgoodwords();
+            },
+            -text  => 'Add Goodwords To Proj. Dic.',
+            -width => 22,
+        )->pack(
+            -side   => 'left',
+            -pady   => 2,
+            -padx   => 3,
+            -anchor => 'nw'
+        );
+        my $ignoreallbutton = $spf3->Button(
             -command => sub {
                 ::busy();
-                spellmyaddword( $::lglobal{misspelledentry}->get );
                 spellignoreall();
                 spellchecknext();
                 ::unbusy();
             },
-            -text  => 'Add To Project Dic. <Ctrl+p>',
-            -width => 22,
+            -text  => 'Skip All <Ctrl+i>',
+            -width => 14,
         )->pack(
             -side   => 'left',
             -pady   => 2,
@@ -650,18 +662,6 @@ sub spellchecker {
             -padx   => 3,
             -anchor => 'nw'
         );
-        my $dictmybutton = $spf5->Button(
-            -command => sub {
-                spelladdgoodwords();
-            },
-            -text  => 'Add Goodwords To Proj. Dic.',
-            -width => 24,
-        )->pack(
-            -side   => 'left',
-            -pady   => 2,
-            -padx   => 3,
-            -anchor => 'nw'
-        );
         my $spelloptionsbutton = $spf5->Button(
             -command => sub { spelloptions() },
             -text    => 'Options',