mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-24 19:01:14 -08:00
11 lines
448 B
Common Lisp
11 lines
448 B
Common Lisp
;; to be loaded in code with a defined *web-view* (QWebView)
|
|
|
|
(let (web-inspector)
|
|
(defun inspector ()
|
|
"Web element inspector, JavaScript debugger and console."
|
|
(unless web-inspector
|
|
(setf web-inspector (qnew "QWebInspector"))
|
|
(let ((settings (|settings| *web-view*)))
|
|
(|setAttribute| settings |QWebSettings.DeveloperExtrasEnabled| t))
|
|
(|setPage| web-inspector (|page| *web-view*)))
|
|
(|show| web-inspector)))
|