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

save dialog uses yes or no

Browse source
This commit is contained in:
David Botton 2022-09-09 09:05:00 -04:00
parent c991c47d1c
commit f84b39dcad
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder.lisp
View file

@ -1837,7 +1837,8 @@ of controls and double click to select control."
(save obj nil)) (save obj nil))
(t (t
(setf is-dirty nil) (setf is-dirty nil)
(window-close win))))) (window-close win))))
:ok-text "Yes" :cancel-text "No")
nil) nil)
(t (t
t)))) t))))
@ -2527,7 +2528,8 @@ of controls and double click to select control."
(setf is-dirty nil) (setf 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")
nil) nil)
(t (t
t)))) t))))