mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Prompt Dialog

Browse source
This commit is contained in:
garlic0x1 2024-09-29 21:10:27 -05:00 • committed by David Botton
parent a5c84a6d92
commit a4ef26f6ef
2 changed files with 134 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tutorial/22-tutorial.lisp
View file

@ -142,6 +142,19 @@
(alert-dialog obj results))
:height 550))
(defun on-dlg-prompt (obj)
(flet ((make-completion (selection &key (test #'search))
(lambda (str)
(remove-if-not (alexandria:curry test str) selection))))
(let ((options '("white" "red" "orange" "yellow" "green" "blue"
"indigo" "violet" "brown" "black" "grey")))
(prompt-dialog obj
(lambda (color) (alert-dialog obj color))
:title "Color Prompt"
:completion (make-completion options)
:validation (lambda (str)
(find str options :test #'equal))))))
(defun on-toast-alert (obj)
(alert-toast obj "Stop!" "To get rid of me, click the X. I have no time-out"))
@ -208,6 +221,7 @@
(tmp (create-gui-menu-item dlg :content "Alert Dialog Box" :on-click 'on-dlg-alert))
(tmp (create-gui-menu-item dlg :content "Input Dialog Box" :on-click 'on-dlg-input))
(tmp (create-gui-menu-item dlg :content "Confirm Dialog Box" :on-click 'on-dlg-confirm))
(tmp (create-gui-menu-item dlg :content "Prompt Dialog Box" :on-click 'on-dlg-prompt))
(tmp (create-gui-menu-item dlg :content "Form Dialog Box" :on-click 'on-dlg-form))
(tmp (create-gui-menu-item dlg :content "Server File Dialog Box" :on-click 'on-dlg-file))
(tst (create-gui-menu-drop-down menu :content "Toasts"))