From ff109dba93c7237b723f2beaaa079c81962680a8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Thu, 22 Dec 2011 00:37:06 +0000
Subject: [PATCH] [GB.DBUS] * BUG: Keep the case of the DBus application name.

git-svn-id: svn://localhost/gambas/trunk@4310 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 gb.dbus/src/gb.dbus/.src/DBus.class | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gb.dbus/src/gb.dbus/.src/DBus.class b/gb.dbus/src/gb.dbus/.src/DBus.class
index 3eb848a8e..899638ee2 100644
--- a/gb.dbus/src/gb.dbus/.src/DBus.class
+++ b/gb.dbus/src/gb.dbus/.src/DBus.class
@@ -36,7 +36,7 @@ Static Public Sub _get(Application As String) As DBusApplication
   
 End
 
-Static Public Sub _Normalize(sName As String) As String
+Static Public Sub _Normalize(sName As String, Optional bKeepCase As Boolean) As String
   
   Dim sRes As String
   Dim iInd As Integer
@@ -45,7 +45,7 @@ Static Public Sub _Normalize(sName As String) As String
   For iInd = 1 To Len(sName)
     sCar = Mid$(sName, iInd, 1)
     If IsLetter(sCar) Then
-      sCar = LCase(sCar)
+      If Not bKeepCase Then sCar = LCase(sCar)
     Else If IsDigit(sCar) Then
     Else
       If Right(sRes) <> "." Then
@@ -97,6 +97,6 @@ End
 
 Static Private Sub Name_Write(Value As String)
 
-  $sAppName = _Normalize(Value)
+  $sAppName = _Normalize(Value, True)
 
 End