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

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

10
tools/clog-builder.lisp
View file

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