diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-05-04 11:43:28 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2019-05-14 18:01:10 +0200 |
| commit | 2bfb3883b98c3a5562eeb8724f4b6be462aea670 (patch) | |
| tree | fb6f2d57babe3445cefb04fad6d9bc215d0c298a /gnu | |
| parent | b7488b321d551277ea5a62c7dfa6d565e6986958 (diff) | |
| download | 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')
| -rw-r--r-- | gnu/installer/newt/page.scm | 7 |
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) |