summaryrefslogtreecommitdiff
path: root/wizards/source/launcher/DicOOo.xba
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/launcher/DicOOo.xba')
-rw-r--r--wizards/source/launcher/DicOOo.xba59
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
-
-&apos; Find path
-aService = CreateUnoService(&quot;com.sun.star.util.PathSubstitution&quot;)
-ThePath =ConvertToURL(aService.substituteVariables(&quot;$(user)&quot;, true))
-ThePath=ThePath &amp; &quot;/wordbook&quot;
-DefPath =ConvertToURL(aService.substituteVariables(&quot;$(prog)&quot;, true))
-DefPath=DefPath &amp; &quot;/../share/dict/ooo&quot;
-
-MyDicOOo=&quot;&quot;
-
-if fileExists(ThePath &amp; &quot;/DicOOo.lst&quot;) then
- &apos;read DicOOo.lst file in user directory
- Open ThePath &amp; &quot;/DicOOo.lst&quot; for input as #1
- line input #1, MyDicOOo
- close #1
-else
- if fileExists(DefPath &amp; &quot;/DicOOo.lst&quot;) then
- &apos;read DicOOo.lst file in share directory
- Open DefPath &amp; &quot;/DicOOo.lst&quot; for input as #1
- line input #1, MyDicOOo
- close #1
- else
- &apos;creates default file in user directory
- Open ThePath &amp; &quot;/DicOOo.lst&quot; for output as #1
- print #1,convertFromURL(DefPath &amp; &quot;/DicOOo.sxw&quot;)
- close #1
- endif
-endif
-
-&apos;security
-if Not fileExists(MyDicOOo) then
- MyDicOOo= DefPath &amp; &quot;/DicOOo.sxw&quot;
-endif
-
-MyDicOOo=ConvertToURL(MyDicOOo)
-
-&apos;Opens DicOOo main file
-args(0).name=&quot;InteractionHandler&quot;
-args(0).value=&quot;&quot;
-args(1).name=&quot;MacroExecutionMode&quot;
-args(1).value=com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN &apos;4
-TheDoc=StarDesktop.loadComponentFromURL(MyDicOOo,&quot;_blank&quot;,0,args())
-
-End Sub
-</script:module>