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

another review of "qml-lisp"

Browse source
This commit is contained in:
polos 2017-01-18 11:17:08 +01:00
parent 140e793040
commit 43abbe2415
7 changed files with 84 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -7,14 +7,11 @@
(require :qml-lisp "qml-lisp")
;;; QQuickView
(defvar *quick-view* (qnew "QQuickView(QUrl)"
(|fromLocalFile.QUrl| "qml/example.qml")))
(defun run ()
(|setResizeMode| *quick-view* |QQuickView.SizeRootObjectToView|)
(|resize| *quick-view* '(200 100))
(|show| *quick-view*))
(setf qml:*quick-view* (qnew "QQuickView(QUrl)"
(|fromLocalFile.QUrl| "qml/example.qml")))
(|setResizeMode| qml:*quick-view* |QQuickView.SizeRootObjectToView|)
(|resize| qml:*quick-view* '(200 100))
(|show| qml:*quick-view*))
(run)