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.)
DistributedProofreaders · Sep 4, 2023 · 69d62a0 · 69d62a0
1 parent a43f99c
commit 69d62a0
Showing 1 changed file with 20 additions and 20 deletions.
diff --git 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',