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

Update properties on size change

Browse source
This commit is contained in:
David Botton 2022-01-07 13:47:37 -05:00
parent f3cbf420a0
commit 5f816c3c42
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder.lisp
View file

@ -398,12 +398,14 @@
:height (height placer)) :height (height placer))
(set-geometry placer :units "" (set-geometry placer :units ""
:width (client-width element) :width (client-width element)
:height (client-height element)))) :height (client-height element))
(on-populate-control-properties win)))
(clog::set-on-event placer "dragstop" (clog::set-on-event placer "dragstop"
(lambda (obj) (lambda (obj)
(set-geometry element :units "" (set-geometry element :units ""
:top (top placer) :top (top placer)
:left (left placer)))))))))) :left (left placer))
(on-populate-control-properties win)))))))))
(defun on-help-about-builder (obj) (defun on-help-about-builder (obj)
(let ((about (create-gui-window obj (let ((about (create-gui-window obj