nixo
/
tsukundere-menu-exmaple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
run.scm
View File

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