mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-17 07:40:47 -08:00
Code Issues Projects Releases Wiki Activity

Configurable look and feel

Browse source
This commit is contained in:
David Botton 2024-03-27 01:15:39 -04:00
parent fa0813e0fd
commit 0ed9d6d242
12 changed files with 264 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -6,7 +6,9 @@
(setf (current-project app) project))
(if (project-win app)
(window-focus (project-win app))
(let* ((win (create-gui-window obj :title "Project Window"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Project Window"
:top 60 :left 232
:width 643 :height 625
:has-pinner t :client-movement *client-side-movement*)))