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

remove selected and use new menu syntax

This commit is contained in:
nixo 2021-01-10 12:08:44 +01:00
parent 35598805e7
commit a8c40d196c
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
run.scm
View File

@ -67,32 +67,41 @@
(nixo (nixo
(format #f "You chose: ~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 "Choose as many as you want!") (nixo "Choose as many as you want!")
(nixo (nixo
(format #f "You chose ~a\n" (format #f "You chose ~a\n"
(menu '(("A") ("B") ("C")) (menu '(("A" 0)
("B" 1)
("C" 2))
#:prototype checkbox-button
#:seed '() #:pressed cons)))
(nixo "Choose as many as you want!")
(nixo
(format #f "You chose ~a\n"
(menu '(("A" 0 (pressed))
("B" 1 (selected))
("C" 2 (pressed)))
#:prototype checkbox-button #:prototype checkbox-button
#:seed '() #:pressed cons))) #:seed '() #:pressed cons)))
(nixo "Click it!") (nixo "Click it!")
(nixo (nixo
(format #f "You chose the element number: ~a\n" (format #f "You chose the element number: ~a\n"
(menu (menu
'("Yes" "Maybe" "No way") '("Yes" "Maybe" "No way"))))
#:selection 1)))
(nixo "Click it again!") (nixo "Click it again!")
(nixo (nixo
(format #f "You chose the element: ~a\n" (format #f "You chose the element: ~a\n"
(menu (menu
'(("Yes") ("Maybe") ("No way")) '(("Yes") ("Maybe") ("No way")))))
#:selection 0)))
(nixo "Once more!") (nixo "Once more!")
(nixo (nixo
(format #f "You chose 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)))))
#:selection 2)))
*unspecified*)) *unspecified*))
scene) scene)
(init-menu! #s32(100 100) #s32(0 50) simple-button #:scene scene) (init-menu! #s32(100 100) #s32(0 50) simple-button #:scene scene)