jmd pushed a commit to branch wip-installer in repository guix. commit 187293f631f26f0cb86db98f173ca5380a136ffe Author: John Darrington <j...@gnu.org> 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))