mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-25 03:11:44 -08:00
13 lines
481 B
Common Lisp
13 lines
481 B
Common Lisp
;; to be loaded in code with a defined *web-view* (QWebView)
|
|
|
|
(in-package :h-utils)
|
|
|
|
(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)))
|