diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-01-06 11:04:14 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:27 +0100 |
| commit | ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff (patch) | |
| tree | 7d50a2b5946e828e79caac54aa41199ee04021fb /gnu/installer/newt/partition.scm | |
| parent | f297c213a1b8a364f60c1de825761f1d9ad7eb5e (diff) | |
| download | guix-ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff.tar.gz guix-ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff.zip | |
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.
Diffstat (limited to 'gnu/installer/newt/partition.scm')
| -rw-r--r-- | gnu/installer/newt/partition.scm | 8 |
1 files changed, 4 insertions, 4 deletions
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 |