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

review "qml-lisp"

Browse source
This commit is contained in:
polos 2017-01-17 22:28:39 +01:00
parent 03c7a5ded5
commit 140e793040
6 changed files with 77 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,16 +3,14 @@
#-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))))
(require :qml-lisp "qml-lisp")
;;; QQuickView
(defvar *quick-view* (qnew "QQuickView(QUrl)" (example-url "example.qml")))
(defvar *quick-view* (qnew "QQuickView(QUrl)"
(|fromLocalFile.QUrl| "qml/example.qml")))
(defun run ()
(|setResizeMode| *quick-view* |QQuickView.SizeRootObjectToView|)