[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: installer: Refresh the correct page (also when it switched out).
|
From: |
Danny Milosavljevic |
|
Subject: |
01/03: installer: Refresh the correct page (also when it switched out). |
|
Date: |
Wed, 5 Jul 2017 05:08:52 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit a79cd9f71e5fb90b5877c1f84e3e1b4ed567e8f5
Author: Danny Milosavljevic <address@hidden>
Date: Wed Jul 5 11:01:58 2017 +0200
installer: Refresh the correct page (also when it switched out).
* gnu/system/installer/guixsd-installer.scm (guixsd-installer): Modify.
---
gnu/system/installer/guixsd-installer.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/guixsd-installer.scm
b/gnu/system/installer/guixsd-installer.scm
index 40a3993..8ad9a05 100644
--- a/gnu/system/installer/guixsd-installer.scm
+++ b/gnu/system/installer/guixsd-installer.scm
@@ -328,7 +328,8 @@
(when (eq? ret 'cancelled)
(page-ppop))
(base-page-key-handler current-page ch)))
- ((page-refresh current-page) current-page))
+ (let ((current-page (page-top))) ; Not necessarily the same.
+ ((page-refresh current-page) current-page)))
(loop (getch stdscr)))
(endwin)))