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

add skin to dialog

Browse source
This commit is contained in:
David Botton 2024-04-06 23:28:39 -04:00
parent 583733e564
commit b1268b6a10
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tools/clog-builder-projects.lisp
View file

@ -218,10 +218,12 @@
(clog:shutdown)
(uiop:quit))
(t
(confirm-dialog panel "Load project?"
(lambda (answer)
(load-proj answer))
:title "System not loaded")))))))))
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*))
(confirm-dialog panel "Load project?"
(lambda (answer)
(load-proj answer))
:title "System not loaded"))))))))))
(defun projects-add-dep (panel sys)
(Input-dialog panel "Enter system name:"