fix chose/choose, replace selected with chose

This commit is contained in:
nixo 2021-01-07 18:44:29 +01:00
parent 9d226c008b
commit 4bc8940399
1 changed files with 7 additions and 7 deletions

14
run.scm
View File

@ -59,31 +59,31 @@
(begin
(background paper)
(nixo "This is not an exam!"))
(nixo "Chose one and press enter!")
(nixo "Choose one and press enter!")
(nixo
(format #f "You choose: ~a\n"
(format #f "You chose: ~a\n"
(menu
'("Select me!" "Or me!" "No, select me!")
#:prototype radio-button)))
(nixo "Chose as many as you want!")
(nixo "Choose as many as you want!")
(nixo
(format #f "You selected: ~a\n"
(format #f "You chose ~a\n"
(menu '(("A") ("B") ("C"))
#:prototype checkbox-button
#:seed '() #:pressed cons)))
(nixo "Click it!")
(nixo
(format #f "You selected the element number: ~a\n"
(format #f "You chose the element number: ~a\n"
(menu
'("Yes" "Maybe" "No way"))))
(nixo "Click it again!")
(nixo
(format #f "You selected the element: ~a\n"
(format #f "You chose the element: ~a\n"
(menu
'(("Yes") ("Maybe") ("No way")))))
(nixo "Once more!")
(nixo
(format #f "You selected the element: ~a\n"
(format #f "You chose the element: ~a\n"
(menu
'(("Yes" . yep) ("Maybe" . maybe) ("No way" . nope)))))
*unspecified*))