diff options
author | Xisco Fauli <anistenis@gmail.com> | 2011-07-12 00:59:26 +0200 |
---|---|---|
committer | Xisco Fauli <anistenis@gmail.com> | 2011-07-12 01:01:09 +0200 |
commit | 2bd57a620ce4bc81a114e38f397c0cb541bf2635 (patch) | |
tree | 9bf04015738876e9e45a330ab98b87f5e3688680 /wizards | |
parent | Move methods from component_getImplementationEnviron to component_getFactory (diff) | |
download | core-2bd57a620ce4bc81a114e38f397c0cb541bf2635.tar.gz core-2bd57a620ce4bc81a114e38f397c0cb541bf2635.zip |
fdo#37290: migrate Basic to new resource service
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/tools/Misc.xba | 16 |
1 files changed, 10 insertions, 6 deletions
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( "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>
\ No newline at end of file +</script:module> |