mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-04 00:02:57 -08:00
Code Issues Projects Releases Wiki Activity

drag control with placer

Browse source
This commit is contained in:
David Botton 2022-06-21 21:37:35 -04:00
parent 2d2af04b88
commit 11261a0a21
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-builder.lisp
View file

@ -419,13 +419,12 @@ replaced."
:cancel-event t)
(set-on-event placer "resizestop"
(lambda (obj)
(set-geometry control :units ""
:width (width placer)
:height (height placer))
(set-geometry placer :units ""
:width (client-width control)
:height (client-height control))
(on-populate-control-properties-win content :win win)))
(set-on-event placer "drag"
(lambda (obj)
(set-geometry control :units ""
:top (top placer)
:left (left placer))))
(set-on-event placer "dragstop"
(lambda (obj)
(set-geometry control :units ""