mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-07 09:42:40 -08:00
Code Issues Projects Releases Wiki Activity

partial maximize for REPL

Browse source
This commit is contained in:
David Botton 2024-05-29 08:29:09 -04:00
parent 29597b14d7
commit d1df23dde6
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
tools/clog-builder-repl.lisp
View file

@ -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)