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 left arrow to project tree

Browse source
This commit is contained in:
David Botton 2024-05-26 23:21:33 -04:00
parent e4e2a53d79
commit 4323b3c5a3
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder-project-tree.lisp
View file

@ -71,6 +71,11 @@
(setf (project-tree-win app) nil)))
(setf (positioning projects) :absolute)
(set-geometry projects :height 27 :width "100%" :top 0 :left 0 :right 0)
(set-on-click (create-span (window-icon-area win) :content "← ")
(lambda (obj)
(declare (ignore obj))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")
:auto-place :top))
(set-on-click filter-btn (lambda (obj)
(declare (ignore obj))
(if (equalp (text-value filter-btn)