--- source/launcher/script.xlb.~1.1.2.1.~ 2004-01-13 10:49:45.000000000 -0500
+++ source/launcher/script.xlb 2004-01-25 12:39:09.000000000 -0500
@@ -2,4 +2,5 @@
+
--- source/launcher/FontOOo.xba.orig 2004-01-25 12:45:22.000000000 -0500
+++ source/launcher/FontOOo.xba 2004-01-25 12:43:36.000000000 -0500
@@ -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