jmd pushed a commit to branch wip-installer
in repository guix.
commit 73d12a77653a74c6ed07ee03a9a10e99a24bb419
Author: John Darrington <[email protected]>
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))))))))
