luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Always specify the direction of input method arguments in introspection, otherwise the 'qdbusviewer' tool does not work.

Browse Source 
[GB.DBUS]
* BUG: Always specify the direction of input method arguments in introspection, otherwise the 'qdbusviewer' tool does not work.
This commit is contained in:
gambas 2019-09-12 03:40:44 +02:00
parent 6c9e09730d
commit f34989d4be
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gb.dbus/src/gb.dbus/.project
View File

@ -1,7 +1,7 @@
# Gambas Project File 3.0
Title=gb.dbus
Startup=MMain
Version=3.11.90
Version=3.13.90
VersionFile=1
Component=gb.dbus
TabSize=2

4
gb.dbus/src/gb.dbus/.src/DBusObject.class
View File

@ -127,7 +127,7 @@ Public Sub _Register(hConnection As DBusConnection, sFullPath As String, Optiona
If Not $sName Then
$sName = DBus._RegisterApplication(hConnection)
If Not DBus.Unique Then $sName = Left($sName, - Len(CStr(Application.Id)) - 1)
If Not DBus.Unique Then $sName = Left($sName, -Len(CStr(Application.Id)) - 1)
Endif
iPos = InStr(sFullPath, "/")
@ -387,7 +387,7 @@ Public Sub _Introspect() As String
sArg = ""
For iInd = 0 To aSign.Max
sArg &= " <arg name=\"arg" & CStr(iInd + 1) & "\" type=\"" & aSign[iInd] & "\"/>\n"
sArg &= " <arg name=\"arg" & CStr(iInd + 1) & "\" type=\"" & aSign[iInd] & "\" direction=\"in\"/>\n"
Next
If sKind = Class.Event Then