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

Restructure windows

Browse source
This commit is contained in:
David Botton 2024-03-19 20:49:33 -04:00
parent b6137e4cd1
commit 249e8450b8
8 changed files with 1711 additions and 1698 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,21 @@
(in-package :clog-tools)
(defun on-show-project (obj &key project)
(let ((app (connection-data-item obj "builder-app-data")))
(when project
(setf (current-project app) project))
(if (project-win app)
(window-focus (project-win app))
(let* ((win (create-gui-window obj :title "Project Window"
:top 60 :left 232
:width 643 :height 625
:has-pinner t :client-movement *client-side-movement*)))
(create-projects (window-content win))
(setf (project-win app) win)
(set-on-window-close win (lambda (obj)
(declare (ignore obj))
(setf (project-win app) nil)))))))
(defun projects-load (fname)
(funcall (read-from-string "ql:quickload") fname))