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

icon area added

Browse source
This commit is contained in:
David Botton 2024-05-26 14:21:34 -04:00
parent 307da29c02
commit e29308e55a
3 changed files with 43 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -166,6 +166,27 @@
(declare (ignore spacer1 spacer2))
(setf (window-param win) ace)
(add-class menu "w3-small")
(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)
(clog-ace:resize (window-param win))
(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)))
(setf (overflow (top-panel box)) :visible) ; let menus leave the top panel
(setf (z-index m-file) 10) ; fix for ace editor gutter overlapping menu
(when has-time-out