From 31f207c28a49182051ce3da352b7d55696bbd623 Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 22 Mar 2024 18:23:38 -0400 Subject: [PATCH] unstick on move --- tools/clog-builder-control-list.lisp | 4 +++- tools/clog-builder-control-properties.lisp | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/tools/clog-builder-control-list.lisp b/tools/clog-builder-control-list.lisp index 486f089..4d5f39e 100644 --- a/tools/clog-builder-control-list.lisp +++ b/tools/clog-builder-control-list.lisp @@ -87,7 +87,9 @@ (set-geometry control-list :height (+ (- sheight 10) adj-size))))) (set-on-resize (window (connection-body obj)) #'on-size) (set-on-window-size win #'on-size) - (set-on-window-move win #'on-size) + (set-on-window-move win (lambda (obj) + (setf (height obj) (height obj)) + (on-size obj))) (set-on-full-screen-change (html-document (connection-body obj)) #'on-size) (set-on-orientation-change (window (connection-body obj)) #'on-size) (set-on-pointer-down divider (lambda (obj data) diff --git a/tools/clog-builder-control-properties.lisp b/tools/clog-builder-control-properties.lisp index 4aba775..b7f5ece 100644 --- a/tools/clog-builder-control-properties.lisp +++ b/tools/clog-builder-control-properties.lisp @@ -10,6 +10,8 @@ (add-class content "w3-small") (set-on-window-close win (lambda (obj) (setf (control-properties-win app) nil))) + (set-on-window-move win (lambda (obj) + (setf (height obj) (height obj)))) (window-toggle-pinned win :state t) (setf (control-properties-win app) win) (setf (properties-list app) control-list)