22/26: installer: mount-points page: Enlarge the forms window.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 62de7022d97c915b162adb8e57927f5058efd5ed
Author: John Darrington <address@hidden>
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))