From ffa815ff2e90b22eda2e0dac6f6f2fc6cada7da7 Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 21 Jun 2022 22:33:49 -0400 Subject: [PATCH] improved selection for static controls --- tools/clog-builder.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index e9a03c6..a823e62 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -468,8 +468,8 @@ not a temporary attached one when using select-control." (let ((app (connection-data-item control "builder-app-data")) (placer (get-placer control))) (deselect-current-control app) - (set-geometry placer :top (top control) - :left (left control) + (set-geometry placer :top (position-top control) + :left (position-left control) :width (client-width control) :height (client-height control)) (setf (current-control app) control)