From b12ad0030d6985437b9930f838fcc9c1aa50aca5 Mon Sep 17 00:00:00 2001
From: Xisco Fauli <anistenis@gmail.com>
Date: Tue, 12 Jul 2011 00:59:26 +0200
Subject: fdo#37290: migrate Basic to new resource service

---
 wizards/source/tools/Misc.xba | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'wizards/source')

diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba
index 7eca46671f12..faa0f802f6c6 100644
--- a/wizards/source/tools/Misc.xba
+++ b/wizards/source/tools/Misc.xba
@@ -271,14 +271,18 @@ End Sub
 
 
 Function InitResources(Description, ShortDescription as String) as boolean
+Dim xResource as Object
+Dim aArgs(0) as String
 	On Error Goto ErrorOcurred
-	oResSrv = createUnoService( &quot;com.sun.star.resource.VclStringResourceLoader&quot; )
-	If (IsNull(oResSrv)) then
+	aArgs(0) = ShortDescription
+	oConfigProvider = createUnoService(&quot;com.sun.star.configuration.ConfigurationProvider&quot;)
+	xResource = getProcessServiceManager().createInstanceWithArguments( &quot;org.libreoffice.resource.ResourceIndexAccess&quot;, aArgs() )
+	If (IsNull(xResource)) then
 		InitResources = FALSE
-		MsgBox( Description &amp; &quot;: No resource loader found&quot;, 16, GetProductName())
+		MsgBox(&quot;could not initialize ResourceIndexAccess&quot;)
 	Else
 		InitResources = TRUE
-		oResSrv.FileName = ShortDescription
+		oResSrv = xResource.getByName( &quot;String&quot; )
 	End If
 	Exit Function
 ErrorOcurred:
@@ -294,7 +298,7 @@ End Function
 Function GetResText( nID as integer ) As string
 	On Error Goto ErrorOcurred
 	If Not IsNull(oResSrv) Then
-		GetResText = oResSrv.getString( nID )
+		GetResText = oResSrv.getByIndex( nID )
 	Else
 		GetResText = &quot;&quot;
 	End If
@@ -814,4 +818,4 @@ End Sub
 Function CalIsLeapYear(ByVal iYear as Integer) as Boolean
         CalIsLeapYear = ((iYear Mod 4 = 0) And ((iYear Mod 100 &lt;&gt; 0) Or (iYear Mod 400 = 0)))
 End Function
-</script:module>
\ No newline at end of file
+</script:module>
-- 
cgit