wizards/source/scriptforge/SF_Utils.xba | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
New commits: commit 11a7e6640197db97cd89630857b6ff5ba742d183 Author: Jean-Pierre Ledure <[email protected]> AuthorDate: Wed Nov 18 12:43:21 2020 +0100 Commit: Jean-Pierre Ledure <[email protected]> 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 <[email protected]> Reviewed-by: Jean-Pierre Ledure <[email protected]> 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 _______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
