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

center template win

Browse source
This commit is contained in:
David Botton 2022-02-06 15:24:34 -05:00
parent 300717cab9
commit 1b184566ab
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tools/clog-builder.lisp
View file

@ -1338,6 +1338,7 @@ of controls and double click to select control."
(win (create-gui-window obj :title "New Application Template" (win (create-gui-window obj :title "New Application Template"
:width 500 :height 400)) :width 500 :height 400))
(ct (create-clog-templates (window-content win)))) (ct (create-clog-templates (window-content win))))
(window-center win)
(setf (win ct) win) (setf (win ct) win)
(dolist (tmpl *supported-templates*) (dolist (tmpl *supported-templates*)
(add-select-option (template-box ct) (getf tmpl :code) (getf tmpl :name))))) (add-select-option (template-box ct) (getf tmpl :code) (getf tmpl :name)))))