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

Add popup examples to tutorial 22

Browse source
This commit is contained in:
David Botton 2024-03-10 10:40:00 -04:00
parent 3aaee11ebf
commit 69e59e6a6e
2 changed files with 24 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
tutorial/22-tutorial.lisp
View file

@ -49,6 +49,24 @@
:height 200))) :height 200)))
(create-div win :content "I can be pinned. Just click the pin on window bar."))) (create-div win :content "I can be pinned. Just click the pin on window bar.")))
(defun on-file-pop-tab (obj)
(let ((pop (open-clog-popup obj)))
(cond (pop ; pop is the body of the new browser tab/window
(clog-gui-initialize pop)
(add-class pop "w3-cyan")
(create-div pop :content "I am a popup browser tab"))
(t
(alert-toast obj "Popup failure" "Unable to open popup tab")))))
(defun on-file-pop-win (obj)
(let ((pop (open-clog-popup obj :specs "width=320,height=320")))
(cond (pop ; pop is the body of the new browser tab/window
(clog-gui-initialize pop )
(add-class pop "w3-cyan")
(create-div pop :content "I am a popup window when the browser allows it otherwise a tab"))
(t
(alert-toast obj "Popup failure" "Unable to open popup tab")))))
(defun on-dlg-alert (obj) (defun on-dlg-alert (obj)
(alert-dialog obj "This is a modal alert box")) (alert-dialog obj "This is a modal alert box"))
@ -131,6 +149,7 @@
;; For web oriented apps consider using the :client-movement option. ;; For web oriented apps consider using the :client-movement option.
;; See clog-gui-window documentation. ;; See clog-gui-window documentation.
(clog-gui-initialize body) (clog-gui-initialize body)
(enable-clog-popup) ; To allow browser popups
(add-class body "w3-cyan") (add-class body "w3-cyan")
(let* ((menu (create-gui-menu-bar body)) (let* ((menu (create-gui-menu-bar body))
(tmp (create-gui-menu-icon menu :on-click 'on-help-about)) (tmp (create-gui-menu-icon menu :on-click 'on-help-about))
@ -140,6 +159,8 @@
(tmp (create-gui-menu-item file :content "Drawing" :on-click 'on-file-drawing)) (tmp (create-gui-menu-item file :content "Drawing" :on-click 'on-file-drawing))
(tmp (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies)) (tmp (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies))
(tmp (create-gui-menu-item file :content "Pinned" :on-click 'on-file-pinned)) (tmp (create-gui-menu-item file :content "Pinned" :on-click 'on-file-pinned))
(tmp (create-gui-menu-item file :content "Popup Browser Tab" :on-click 'on-file-pop-tab))
(tmp (create-gui-menu-item file :content "Popup Browser Window" :on-click 'on-file-pop-win))
(win (create-gui-menu-drop-down menu :content "Window")) (win (create-gui-menu-drop-down menu :content "Window"))
(tmp (create-gui-menu-item win :content "Maximize" :on-click 'on-maximize-window)) (tmp (create-gui-menu-item win :content "Maximize" :on-click 'on-maximize-window))
(tmp (create-gui-menu-item win :content "Normalize" :on-click 'on-normalize-window)) (tmp (create-gui-menu-item win :content "Normalize" :on-click 'on-normalize-window))

2
tutorial/README.md vendored
View file

@ -47,7 +47,7 @@ Tutorial Summary
- 19-tutorial.lisp - Using JavaScript components - 19-tutorial.lisp - Using JavaScript components
- 20-tutorial.lisp - New CLOG plugin from JavaScript component - 20-tutorial.lisp - New CLOG plugin from JavaScript component
- 21-tutorial.lisp - New CLOG plugin in Common-Lisp - 21-tutorial.lisp - New CLOG plugin in Common-Lisp
- 22-tutorial.lisp - CLOG GUI Menus and Desktop Look and Feel - 22-tutorial.lisp - CLOG GUI Menus and Desktop Look and Feel, and popups
- 23-tutorial.lisp - Using semaphores to wait for input - 23-tutorial.lisp - Using semaphores to wait for input
- 24-tutorial.lisp - CLOG WEB containers - 24-tutorial.lisp - CLOG WEB containers
- 25-tutorial.lisp - A "local" web app using CLOG WEB - 25-tutorial.lisp - A "local" web app using CLOG WEB