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

properly skin confirm dialogs

Browse source
This commit is contained in:
David Botton 2024-05-21 19:03:55 -04:00
parent 3efd4900dd
commit f62ad6fdae
1 changed files with 20 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder-files.lisp
View file

@ -352,6 +352,8 @@
(sleep .5) (sleep .5)
(remove-class btn-save "w3-animate-top")) (remove-class btn-save "w3-animate-top"))
(t (t
(let ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*))
(confirm-dialog obj "File changed on file system. Save?" (confirm-dialog obj "File changed on file system. Save?"
(lambda (result) (lambda (result)
(when result (when result
@ -360,7 +362,7 @@
(set-is-dirty nil) (set-is-dirty nil)
(setf last-date (file-write-date file-name)) (setf last-date (file-write-date file-name))
(sleep .5) (sleep .5)
(remove-class btn-save "w3-animate-top")))))))))) (remove-class btn-save "w3-animate-top")))))))))))
(when m-emacs (when m-emacs
(set-on-click m-emacs (lambda (obj) (set-on-click m-emacs (lambda (obj)
(when is-dirty (when is-dirty
@ -376,13 +378,15 @@
(set-on-window-can-close win (set-on-window-can-close win
(lambda (obj) (lambda (obj)
(cond (is-dirty (cond (is-dirty
(let ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*))
(confirm-dialog obj "Save File?" (confirm-dialog obj "Save File?"
(lambda (result) (lambda (result)
(set-is-dirty nil) (set-is-dirty nil)
(when result (when result
(save obj nil)) (save obj nil))
(window-close win)) (window-close win))
:ok-text "Yes" :cancel-text "No") :ok-text "Yes" :cancel-text "No"))
nil) nil)
(t (t
t)))) t))))