summary refs log tree commit diff
path: root/gnu/installer/newt/user.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-05 19:50:17 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:25 +0100
commit7d812901daf0259d5d381199168d6d2994ce00ac (patch)
tree4d54612b3f8deae34814708a8d0615b7df1ed809 /gnu/installer/newt/user.scm
parent30cf5e04264e18b2fd0dcc73cbce2ef4324563e1 (diff)
downloadguix-7d812901daf0259d5d381199168d6d2994ce00ac.tar.gz
installer: Turn "Cancel" buttons into "Exit" buttons.
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.
Diffstat (limited to 'gnu/installer/newt/user.scm')
-rw-r--r--gnu/installer/newt/user.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index 8337d628ae..c043f53def 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)))))