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/page.scm | |
| parent | f297c213a1b8a364f60c1de825761f1d9ad7eb5e (diff) | |
| download | guix-ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff.tar.gz | |
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/page.scm')
| -rw-r--r-- | gnu/installer/newt/page.scm | 8 |
1 files changed, 4 insertions, 4 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 |