From f34989d4be240c3a5dbff5af4687bbbceed3565f Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Thu, 12 Sep 2019 03:40:44 +0200
Subject: [PATCH] Always specify the direction of input method arguments in
 introspection, otherwise the 'qdbusviewer' tool does not work.

[GB.DBUS]
* BUG: Always specify the direction of input method arguments in introspection, otherwise the 'qdbusviewer' tool does not work.
---
 gb.dbus/src/gb.dbus/.project              | 2 +-
 gb.dbus/src/gb.dbus/.src/DBusObject.class | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gb.dbus/src/gb.dbus/.project b/gb.dbus/src/gb.dbus/.project
index 49969a50a..e11c4078d 100644
--- a/gb.dbus/src/gb.dbus/.project
+++ b/gb.dbus/src/gb.dbus/.project
@@ -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
diff --git a/gb.dbus/src/gb.dbus/.src/DBusObject.class b/gb.dbus/src/gb.dbus/.src/DBusObject.class
index ead0cc578..f9547f841 100644
--- a/gb.dbus/src/gb.dbus/.src/DBusObject.class
+++ b/gb.dbus/src/gb.dbus/.src/DBusObject.class
@@ -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