03/05: installer: Reflow run-file-textbox-page text.

[guix-commits]

dannym pushed a commit to branch master
in repository guix.

commit 2bfb3883b98c3a5562eeb8724f4b6be462aea670
Author: Mathieu Othacehe <address@hidden>
Date:   Sat May 4 11:43:28 2019 +0200

    installer: Reflow run-file-textbox-page text.
    
    * gnu/installer/newt/page.scm (run-file-textbox-page): Reflow text.
    
    Signed-off-by: Danny Milosavljevic <address@hidden>
---
 gnu/installer/newt/page.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 6291549..728721c 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -576,7 +576,12 @@ ITEMS when 'Ok' is pressed."
                          '())))))
          (form (make-form)))
 
-    (set-textbox-text file-textbox file-text)
+    (set-textbox-text file-textbox
+                      (receive (_w _h text)
+                          (reflow-text file-text
+                                       file-textbox-width
+                                       0 0)
+                        text))
     (add-form-to-grid grid form #t)
     (make-wrapped-grid-window grid title)