09/20: installer: Make all windows with ports scrollable.

[John Darrington]

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

commit 187293f631f26f0cb86db98f173ca5380a136ffe
Author: John Darrington <address@hidden>
Date:   Sat Jan 7 11:51:10 2017 +0100

    installer: Make all windows with ports scrollable.
    
    * gnu/system/installer/install.scm (install-page-init): Remove scrollok #t
    * gnu/system/installer/utils.scm (make-window-port): Add scrollok! #t
---
 gnu/system/installer/install.scm |    3 ---
 gnu/system/installer/utils.scm   |    6 ++++++
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index 2023d7e..3c04869 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.scm
@@ -153,9 +153,6 @@
                          0))
          )
 
-    ;; There will be a lot of text sent to this window!
-    (scrollok! (inner config-window) #t)
-
     (addstr* text-window
              (gettext
               "Choose \"Continue\" to start installing the system."))
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 5517710..079c264 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -60,6 +60,12 @@
 
 (define (make-window-port win)
   "Return a port which writes to the curses window WIN"
+
+  ;; It is reasonable to assume that windows for which a soft-port
+  ;; exists will have a lot of text sent to them and should therefore
+  ;; be scrollable.
+  (scrollok! win #t)
+
   (make-soft-port
    (vector
     (lambda (c) (addch win c))