mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typo in code

Browse Source 
It passed "make check" on Linux

Change-Id: I860ce01077f1b71fa87eb6616cca676ef21af1a0
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/103307
Tested-by: Jenkins
Reviewed-by: Andras Timar <andras.timar@collabora.com>
This commit is contained in:
Andrea Gelmini
2020-09-24 13:02:58 +02:00
committed by Andras Timar
parent 9ad61fe99f
commit 07451fb643
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wizards/source/tools/Misc.xba
View File

@@ -294,7 +294,7 @@ Function InitResources(Description) as boolean
Dim xResource as Object Dim xResource as Object
Dim sOfficeDir as String Dim sOfficeDir as String
Dim aArgs(5) as Any Dim aArgs(5) as Any
On Error Goto ErrorOcurred On Error Goto ErrorOccurred
sOfficeDir = &quot;$BRAND_BASE_DIR/$BRAND_SHARE_SUBDIR/wizards/&quot; sOfficeDir = &quot;$BRAND_BASE_DIR/$BRAND_SHARE_SUBDIR/wizards/&quot;
sOfficeDir = GetDefaultContext.getByName(&quot;/singletons/com.sun.star.util.theMacroExpander&quot;).ExpandMacros(sOfficeDir) sOfficeDir = GetDefaultContext.getByName(&quot;/singletons/com.sun.star.util.theMacroExpander&quot;).ExpandMacros(sOfficeDir)
aArgs(0) = sOfficeDir aArgs(0) = sOfficeDir
@@ -311,7 +311,7 @@ Dim aArgs(5) as Any
InitResources = TRUE InitResources = TRUE
End If End If
Exit Function Exit Function
ErrorOcurred: ErrorOccurred:
Dim nSolarVer Dim nSolarVer
InitResources = FALSE InitResources = FALSE
nSolarVer = GetSolarVersion() nSolarVer = GetSolarVersion()
@@ -323,7 +323,7 @@ End Function
Function GetResText( sID as String ) As string Function GetResText( sID as String ) As string
Dim sString as String Dim sString as String
On Error Goto ErrorOcurred On Error Goto ErrorOccurred
If Not IsNull(oResSrv) Then If Not IsNull(oResSrv) Then
sString = oResSrv.resolveString(sID) sString = oResSrv.resolveString(sID)
GetResText = ReplaceString(sString, GetProductname(), &quot;%PRODUCTNAME&quot;) GetResText = ReplaceString(sString, GetProductname(), &quot;%PRODUCTNAME&quot;)
@@ -331,7 +331,7 @@ Dim sString as String
GetResText = &quot;&quot; GetResText = &quot;&quot;
End If End If
Exit Function Exit Function
ErrorOcurred: ErrorOccurred:
GetResText = &quot;&quot; GetResText = &quot;&quot;
MsgBox(&quot;Resource with ID =&quot; + sID + &quot; not found!&quot;, 16, GetProductName()) MsgBox(&quot;Resource with ID =&quot; + sID + &quot; not found!&quot;, 16, GetProductName())
Resume CLERROR Resume CLERROR