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

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

@ -352,15 +352,17 @@
(sleep .5) (sleep .5)
(remove-class btn-save "w3-animate-top")) (remove-class btn-save "w3-animate-top"))
(t (t
(confirm-dialog obj "File changed on file system. Save?" (let ((*default-title-class* *builder-title-class*)
(lambda (result) (*default-border-class* *builder-border-class*))
(when result (confirm-dialog obj "File changed on file system. Save?"
(add-class btn-save "w3-animate-top") (lambda (result)
(write-file (text-value ace) file-name :clog-obj obj) (when result
(set-is-dirty nil) (add-class btn-save "w3-animate-top")
(setf last-date (file-write-date file-name)) (write-file (text-value ace) file-name :clog-obj obj)
(sleep .5) (set-is-dirty nil)
(remove-class btn-save "w3-animate-top")))))))))) (setf last-date (file-write-date file-name))
(sleep .5)
(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
(confirm-dialog obj "Save File?" (let ((*default-title-class* *builder-title-class*)
(lambda (result) (*default-border-class* *builder-border-class*))
(set-is-dirty nil) (confirm-dialog obj "Save File?"
(when result (lambda (result)
(save obj nil)) (set-is-dirty nil)
(window-close win)) (when result
:ok-text "Yes" :cancel-text "No") (save obj nil))
(window-close win))
:ok-text "Yes" :cancel-text "No"))
nil) nil)
(t (t
t)))) t))))