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

nicer start up just prj window

Browse source
This commit is contained in:
David Botton 2022-08-22 14:32:04 -04:00
parent 7b7715b760
commit bd24c631de
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder.lisp
View file

@ -2690,6 +2690,7 @@ of controls and double click to select control."
(ql:quickload sel)
(ignore-errors
(ql:quickload (format nil "~A/tools" sel)))
(ql:quickload sel)
(projects-populate panel))
(t
(setf (current-project app) nil)
@ -2955,9 +2956,9 @@ of controls and double click to select control."
(create-gui-menu-full-screen menu))
(on-show-control-properties-win body)
(on-show-control-list-win body)
(on-show-control-events-win body)
;; (on-show-control-events-win body)
(on-show-copy-history-win body)
(on-new-builder-panel body)
;; (on-new-builder-panel body)
(on-show-project body :project *start-project*)
(set-on-before-unload (window body) (lambda(obj)
(declare (ignore obj))