From d1df23dde6b162ca9b8254dcf6a2250d77a63a5e Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 29 May 2024 08:29:09 -0400 Subject: [PATCH] partial maximize for REPL --- tools/clog-builder-repl.lisp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp index 2d586b2..d1369f7 100644 --- a/tools/clog-builder-repl.lisp +++ b/tools/clog-builder-repl.lisp @@ -27,6 +27,26 @@ (repl (create-clog-builder-repl (window-content win)))) (when package (setf (text-value (package-div repl)) package)) + (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-click (create-span (window-icon-area win) + :content "- " + :auto-place :top) + (lambda (obj) + (declare (ignore obj)) + (setf (hiddenp win) t))) (when *clog-repl-private-console* (let ((pcon (on-open-repl-console obj win))) (set-on-click (create-span (window-icon-area win) @@ -34,6 +54,7 @@ :auto-place :top) (lambda (obj) (declare (ignore obj)) + (window-focus win) (window-focus pcon))) (setf (window-param win) pcon) (set-on-window-close win (lambda (obj)