sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bug in "gui/properties" (dialog)

Browse source
This commit is contained in:
polos 2017-03-09 10:31:23 +01:00
parent 8f9565a6e0
commit 776110d14a
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gui/properties.lisp
View file

@ -84,15 +84,16 @@
(defun update-meta-class-names (index)
(unless (or *ignore-update*
(eql -1 index))
(= -1 index))
(let ((object (nth index *qml-stack*)))
(! "setText" *meta-class-names* (x:join (rest (super-class-names object)) " - "))
(show object t))))
(defun show (&optional object update)
(when object
(setf *object* object
*qml-stack* (symbol-value (find-symbol (symbol-name :*qml-stack*) :qsel)))
(setf *object* object)
(when (find-package :qsel)
(setf *qml-stack* (symbol-value (find-symbol (symbol-name :*qml-stack*) :qsel))))
(let ((classes (super-class-names *object*))
(*ignore-update* t))
(if *qml-stack*