guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

08/21: installer: Use consistent window heights.


From: John Darrington
Subject: 08/21: installer: Use consistent window heights.
Date: Sat, 31 Dec 2016 14:54:18 +0000 (UTC)

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

commit 2cf0b9f9e7df820198743a894844ea2b07598d1e
Author: John Darrington <address@hidden>
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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]