dannym pushed a commit to branch wip-installer-2
in repository guix.
commit b5fab01fac3f2dd56c8401838bcc414c5b4ee2df
Author: John Darrington <[email protected]>
Date: Wed Dec 28 12:06:51 2016 +0100
installer: Use consistent window heights.
* gnu/system/installer/configure.scm: Adjust height of window.
* gnu/system/installer/install.scm: Adjust height of window.
* gnu/system/installer/network.scm: Adjust height of window.
* gnu/system/installer/ping.scm: Adjust height of window.
* gnu/system/installer/time-zone.scm: Adjust height of window.
* gnu/system/installer/wireless.scm: Adjust height of window.
---
gnu/system/installer/configure.scm | 2 +-
gnu/system/installer/install.scm | 2 +-
gnu/system/installer/network.scm | 2 +-
gnu/system/installer/ping.scm | 2 +-
gnu/system/installer/time-zone.scm | 2 +-
gnu/system/installer/wireless.scm | 2 +-
6 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/gnu/system/installer/configure.scm
b/gnu/system/installer/configure.scm
index 1013116..20b766b 100644
--- a/gnu/system/installer/configure.scm
+++ b/gnu/system/installer/configure.scm
@@ -157,7 +157,7 @@
(define (configure-page-init p)
(let* ((s (page-surface p))
(pr (make-boxed-window #f
- (- (getmaxy s) 3) (- (getmaxx s) 2)
+ (- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index 108ff5b..8521b30 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.scm
@@ -129,7 +129,7 @@
(define (install-page-init p)
(let* ((s (page-surface p))
(pr (make-boxed-window #f
- (- (getmaxy s) 3) (- (getmaxx s) 2)
+ (- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
(text-window (derwin
diff --git a/gnu/system/installer/network.scm b/gnu/system/installer/network.scm
index 6b954d9..d26ca1e 100644
--- a/gnu/system/installer/network.scm
+++ b/gnu/system/installer/network.scm
@@ -134,7 +134,7 @@
(define (network-page-init p)
(let* ((s (page-surface p))
(pr (make-boxed-window #f
- (- (getmaxy s) 3) (- (getmaxx s) 2)
+ (- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
(text-window (derwin
diff --git a/gnu/system/installer/ping.scm b/gnu/system/installer/ping.scm
index 2adee6f..7b8db35 100644
--- a/gnu/system/installer/ping.scm
+++ b/gnu/system/installer/ping.scm
@@ -87,7 +87,7 @@
(define (ping-page-init p)
(let* ((s (page-surface p))
(frame (make-boxed-window #f
- (- (getmaxy s) 5) (- (getmaxx s) 2)
+ (- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
(button-window (derwin (inner frame)
diff --git a/gnu/system/installer/time-zone.scm
b/gnu/system/installer/time-zone.scm
index c7e6d08..3a31a45 100644
--- a/gnu/system/installer/time-zone.scm
+++ b/gnu/system/installer/time-zone.scm
@@ -99,7 +99,7 @@
(define (file-browser-page-init p)
(let* ((s (page-surface p))
(frame (make-boxed-window #f
- (- (getmaxy s) 5) (- (getmaxx s) 2)
+ (- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
(button-window (derwin (inner frame)
diff --git a/gnu/system/installer/wireless.scm
b/gnu/system/installer/wireless.scm
index 5e04acf..d0bfce7 100644
--- a/gnu/system/installer/wireless.scm
+++ b/gnu/system/installer/wireless.scm
@@ -111,7 +111,7 @@ network={
(define (essid-page-init p)
(let* ((s (page-surface p))
(pr (make-boxed-window #f
- (- (getmaxy s) 3) (- (getmaxx s) 2)
+ (- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
(text-window (derwin
