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

improved selection for static controls

Browse source
This commit is contained in:
David Botton 2022-06-21 22:33:49 -04:00
parent aa4a0858a3
commit ffa815ff2e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder.lisp
View file

@ -468,8 +468,8 @@ not a temporary attached one when using select-control."
(let ((app (connection-data-item control "builder-app-data")) (let ((app (connection-data-item control "builder-app-data"))
(placer (get-placer control))) (placer (get-placer control)))
(deselect-current-control app) (deselect-current-control app)
(set-geometry placer :top (top control) (set-geometry placer :top (position-top control)
:left (left control) :left (position-left control)
:width (client-width control) :width (client-width control)
:height (client-height control)) :height (client-height control))
(setf (current-control app) control) (setf (current-control app) control)