09/26: installer: Explicitly set the #:panel parameter for window creation procedures.

[John Darrington]

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

commit 73d12a77653a74c6ed07ee03a9a10e99a24bb419
Author: John Darrington <address@hidden>
Date:   Wed Jan 18 08:25:59 2017 +0100

    installer: Explicitly set the #:panel parameter for window creation 
procedures.
    
    * gnu/system/installer/filesystems.scm,
     gnu/system/installer/guixsd-installer.scm,
     gnu/system/installer/hostname.scm,
     gnu/system/installer/mount-point.scm,
     gnu/system/installer/passphrase.scm,
     gurses/buttons.scm: Explicitly set all calls of derwin, newwin and subwin
    to #:panel #f
---
 gnu/system/installer/filesystems.scm      |    2 +-
 gnu/system/installer/guixsd-installer.scm |    2 +-
 gnu/system/installer/hostname.scm         |    4 ++--
 gnu/system/installer/mount-point.scm      |    4 ++--
 gnu/system/installer/passphrase.scm       |    4 ++--
 gurses/buttons.scm                        |    2 +-
 6 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/gnu/system/installer/filesystems.scm 
b/gnu/system/installer/filesystems.scm
index fee17c0..c7ff029 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -253,7 +253,7 @@
                                  #:title (page-title p)))
 
         (text-window (derwin (inner pr) 3 (getmaxx (inner pr))
-                             0 0))
+                             0 0 #:panel #f))
 
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
diff --git a/gnu/system/installer/guixsd-installer.scm 
b/gnu/system/installer/guixsd-installer.scm
index 0d5c320..8bdb575 100644
--- a/gnu/system/installer/guixsd-installer.scm
+++ b/gnu/system/installer/guixsd-installer.scm
@@ -226,7 +226,7 @@ tail of the list."
 
 
         (text-window (derwin background 4 (getmaxx background)
-                             0 0))
+                             0 0 #:panel #f))
 
          (win (derwin background (- (getmaxy background) (getmaxy text-window) 
3)
                       (- (getmaxx background) 2) (getmaxy text-window) 1 
#:panel #f))
diff --git a/gnu/system/installer/hostname.scm 
b/gnu/system/installer/hostname.scm
index d1bd71e..33b4194 100644
--- a/gnu/system/installer/hostname.scm
+++ b/gnu/system/installer/hostname.scm
@@ -126,7 +126,7 @@
              #:title (page-title p)))
        
         (text-window (derwin (inner pr) 5 (getmaxx (inner pr))
-                             0 0))
+                             0 0 #:panel #f))
        
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
@@ -138,7 +138,7 @@
         (fw (derwin (inner pr)
                     2
                     (getmaxx (inner pr))
-                    (getmaxy text-window) 0))
+                    (getmaxy text-window) 0 #:panel #f))
 
 
         (form (make-form my-fields)))
diff --git a/gnu/system/installer/mount-point.scm 
b/gnu/system/installer/mount-point.scm
index daebc71..aeb8c51 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -101,7 +101,7 @@
              #:title (page-title p)))
        
         (text-window (derwin (inner pr) 3 (getmaxx (inner pr))
-                             0 0))
+                             0 0 #:panel #f))
        
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
@@ -113,7 +113,7 @@
         (fw (derwin (inner pr)
                     (length my-fields)
                     (getmaxx (inner pr))
-                    (getmaxy text-window) 0))
+                    (getmaxy text-window) 0 #:panel #f))
 
 
         (form (make-form
diff --git a/gnu/system/installer/passphrase.scm 
b/gnu/system/installer/passphrase.scm
index 732d737..a633585 100644
--- a/gnu/system/installer/passphrase.scm
+++ b/gnu/system/installer/passphrase.scm
@@ -108,7 +108,7 @@
               #:title (page-title p)))
 
          (text-window (derwin (inner pr) 5 (getmaxx (inner pr))
-                              0 0))
+                              0 0 #:panel #f))
 
          (bwin (derwin (inner pr)
                        3 (getmaxx (inner pr))
@@ -120,7 +120,7 @@
          (fw (derwin (inner pr)
                      2
                      (getmaxx (inner pr))
-                     (getmaxy text-window) 0))
+                     (getmaxy text-window) 0 #:panel #f))
 
 
          (form (make-form my-fields)))
diff --git a/gurses/buttons.scm b/gurses/buttons.scm
index 49853d6..eaa7e31 100644
--- a/gurses/buttons.scm
+++ b/gurses/buttons.scm
@@ -147,7 +147,7 @@
                 (width (+ (length label) 2))
                 (w (derwin win 3 width 0
                            (round (- (* (1+ i) (/ (getmaxx win) (1+ n)))
-                                     (/ width 2))))))
+                                     (/ width 2))) #:panel #f)))
            (box w   0 0)
            (addchstr w label #:y 1 #:x 1)
            (loop (cdr bl) (1+ i) (acons mark (list w key) alist))))))))