From 35598805e7adeab56970db2b5b55e3963894b3a7 Mon Sep 17 00:00:00 2001 From: nixo Date: Sat, 9 Jan 2021 14:10:52 +0100 Subject: [PATCH] show #:selection example --- run.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/run.scm b/run.scm index dc12be4..9bc1dc1 100644 --- a/run.scm +++ b/run.scm @@ -79,17 +79,20 @@ (nixo (format #f "You chose the element number: ~a\n" (menu - '("Yes" "Maybe" "No way")))) + '("Yes" "Maybe" "No way") + #:selection 1))) (nixo "Click it again!") (nixo (format #f "You chose the element: ~a\n" (menu - '(("Yes") ("Maybe") ("No way"))))) + '(("Yes") ("Maybe") ("No way")) + #:selection 0))) (nixo "Once more!") (nixo (format #f "You chose the element: ~a\n" (menu - '(("Yes" . yep) ("Maybe" . maybe) ("No way" . nope))))) + '(("Yes" . yep) ("Maybe" . maybe) ("No way" . nope)) + #:selection 2))) *unspecified*)) scene) (init-menu! #s32(100 100) #s32(0 50) simple-button #:scene scene)