diff options
| -rw-r--r-- | gnu/installer/newt/page.scm | 8 | ||||
| -rw-r--r-- | gnu/installer/newt/partition.scm | 8 | ||||
| -rw-r--r-- | 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 |