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

file delete

Browse source
This commit is contained in:
David Botton 2024-05-08 17:57:11 -04:00
parent a13bf5098f
commit 0accada4b4
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -124,6 +124,7 @@
(title (create-div menu :content disp))
(op (create-div menu :content "Open" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete" :class *builder-menu-context-item-class*)))
(declare (ignore title op))
(set-on-click menu (lambda (i)
(declare (ignore i))
(project-tree-select obj (format nil "~A" item)))
@ -132,6 +133,7 @@
(confirm-dialog i (format nil "Delete ~A?" disp)
(lambda (result)
(when result
(uiop:delete-file-if-exists item)
(destroy obj)))))
:cancel-event t)
(set-on-mouse-leave menu (lambda (obj) (destroy obj)))))