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

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-sys-browser.lisp
View file

@ -1,7 +1,9 @@
(in-package :clog-tools)
(defun on-new-sys-browser (obj &key (search nil))
(let* ((win (create-gui-window obj :title "System Browser"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "System Browser"
:top 40 :left 225
:width 685 :height 530
:client-movement t))