[Libreoffice-commits] core.git: wizards/source
Jean-Pierre Ledure (via logerrit)
logerrit at kemper.freedesktop.org
Wed Nov 18 11:48:52 UTC 2020
wizards/source/scriptforge/SF_Utils.xba | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
New commits:
commit 11a7e6640197db97cd89630857b6ff5ba742d183
Author: Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Wed Nov 18 12:43:21 2020 +0100
Commit: Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Wed Nov 18 12:48:08 2020 +0100
ScriptForge - Fix script invocation when scope is not in lower case
The scope can be expressed as "document" or "application"
but also as "Document" or "DOCUMENT"
Change-Id: Id70407cc1167cfcac727d63f1ab29fbba4fc6645
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106054
Tested-by: Jean-Pierre Ledure <jp at ledure.be>
Reviewed-by: Jean-Pierre Ledure <jp at ledure.be>
diff --git a/wizards/source/scriptforge/SF_Utils.xba b/wizards/source/scriptforge/SF_Utils.xba
index f24d5825f53e..67aa32f29c77 100644
--- a/wizards/source/scriptforge/SF_Utils.xba
+++ b/wizards/source/scriptforge/SF_Utils.xba
@@ -398,7 +398,7 @@ Dim vNodePath As Variant
Set _GetUNOService = .PathSubstitution
Case "ScriptProvider"
If IsMissing(pvArg) Then pvArg = SF_Session.SCRIPTISAPPLICATION
- Select Case pvArg
+ Select Case LCase(pvArg)
Case SF_Session.SCRIPTISEMBEDDED ' Document
If Not IsNull(ThisComponent) Then Set _GetUNOService = ThisComponent.getScriptProvider()
Case Else
@@ -964,4 +964,4 @@ Dim iType As Integer ' VarType of argument
End Function ' ScriptForge.SF_Utils._VarTypeExt
REM ================================================= END OF SCRIPTFORGE.SF_UTILS
-</script:module>
+</script:module>
\ No newline at end of file
More information about the Libreoffice-commits
mailing list