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

fix source editor in new tab not openning

Browse source
This commit is contained in:
David Botton 2024-03-20 07:51:14 -04:00
parent 249e8450b8
commit dfc8d60c2d
3 changed files with 121 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -169,7 +169,8 @@
(error (condition)
(alert-toast obj "File Error" (format nil "Error: ~A" condition))
(format t "Error: ~A" condition)))))
(when open-file
(when (and open-file
(not (equalp open-file " ")))
(open-file-name open-file))
(set-on-click btn-load (lambda (obj)
(server-file-dialog obj "Load Source" (directory-namestring (if (equal file-name "")