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

no-quickslip option

Browse source
This commit is contained in:
David Botton 2024-07-07 21:18:50 -04:00
parent 21bbda5a18
commit eda76103cb
4 changed files with 39 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -10,6 +10,12 @@
:width 1040 :height 600
:client-movement *client-side-movement*))
(panel (create-panel-search (window-content win))))
(set-on-click (create-span (window-icon-area win)
:content "- "
:auto-place :top)
(lambda (obj)
(declare (ignore obj))
(setf (hiddenp win) t)))
(set-on-window-size win (lambda (obj)
(declare (ignore obj))
(clog-ace:resize (preview-ace panel))))