fdo#37290: migrate Basic to new resource service

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( "com.sun.star.resource.VclStringResourceLoader" )
-	If (IsNull(oResSrv)) then
+	aArgs(0) = ShortDescription
+	oConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
+	xResource = getProcessServiceManager().createInstanceWithArguments( "org.libreoffice.resource.ResourceIndexAccess", aArgs() )
+	If (IsNull(xResource)) then
 		InitResources = FALSE
-		MsgBox( Description & ": No resource loader found", 16, GetProductName())
+		MsgBox("could not initialize ResourceIndexAccess")
 	Else
 		InitResources = TRUE
-		oResSrv.FileName = ShortDescription
+		oResSrv = xResource.getByName( "String" )
 	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 = ""
 	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 <> 0) Or (iYear Mod 400 = 0)))
 End Function
-</script:module>
+</script:module>
\ No newline at end of file