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

tiny revisions

Browse source
This commit is contained in:
polos 2017-01-04 12:37:54 +01:00
parent 089cd59b35
commit 45ba32cd0d
3 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/X-extras/qimage.lisp
View file

@ -160,7 +160,7 @@
(unless (x:empty-string name)
(if (pathname-type name)
(let ((*saving* t))
(|save| (|grabWidget.QPixmap| *display* (|rect| *image*))
(|save| (|grab| *display* (|rect| *image*))
name))
(progn
(qmsg "Please add a file ending.")

17
gui/gui.lisp
View file

@ -173,15 +173,20 @@
(! "setOverrideCursor" "QGuiApplication" cross-cursor)))
(defun select-class ()
(flet ((set-tab-index (i)
(flet ((find-name (name q-n)
(find name (qobject-names q-n) :test 'string-equal))
(set-tab-index (i)
(! "setCurrentIndex" *qt-tab* i)))
(let ((name (! "text" *search-class*)))
(cond ((find name (qobject-names :q) :test 'string=)
(let* ((name (! "text" *search-class*))
(q-name (find-name name :q))
(n-name (unless q-name
(find-name name :n))))
(cond (q-name
(set-tab-index 0)
(change-class-q-object name :super))
((find name (qobject-names :n) :test 'string=)
(change-class-q-object q-name :super))
(n-name
(set-tab-index 1)
(change-class-n-object name :super))))))
(change-class-n-object n-name :super))))))
(defun change-class-q-object (s &optional super)
(let ((i (! "findText" *q-names* s)))

2
gui/gui.ui
View file

@ -109,7 +109,7 @@
<item>
<widget class="QTabWidget" name="qt_tab">
<property name="currentIndex">
<number>1</number>
<number>0</number>
</property>
<widget class="QWidget" name="tab">
<attribute name="title">