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