[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
59/68: installer: Rename "Ok" buttons to "OK".
From: |
guix-commits |
Subject: |
59/68: installer: Rename "Ok" buttons to "OK". |
Date: |
Thu, 17 Jan 2019 08:05:21 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit ebb36deccc84b1d4414a2b54a3e1df7e7ba94cff
Author: Mathieu Othacehe <address@hidden>
Date: Sun Jan 6 11:04:14 2019 +0100
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 ++++----
gnu/installer/newt/partition.scm | 8 ++++----
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 c0d7547..edf0b8c 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 56e9daf..84d77c1 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 f65dbb3..59b1913 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
- 44/68: installer: partition: Differenciate Back button from Exit button., (continued)
- 44/68: installer: partition: Differenciate Back button from Exit button., guix-commits, 2019/01/17
- 28/68: installer: Redirect to TTY3 root shell for unguided install., guix-commits, 2019/01/17
- 58/68: installer: parted: Do not call BLKRRPART on loop devices., guix-commits, 2019/01/17
- 53/68: installer: Clear screen upon exit., guix-commits, 2019/01/17
- 49/68: installer: menu: Fix typo., guix-commits, 2019/01/17
- 43/68: installer: network: Do not show an empty technology list., guix-commits, 2019/01/17
- 50/68: installer: partition: Fix swaping and use syscalls., guix-commits, 2019/01/17
- 51/68: installer: partition: Fix typo., guix-commits, 2019/01/17
- 55/68: installer: parted: Use read-luks-partition-uuid instead of find-partition-by-luks-uuid., guix-commits, 2019/01/17
- 30/68: installer: Fix comments., guix-commits, 2019/01/17
- 59/68: installer: Rename "Ok" buttons to "OK".,
guix-commits <=
- 47/68: installer: Display an eventual backtrace in a page., guix-commits, 2019/01/17
- 26/68: installer: Add hostname., guix-commits, 2019/01/17
- 10/68: guix: self: Do not install (gnu system install)., guix-commits, 2019/01/17
- 25/68: installer: Add services page., guix-commits, 2019/01/17
- 11/68: gnu: installer: Launch the installer as kmscon login-program., guix-commits, 2019/01/17
- 13/68: installer: Move everything to the build side., guix-commits, 2019/01/17
- 15/68: tests: Rename %test-encrypted-os to %test-encrypted-root-os., guix-commits, 2019/01/17
- 17/68: services: herd: Allow to pass arguments to start-service., guix-commits, 2019/01/17
- 19/68: gnu: Add guile-parted., guix-commits, 2019/01/17
- 16/68: build: syscalls: Add device-in-use?., guix-commits, 2019/01/17