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

small revision of "gui.lisp"

Browse source
This commit is contained in:
polos 2017-01-11 19:23:19 +01:00
parent f4fa418819
commit a341fa33ff
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
gui/gui.lisp
View file

@ -184,20 +184,22 @@
:test 'string-equal))))
(set-tab-index (i)
(! "setCurrentIndex" *qt-tab* i)))
(cond ((find-name :q) ; QObject
(cond ((find-name :q) ; QObject
(set-tab-index 0)
(change-class-q-object found :super))
((find-name :n) ; non QObject
((find-name :n) ; non QObject
(set-tab-index 1)
(change-class-n-object found :super))
((find-name nil) ; primitive
((find-name nil) ; primitive
(set-tab-index 2)
(dotimes (i (! "topLevelItemCount" *primitives*))
(let ((item (! "topLevelItem" *primitives* i)))
(when (search found (! "text" item 0))
(! "setCurrentItem" *primitives* item)
(! "setFocus" *primitives*)
(return)))))))))
(return)))))
(t
(! "selectAll" *search-class*))))))
(defun change-class-q-object (s &optional super)
(let ((i (! "findText" *q-names* s)))