01/04: installer: Make "disks" page implementation simpler.

[Danny Milosavljevic]

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

commit f68397a3e7318b3aebb4fe76c8d0f1320b24699b
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 17:42:30 2017 +0200

    installer: Make "disks" page implementation simpler.
    
    * gnu/system/installer/disks.scm (disk-page-refresh): Don't refresh menu
    twice.  Don't refresh buttons twice. Don't modify the list on refresh.
    (disk-page-init): Retrieve volume list here.
---
 gnu/system/installer/disks.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/gnu/system/installer/disks.scm b/gnu/system/installer/disks.scm
index aa4499f..a684358 100644
--- a/gnu/system/installer/disks.scm
+++ b/gnu/system/installer/disks.scm
@@ -48,11 +48,7 @@
           (menu (page-datum page 'menu)))
       (erase text-window)
       (addstr text-window (justify* (gettext "Select a disk to partition (or 
repartition), or choose \"Continue\" to leave the disk(s) unchanged.")
-                                    (getmaxx text-window)))
-      (menu-set-items! menu (volumes))
-      (menu-redraw menu)
-      (menu-refresh menu)
-      (buttons-refresh (page-datum page 'navigation))))
+                                    (getmaxx text-window)))))
 
 (define (disk-page-activate-item page item)
   (match item
@@ -89,6 +85,7 @@
                                   (length (disk-partitions d))))))))
       (push-cursor (page-cursor-visibility p))
       (page-set-datum! p 'text-window text-window)
+      (menu-set-items! menu (volumes))
       (page-set-datum! p 'menu menu)
       (page-set-datum! p 'navigation buttons)
       (menu-post menu menu-window)