installer: Add missing translations.

* gnu/installer/newt.scm (newt-run-command): Wrap strings with G_.
* gnu/installer/newt/page.scm (run-dump-page): idem.

Change-Id: I36060459b15af9e23b3b786acf8c25ff2469a239

2 files changed, 8 insertions, 8 deletions

diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm
index 521668a3b25..10aea05f428 100644
--- a/gnu/installer/newt.scm
+++ b/gnu/installer/newt.scm
@@ -143,11 +143,11 @@ report it by email to ~a.") uploaded-name %guix-bug-report-address)
                           #:content command-output
                           #:buttons-spec
                           (list
-                           (cons "Ignore" (const #t))
-                           (cons "Abort"
+                           (cons (G_ "Ignore") (const #t))
+                           (cons (G_ "Abort")
                                  (lambda ()
                                    (abort-to-prompt 'installer-step 'abort)))
-                           (cons "Report"
+                           (cons (G_ "Report")
                                  (lambda ()
                                    (raise
                                     (condition
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 64a29168263..c4414fc97ab 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -904,14 +904,14 @@ component ~a." argument))))))))
 
 (define* (run-dump-page base-dir file-choices)
   (define info-textbox
-    (make-reflowed-textbox -1 -1 "Please select files you wish to include in \
-the dump."
+    (make-reflowed-textbox -1 -1 (G_ "Please select files you wish to include in \
+the dump.")
                            50
                            #:flags FLAG-BORDER))
   (define components
     (map (match-lambda ((file . enabled)
                         (list
-                         (make-compact-button -1 -1 "Edit")
+                         (make-compact-button -1 -1 (G_ "Edit"))
                          (make-checkbox -1 -1 file (if enabled #\x #\ ) " x")
                          file)))
          file-choices))
@@ -932,12 +932,12 @@ the dump."
     (vertically-stacked-grid
      GRID-ELEMENT-COMPONENT info-textbox
      GRID-ELEMENT-SUBGRID sub-grid
-     GRID-ELEMENT-COMPONENT (make-button -1 -1 "Create")))
+     GRID-ELEMENT-COMPONENT (make-button -1 -1 (G_ "Create"))))
 
   (define form (make-form #:flags FLAG-NOF12))
 
   (add-form-to-grid grid form #t)
-  (make-wrapped-grid-window grid "Installer dump")
+  (make-wrapped-grid-window grid (G_ "Installer dump"))
 
   (define prompt-tag (make-prompt-tag))