ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Turn "Cancel" buttons into "Exit" buttons.

Browse source 
This change and previous ones were,
Suggested-by: Thorsten Wilms <t_w_@freenet.de>
here: https://lists.gnu.org/archive/html/guix-devel/2018-11/msg00330.html

gnu/installer/newt/ethernet.scm: Turn cancel into exit.
gnu/installer/newt/final.scm: Ditto.
gnu/installer/newt/keymap.scm: Ditto.
gnu/installer/newt/locale.scm: Ditto.
gnu/installer/newt/network.scm: Ditto.
gnu/installer/newt/page.scm: Ditto.
gnu/installer/newt/partition.scm: Ditto.
gnu/installer/newt/services.scm: Ditto.
gnu/installer/newt/timezone.scm: Ditto.
gnu/installer/newt/user.scm: Ditto.
gnu/installer/newt/wifi.scm: Ditto.
This commit is contained in:
Mathieu Othacehe 2018-12-05 19:50:17 +09:00 committed by Ludovic Courtès
parent 30cf5e0426
commit 7d812901da
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
11 changed files with 42 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/installer/newt/ethernet.scm
View file

@ -72,7 +72,7 @@ (define (run-ethernet-page)
#:title (G_ "Ethernet connection")
#:listbox-items services
#:listbox-item->text ethernet-service->text
#:button-text (G_ "Cancel")
#:button-text (G_ "Exit")
#:button-callback-procedure
(lambda _
(raise

2
gnu/installer/newt/final.scm
View file

@ -42,7 +42,7 @@ (define (run-config-display-page)
#:info-textbox-width width
#:file-textbox-width width
#:file-textbox-height height
#:cancel-button-callback-procedure
#:exit-button-callback-procedure
(lambda ()
(raise
(condition

2
gnu/installer/newt/keymap.scm
View file

@ -35,7 +35,7 @@ (define (run-layout-page layouts layout->text)
#:info-text (G_ "Please choose your keyboard layout.")
#:listbox-items layouts
#:listbox-item->text layout->text
#:button-text (G_ "Cancel")
#:button-text (G_ "Exit")
#:button-callback-procedure
(lambda _
(raise

2
gnu/installer/newt/locale.scm
View file

@ -45,7 +45,7 @@ (define (run-language-page languages language->text)
#:listbox-items languages
#:listbox-item->text language->text
#:sort-listbox-items? #f
#:button-text (G_ "Cancel")
#:button-text (G_ "Exit")
#:button-callback-procedure
(lambda _
(raise

2
gnu/installer/newt/network.scm
View file

@ -59,7 +59,7 @@ (define (technology-items)
#:title (G_ "Internet access")
#:listbox-items (technology-items)
#:listbox-item->text technology->text
#:button-text (G_ "Cancel")
#:button-text (G_ "Exit")
#:button-callback-procedure
(lambda _
(raise

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

@ -404,12 +404,12 @@ (define* (run-checkbox-tree-page #:key
(checkbox-tree-height 10)
(ok-button-callback-procedure
(const #t))
(cancel-button-callback-procedure
(exit-button-callback-procedure
(const #t)))
"Run a page allowing the user to select one or multiple items among ITEMS in
a checkbox list. The page contains vertically stacked from the top to the
bottom, an informative text set to INFO-TEXT, the checkbox list and two
buttons, 'Ok' and 'Cancel'. The page title's is set to TITLE. ITEMS are
buttons, 'Ok' and 'Exit'. The page title's is set to TITLE. ITEMS are
converted to text using ITEM->TEXT before being displayed in the checkbox
list.
@ -417,7 +417,7 @@ (define* (run-checkbox-tree-page #:key
displayed. CHECKBOX-TREE-HEIGHT is the height of the checkbox list.
OK-BUTTON-CALLBACK-PROCEDURE is called when the 'Ok' button is pressed.
CANCEL-BUTTON-CALLBACK-PROCEDURE is called when the 'Cancel' button is
EXIT-BUTTON-CALLBACK-PROCEDURE is called when the 'Exit' button is
pressed.
This procedure returns the list of checked items in the checkbox list among
@ -439,14 +439,14 @@ (define (fill-checkbox-tree checkbox-tree items)
info-textbox-width
#:flags FLAG-BORDER))
(ok-button (make-button -1 -1 (G_ "Ok")))
(cancel-button (make-button -1 -1 (G_ "Cancel")))
(exit-button (make-button -1 -1 (G_ "Exit")))
(grid (vertically-stacked-grid
GRID-ELEMENT-COMPONENT info-textbox
GRID-ELEMENT-COMPONENT checkbox-tree
GRID-ELEMENT-SUBGRID
(horizontal-stacked-grid
GRID-ELEMENT-COMPONENT ok-button
GRID-ELEMENT-COMPONENT cancel-button)))
GRID-ELEMENT-COMPONENT exit-button)))
(keys (fill-checkbox-tree checkbox-tree items))
(form (make-form)))
@ -468,8 +468,8 @@ (define (fill-checkbox-tree checkbox-tree items)
entries)))
(ok-button-callback-procedure)
current-items))
((components=? argument cancel-button)
(cancel-button-callback-procedure))))))
((components=? argument exit-button)
(exit-button-callback-procedure))))))
(lambda ()
(destroy-form-and-pop form))))))
@ -482,7 +482,7 @@ (define* (run-file-textbox-page #:key
(file-textbox-height 30)
(ok-button-callback-procedure
(const #t))
(cancel-button-callback-procedure
(exit-button-callback-procedure
(const #t)))
(let* ((info-textbox
(make-reflowed-textbox -1 -1 info-text
@ -495,14 +495,14 @@ (define* (run-file-textbox-page #:key
file-textbox-height
(logior FLAG-SCROLL FLAG-BORDER)))
(ok-button (make-button -1 -1 (G_ "Ok")))
(cancel-button (make-button -1 -1 (G_ "Cancel")))
(exit-button (make-button -1 -1 (G_ "Exit")))
(grid (vertically-stacked-grid
GRID-ELEMENT-COMPONENT info-textbox
GRID-ELEMENT-COMPONENT file-textbox
GRID-ELEMENT-SUBGRID
(horizontal-stacked-grid
GRID-ELEMENT-COMPONENT ok-button
GRID-ELEMENT-COMPONENT cancel-button)))
GRID-ELEMENT-COMPONENT exit-button)))
(form (make-form)))
(set-textbox-text file-textbox file-text)
@ -519,7 +519,7 @@ (define* (run-file-textbox-page #:key
(cond
((components=? argument ok-button)
(ok-button-callback-procedure))
((components=? argument cancel-button)
(cancel-button-callback-procedure))))))
((components=? argument exit-button)
(exit-button-callback-procedure))))))
(lambda ()
(destroy-form-and-pop form))))))

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

@ -32,7 +32,7 @@ (define-module (gnu installer newt partition)
#:use-module (parted)
#:export (run-partioning-page))
(define (button-cancel-action)
(define (button-exit-action)
"Raise the &installer-step-abort condition."
(raise
(condition
@ -48,8 +48,8 @@ (define (run-scheme-page)
#:title (G_ "Partition scheme")
#:listbox-items items
#:listbox-item->text cdr
#:button-text (G_ "Cancel")
#:button-callback-procedure button-cancel-action)))
#:button-text (G_ "Exit")
#:button-callback-procedure button-exit-action)))
(car result)))
(define (draw-formating-page)
@ -71,8 +71,8 @@ (define (device-items)
#:title (G_ "Disk")
#:listbox-items (device-items)
#:listbox-item->text cdr
#:button-text (G_ "Cancel")
#:button-callback-procedure button-cancel-action))
#:button-text (G_ "Exit")
#:button-callback-procedure button-exit-action))
(device (car result)))
device))
@ -84,7 +84,7 @@ (define (run-label-page button-callback)
#:title (G_ "Partition table")
#:listbox-items '("msdos" "gpt")
#:listbox-item->text identity
#:button-text (G_ "Cancel")
#:button-text (G_ "Exit")
#:button-callback-procedure button-callback))
(define (run-type-page partition)
@ -103,8 +103,8 @@ (define (run-type-page partition)
#:listbox-items items
#:listbox-item->text symbol->string
#:sort-listbox-items? #f
#:button-text (G_ "Cancel")
#:button-callback-procedure button-cancel-action)))
#:button-text (G_ "Exit")
#:button-callback-procedure button-exit-action)))
(define (run-fs-type-page)
"Run a page asking the user to select a file-system type."
@ -114,8 +114,8 @@ (define (run-fs-type-page)
#:listbox-items '(ext4 btrfs fat32 swap)
#:listbox-item->text user-fs-type-name
#:sort-listbox-items? #f
#:button-text (G_ "Cancel")
#:button-callback-procedure button-cancel-action))
#:button-text (G_ "Exit")
#:button-callback-procedure button-exit-action))
(define (inform-can-create-partition? user-partition)
"Return #t if it is possible to create USER-PARTITION. This is determined by
@ -563,7 +563,7 @@ (define (hotkey-action key listbox-item)
path))
(result (choice-window (G_ "Delete disk")
(G_ "Ok")
(G_ "Cancel")
(G_ "Exit")
info-text)))
(case result
((1)
@ -584,7 +584,7 @@ (define (hotkey-action key listbox-item)
number-str))
(result (choice-window (G_ "Delete partition")
(G_ "Ok")
(G_ "Cancel")
(G_ "Exit")
info-text)))
(case result
((1)
@ -616,8 +616,8 @@ (define (hotkey-action key listbox-item)
#:allow-delete? #t
#:button-text (G_ "Ok")
#:button-callback-procedure button-ok-action
#:button2-text (G_ "Cancel")
#:button2-callback-procedure button-cancel-action
#:button2-text (G_ "Exit")
#:button2-callback-procedure button-exit-action
#:listbox-callback-procedure listbox-action
#:hotkey-callback-procedure hotkey-action)))
(if (eq? result #t)
@ -664,8 +664,8 @@ (define (run-page devices)
#:title (G_ "Partitioning method")
#:listbox-items items
#:listbox-item->text cdr
#:button-text (G_ "Cancel")
#:button-callback-procedure button-cancel-action))
#:button-text (G_ "Exit")
#:button-callback-procedure button-exit-action))
(method (car result)))
(case method
((entire)
@ -674,7 +674,7 @@ (define (run-page devices)
(disk (if disk-type
(disk-new device)
(let* ((label (run-label-page
button-cancel-action))
button-exit-action))
(disk (mklabel device label)))
(disk-commit disk)
disk)))

2
gnu/installer/newt/services.scm
View file

@ -38,7 +38,7 @@ (define (run-desktop-environments-cbt-page)
#:items %desktop-environments
#:item->text desktop-environment-name
#:checkbox-tree-height 5
#:cancel-button-callback-procedure
#:exit-button-callback-procedure
(lambda ()
(raise
(condition

2
gnu/installer/newt/timezone.scm
View file

@ -60,7 +60,7 @@ (define (loop path)
#:listbox-items timezones
#:listbox-item->text identity
#:button-text (if (null? path)
(G_ "Cancel")
(G_ "Exit")
(G_ "Back"))
#:button-callback-procedure
(if (null? path)

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

@ -116,7 +116,7 @@ (define (run users)
'()
(list GRID-ELEMENT-COMPONENT del-button)))))
(ok-button (make-button -1 -1 (G_ "Ok")))
(cancel-button (make-button -1 -1 (G_ "Cancel")))
(exit-button (make-button -1 -1 (G_ "Exit")))
(title "User creation")
(grid
(vertically-stacked-grid
@ -126,7 +126,7 @@ (define (run users)
GRID-ELEMENT-SUBGRID listbox-button-grid)
GRID-ELEMENT-SUBGRID (horizontal-stacked-grid
GRID-ELEMENT-COMPONENT ok-button
GRID-ELEMENT-COMPONENT cancel-button)))
GRID-ELEMENT-COMPONENT exit-button)))
(sorted-users (sort users (lambda (a b)
(string<= (user-name a)
(user-name b)))))

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

@ -198,7 +198,7 @@ (define (run-wifi-page)
(make-reflowed-textbox -1 -1 info-text
(info-textbox-width)
#:flags FLAG-BORDER))
(cancel-button (make-button -1 -1 (G_ "Cancel")))
(exit-button (make-button -1 -1 (G_ "Exit")))
(scan-button (make-button -1 -1 (G_ "Scan")))
(services (wifi-services))
(service-items '()))
@ -211,12 +211,12 @@ (define (run-wifi-page)
(set-grid-field middle-grid 1 0 GRID-ELEMENT-COMPONENT scan-button
#:anchor ANCHOR-TOP
#:pad-left 2)
(set-grid-field buttons-grid 0 0 GRID-ELEMENT-COMPONENT cancel-button)
(set-grid-field buttons-grid 0 0 GRID-ELEMENT-COMPONENT exit-button)
(add-components-to-form form
info-textbox
listbox scan-button
cancel-button)
exit-button)
(make-wrapped-grid-window
(basic-window-grid info-textbox middle-grid buttons-grid)
(G_ "Wifi"))
@ -231,7 +231,7 @@ (define (run-wifi-page)
((components=? argument scan-button)
(run-wifi-scan-page)
(run-wifi-page))
((components=? argument cancel-button)
((components=? argument exit-button)
(raise
(condition
(&installer-step-abort))))