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

reduce need to reload properties amd control-list

Browse source
This commit is contained in:
David Botton 2024-06-24 19:52:47 -04:00
parent dbfe0723ce
commit 118da225e4
5 changed files with 24 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-control-list.lisp
View file

@ -49,10 +49,9 @@
(win (create-gui-window obj :title "Controls"
:has-pinner t
:keep-on-top t
:width 220))
:width *builder-left-panel-size*))
(content (window-content win))
(sheight (floor (/ (height content) 2)))
(swidth (floor (width content)))
(divider (create-panel content :top sheight :height 10 :left 0 :right 10
:class *builder-title-class*))
(control-list (create-panel content :height (- sheight 10) :left 0 :bottom 0 :right 10))
@ -63,6 +62,7 @@
(setf (control-list-win app) control-list)
(setf (select-tool app) pallete)
(set-on-window-close win (lambda (obj)
(declare (ignore obj))
(setf (controls-win app) nil)
(setf (select-tool app) nil)
(setf (control-list-win app) nil)))