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

revision of "gui/properties.lisp" for QML;

Browse source
This commit is contained in:
polos 2017-02-14 00:31:40 +01:00
parent 2c288a5f31
commit e8aa7601e8
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/M-modules/quick/painted-item/painted-item.lisp
View file

@ -20,10 +20,10 @@
(defun sym (name package)
(find-symbol (symbol-name name) package))
(defun show-properties-dialog (&optional (item (qml:root-item)))
(defun show-properties-dialog (item)
(unless (find-package :properties)
(load (in-home "gui/properties")))
(funcall (sym :show :properties) item))
(funcall (sym :show :properties) item t))
;; clock

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

@ -17,7 +17,7 @@
(defun show-properties-dialog ()
(unless (find-package :properties)
(load (in-home "gui/properties")))
(funcall (sym :show :properties) qml:*caller*))
(funcall (sym :show :properties) qml:*caller* t))
;; ini

4
gui/properties.lisp
View file

@ -47,7 +47,9 @@
(|setEnabled| w (not checked)))
(show))
(defun show (&optional object)
(defun show (&optional object qml)
(when qml
(! "setChecked" *instance-properties* t))
(when object
(setf *object* object)
(let ((depth 1)