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

small revisions

Browse source
This commit is contained in:
polos 2017-01-28 16:11:10 +01:00
parent e7c371aeea
commit f0ab71b30b
4 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -10,6 +10,7 @@
*.so* *.so*
*.DS_Store *.DS_Store
*.qm *.qm
*.qmlc
*.ts *.ts
*~ *~
*.~ *.~

9
examples/M-modules/quick/Tic-Tac-Toe/qml-lisp.lisp
View file

@ -88,9 +88,12 @@
(qt-object-? (qfind-child (root-item) object-name)))) (qt-object-? (qfind-child (root-item) object-name))))
(defun quick-item (item/name) (defun quick-item (item/name)
(if (stringp item/name) (cond ((stringp item/name)
(find-quick-item item/name) (find-quick-item item/name))
item/name)) ((qt-object-p item/name)
item/name)
((not item/name)
(root-item))))
(defun children (item/name) (defun children (item/name)
(|childItems| (quick-item item/name))) (|childItems| (quick-item item/name)))

9
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -88,9 +88,12 @@
(qt-object-? (qfind-child (root-item) object-name)))) (qt-object-? (qfind-child (root-item) object-name))))
(defun quick-item (item/name) (defun quick-item (item/name)
(if (stringp item/name) (cond ((stringp item/name)
(find-quick-item item/name) (find-quick-item item/name))
item/name)) ((qt-object-p item/name)
item/name)
((not item/name)
(root-item))))
(defun children (item/name) (defun children (item/name)
(|childItems| (quick-item item/name))) (|childItems| (quick-item item/name)))

2
src/gen/multimedia/_ini.h
View file

@ -5,8 +5,6 @@
#include <QtMultimedia> #include <QtMultimedia>
#include <QtMultimediaWidgets> #include <QtMultimediaWidgets>
// Q_DECLARE_METATYPE(...)
#ifdef Q_OS_WIN #ifdef Q_OS_WIN
#define LIB_EXPORT __declspec(dllexport) #define LIB_EXPORT __declspec(dllexport)
#else #else