[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
39/67: installer: Turn "Cancel" buttons into "Exit" buttons.
|
From: |
guix-commits |
|
Subject: |
39/67: installer: Turn "Cancel" buttons into "Exit" buttons. |
|
Date: |
Wed, 16 Jan 2019 19:00:41 -0500 (EST) |
civodul pushed a commit to branch wip-newt-installer
in repository guix.
commit eb170eb45c0e53c1f056318c9b7cb6700d3cf5a9
Author: Mathieu Othacehe <address@hidden>
Date: Wed Dec 5 19:50:17 2018 +0900
installer: Turn "Cancel" buttons into "Exit" buttons.
This change and previous ones were,
Suggested-by: Thorsten Wilms <address@hidden>
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.
---
gnu/installer/newt/ethernet.scm | 2 +-
gnu/installer/newt/final.scm | 2 +-
gnu/installer/newt/keymap.scm | 2 +-
gnu/installer/newt/locale.scm | 2 +-
gnu/installer/newt/network.scm | 2 +-
gnu/installer/newt/page.scm | 24 ++++++++++++------------
gnu/installer/newt/partition.scm | 34 +++++++++++++++++-----------------
gnu/installer/newt/services.scm | 2 +-
gnu/installer/newt/timezone.scm | 2 +-
gnu/installer/newt/user.scm | 4 ++--
gnu/installer/newt/wifi.scm | 8 ++++----
11 files changed, 42 insertions(+), 42 deletions(-)
diff --git a/gnu/installer/newt/ethernet.scm b/gnu/installer/newt/ethernet.scm
index 2b02653..d1f3572 100644
--- a/gnu/installer/newt/ethernet.scm
+++ b/gnu/installer/newt/ethernet.scm
@@ -72,7 +72,7 @@ connection is pending."
#: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
diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm
index 023777c..81af949 100644
--- a/gnu/installer/newt/final.scm
+++ b/gnu/installer/newt/final.scm
@@ -42,7 +42,7 @@ new system will be created from this file when pression the
Ok button.")
#:info-textbox-width width
#:file-textbox-width width
#:file-textbox-height height
- #:cancel-button-callback-procedure
+ #:exit-button-callback-procedure
(lambda ()
(raise
(condition
diff --git a/gnu/installer/newt/keymap.scm b/gnu/installer/newt/keymap.scm
index 4bdae51..9178a43 100644
--- a/gnu/installer/newt/keymap.scm
+++ b/gnu/installer/newt/keymap.scm
@@ -35,7 +35,7 @@
#: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
diff --git a/gnu/installer/newt/locale.scm b/gnu/installer/newt/locale.scm
index 4de78f3..4fa07df 100644
--- a/gnu/installer/newt/locale.scm
+++ b/gnu/installer/newt/locale.scm
@@ -45,7 +45,7 @@ installed system.")
#: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
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm
index 4912959..ee6af06 100644
--- a/gnu/installer/newt/network.scm
+++ b/gnu/installer/newt/network.scm
@@ -59,7 +59,7 @@ Internet and return the selected technology. For now, only
technologies with
#: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
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 10849b8..98cbbb9 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -404,12 +404,12 @@ error is raised if the MAX-SCALE-UPDATE limit is reached."
(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 @@ INFO-TEXTBOX-WIDTH is the width of the textbox where
INFO-TEXT will be
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 @@ ITEMS when 'Ok' is pressed."
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 @@ ITEMS when 'Ok' is pressed."
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 @@ ITEMS when 'Ok' is pressed."
(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 @@ ITEMS when 'Ok' is pressed."
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 @@ ITEMS when 'Ok' is pressed."
(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))))))
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 806337a..1d5e453 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -32,7 +32,7 @@
#: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 @@
#: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 @@ DEVICES list."
#: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 @@ Be careful, all data on the disk will be lost.")
#: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 @@ Be careful, all data on the disk will be lost.")
#: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 @@ Be careful, all data on the disk will be lost.")
#: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 @@ edit it."
path))
(result (choice-window (G_ "Delete disk")
(G_ "Ok")
- (G_ "Cancel")
+ (G_ "Exit")
info-text)))
(case result
((1)
@@ -584,7 +584,7 @@ edit it."
number-str))
(result (choice-window (G_ "Delete partition")
(G_ "Ok")
- (G_ "Cancel")
+ (G_ "Exit")
info-text)))
(case result
((1)
@@ -616,8 +616,8 @@ At least one partition must have its mounting point set to
'/'.")
#: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 @@ At least one partition must have its mounting point set to
'/'.")
#: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 @@ At least one partition must have its mounting point set to
'/'.")
(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)))
diff --git a/gnu/installer/newt/services.scm b/gnu/installer/newt/services.scm
index 80fac43..6bcb624 100644
--- a/gnu/installer/newt/services.scm
+++ b/gnu/installer/newt/services.scm
@@ -38,7 +38,7 @@ choose the one to use on the log-in screen with F1.")
#:items %desktop-environments
#:item->text desktop-environment-name
#:checkbox-tree-height 5
- #:cancel-button-callback-procedure
+ #:exit-button-callback-procedure
(lambda ()
(raise
(condition
diff --git a/gnu/installer/newt/timezone.scm b/gnu/installer/newt/timezone.scm
index 874f4a0..6c96ee5 100644
--- a/gnu/installer/newt/timezone.scm
+++ b/gnu/installer/newt/timezone.scm
@@ -60,7 +60,7 @@ returned."
#:listbox-items timezones
#:listbox-item->text identity
#:button-text (if (null? path)
- (G_ "Cancel")
+ (G_ "Exit")
(G_ "Back"))
#:button-callback-procedure
(if (null? path)
diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index 8337d62..c043f53 100644
--- a/gnu/installer/newt/user.scm
+++ b/gnu/installer/newt/user.scm
@@ -116,7 +116,7 @@
'()
(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 @@
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)))))
diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm
index de44334..c744e82 100644
--- a/gnu/installer/newt/wifi.scm
+++ b/gnu/installer/newt/wifi.scm
@@ -198,7 +198,7 @@ force a wifi scan."
(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 @@ force a wifi scan."
(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 @@ force a wifi scan."
((components=? argument scan-button)
(run-wifi-scan-page)
(run-wifi-page))
- ((components=? argument cancel-button)
+ ((components=? argument exit-button)
(raise
(condition
(&installer-step-abort))))
- 40/67: installer: keymap: Do not fail on non-kmscon terminals., (continued)
- 40/67: installer: keymap: Do not fail on non-kmscon terminals., guix-commits, 2019/01/16
- 45/67: installer: Make exit button optional for run-file-textbox-page., guix-commits, 2019/01/16
- 43/67: installer: partition: Differenciate Back button from Exit button., guix-commits, 2019/01/16
- 48/67: installer: menu: Fix typo., guix-commits, 2019/01/16
- 52/67: installer: Clear screen upon exit., guix-commits, 2019/01/16
- 44/67: installer: Make sure every sentence is dot terminated., guix-commits, 2019/01/16
- 47/67: installer: partition: Precise when using Manual/Guided partionment., guix-commits, 2019/01/16
- 65/67: installer: Adjust messages on the final page., guix-commits, 2019/01/16
- 66/67: installer: "formating" → "formatting"., guix-commits, 2019/01/16
- 12/67: installer: Move everything to the build side., guix-commits, 2019/01/16
- 39/67: installer: Turn "Cancel" buttons into "Exit" buttons.,
guix-commits <=
- 23/67: installer: Do not ask for keyboard model., guix-commits, 2019/01/16
- 62/67: installer: partition: Add encryption password confirmation., guix-commits, 2019/01/16
- 60/67: installer: Remove debug popup., guix-commits, 2019/01/16
- 54/67: installer: parted: Use read-luks-partition-uuid instead of find-partition-by-luks-uuid., guix-commits, 2019/01/16
- 59/67: installer: welcome: Put "Graphical installer" ahead., guix-commits, 2019/01/16
- 55/67: installer: Various renamings., guix-commits, 2019/01/16
- 64/67: syscalls: 'device-in-use?' returns #f upon EINVAL., guix-commits, 2019/01/16
- 42/67: installer: network: Do not show an empty technology list., guix-commits, 2019/01/16
- 41/67: installer: keymap: Fix keymap selection of layouts with not variant., guix-commits, 2019/01/16
- 58/67: installer: Rename "Ok" buttons to "OK"., guix-commits, 2019/01/16