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

browser-gc no longer on ping by default, manual do after menus and trees

Browse source
This commit is contained in:
David Botton 2024-06-10 21:40:06 -04:00
parent 9d7d58c3b8
commit dd1ed6580c
6 changed files with 23 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -68,7 +68,7 @@
(set-on-window-move win (lambda (obj)
(setf (height obj) (height obj))))
(set-on-window-close win (lambda (obj)
(declare (ignore obj))
(browser-gc obj)
(setf (project-tree-win app) nil)))
(setf (positioning projects) :absolute)
(set-geometry projects :height 27 :width "100%" :top 0 :left 0 :right 0)
@ -116,6 +116,7 @@
:visible nil
:on-context-menu
(lambda (obj)
(browser-gc obj)
(let* ((disp (text-value (content obj)))
(menu (create-panel obj
:left (left obj) :top (top obj)
@ -166,6 +167,7 @@
(create-clog-tree-item (tree-root node)
:on-context-menu
(lambda (obj)
(browser-gc obj)
(let* ((disp (text-value (content obj)))
(menu (create-panel obj
:left (left obj) :top (top obj)
@ -232,8 +234,8 @@
(setf (background-color load-btn) load-np)
(window-focus win))
(on-change (obj)
(declare (ignore obj))
(setf (text tree) "")
(browser-gc obj)
(let* ((sel (value projects)))
(setf entry-point "")
(cond ((equal sel "")
@ -256,6 +258,7 @@
:content root
:on-context-menu
(lambda (obj)
(browser-gc obj)
(let* ((disp sel)
(item root)
(menu (create-panel obj