fix chose/choose, replace selected with chose
This commit is contained in:
parent
9d226c008b
commit
4bc8940399
14
run.scm
14
run.scm
|
@ -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*))
|
||||
|
|
Loading…
Reference in New Issue