From 5e00ad1cdb1dbb3113c715305d8b4630133dce02 Mon Sep 17 00:00:00 2001 From: Hans-Joachim Lankenau Date: Mon, 28 Jun 2004 15:33:35 +0000 Subject: INTEGRATION: CWS ooo19prep (1.1.6); FILE ADDED 2004/06/16 10:29:20 mh 1.1.6.1: join from ooo112fix?, #i29766 --- wizards/source/launcher/FontOOo.xba | 46 +++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 wizards/source/launcher/FontOOo.xba (limited to 'wizards') diff --git a/wizards/source/launcher/FontOOo.xba b/wizards/source/launcher/FontOOo.xba new file mode 100644 index 000000000000..c05e0c11bb2c --- /dev/null +++ b/wizards/source/launcher/FontOOo.xba @@ -0,0 +1,46 @@ + + +Option Explicit + +Sub StartFontOOo + +Dim ThePath as string +Dim aService as object +Dim MyFontOOo as string +dim TheDoc as object +dim args(1) as new com.sun.star.beans.PropertyValue + +on error resume next + +' Find path +aService = CreateUnoService("com.sun.star.util.PathSubstitution") +ThePath =ConvertToURL(aService.substituteVariables("$(prog)", true)) +ThePath=ThePath & "/../share/dict/ooo" + +if fileExists(ThePath & "/FontOOo.lst") then +'read FontOOo.lst file + Open ThePath & "/FontOOo.lst" for input as #1 + line input #1, MyFontOOo + close #1 +else +'create default FontOOo.lst file + Open ThePath & "/FontOOo.lst" for output as #1 + MyFontOOo=ThePath & "/FontOOo.sxw" + print #1, MyFontOOo + close #1 +endif + +'security +if Not fileExists(MyFontOOo) then + MyFontOOo= ThePath & "/FontOOo.sxw" +endif +MyFontOOo=ConvertToURL(MyFontOOo) + +'Opens FontOOo main file +args(0).name="InteractionHandler" +args(0).value="" +args(1).name="MacroExecutionMode" +args(1).value=com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN '4 +TheDoc=StarDesktop.loadComponentFromURL(MyFontOOo,"_blank",0,args()) + +End Sub -- cgit v1.2.3