From 82652ffbc2e7a904e314c40d943342e05484d411 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Sun, 28 Jul 2024 13:52:50 -0400
Subject: [PATCH] layout improvements

---
 tools/clog-builder-control-events.lisp | 8 +++++---
 tools/clog-builder-panels.lisp         | 8 +++++---
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/tools/clog-builder-control-events.lisp b/tools/clog-builder-control-events.lisp
index 364b8e5..13fdeb0 100644
--- a/tools/clog-builder-control-events.lisp
+++ b/tools/clog-builder-control-events.lisp
@@ -8,12 +8,14 @@
         (let* ((*default-title-class*      *builder-title-class*)
                (*default-border-class*     *builder-border-class*)
                (win     (create-gui-window obj :title "Control CLOG Events"
-                                               :left (+ *builder-left-panel-size* 5)
-                                               :height 200 :width 645
                                                :has-pinner t :client-movement *client-side-movement*))
                (content (window-content win))
                status)
-          (set-geometry win :top "" :bottom 0)
+          (set-geometry win
+                        :top "" :bottom 5
+                        :right 405 :left (+ *builder-left-panel-size* 5)
+                        :width "" :height 300)
+          (set-geometry win :width (width win) :right "")
           (set-on-window-focus win
                                (lambda (obj)
                                  (declare (ignore obj))
diff --git a/tools/clog-builder-panels.lisp b/tools/clog-builder-panels.lisp
index 79a0bfe..d43b545 100644
--- a/tools/clog-builder-panels.lisp
+++ b/tools/clog-builder-panels.lisp
@@ -555,9 +555,6 @@ not a temporarily attached one when using select-control."
            (*default-border-class*     *builder-border-class*)
            ext-panel
            (win (create-gui-window obj
-                                   :top (menu-bar-height obj)
-                                   :left (+ *builder-left-panel-size* 5)
-                                   :width 645 :height 430
                                    :client-movement *client-side-movement*))
            (box (create-panel-box-layout (window-content win)
                                          :left-width 0 :right-width 0
@@ -623,6 +620,11 @@ not a temporarily attached one when using select-control."
            (render-file-name "")
            (panel-id  (html-id content)))
       (declare (ignore spacer tmp1 tmp2 tmp3 tmp4 tmp5))
+      (set-geometry win
+                    :top (menu-bar-height obj) :bottom 305
+                    :right 405 :left (+ *builder-left-panel-size* 5)
+                    :width "" :height "")
+      (set-geometry win :width (width win) :height (height win) :bottom "" :right "")
       (setf (style content "user-select") "none")
       (add-class menu "w3-small")
       (setf (overflow (top-panel box)) :visible) ; let menus leave the top panel