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

use file name as title not full filespec

Browse source
This commit is contained in:
David Botton 2024-04-12 11:09:20 -04:00
parent 4c617ae32d
commit 759f223be4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -48,7 +48,7 @@
(clog-gui-initialize pop :parent-desktop-obj obj) (clog-gui-initialize pop :parent-desktop-obj obj)
(add-class pop *builder-window-desktop-class*) (add-class pop *builder-window-desktop-class*)
(if open-file (if open-file
(setf (title (html-document pop)) open-file) (setf (title (html-document pop)) (file-namestring open-file))
(setf (title (html-document pop)) "CLOG Builder Source Editor")) (setf (title (html-document pop)) "CLOG Builder Source Editor"))
(on-open-file pop :open-file open-file :maximized t)) (on-open-file pop :open-file open-file :maximized t))
(on-open-file obj :open-file open-file))) (on-open-file obj :open-file open-file)))