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

make sure macro compiled before probe panel

Browse source
This commit is contained in:
David Botton 2024-06-06 20:32:34 -04:00
parent efde4130f2
commit 8b1c80e970
4 changed files with 89 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/clog-builder-shell.lisp
View file

@ -9,6 +9,20 @@
(uiop:hostname))
:width 600 :height 400
:client-movement *client-side-movement*)))
(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))))))
(when dir
(uiop:chdir (uiop:native-namestring dir)))
(set-geometry (create-clog-builder-shell (window-content win))