Use OfficeLocale for LO 7.4 or newer

Source/RemoveBlankCells/RBL10n.xba

@@ -58,6 +58,24 @@ Function GetExtensionFolder() As String
     GetExtensionFolder = basePath
 End Function
 
+'Return the Locale to be used by the extension
+'Up until LO 7.3 the Locale property of the Platform service is used (OS locale)
+'Starting with LO 7.4 use the OfficeLocale (used by LibreOffice UI)
+Function GetLocale() As String
+	On Local Error GoTo CatchError
+	GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
+	Dim svc As Object, sLocale As String
+	svc = CreateScriptService("Platform")
+	Try:
+		sLocale = svc.OfficeLocale
+		GoTo Finally:
+	CatchError:
+	On Local Error GoTo 0
+		sLocale = svc.Locale
+	Finally:
+		GetLocale = sLocale
+End Function
+
 'Create a dictionary with all string IDs and en-US text
 Function CreateStringDictionary() As Object
 	' Dictionary will all string IDs
@@ -141,4 +159,4 @@ Sub ShowPathToPO()
 	MsgBox pathToPO
 End Sub
 
-</script:module>
+</script:module>

Source/RemoveBlankCells/RBMain.xba

@@ -35,15 +35,15 @@ Sub InitializeExtension()
 	glb_basePath = RBL10n.GetExtensionFolder()
 	glb_poPath = glb_basePath & "/po"
 	'Check if the current locale po file exists
-	Dim fso As Object, plt As Object
+	Dim fso As Object, currentLocale As String
 	fso = CreateScriptService("FileSystem")
-	plt = CreateScriptService("Platform")
+	currentLocale = RBL10n.GetLocale()
 	'File name of the la-CO.po file
-	Dim requiredPO As String : requiredPO = glb_poPath & "/" & plt.Locale & ".po"
+	Dim requiredPO As String : requiredPO = glb_poPath & "/" & currentLocale & ".po"
 	'File name of the generic la.po file (generic language, without country)
 	'This is used as fallback when the specific la-PO file does not exist
 	Dim requiredLaPO As String, sLanguage As String
-	sLanguage = Split(plt.Locale, "-")(0)
+	sLanguage = Split(currentLocale, "-")(0)
 	requiredLaPO = glb_poPath & "/" & sLanguage & ".po"
 	If fso.FileExists(requiredPO) Then
 		'If the full locale file exists, use it