From 1be9de9ab47716c5be62b786829b8c3d4958d48f Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 30 May 2024 21:44:49 -0400 Subject: [PATCH] exapnd file area box add to sys browser --- tools/clog-builder-sys-browser.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/tools/clog-builder-sys-browser.lisp b/tools/clog-builder-sys-browser.lisp index eb74738..da1bc29 100644 --- a/tools/clog-builder-sys-browser.lisp +++ b/tools/clog-builder-sys-browser.lisp @@ -11,6 +11,20 @@ (when search (setf (text-value (search-box panel)) search) (sys-browser-populate panel)) + (set-on-click (create-span (window-icon-area win) + :content (format nil "~A " (code-char #x26F6)) + :auto-place :top) + (lambda (obj) + (declare (ignore obj)) + (set-geometry win + :top (menu-bar-height win) + :left 300 + :height "" :width "" + :bottom 5 :right 0) + (set-on-window-move win nil) + (set-on-window-move win (lambda (obj) + (setf (width obj) (width obj)) + (setf (height obj) (height obj)))))) (set-on-window-size-done win (lambda (obj) (declare (ignore obj)) (clog-ace:resize (src-box panel))))))