diff options
Diffstat (limited to 'wizards/source/launcher/DicOOo.xba')
-rw-r--r-- | wizards/source/launcher/DicOOo.xba | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/wizards/source/launcher/DicOOo.xba b/wizards/source/launcher/DicOOo.xba deleted file mode 100644 index 474494e71..000000000 --- a/wizards/source/launcher/DicOOo.xba +++ /dev/null @@ -1,59 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<script:module xmlns:script="http://openoffice.org/2000/script" script:name="DicOOo" script:language="StarBasic">Option Explicit - -Sub StartDicOOo - -Dim ThePath as string -Dim DefPath as string -Dim aService as object -Dim MyDicOOo 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("$(user)", true)) -ThePath=ThePath & "/wordbook" -DefPath =ConvertToURL(aService.substituteVariables("$(prog)", true)) -DefPath=DefPath & "/../share/dict/ooo" - -MyDicOOo="" - -if fileExists(ThePath & "/DicOOo.lst") then - 'read DicOOo.lst file in user directory - Open ThePath & "/DicOOo.lst" for input as #1 - line input #1, MyDicOOo - close #1 -else - if fileExists(DefPath & "/DicOOo.lst") then - 'read DicOOo.lst file in share directory - Open DefPath & "/DicOOo.lst" for input as #1 - line input #1, MyDicOOo - close #1 - else - 'creates default file in user directory - Open ThePath & "/DicOOo.lst" for output as #1 - print #1,convertFromURL(DefPath & "/DicOOo.sxw") - close #1 - endif -endif - -'security -if Not fileExists(MyDicOOo) then - MyDicOOo= DefPath & "/DicOOo.sxw" -endif - -MyDicOOo=ConvertToURL(MyDicOOo) - -'Opens DicOOo 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(MyDicOOo,"_blank",0,args()) - -End Sub -</script:module> |