123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- (define-module (gnu installer newt menu)
- #:use-module (gnu installer steps)
- #:use-module (gnu installer newt page)
- #:use-module (guix i18n)
- #:use-module (newt)
- #:export (run-menu-page))
- (define (run-menu-page steps)
- "Run a menu page, asking the user to select where to resume the install
- process from."
- (define (steps->items steps)
- (filter (lambda (step)
- (installer-step-description step))
- steps))
- (run-listbox-selection-page
- #:info-text (G_ "Choose where you want to resume the install. \
- You can also abort the installation by pressing the Abort button.")
- #:title (G_ "Installation menu")
- #:listbox-items (steps->items steps)
- #:listbox-item->text installer-step-description
- #:sort-listbox-items? #f
- #:button-text (G_ "Abort")
- #:button-callback-procedure (lambda ()
- (newt-finish)
- (primitive-exit 1))))
|