mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Rename "Ok" buttons to "OK".

Browse source 
* gnu/installer/newt/page.scm: s/Ok/OK/.
* gnu/installer/newt/partition.scm: Ditto.
* gnu/installer/newt/user.scm: Ditto.
This commit is contained in:
Mathieu Othacehe 2019-01-06 11:04:14 +01:00 committed by Ludovic Courtès
parent f297c213a1
commit ebb36deccc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
3 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/installer/newt/page.scm
View file

@ -83,7 +83,7 @@ (define* (run-input-page text title
#:flags FLAG-BORDER)) #:flags FLAG-BORDER))
(grid (make-grid 1 3)) (grid (make-grid 1 3))
(input-entry (make-entry -1 -1 20)) (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))) (form (make-form)))
(when default-text (when default-text
@ -125,7 +125,7 @@ (define (run-error-page text title)
(make-reflowed-textbox -1 -1 text 40 (make-reflowed-textbox -1 -1 text 40
#:flags FLAG-BORDER)) #:flags FLAG-BORDER))
(grid (make-grid 1 2)) (grid (make-grid 1 2))
(ok-button (make-button -1 -1 "Ok")) (ok-button (make-button -1 -1 "OK"))
(form (make-form))) (form (make-form)))
(set-grid-field grid 0 0 GRID-ELEMENT-COMPONENT text-box) (set-grid-field grid 0 0 GRID-ELEMENT-COMPONENT text-box)
@ -438,7 +438,7 @@ (define (fill-checkbox-tree checkbox-tree items)
(make-reflowed-textbox -1 -1 info-text (make-reflowed-textbox -1 -1 info-text
info-textbox-width info-textbox-width
#:flags FLAG-BORDER)) #: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"))) (exit-button (make-button -1 -1 (G_ "Exit")))
(grid (vertically-stacked-grid (grid (vertically-stacked-grid
GRID-ELEMENT-COMPONENT info-textbox GRID-ELEMENT-COMPONENT info-textbox
@ -495,7 +495,7 @@ (define* (run-file-textbox-page #:key
file-textbox-width file-textbox-width
file-textbox-height file-textbox-height
(logior FLAG-SCROLL FLAG-BORDER))) (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"))) (exit-button (make-button -1 -1 (G_ "Exit")))
(grid (vertically-stacked-grid (grid (vertically-stacked-grid
GRID-ELEMENT-COMPONENT info-textbox GRID-ELEMENT-COMPONENT info-textbox

8
gnu/installer/newt/partition.scm
View file

@ -414,7 +414,7 @@ (define (button-action)
#:listbox-item->text cdr #:listbox-item->text cdr
#:sort-listbox-items? #f #:sort-listbox-items? #f
#:listbox-default-item default-item #:listbox-default-item default-item
#:button-text (G_ "Ok") #:button-text (G_ "OK")
#:listbox-callback-procedure listbox-action #:listbox-callback-procedure listbox-action
#:button-callback-procedure button-action))) #:button-callback-procedure button-action)))
(match result (match result
@ -594,7 +594,7 @@ (define (hotkey-action key listbox-item)
(format #f (G_ "Are you sure you want to delete everything on disk ~a?") (format #f (G_ "Are you sure you want to delete everything on disk ~a?")
file-name)) file-name))
(result (choice-window (G_ "Delete disk") (result (choice-window (G_ "Delete disk")
(G_ "Ok") (G_ "OK")
(G_ "Exit") (G_ "Exit")
info-text))) info-text)))
(case result (case result
@ -615,7 +615,7 @@ (define (hotkey-action key listbox-item)
(format #f (G_ "Are you sure you want to delete partition ~a?") (format #f (G_ "Are you sure you want to delete partition ~a?")
number-str)) number-str))
(result (choice-window (G_ "Delete partition") (result (choice-window (G_ "Delete partition")
(G_ "Ok") (G_ "OK")
(G_ "Exit") (G_ "Exit")
info-text))) info-text)))
(case result (case result
@ -653,7 +653,7 @@ (define (hotkey-action key listbox-item)
#:sort-listbox-items? #f #:sort-listbox-items? #f
#:skip-item-procedure? skip-item? #:skip-item-procedure? skip-item?
#:allow-delete? #t #:allow-delete? #t
#:button-text (G_ "Ok") #:button-text (G_ "OK")
#:button-callback-procedure button-ok-action #:button-callback-procedure button-ok-action
#:button2-text (G_ "Exit") #:button2-text (G_ "Exit")
#:button2-callback-procedure button-exit-action #:button2-callback-procedure button-exit-action

4
gnu/installer/newt/user.scm
View file

@ -41,7 +41,7 @@ (define (pad-label label)
(entry-home-directory (make-entry -1 -1 entry-width)) (entry-home-directory (make-entry -1 -1 entry-width))
(entry-grid (make-grid 2 2)) (entry-grid (make-grid 2 2))
(button-grid (make-grid 1 1)) (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)) (grid (make-grid 1 2))
(title (G_ "User creation")) (title (G_ "User creation"))
(set-entry-grid-field (set-entry-grid-field
@ -115,7 +115,7 @@ (define (run users)
`(,@(if (null? users) `(,@(if (null? users)
'() '()
(list GRID-ELEMENT-COMPONENT del-button))))) (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"))) (exit-button (make-button -1 -1 (G_ "Exit")))
(title "User creation") (title "User creation")
(grid (grid