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

answering yes to project reopens tree

Browse source
This commit is contained in:
David Botton 2024-07-25 13:39:55 -04:00
parent 95e25dca49
commit e4985ef506
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -248,7 +248,11 @@
(error ()
(projects-load sel)))
(window-focus (parent (parent panel)))
(projects-populate panel))
(projects-populate panel)
(when (project-tree-win app)
(window-close (project-tree-win app))
(setf (project-tree-win app) nil)
(on-project-tree panel)))
(t
(setf (current-project app) nil)
(setf (text-value (project-list panel)) "None")))))