From ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <m.othacehe@gmail.com>
Date: Sun, 6 Jan 2019 11:04:14 +0100
Subject: [PATCH] installer: Rename "Ok" buttons to "OK".

* gnu/installer/newt/page.scm: s/Ok/OK/.
* gnu/installer/newt/partition.scm: Ditto.
* gnu/installer/newt/user.scm: Ditto.
---
 gnu/installer/newt/page.scm      | 8 ++++----
 gnu/installer/newt/partition.scm | 8 ++++----
 gnu/installer/newt/user.scm      | 4 ++--
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index c0d7547293..edf0b8c999 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -83,7 +83,7 @@ enters an empty input."
                                  #:flags FLAG-BORDER))
          (grid (make-grid 1 3))
          (input-entry (make-entry -1 -1 20))
-         (ok-button (make-button -1 -1 (G_ "Ok")))
+         (ok-button (make-button -1 -1 (G_ "OK")))
          (form (make-form)))
 
     (when default-text
@@ -125,7 +125,7 @@ of the page is set to TITLE."
           (make-reflowed-textbox -1 -1 text 40
                                  #:flags FLAG-BORDER))
          (grid (make-grid 1 2))
-         (ok-button (make-button -1 -1 "Ok"))
+         (ok-button (make-button -1 -1 "OK"))
          (form (make-form)))
 
     (set-grid-field grid 0 0 GRID-ELEMENT-COMPONENT text-box)
@@ -438,7 +438,7 @@ ITEMS when 'Ok' is pressed."
           (make-reflowed-textbox -1 -1 info-text
                                  info-textbox-width
                                  #:flags FLAG-BORDER))
-         (ok-button (make-button -1 -1 (G_ "Ok")))
+         (ok-button (make-button -1 -1 (G_ "OK")))
          (exit-button (make-button -1 -1 (G_ "Exit")))
          (grid (vertically-stacked-grid
                 GRID-ELEMENT-COMPONENT info-textbox
@@ -495,7 +495,7 @@ ITEMS when 'Ok' is pressed."
                         file-textbox-width
                         file-textbox-height
                         (logior FLAG-SCROLL FLAG-BORDER)))
-         (ok-button (make-button -1 -1 (G_ "Ok")))
+         (ok-button (make-button -1 -1 (G_ "OK")))
          (exit-button (make-button -1 -1 (G_ "Exit")))
          (grid (vertically-stacked-grid
                 GRID-ELEMENT-COMPONENT info-textbox
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 56e9dafd49..84d77c1639 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -414,7 +414,7 @@ partition. Leave this field empty if you don't want to set a mounting point.")
            #:listbox-item->text cdr
            #:sort-listbox-items? #f
            #:listbox-default-item default-item
-           #:button-text (G_ "Ok")
+           #:button-text (G_ "OK")
            #:listbox-callback-procedure listbox-action
            #:button-callback-procedure button-action)))
     (match result
@@ -594,7 +594,7 @@ edit it."
                 (format #f (G_ "Are you sure you want to delete everything on disk ~a?")
                         file-name))
                (result (choice-window (G_ "Delete disk")
-                                      (G_ "Ok")
+                                      (G_ "OK")
                                       (G_ "Exit")
                                       info-text)))
           (case result
@@ -615,7 +615,7 @@ edit it."
                     (format #f (G_ "Are you sure you want to delete partition ~a?")
                             number-str))
                    (result (choice-window (G_ "Delete partition")
-                                          (G_ "Ok")
+                                          (G_ "OK")
                                           (G_ "Exit")
                                           info-text)))
               (case result
@@ -653,7 +653,7 @@ by pressing the Exit button.~%~%")))
           #:sort-listbox-items? #f
           #:skip-item-procedure? skip-item?
           #:allow-delete? #t
-          #:button-text (G_ "Ok")
+          #:button-text (G_ "OK")
           #:button-callback-procedure button-ok-action
           #:button2-text (G_ "Exit")
           #:button2-callback-procedure button-exit-action
diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index f65dbb30e5..59b1913cfc 100644
--- a/gnu/installer/newt/user.scm
+++ b/gnu/installer/newt/user.scm
@@ -41,7 +41,7 @@
          (entry-home-directory (make-entry -1 -1 entry-width))
          (entry-grid (make-grid 2 2))
          (button-grid (make-grid 1 1))
-         (ok-button (make-button -1 -1 (G_ "Ok")))
+         (ok-button (make-button -1 -1 (G_ "OK")))
          (grid (make-grid 1 2))
          (title (G_ "User creation"))
          (set-entry-grid-field
@@ -115,7 +115,7 @@
              `(,@(if (null? users)
                      '()
                      (list GRID-ELEMENT-COMPONENT del-button)))))
-           (ok-button (make-button -1 -1 (G_ "Ok")))
+           (ok-button (make-button -1 -1 (G_ "OK")))
            (exit-button (make-button -1 -1 (G_ "Exit")))
            (title "User creation")
            (grid