126/197: installer: mount-points page: Enlarge the forms window.

[Danny Milosavljevic]

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

commit f95fca58888023d8d1932651c009bc1a6018a057
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))