mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-06 18:40:50 -08:00
Code Issues Projects Releases Packages Wiki Activity

add QML example "table-view"; some revisions;

Browse source
This commit is contained in:
polos 2017-03-19 00:16:31 +01:00
parent b364b80abf
commit 0ad3c10f40
24 changed files with 599 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

6
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -82,7 +82,11 @@
(defun root-item ()
(when *quick-view*
(qt-object-? (|rootObject| *quick-view*))))
(if (= (qt-object-id *quick-view*) #.(qid "QQmlApplicationEngine"))
(let ((object (first (|rootObjects| *quick-view*))))
(setf (qt-object-id object) #.(qid "QObject")) ; unknown to EQL, so resort to QObject
object)
(qt-object-? (|rootObject| *quick-view*)))))
(defun root-context ()
(when *quick-view*