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

adjust package

Browse source
This commit is contained in:
David Botton 2024-07-28 11:29:22 -04:00
parent 73157f85fc
commit 27c6a36455
6 changed files with 15 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-gui.lisp
View file

@ -2394,9 +2394,9 @@ If time-out return result of on-file-name, cancels dialog if time runs out."
(caret-at-end ()
(focus input)
(js-execute win (format nil "~A.setSelectionRange(~A.value.length,~A.value.length)"
(clog::script-id input)
(clog::script-id input)
(clog::script-id input)))))
(script-id input)
(script-id input)
(script-id input)))))
(populate-dirs initial-dir)
(populate-files initial-dir)
(when initial-filename