From 11261a0a21c282c171401f6a4ecb89f0757fa9d9 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Tue, 21 Jun 2022 21:37:35 -0400
Subject: [PATCH] drag control with placer

---
 tools/clog-builder.lisp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index fd8b294..1c2ab59 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -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 ""