mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-06 02:30:31 -08:00
21 lines
531 B
Common Lisp
21 lines
531 B
Common Lisp
;;;
|
|
;;; Linux only!
|
|
;;;
|
|
;;; just edit/recompile "cpp/*"
|
|
;;;
|
|
|
|
(in-package :eql-user)
|
|
|
|
#+linux
|
|
(qauto-reload-c++ *lib* (in-src "Qt_EQL/eql_cpp"))
|
|
|
|
#+linux
|
|
(setf *lib-reloaded* 'show-current-apropos)
|
|
|
|
(defun show-current-apropos (variable plugin)
|
|
(! "setQuitOnLastWindowClosed" "QGuiApplication" nil)
|
|
(let ((obj (symbol-value variable)))
|
|
(assert (qt-object-p obj))
|
|
(qmsg (with-output-to-string (*standard-output*)
|
|
(format t "<b>Plugin ~S currently offers:</b><pre>" plugin)
|
|
(qapropos nil obj)))))
|