From b5d8aac9d7d2b35027e3761e4a24a4f6c2d4e9c4 Mon Sep 17 00:00:00 2001
From: Fabien Bodard <gambas.fr@gmail.com>
Date: Tue, 1 Sep 2009 19:16:08 +0000
Subject: [PATCH] [EXAMPLES] * BUG: The signature work now

git-svn-id: svn://localhost/gambas/trunk@2301 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 .../DBusExplorer/.src/FVersiongbXML.class     | 29 ++++++++++---------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class b/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class
index 0967fea56..b9a909e9e 100644
--- a/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class
+++ b/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class
@@ -146,7 +146,20 @@ Public Function MakeSignature(sKey As String) As String
   
   For Each s In Split($ColArgs[sKey], "|")
   
-    If InStr(s, "=in") Then
+    If InStr(s, "=out") Then
+      For Each t In Split(s)
+        If Scan(t, "*=*")[0] = "type" Then 
+          s = Scan(t, "*=*")[1]
+          If $colTypes.Exist(s) Then
+            sOut &= $colTypes[s]
+          Else
+            sOut &= s
+          Endif
+          Endif
+          
+      Next
+      sOut = " As " & sOut
+    Else
       sValue &= "Value As "
       For Each t In Split(s)
         If Scan(t, "*=*")[0] = "type" Then 
@@ -161,19 +174,7 @@ Public Function MakeSignature(sKey As String) As String
       Next
       ars2.Add(sValue)
         sValue = ""
-    Else
-      For Each t In Split(s)
-        If Scan(t, "*=*")[0] = "type" Then 
-          s = Scan(t, "*=*")[1]
-          If $colTypes.Exist(s) Then
-            sOut &= $colTypes[s]
-          Else
-            sOut &= s
-          Endif
-          Endif
-          
-      Next
-      sOut = " As " & sOut
+      
     Endif