aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2019-05-04 11:43:28 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2019-05-14 18:01:10 +0200
commit2bfb3883b98c3a5562eeb8724f4b6be462aea670 (patch)
treefb6f2d57babe3445cefb04fad6d9bc215d0c298a /gnu/installer
parentb7488b321d551277ea5a62c7dfa6d565e6986958 (diff)
downloadguix-2bfb3883b98c3a5562eeb8724f4b6be462aea670.tar
guix-2bfb3883b98c3a5562eeb8724f4b6be462aea670.tar.gz
installer: Reflow run-file-textbox-page text.
* gnu/installer/newt/page.scm (run-file-textbox-page): Reflow text. Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/page.scm7
1 files changed, 6 insertions, 1 deletions
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 @@ 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)