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

dialog styling added

Browse source
This commit is contained in:
David Botton 2024-06-30 10:54:17 -04:00
parent 0798c56fda
commit 8f6ef8d16d
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder-templates.lisp
View file

@ -57,6 +57,8 @@ create-div's"
(defun fill-button-clicked (panel) (defun fill-button-clicked (panel)
"Template fill botton clicked" "Template fill botton clicked"
(let* ((app (connection-data-item panel "builder-app-data")) (let* ((app (connection-data-item panel "builder-app-data"))
(*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(tmpl-rec (find-if (lambda (x) (tmpl-rec (find-if (lambda (x)
(equal (getf x :code) (equal (getf x :code)
(value (template-box panel)))) (value (template-box panel))))
@ -72,7 +74,9 @@ create-div's"
(win panel) "Enter new system name:" (win panel) "Enter new system name:"
(lambda (sys-name) (lambda (sys-name)
(cond (sys-name (cond (sys-name
(let* ((pwin (create-gui-window panel :title "Local Project Directory" (let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(pwin (create-gui-window panel :title "Local Project Directory"
:width 500 :height 250)) :width 500 :height 250))
(prjs (create-project-dir (window-content pwin)))) (prjs (create-project-dir (window-content pwin))))
(window-center pwin) (window-center pwin)