jmd pushed a commit to branch wip-installer
in repository guix.
commit 62de7022d97c915b162adb8e57927f5058efd5ed
Author: John Darrington <[email protected]>
Date: Fri Jan 20 08:31:53 2017 +0100
installer: mount-points page: Enlarge the forms window.
* gnu/system/installer/mount-point.scm (mount-point-page-init): Make
the window containing the form cover as much space as possible.
---
gnu/system/installer/mount-point.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/mount-point.scm
b/gnu/system/installer/mount-point.scm
index fe060a1..b7a1876 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -112,7 +112,10 @@
(nav (make-buttons my-buttons 1))
(fw (derwin (inner pr)
- (length my-fields)
+ (-
+ (getmaxy (inner pr))
+ (getmaxy text-window)
+ (getmaxy bwin))
(getmaxx (inner pr))
(getmaxy text-window) 0 #:panel #f))
