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

slight change to wrapper functions (for easier cross-compiling to Android)

Browse source
This commit is contained in:
polos 2017-07-06 13:38:06 +02:00
parent 1b3ef77336
commit 2814efdfaf
15 changed files with 379 additions and 275 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README-1.txt
View file

@ -91,7 +91,8 @@ Qt4/Qt5 note:
lib names differ).
If you have both Qt4 and Qt5 installed, you can use the following environment
variable to switch between the both (Unix):
variable to switch between the both on Unix (which requires the different Qt
'bin/' directories to be in PATH):
export QT_SELECT=5

2
src/eql.cpp
View file

@ -7,7 +7,7 @@
#include <QTimer>
#include <QStringList>
const char EQL::version[] = "17.6.1"; // June 2017
const char EQL::version[] = "17.7.1"; // July 2017
extern "C" void ini_EQL(cl_object);

25
src/lisp/all-wrappers-1.lisp
View file

@ -245,6 +245,7 @@
#:|anchorClicked|
#:|anchorHref|
#:|anchorNames|
#:|anchorRectangleChanged|
#:|anchor|
#:|angleAtPercent|
#:|angleBetween|
@ -284,6 +285,7 @@
#:|applicationCacheQuotaExceeded|
#:|applicationDirPath.QCoreApplication|
#:|applicationDisplayName.QGuiApplication|
#:|applicationDisplayNameChanged|
#:|applicationFilePath.QCoreApplication|
#:|applicationFontFamilies.QFontDatabase|
#:|applicationName.QCoreApplication|
@ -656,7 +658,9 @@
#:|changePosition|
#:|changeSize|
#:|changed|
#:|channelBytesWritten|
#:|channelCount|
#:|channelReadyRead|
#:|charFormatIndex|
#:|charFormat|
#:|characterAt|
@ -1146,6 +1150,7 @@
#:|defaultTextColor|
#:|defaultTextEncoding|
#:|defaultTextOption|
#:|defaultTransitionChanged|
#:|defaultValue|
#:|defaultWidget|
#:|definitionSize.QPageSize|
@ -1194,21 +1199,17 @@
#:|direction|
#:|directories|
#:|directoryChanged|
#:|directoryEntered|
#:|directoryLoaded|
#:|directoryUrlEntered|
#:|directoryUrl|
#:|directory|
#:|dirtyRegionOffset|))
#:|directoryEntered|))
(in-package :eql)
(pushnew :qt-wrapper-functions *features*)
(defun %auto-cast (object)
(when (find (qt-object-id (ensure-qt-object object))
'#.(list (qid "QGraphicsSvgItem")
(qid "QGraphicsTextItem")
(qid "QGraphicsVideoItem")
(qid "QGraphicsWidget")))
"QGraphicsItem"))
;; we want speed here, not elegance
(let ((id (qt-object-id (ensure-qt-object object))))
(when (or (= id (qid "QGraphicsSvgItem"))
(= id (qid "QGraphicsTextItem"))
(= id (qid "QGraphicsVideoItem"))
(= id (qid "QGraphicsWidget")))
"QGraphicsItem")))

96
src/lisp/all-wrappers-10.lisp
View file

