mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Error page width is parameterized.

Browse source 
* gnu/installer/newt/page.scm (run-error-page): Add #:width and honor
it.
This commit is contained in:
Ludovic Courtès 2022-11-03 18:00:52 +01:00
parent 938d6161cb
commit 6b39c3afcc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/installer/newt/page.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -278,12 +278,12 @@ input box, such as FLAG-PASSWORD."
(destroy-form-and-pop form) (destroy-form-and-pop form)
input)))))))) input))))))))
(define (run-error-page text title) (define* (run-error-page text title #:key (width 40))
"Run a page to inform the user of an error. The page contains the given TEXT "Run a page to inform the user of an error. The page is WIDTH column wide
to explain the error and an \"OK\" button to acknowledge the error. The title and contains the given TEXT to explain the error and an \"OK\" button to
of the page is set to TITLE." acknowledge the error. The title of the page is set to TITLE."
(let* ((text-box (let* ((text-box
(make-reflowed-textbox -1 -1 text 40 (make-reflowed-textbox -1 -1 text width
#:flags FLAG-BORDER)) #:flags FLAG-BORDER))
(grid (make-grid 1 2)) (grid (make-grid 1 2))
(ok-button (make-button -1 -1 "OK")) (ok-button (make-button -1 -1 "OK"))