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

add trivial "qml-lisp" example (call Lisp from QML); tiny revisions;

Browse source
This commit is contained in:
polos 2017-01-17 00:06:00 +01:00
parent 75c2b80e4e
commit 0e82b0a517
10 changed files with 123 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/M-modules/quick/qml-lisp/example.lisp Normal file
View file

@ -0,0 +1,22 @@
;;; QQuickView loading Lisp enabled QML
#-qt-wrapper-functions ; see README-OPTIONAL.txt
(load (in-home "src/lisp/all-wrappers"))
(require :qml-lisp "qml-lisp")
(qrequire :quick)
(defun example-url (name)
(|fromLocalFile.QUrl| (in-home (x:cc "examples/M-modules/quick/qml-lisp/qml/" name))))
;;; QQuickView
(defvar *quick-view* (qnew "QQuickView(QUrl)" (example-url "example.qml")))
(defun run ()
(|setResizeMode| *quick-view* |QQuickView.SizeRootObjectToView|)
(|resize| *quick-view* '(200 100))
(|show| *quick-view*))
(run)