dannym pushed a commit to branch master
in repository guix.
commit 2bfb3883b98c3a5562eeb8724f4b6be462aea670
Author: Mathieu Othacehe <[email protected]>
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 <[email protected]>
---
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)
