mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

add icon to bring up console for private repl consoles

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

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

@ -29,6 +29,12 @@
(setf (text-value (package-div repl)) package))
(when *clog-repl-private-console*
(let ((pcon (on-open-repl-console obj win)))
(set-on-click (create-span (window-icon-area win)
:content "⨀ "
:auto-place :top)
(lambda (obj)
(declare (ignore obj))
(window-focus pcon)))
(setf (window-param win) pcon)
(set-on-window-close win (lambda (obj)
(declare (ignore obj))