@ -1,5 +1,41 @@
(in-package :eql)
(defun |releaseKeyboard| (object &rest arguments)
(%qinvoke-method object nil "releaseKeyboard" arguments))
(defun |releaseMouse| (object &rest arguments)
(%qinvoke-method object nil "releaseMouse" arguments))
(defun |releaseResources| (object &rest arguments)
(%qinvoke-method object nil "releaseResources" arguments))
(defun |releaseShortcut| (object &rest arguments)
(%qinvoke-method object nil "releaseShortcut" arguments))
(defun |releaseWidget| (object &rest arguments)
(%qinvoke-method object nil "releaseWidget" arguments))
(defun |released| (object &rest arguments)
(%qinvoke-method object nil "released" arguments))
(defun |release| (object &rest arguments)
(%qinvoke-method object nil "release" arguments))
(defun |reload| (object &rest arguments)
(%qinvoke-method object nil "reload" arguments))
(defun |remainingTime| (object &rest arguments)
(%qinvoke-method object nil "remainingTime" arguments))
(defun |remove.QFile| (&rest arguments)
(%qinvoke-method "QFile" nil "remove" arguments))
(defun |remove.QPixmapCache| (&rest arguments)
(%qinvoke-method "QPixmapCache" nil "remove" arguments))
(defun |removeAccessWhitelistEntry| (object &rest arguments)
(%qinvoke-method object nil "removeAccessWhitelistEntry" arguments))
(defun |removeAction| (object &rest arguments)
(%qinvoke-method object nil "removeAction" arguments))
@ -342,6 +378,9 @@
(defun |resetCachedContent| (object &rest arguments)
(%qinvoke-method object nil "resetCachedContent" arguments))
(defun |resetClean| (object &rest arguments)
(%qinvoke-method object nil "resetClean" arguments))
(defun |resetContentsSize| (object &rest arguments)
(%qinvoke-method object nil "resetContentsSize" arguments))
@ -840,6 +879,9 @@
(defun |scheduleDelayedItemsLayout| (object &rest arguments)
(%qinvoke-method object nil "scheduleDelayedItemsLayout" arguments))
(defun |scheduleIndexDocumentation| (object &rest arguments)
(%qinvoke-method object nil "scheduleIndexDocumentation" arguments))
(defun |scheduleRenderJob| (object &rest arguments)
(%qinvoke-method object nil "scheduleRenderJob" arguments))
@ -960,6 +1002,12 @@
(defun |scroll| (object &rest arguments)
(%qinvoke-method object (%auto-cast object) "scroll" arguments))
(defun |search(QList<QHelpSearchQuery>)| (object &rest arguments)
(%qinvoke-method object nil "search(QList<QHelpSearchQuery>)" arguments))
(defun |search(QString)| (object &rest arguments)
(%qinvoke-method object nil "search(QString)" arguments))
(defun |searchAllStations| (object &rest arguments)
(%qinvoke-method object nil "searchAllStations" arguments))
@ -3551,51 +3599,3 @@
(defun |setMaterial| (object &rest arguments)
(%qinvoke-method object nil "setMaterial" arguments))
(defun |setMatrix| (object &rest arguments)
(%qinvoke-method object nil "setMatrix" arguments))
(defun |setMaxCount| (object &rest arguments)
(%qinvoke-method object nil "setMaxCount" arguments))
(defun |setMaxLength| (object &rest arguments)
(%qinvoke-method object nil "setMaxLength" arguments))
(defun |setMaxPendingConnections| (object &rest arguments)
(%qinvoke-method object nil "setMaxPendingConnections" arguments))
(defun |setMaxVisibleItems| (object &rest arguments)
(%qinvoke-method object nil "setMaxVisibleItems" arguments))
(defun |setMaximumAnisotropy| (object &rest arguments)
(%qinvoke-method object nil "setMaximumAnisotropy" arguments))
(defun |setMaximumBlockCount| (object &rest arguments)
(%qinvoke-method object nil "setMaximumBlockCount" arguments))
(defun |setMaximumCacheSize| (object &rest arguments)
(%qinvoke-method object nil "setMaximumCacheSize" arguments))
(defun |setMaximumDateTime| (object &rest arguments)
(%qinvoke-method object nil "setMaximumDateTime" arguments))
(defun |setMaximumDate| (object &rest arguments)
(%qinvoke-method object nil "setMaximumDate" arguments))
(defun |setMaximumFrameRate| (object &rest arguments)
(%qinvoke-method object nil "setMaximumFrameRate" arguments))
(defun |setMaximumHeight| (object &rest arguments)
(%qinvoke-method object nil "setMaximumHeight" arguments))
(defun |setMaximumLevelOfDetail| (object &rest arguments)
(%qinvoke-method object nil "setMaximumLevelOfDetail" arguments))
(defun |setMaximumPagesInCache.QWebSettings| (&rest arguments)
(%qinvoke-method "QWebSettings" nil "setMaximumPagesInCache" arguments))
(defun |setMaximumSectionSize| (object &rest arguments)
(%qinvoke-method object nil "setMaximumSectionSize" arguments))
(defun |setMaximumSize| (object &rest arguments)
(%qinvoke-method object nil "setMaximumSize" arguments))

138
src/lisp/all-wrappers-11.lisp
View file

