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