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

when running remote use relative url for test

Browse source
This commit is contained in:
David Botton 2024-02-09 17:03:01 -05:00
parent ec4fee640e
commit f1525276a0
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.lisp
View file

@ -1526,7 +1526,7 @@ It parse the string TEXT without using READ functions."
(if *app-mode* (if *app-mode*
(open-browser :url (format nil "http://127.0.0.1:~A/test" *clog-port*)) (open-browser :url (format nil "http://127.0.0.1:~A/test" *clog-port*))
(open-window (window (connection-body obj)) (open-window (window (connection-body obj))
(format nil "http://127.0.0.1:~A/test" *clog-port*))) (format nil "/test" *clog-port*)))
(on-open-file obj :title-class "w3-yellow" :title "test eval" :text result))) (on-open-file obj :title-class "w3-yellow" :title "test eval" :text result)))
(defun on-show-control-properties-win (obj) (defun on-show-control-properties-win (obj)