@ -1,5 +1,53 @@
(in-package :eql)
(defun |setMatrix| (object &rest arguments)
(%qinvoke-method object nil "setMatrix" arguments))
(defun |setMaxCount| (object &rest arguments)
(%qinvoke-method object nil "setMaxCount" arguments))
(defun |setMaxLength| (object &rest arguments)
(%qinvoke-method object nil "setMaxLength" arguments))
(defun |setMaxPendingConnections| (object &rest arguments)
(%qinvoke-method object nil "setMaxPendingConnections" arguments))
(defun |setMaxVisibleItems| (object &rest arguments)
(%qinvoke-method object nil "setMaxVisibleItems" arguments))
(defun |setMaximumAnisotropy| (object &rest arguments)
(%qinvoke-method object nil "setMaximumAnisotropy" arguments))
(defun |setMaximumBlockCount| (object &rest arguments)
(%qinvoke-method object nil "setMaximumBlockCount" arguments))
(defun |setMaximumCacheSize| (object &rest arguments)
(%qinvoke-method object nil "setMaximumCacheSize" arguments))
(defun |setMaximumDateTime| (object &rest arguments)
(%qinvoke-method object nil "setMaximumDateTime" arguments))
(defun |setMaximumDate| (object &rest arguments)
(%qinvoke-method object nil "setMaximumDate" arguments))
(defun |setMaximumFrameRate| (object &rest arguments)
(%qinvoke-method object nil "setMaximumFrameRate" arguments))
(defun |setMaximumHeight| (object &rest arguments)
(%qinvoke-method object nil "setMaximumHeight" arguments))
(defun |setMaximumLevelOfDetail| (object &rest arguments)
(%qinvoke-method object nil "setMaximumLevelOfDetail" arguments))
(defun |setMaximumPagesInCache.QWebSettings| (&rest arguments)
(%qinvoke-method "QWebSettings" nil "setMaximumPagesInCache" arguments))
(defun |setMaximumSectionSize| (object &rest arguments)
(%qinvoke-method object nil "setMaximumSectionSize" arguments))
(defun |setMaximumSize| (object &rest arguments)
(%qinvoke-method object nil "setMaximumSize" arguments))
(defun |setMaximumTime| (object &rest arguments)
(%qinvoke-method object nil "setMaximumTime" arguments))
@ -2265,6 +2313,18 @@
(defun |showMenu| (object &rest arguments)
(%qinvoke-method object nil "showMenu" arguments))
(defun |showMessage(QString,QString,QIcon)| (object &rest arguments)
(%qinvoke-method object nil "showMessage(QString,QString,QIcon)" arguments))
(defun |showMessage(QString,QString,QIcon...)| (object &rest arguments)
(%qinvoke-method object nil "showMessage(QString,QString,QIcon...)" arguments))
(defun |showMessage(QString,QString,QSystemTrayIcon::MessageIcon)| (object &rest arguments)
(%qinvoke-method object nil "showMessage(QString,QString,QSystemTrayIcon::MessageIcon)" arguments))
(defun |showMessage(QString,QString,QSystemTrayIcon::MessageIcon...)| (object &rest arguments)
(%qinvoke-method object nil "showMessage(QString,QString,QSystemTrayIcon::MessageIcon...)" arguments))
(defun |showMessage| (object &rest arguments)
(%qinvoke-method object nil "showMessage" arguments))
@ -3177,6 +3237,9 @@
(defun |tabData| (object &rest arguments)
(%qinvoke-method object nil "tabData" arguments))
(defun |tabFocusBehaviorChanged| (object &rest arguments)
(%qinvoke-method object nil "tabFocusBehaviorChanged" arguments))
(defun |tabFocusBehavior| (object &rest arguments)
(%qinvoke-method object nil "tabFocusBehavior" arguments))
@ -3219,6 +3282,9 @@
(defun |tabWhatsThis| (object &rest arguments)
(%qinvoke-method object nil "tabWhatsThis" arguments))
(defun |tabifiedDockWidgetActivated| (object &rest arguments)
(%qinvoke-method object nil "tabifiedDockWidgetActivated" arguments))
(defun |tabifiedDockWidgets| (object &rest arguments)
(%qinvoke-method object nil "tabifiedDockWidgets" arguments))
@ -3468,6 +3534,9 @@
(defun |textureProvider| (object &rest arguments)
(%qinvoke-method object nil "textureProvider" arguments))
(defun |textureSizeChanged| (object &rest arguments)
(%qinvoke-method object nil "textureSizeChanged" arguments))
(defun |textureSize| (object &rest arguments)
(%qinvoke-method object nil "textureSize" arguments))
@ -3530,72 +3599,3 @@
(defun |timerType| (object &rest arguments)
(%qinvoke-method object nil "timerType" arguments))
(defun |timestamp| (object &rest arguments)
(%qinvoke-method object nil "timestamp" arguments))
(defun |time| (object &rest arguments)
(%qinvoke-method object nil "time" arguments))
(defun |tip| (object &rest arguments)
(%qinvoke-method object nil "tip" arguments))
(defun |titleBarWidget| (object &rest arguments)
(%qinvoke-method object nil "titleBarWidget" arguments))
(defun |titleChanged| (object &rest arguments)
(%qinvoke-method object nil "titleChanged" arguments))
(defun |titleFormat| (object &rest arguments)
(%qinvoke-method object nil "titleFormat" arguments))
(defun |title| (object &rest arguments)
(%qinvoke-method object nil "title" arguments))
(defun |toAce.QUrl| (&rest arguments)
(%qinvoke-method "QUrl" nil "toAce" arguments))
(defun |toAffine| (object &rest arguments)
(%qinvoke-method object nil "toAffine" arguments))
(defun |toBitArray| (object &rest arguments)
(%qinvoke-method object nil "toBitArray" arguments))
(defun |toBlockFormat| (object &rest arguments)
(%qinvoke-method object nil "toBlockFormat" arguments))
(defun |toBool| (object &rest arguments)
(%qinvoke-method object nil "toBool" arguments))
(defun |toByteArray| (object &rest arguments)
(%qinvoke-method object nil "toByteArray" arguments))
(defun |toCharFormat| (object &rest arguments)
(%qinvoke-method object nil "toCharFormat" arguments))
(defun |toChar| (object &rest arguments)
(%qinvoke-method object nil "toChar" arguments))
(defun |toCmyk| (object &rest arguments)
(%qinvoke-method object nil "toCmyk" arguments))
(defun |toCubicSpline| (object &rest arguments)
(%qinvoke-method object nil "toCubicSpline" arguments))
(defun |toCurrencyString(double)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(double)" arguments))
(defun |toCurrencyString(double...)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(double...)" arguments))
(defun |toCurrencyString(float)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(float)" arguments))
(defun |toCurrencyString(float...)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(float...)" arguments))
(defun |toCurrencyString(int)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(int)" arguments))
(defun |toCurrencyString(int...)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(int...)" arguments))

75
src/lisp/all-wrappers-12.lisp
View file

@ -1,5 +1,74 @@
(in-package :eql)
(defun |timestamp| (object &rest arguments)
(%qinvoke-method object nil "timestamp" arguments))
(defun |time| (object &rest arguments)
(%qinvoke-method object nil "time" arguments))
(defun |tip| (object &rest arguments)
(%qinvoke-method object nil "tip" arguments))
(defun |titleBarWidget| (object &rest arguments)
(%qinvoke-method object nil "titleBarWidget" arguments))
(defun |titleChanged| (object &rest arguments)
(%qinvoke-method object nil "titleChanged" arguments))
(defun |titleFormat| (object &rest arguments)
(%qinvoke-method object nil "titleFormat" arguments))
(defun |title| (object &rest arguments)
(%qinvoke-method object nil "title" arguments))
(defun |toAce.QUrl| (&rest arguments)
(%qinvoke-method "QUrl" nil "toAce" arguments))
(defun |toAffine| (object &rest arguments)
(%qinvoke-method object nil "toAffine" arguments))
(defun |toBitArray| (object &rest arguments)
(%qinvoke-method object nil "toBitArray" arguments))
(defun |toBlockFormat| (object &rest arguments)
(%qinvoke-method object nil "toBlockFormat" arguments))
(defun |toBool| (object &rest arguments)
(%qinvoke-method object nil "toBool" arguments))
(defun |toByteArray| (object &rest arguments)
(%qinvoke-method object nil "toByteArray" arguments))
(defun |toCharFormat| (object &rest arguments)
(%qinvoke-method object nil "toCharFormat" arguments))
(defun |toChar| (object &rest arguments)
(%qinvoke-method object nil "toChar" arguments))
(defun |toCmyk| (object &rest arguments)
(%qinvoke-method object nil "toCmyk" arguments))
(defun |toCubicSpline| (object &rest arguments)
(%qinvoke-method object nil "toCubicSpline" arguments))
(defun |toCurrencyString(double)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(double)" arguments))
(defun |toCurrencyString(double...)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(double...)" arguments))
(defun |toCurrencyString(float)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(float)" arguments))
(defun |toCurrencyString(float...)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(float...)" arguments))
(defun |toCurrencyString(int)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(int)" arguments))
(defun |toCurrencyString(int...)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(int...)" arguments))
(defun |toCurrencyString(qlonglong)| (object &rest arguments)
(%qinvoke-method object nil "toCurrencyString(qlonglong)" arguments))
@ -1050,6 +1119,9 @@
(defun |useDesignMetrics| (object &rest arguments)
(%qinvoke-method object nil "useDesignMetrics" arguments))
(defun |useHoverEffectsChanged| (object &rest arguments)
(%qinvoke-method object nil "useHoverEffectsChanged" arguments))
(defun |useRtlExtensions| (object &rest arguments)
(%qinvoke-method object nil "useRtlExtensions" arguments))
@ -1398,6 +1470,9 @@
(defun |wheelScrollLines.QApplication| (&rest arguments)
(%qinvoke-method "QApplication" nil "wheelScrollLines" arguments))
(defun |wheelScrollLinesChanged| (object &rest arguments)
(%qinvoke-method object nil "wheelScrollLinesChanged" arguments))
(defun |whiteBalanceMode| (object &rest arguments)
(%qinvoke-method object nil "whiteBalanceMode" arguments))

18
src/lisp/all-wrappers-2.lisp
View file

@ -1,5 +1,10 @@
(defpackage :eql
(:export
#:|directoryLoaded|
#:|directoryUrlEntered|
#:|directoryUrl|
#:|directory|
#:|dirtyRegionOffset|
#:|dir|
#:|disableAttributeArray(const char*)|
#:|disableAttributeArray(int)|
@ -281,6 +286,7 @@
#:|eraseRect(QRect)|
#:|eraseRect(QRectF)|
#:|eraseRect|
#:|errorOccurred|
#:|errorStateChanged|
#:|errorState|
#:|errorString|
@ -523,7 +529,6 @@
#:|font|
#:|forceActiveFocus|
#:|forceCompletion|
#:|forcePolish|
#:|forceShow|
#:|foregroundBrush|
#:|foregroundColor|
@ -696,6 +701,7 @@
#:|groupId|
#:|groupSeparator|
#:|group|
#:|handleScreenChanged|
#:|handleWidth|
#:|handle|
#:|hardwareAddress|
@ -950,6 +956,7 @@
#:|inputChannelMode|
#:|inputDirectionChanged|
#:|inputDirection|
#:|inputItemClipRectangleChanged|
#:|inputItemRectangle|
#:|inputItemTransform|
#:|inputMask|
@ -1192,11 +1199,4 @@
#:|isGenerated(int)|
#:|isGenerated|
#:|isGrayscale|
#:|isGridVisible|
#:|isGroupSeparatorShown|
#:|isHeaderHidden|
#:|isHidden|
#:|isHttpOnly|
#:|isIconVisibleInMenu|
#:|isIdentifierEscaped|
#:|isIdentity|))
#:|isGridVisible|))

26
src/lisp/all-wrappers-3.lisp
View file

@ -1,5 +1,12 @@
(defpackage :eql
(:export
#:|isGroupSeparatorShown|
#:|isHeaderHidden|
#:|isHidden|
#:|isHttpOnly|
#:|isIconVisibleInMenu|
#:|isIdentifierEscaped|
#:|isIdentity|
#:|isImageFormat|
#:|isInSubnet|
#:|isInteractive|
@ -632,6 +639,7 @@
#:|mipMaxLevel|
#:|mipmapFiltering|
#:|mipmap|
#:|mirrorVerticallyChanged|
#:|mirrored|
#:|miterLimit|
#:|mkdir|
@ -662,6 +670,7 @@
#:|mouseGrabber.QWidget|
#:|mouseGrabberItem|
#:|mouseMoveEvent|
#:|mousePressAndHoldIntervalChanged|
#:|mousePressAndHoldInterval|
#:|mousePressEvent|
#:|mouseReleaseEvent|
@ -939,6 +948,7 @@
#:|physicalDotsPerInchX|
#:|physicalDotsPerInchY|
#:|physicalDotsPerInch|
#:|physicalDpiChanged|
#:|physicalDpiX|
#:|physicalDpiY|
#:|physicalSizeChanged|
@ -1155,6 +1165,8 @@
#:|rect|
#:|redBufferSize|
#:|redF|
#:|redirectAllowed|
#:|redirected|
#:|redoAvailable|
#:|redoTextChanged|
#:|redoText|
@ -1187,16 +1199,4 @@
#:|relationModel|
#:|relation|
#:|relativeFilePath|
#:|releaseControl|
#:|releaseKeyboard|
#:|releaseMouse|
#:|releaseResources|
#:|releaseShortcut|
#:|releaseWidget|
#:|released|
#:|release|
#:|reload|
#:|remainingTime|
#:|remove.QFile|
#:|remove.QPixmapCache|
#:|removeAccessWhitelistEntry|))
#:|releaseControl|))

34
src/lisp/all-wrappers-4.lisp
View file

@ -1,5 +1,17 @@
(defpackage :eql
(:export
#:|releaseKeyboard|
#:|releaseMouse|
#:|releaseResources|
#:|releaseShortcut|
#:|releaseWidget|
#:|released|
#:|release|
#:|reload|
#:|remainingTime|
#:|remove.QFile|
#:|remove.QPixmapCache|
#:|removeAccessWhitelistEntry|
#:|removeAction|
#:|removeAllApplicationFonts.QFontDatabase|
#:|removeAllChildNodes|
@ -114,6 +126,7 @@
#:|resetAttribute|
#:|resetBindCount|
#:|resetCachedContent|
#:|resetClean|
#:|resetContentsSize|
#:|resetDefaultSectionSize|
#:|resetFontFamily|
@ -280,6 +293,7 @@
#:|sceneTransform|
#:|scene|
#:|scheduleDelayedItemsLayout|
#:|scheduleIndexDocumentation|
#:|scheduleRenderJob|
#:|scheme|
#:|scopeId|
@ -320,6 +334,8 @@
#:|scrollToTop|
#:|scrollTo|
#:|scroll|
#:|search(QList<QHelpSearchQuery>)|
#:|search(QString)|
#:|searchAllStations|
#:|searchAndLock|
#:|searchBackward|
@ -1183,20 +1199,4 @@
#:|setMask(QBitmap)|
#:|setMask(QRegion)|
#:|setMask|
#:|setMaterial|
#:|setMatrix|
#:|setMaxCount|
#:|setMaxLength|
#:|setMaxPendingConnections|
#:|setMaxVisibleItems|
#:|setMaximumAnisotropy|
#:|setMaximumBlockCount|
#:|setMaximumCacheSize|
#:|setMaximumDateTime|
#:|setMaximumDate|
#:|setMaximumFrameRate|
#:|setMaximumHeight|
#:|setMaximumLevelOfDetail|
#:|setMaximumPagesInCache.QWebSettings|
#:|setMaximumSectionSize|
#:|setMaximumSize|))
#:|setMaterial|))

48
src/lisp/all-wrappers-5.lisp
View file

@ -1,5 +1,21 @@
(defpackage :eql
(:export
#:|setMatrix|
#:|setMaxCount|
#:|setMaxLength|
#:|setMaxPendingConnections|
#:|setMaxVisibleItems|
#:|setMaximumAnisotropy|
#:|setMaximumBlockCount|
#:|setMaximumCacheSize|
#:|setMaximumDateTime|
#:|setMaximumDate|
#:|setMaximumFrameRate|
#:|setMaximumHeight|
#:|setMaximumLevelOfDetail|
#:|setMaximumPagesInCache.QWebSettings|
#:|setMaximumSectionSize|
#:|setMaximumSize|
#:|setMaximumTime|
#:|setMaximumTouchPoints|
#:|setMaximumWidth|
@ -755,6 +771,10 @@
#:|showLink|
#:|showMaximized|
#:|showMenu|
#:|showMessage(QString,QString,QIcon)|
#:|showMessage(QString,QString,QIcon...)|
#:|showMessage(QString,QString,QSystemTrayIcon::MessageIcon)|
#:|showMessage(QString,QString,QSystemTrayIcon::MessageIcon...)|
#:|showMessage|
#:|showMinimized|
#:|showNextMonth|
@ -1059,6 +1079,7 @@
#:|tabChangesFocus|
#:|tabCloseRequested|
#:|tabData|
#:|tabFocusBehaviorChanged|
#:|tabFocusBehavior|
#:|tabIcon|
#:|tabKeyNavigation|
@ -1073,6 +1094,7 @@
#:|tabText|
#:|tabToolTip|
#:|tabWhatsThis|
#:|tabifiedDockWidgetActivated|
#:|tabifiedDockWidgets|
#:|tabifyDockWidget|
#:|tableCellFormatIndex|
@ -1156,6 +1178,7 @@
#:|textureId|
#:|textureImage|
#:|textureProvider|
#:|textureSizeChanged|
#:|textureSize|
#:|textureTarget|
#:|texture|
@ -1176,27 +1199,4 @@
#:|timeout.QTapAndHoldGesture|
#:|timeout|
#:|timerId|
#:|timerType|
#:|timestamp|
#:|time|
#:|tip|
#:|titleBarWidget|
#:|titleChanged|
#:|titleFormat|
#:|title|
#:|toAce.QUrl|
#:|toAffine|
#:|toBitArray|
#:|toBlockFormat|
#:|toBool|
#:|toByteArray|
#:|toCharFormat|
#:|toChar|
#:|toCmyk|
#:|toCubicSpline|
#:|toCurrencyString(double)|
#:|toCurrencyString(double...)|
#:|toCurrencyString(float)|
#:|toCurrencyString(float...)|
#:|toCurrencyString(int)|
#:|toCurrencyString(int...)|))
#:|timerType|))

25
src/lisp/all-wrappers-6.lisp
View file

@ -1,5 +1,28 @@
(defpackage :eql
(:export
#:|timestamp|
#:|time|
#:|tip|
#:|titleBarWidget|
#:|titleChanged|
#:|titleFormat|
#:|title|
#:|toAce.QUrl|
#:|toAffine|
#:|toBitArray|
#:|toBlockFormat|
#:|toBool|
#:|toByteArray|
#:|toCharFormat|
#:|toChar|
#:|toCmyk|
#:|toCubicSpline|
#:|toCurrencyString(double)|
#:|toCurrencyString(double...)|
#:|toCurrencyString(float)|
#:|toCurrencyString(float...)|
#:|toCurrencyString(int)|
#:|toCurrencyString(int...)|
#:|toCurrencyString(qlonglong)|
#:|toCurrencyString(qlonglong...)|
#:|toCurrencyString(qulonglong)|
@ -350,6 +373,7 @@
#:|urls|
#:|url|
#:|useDesignMetrics|
#:|useHoverEffectsChanged|
#:|useRtlExtensions|
#:|usedBits|
#:|userData|
@ -466,6 +490,7 @@
#:|whatsThis|
#:|wheelEvent|
#:|wheelScrollLines.QApplication|
#:|wheelScrollLinesChanged|
#:|whiteBalanceMode|
#:|widgetAt.QApplication|
#:|widgetEvent|

30
src/lisp/all-wrappers-7.lisp
View file

@ -735,6 +735,9 @@
(defun |anchorNames| (object &rest arguments)
(%qinvoke-method object nil "anchorNames" arguments))
(defun |anchorRectangleChanged| (object &rest arguments)
(%qinvoke-method object nil "anchorRectangleChanged" arguments))
(defun |anchor| (object &rest arguments)
(%qinvoke-method object nil "anchor" arguments))
@ -852,6 +855,9 @@
(defun |applicationDisplayName.QGuiApplication| (&rest arguments)
(%qinvoke-method "QGuiApplication" nil "applicationDisplayName" arguments))
(defun |applicationDisplayNameChanged| (object &rest arguments)
(%qinvoke-method object nil "applicationDisplayNameChanged" arguments))
(defun |applicationFilePath.QCoreApplication| (&rest arguments)
(%qinvoke-method "QCoreApplication" nil "applicationFilePath" arguments))
@ -1968,9 +1974,15 @@
(defun |changed| (object &rest arguments)
(%qinvoke-method object nil "changed" arguments))
(defun |channelBytesWritten| (object &rest arguments)
(%qinvoke-method object nil "channelBytesWritten" arguments))
(defun |channelCount| (object &rest arguments)
(%qinvoke-method object nil "channelCount" arguments))
(defun |channelReadyRead| (object &rest arguments)
(%qinvoke-method object nil "channelReadyRead" arguments))
(defun |charFormatIndex| (object &rest arguments)
(%qinvoke-method object nil "charFormatIndex" arguments))
@ -3438,6 +3450,9 @@
(defun |defaultTextOption| (object &rest arguments)
(%qinvoke-method object nil "defaultTextOption" arguments))
(defun |defaultTransitionChanged| (object &rest arguments)
(%qinvoke-method object nil "defaultTransitionChanged" arguments))
(defun |defaultValue| (object &rest arguments)
(%qinvoke-method object nil "defaultValue" arguments))
@ -3584,18 +3599,3 @@
(defun |directoryEntered| (object &rest arguments)
(%qinvoke-method object nil "directoryEntered" arguments))
(defun |directoryLoaded| (object &rest arguments)
(%qinvoke-method object nil "directoryLoaded" arguments))
(defun |directoryUrlEntered| (object &rest arguments)
(%qinvoke-method object nil "directoryUrlEntered" arguments))
(defun |directoryUrl| (object &rest arguments)
(%qinvoke-method object nil "directoryUrl" arguments))
(defun |directory| (object &rest arguments)
(%qinvoke-method object nil "directory" arguments))
(defun |dirtyRegionOffset| (object &rest arguments)
(%qinvoke-method object nil "dirtyRegionOffset" arguments))

48
src/lisp/all-wrappers-8.lisp
View file

@ -1,5 +1,20 @@
(in-package :eql)
(defun |directoryLoaded| (object &rest arguments)
(%qinvoke-method object nil "directoryLoaded" arguments))
(defun |directoryUrlEntered| (object &rest arguments)
(%qinvoke-method object nil "directoryUrlEntered" arguments))
(defun |directoryUrl| (object &rest arguments)
(%qinvoke-method object nil "directoryUrl" arguments))
(defun |directory| (object &rest arguments)
(%qinvoke-method object nil "directory" arguments))
(defun |dirtyRegionOffset| (object &rest arguments)
(%qinvoke-method object nil "dirtyRegionOffset" arguments))
(defun |dir| (object &rest arguments)
(%qinvoke-method object nil "dir" arguments))
@ -843,6 +858,9 @@
(defun |eraseRect| (object &rest arguments)
(%qinvoke-method object nil "eraseRect" arguments))
(defun |errorOccurred| (object &rest arguments)
(%qinvoke-method object nil "errorOccurred" arguments))
(defun |errorStateChanged| (object &rest arguments)
(%qinvoke-method object nil "errorStateChanged" arguments))
@ -1569,9 +1587,6 @@
(defun |forceCompletion| (object &rest arguments)
(%qinvoke-method object nil "forceCompletion" arguments))
(defun |forcePolish| (object &rest arguments)
(%qinvoke-method object nil "forcePolish" arguments))
(defun |forceShow| (object &rest arguments)
(%qinvoke-method object nil "forceShow" arguments))
@ -2088,6 +2103,9 @@
(defun |group| (object &rest arguments)
(%qinvoke-method object (%auto-cast object) "group" arguments))
(defun |handleScreenChanged| (object &rest arguments)
(%qinvoke-method object nil "handleScreenChanged" arguments))
(defun |handleWidth| (object &rest arguments)
(%qinvoke-method object nil "handleWidth" arguments))
@ -2850,6 +2868,9 @@
(defun |inputDirection| (object &rest arguments)
(%qinvoke-method object nil "inputDirection" arguments))
(defun |inputItemClipRectangleChanged| (object &rest arguments)
(%qinvoke-method object nil "inputItemClipRectangleChanged" arguments))
(defun |inputItemRectangle| (object &rest arguments)
(%qinvoke-method object nil "inputItemRectangle" arguments))
@ -3578,24 +3599,3 @@
(defun |isGridVisible| (object &rest arguments)
(%qinvoke-method object nil "isGridVisible" arguments))
(defun |isGroupSeparatorShown| (object &rest arguments)
(%qinvoke-method object nil "isGroupSeparatorShown" arguments))
(defun |isHeaderHidden| (object &rest arguments)
(%qinvoke-method object nil "isHeaderHidden" arguments))
(defun |isHidden| (object &rest arguments)
(%qinvoke-method object nil "isHidden" arguments))
(defun |isHttpOnly| (object &rest arguments)
(%qinvoke-method object nil "isHttpOnly" arguments))
(defun |isIconVisibleInMenu| (object &rest arguments)
(%qinvoke-method object nil "isIconVisibleInMenu" arguments))
(defun |isIdentifierEscaped| (object &rest arguments)
(%qinvoke-method object nil "isIdentifierEscaped" arguments))
(defun |isIdentity| (object &rest arguments)
(%qinvoke-method object nil "isIdentity" arguments))

72
src/lisp/all-wrappers-9.lisp
View file

@ -1,5 +1,26 @@
(in-package :eql)
(defun |isGroupSeparatorShown| (object &rest arguments)
(%qinvoke-method object nil "isGroupSeparatorShown" arguments))
(defun |isHeaderHidden| (object &rest arguments)
(%qinvoke-method object nil "isHeaderHidden" arguments))
(defun |isHidden| (object &rest arguments)
(%qinvoke-method object nil "isHidden" arguments))
(defun |isHttpOnly| (object &rest arguments)
(%qinvoke-method object nil "isHttpOnly" arguments))
(defun |isIconVisibleInMenu| (object &rest arguments)
(%qinvoke-method object nil "isIconVisibleInMenu" arguments))
(defun |isIdentifierEscaped| (object &rest arguments)
(%qinvoke-method object nil "isIdentifierEscaped" arguments))
(defun |isIdentity| (object &rest arguments)
(%qinvoke-method object nil "isIdentity" arguments))
(defun |isImageFormat| (object &rest arguments)
(%qinvoke-method object nil "isImageFormat" arguments))
@ -1896,6 +1917,9 @@
(defun |mipmap| (object &rest arguments)
(%qinvoke-method object nil "mipmap" arguments))
(defun |mirrorVerticallyChanged| (object &rest arguments)
(%qinvoke-method object nil "mirrorVerticallyChanged" arguments))
(defun |mirrored| (object &rest arguments)
(%qinvoke-method object nil "mirrored" arguments))
@ -1986,6 +2010,9 @@
(defun |mouseMoveEvent| (object &rest arguments)
(%qinvoke-method object nil "mouseMoveEvent" arguments))
(defun |mousePressAndHoldIntervalChanged| (object &rest arguments)
(%qinvoke-method object nil "mousePressAndHoldIntervalChanged" arguments))
(defun |mousePressAndHoldInterval| (object &rest arguments)
(%qinvoke-method object nil "mousePressAndHoldInterval" arguments))
@ -2817,6 +2844,9 @@
(defun |physicalDotsPerInch| (object &rest arguments)
(%qinvoke-method object nil "physicalDotsPerInch" arguments))
(defun |physicalDpiChanged| (object &rest arguments)
(%qinvoke-method object nil "physicalDpiChanged" arguments))
(defun |physicalDpiX| (object &rest arguments)
(%qinvoke-method object nil "physicalDpiX" arguments))
@ -3465,6 +3495,12 @@
(defun |redF| (object &rest arguments)
(%qinvoke-method object nil "redF" arguments))
(defun |redirectAllowed| (object &rest arguments)
(%qinvoke-method object nil "redirectAllowed" arguments))
(defun |redirected| (object &rest arguments)
(%qinvoke-method object nil "redirected" arguments))
(defun |redoAvailable| (object &rest arguments)
(%qinvoke-method object nil "redoAvailable" arguments))
@ -3563,39 +3599,3 @@
(defun |releaseControl| (object &rest arguments)
(%qinvoke-method object nil "releaseControl" arguments))
(defun |releaseKeyboard| (object &rest arguments)
(%qinvoke-method object nil "releaseKeyboard" arguments))
(defun |releaseMouse| (object &rest arguments)
(%qinvoke-method object nil "releaseMouse" arguments))
(defun |releaseResources| (object &rest arguments)
(%qinvoke-method object nil "releaseResources" arguments))
(defun |releaseShortcut| (object &rest arguments)
(%qinvoke-method object nil "releaseShortcut" arguments))
(defun |releaseWidget| (object &rest arguments)
(%qinvoke-method object nil "releaseWidget" arguments))
(defun |released| (object &rest arguments)
(%qinvoke-method object nil "released" arguments))
(defun |release| (object &rest arguments)
(%qinvoke-method object nil "release" arguments))
(defun |reload| (object &rest arguments)
(%qinvoke-method object nil "reload" arguments))
(defun |remainingTime| (object &rest arguments)
(%qinvoke-method object nil "remainingTime" arguments))
(defun |remove.QFile| (&rest arguments)
(%qinvoke-method "QFile" nil "remove" arguments))
(defun |remove.QPixmapCache| (&rest arguments)
(%qinvoke-method "QPixmapCache" nil "remove" arguments))
(defun |removeAccessWhitelistEntry| (object &rest arguments)
(%qinvoke-method object nil "removeAccessWhitelistEntry" arguments))

14
src/lisp/define-all-wrappers.lisp
View file

@ -146,12 +146,14 @@
~%(pushnew :qt-wrapper-functions *features*)~
~%~
~%(defun %auto-cast (object)~
~% (when (find (qt-object-id (ensure-qt-object object))~
~% '#.(list (qid \"QGraphicsSvgItem\")~
~% (qid \"QGraphicsTextItem\")~
~% (qid \"QGraphicsVideoItem\")~
~% (qid \"QGraphicsWidget\")))~
~% \"QGraphicsItem\"))~%")))))
~% ;; we want speed here, not elegance, and we can't use reader macros~
~% ;; (because of cross-compiling for Android)~
~% (let ((id (qt-object-id (ensure-qt-object object))))~
~% (when (or (= id (qid \"QGraphicsSvgItem\"))~
~% (= id (qid \"QGraphicsTextItem\"))~
~% (= id (qid \"QGraphicsVideoItem\"))~
~% (= id (qid \"QGraphicsWidget\")))~
~% \"QGraphicsItem\")))~%")))))
(setf definitions (sort (delete-duplicates definitions :test 'string=) 'string<))
(print (length definitions))
(x:while definitions