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

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