diff --git a/run.scm b/run.scm index 77cc291..6da5eb4 100644 --- a/run.scm +++ b/run.scm @@ -67,41 +67,38 @@ (nixo (format #f "You chose: ~a\n" (menu - '(("Select me!") - ("Or me!") - ("No, select me!")) - #:prototype radio-button))) + (("Select me!") + ("Or me!") + ("No, select me!")) + #:prototype ,radio-button))) (nixo "Choose as many as you want!") (nixo (format #f "You chose ~a\n" - (menu '(("A" 0) - ("B" 1) - ("C" 2)) - #:prototype checkbox-button - #:seed '() #:pressed cons))) + (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 - #:seed '() #:pressed cons))) + (menu (("A" 0 (pressed)) + ("B" 1 (selected)) + ("C" 2 (pressed))) + #:prototype ,checkbox-button + #:seed () #:pressed ,cons))) (nixo "Click it!") (nixo (format #f "You chose the element number: ~a\n" - (menu - '("Yes" "Maybe" "No way")))) + (menu ("Yes" "Maybe" "No way")))) (nixo "Click it again!") (nixo (format #f "You chose the element: ~a\n" - (menu - '(("Yes") ("Maybe") ("No way"))))) - (nixo "Once more!") + (menu (("Yes") ("Maybe") ("No way"))))) + ;; (nixo "Once more!" #f eol) (nixo (format #f "You chose the element: ~a\n" - (menu - '(("Yes" . yep) ("Maybe" . maybe) ("No way" . nope))))) + (menu (("Yes" yep) ("Maybe" maybe) ("No way" nope))))) *unspecified*)) scene) (init-menu! #s32(100 100) #s32(0 50) simple-button #:scene scene)