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

"quick": add properties dialog to every example, see SHOW-PROPERTIES-DIALOG

Browse source
This commit is contained in:
polos 2017-02-14 11:05:55 +01:00
parent e8aa7601e8
commit 1281b68a8b
13 changed files with 69 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -5,22 +5,11 @@
(qrequire :quick)
(require :qml-lisp "qml-lisp")
(require :qml-lisp "qml-lisp")
(require :properties "properties")
(use-package :qml)
;; for example (5) in "qml/example.qml"
(defun sym (name package)
(find-symbol (symbol-name name) package))
(defun show-properties-dialog ()
(unless (find-package :properties)
(load (in-home "gui/properties")))
(funcall (sym :show :properties) qml:*caller* t))
;; ini
(defun run ()
;; *quick-view* can be either a QQuickView or a QQuickWidget
(setf qml:*quick-view* (qnew "QQuickView"))