[EXAMPLES]

* BUG: The signature work now


git-svn-id: svn://localhost/gambas/trunk@2301 867c0c6c-44f3-4631-809d-bfa615b0a4ec

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