diff options
| author | Kurt Zenker <kz@openoffice.org> | 2004-02-25 13:12:33 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2004-02-25 13:12:33 +0000 |
| commit | 7827addf03a0dcdcc9b483275de3fbe5758e95a3 (patch) | |
| tree | af58be7f5b79970445e19d6aba9f2e5c110a48f1 /wizards/source/launcher | |
| parent | bd7179960529e7eba4c6459fdb5938040e4edd75 (diff) | |
INTEGRATION: CWS geordi2q15 (1.2.6); FILE MERGED
2004/02/20 13:11:03 hr 1.2.6.1: #111934#: merge CWS ooo111fix3
Diffstat (limited to 'wizards/source/launcher')
| -rw-r--r-- | wizards/source/launcher/DicOOo.xba | 37 |
1 files changed, 25 insertions, 12 deletions
diff --git a/wizards/source/launcher/DicOOo.xba b/wizards/source/launcher/DicOOo.xba index 27d929bf6fa9..e3c41c2c351c 100644 --- a/wizards/source/launcher/DicOOo.xba +++ b/wizards/source/launcher/DicOOo.xba @@ -5,36 +5,48 @@ Sub StartDicOOo Dim ThePath as string +Dim DefPath as string Dim aService as object Dim MyDicOOo as string -dim TheDoc as object +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" +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 + 'read DicOOo.lst file in user directory Open ThePath & "/DicOOo.lst" for input as #1 line input #1, MyDicOOo close #1 else -'create default DicOOo.lst file - Open ThePath & "/DicOOo.lst" for output as #1 - MyDicOOo=ThePath & "/DicOOo.sxw" - print #1, MyDicOOo + 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.lst") + close #1 + endif endif -'security +'security if Not fileExists(MyDicOOo) then - MyDicOOo= ThePath & "/DicOOo.sxw" + MyDicOOo= DefPath & "/DicOOo.sxw" endif -MyDicOOo=ConvertToURL(MyDicOOo) + +MyDicOOo=ConvertToURL(MyDicOOo) 'Opens DicOOo main file args(0).name="InteractionHandler" @@ -43,4 +55,5 @@ 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> +End Sub +</script:module> |