aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer/newt/page.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2019-01-06 11:04:14 +0100
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:27 +0100
commitebb36deccc84b1d4414a2b54a3e1df7e7ba94cff (patch)
tree7d50a2b5946e828e79caac54aa41199ee04021fb /gnu/installer/newt/page.scm
parentf297c213a1b8a364f60c1de825761f1d9ad7eb5e (diff)
downloadpatches-ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff.tar
patches-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.scm8
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