From e4985ef50608c662c16a8551305d3ad8eff83637 Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 25 Jul 2024 13:39:55 -0400 Subject: [PATCH] answering yes to project reopens tree --- tools/clog-builder-projects.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp index 2f37729..aac886c 100644 --- a/tools/clog-builder-projects.lisp +++ b/tools/clog-builder-projects.lisp @@ -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")))))