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

fix regression on popup panel editor

Browse source
This commit is contained in:
David Botton 2024-07-18 11:26:29 -04:00
parent 546515f481
commit fd2525076e
5 changed files with 54 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -84,13 +84,13 @@
(let ((pop (connection-data-item obj "clog-popup")))
(when pop
(close-window pop)
(window-focus win)))
(when regex
(focus (window-param win))
(js-execute obj (format nil "~A.find({regExp:true,needle:'~A',caseSensitive:false})"
(clog-ace::js-ace (window-param win)) (escape-string regex))))
(when show-find
(clog-ace:execute-command (window-param win) "find"))
(window-focus win))
(when regex
(focus (window-param win))
(js-execute obj (format nil "~A.find({regExp:true,needle:'~A',caseSensitive:false})"
(clog-ace::js-ace (window-param win)) (escape-string regex))))
(when show-find
(clog-ace:execute-command (window-param win) "find")))
win)
(unless win
(let* ((app (connection-data-item obj "builder-app-data"))