From ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sun, 6 Jan 2019 11:04:14 +0100 Subject: 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 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnu/installer/newt/page.scm') 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 @@ (define* (run-input-page text title #: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 @@ (define (run-error-page text 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 @@ (define (fill-checkbox-tree checkbox-tree items) (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 @@ (define* (run-file-textbox-page #:key 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 -- cgit v1.2.3