aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer/newt/wifi.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-11-06 10:59:54 +0100
committerMathieu Othacehe <othacehe@gnu.org>2020-11-07 13:19:25 +0100
commit8338d414b361e4fb961221642c1064e9dc89ba65 (patch)
treef1ac1d12c647617446d00a50ce2afed70a5c9dc1 /gnu/installer/newt/wifi.scm
parent07239f39db9bce48b938afe210ab20d87f431791 (diff)
downloadguix-8338d414b361e4fb961221642c1064e9dc89ba65.tar
guix-8338d414b361e4fb961221642c1064e9dc89ba65.tar.gz
installer: Limit listbox height.
Fixes: <https://issues.guix.gnu.org/44428>. * gnu/installer/newt.scm (init): Print screen size. * gnu/installer/newt/page.scm (default-listbox-height): New variable. (run-listbox-selection-page): Use it. * gnu/installer/newt/wifi.scm (wifi-listbox-height): Ditto. * gnu/installer/newt/network.scm (run-technology-page): Set the maximum listbox height to 5. * gnu/installer/newt/ethernet.scm (run-ethernet-page): Ditto. * gnu/installer/newt/final.scm (run-config-display-page): Change listbox height. * gnu/installer/newt/partition.scm (run-disk-page): Ditto. * gnu/installer/newt/welcome.scm (display-logo?): New procedure. (run-menu-page): Use it. * gnu/installer/steps.scm (%configuration-file-width): Remove it.
Diffstat (limited to 'gnu/installer/newt/wifi.scm')
-rw-r--r--gnu/installer/newt/wifi.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm
index 3fd5756b99..f5d8f1fdbf 100644
--- a/gnu/installer/newt/wifi.scm
+++ b/gnu/installer/newt/wifi.scm
@@ -165,7 +165,8 @@ of <service-item> records present in LISTBOX."
(define service-name-max-length (make-parameter 20))
;; Height of the listbox displaying wifi services.
-(define wifi-listbox-height (make-parameter 20))
+(define wifi-listbox-height (make-parameter
+ (default-listbox-height)))
;; Information textbox width.
(define info-textbox-width (make-parameter 40))