From 2bfb3883b98c3a5562eeb8724f4b6be462aea670 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sat, 4 May 2019 11:43:28 +0200 Subject: installer: Reflow run-file-textbox-page text. * gnu/installer/newt/page.scm (run-file-textbox-page): Reflow text. Signed-off-by: Danny Milosavljevic --- gnu/installer/newt/page.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gnu/installer/newt') diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm index 6291549eb0..728721c08f 100644 --- a/gnu/installer/newt/page.scm +++ b/gnu/installer/newt/page.scm @@ -576,7 +576,12 @@ (define* (run-file-textbox-page #:key '()))))) (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) -- cgit v1.2.3