From a341fa33ff63f3517a5c8e192ed6a782fa6af3fd Mon Sep 17 00:00:00 2001 From: polos Date: Wed, 11 Jan 2017 19:23:19 +0100 Subject: [PATCH] small revision of "gui.lisp" --- gui/gui.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/gui/gui.lisp b/gui/gui.lisp index 1377294..f33e55c 100644 --- a/gui/gui.lisp +++ b/gui/gui.lisp @@ -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)))