From 3218853d57b8d80192cdbf6f99acbfe8f43aab44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?LibreO=EF=AC=83ciant?= Date: Mon, 20 May 2019 16:02:11 +0200 Subject: [PATCH] Platform regognition for Basic language localisation adjustments Change-Id: Iced427fc30c0bb8fe3873f9d42e64786c863c619 Reviewed-on: https://gerrit.libreoffice.org/72603 Tested-by: Jenkins Reviewed-by: Olivier Hallot --- source/text/sbasic/python/python_platform.xhp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/source/text/sbasic/python/python_platform.xhp b/source/text/sbasic/python/python_platform.xhp index acad02559f..89c4f52a7b 100644 --- a/source/text/sbasic/python/python_platform.xhp +++ b/source/text/sbasic/python/python_platform.xhp @@ -74,13 +74,12 @@ End Property ' Platform.isWindows Public Property Get OSName As String - ' Return platform name as "MAC", "UNIX", "WIN" - ' Inferred from "Tools.UCB.ShowHelperDialog" function - - With Basiclibraries + ' Return platform name as "MAC", "UNIX", "WIN" + ' Inferred from "Tools.UCB.ShowHelperDialog" function + With GlobalScope.Basiclibraries If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools") End With - Dim keyNode As Object 'com.sun.star.configuration.ConfigurationAccess + Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help") OSName = keyNode.GetByName("System") End Property ' Platform.OSName