diff options
author | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 13:41:41 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 13:41:41 +0000 |
commit | a688d2800b5c7061c668a16bbd9c2630eaeb99f2 (patch) | |
tree | 40aae09f0eb0fba43ac93d2e748f00838fc61df0 /wizards | |
parent | ecf5ec5749b9d876630028a750de99e2b2e27534 (diff) |
#104114# writer documents can only be edited when Module is installed
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 90820d1f443a..feb788415993 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -23,9 +23,9 @@ Public TotDocCount as Integer Public sTotDocCount as String Public OpenProperties(1) as New com.sun.star.beans.PropertyValue - Sub StartAutoPilot() Dim i As Integer +Dim oFactoryKey as Object BasicLibraries.LoadLibrary("Tools") BasicLibraries.LoadLibrary("ImportWizard") If InitResources("Euro Converter", "eur") Then @@ -34,6 +34,8 @@ Dim i As Integer oLocale = GetStarOfficeLocale() InitializeConverter(oLocale, 2) ToggleGoOnButton() + oFactoryKey = GetRegistryKeyContent("org.openoffice.Setup/Office/Factories") + DialogModel.chkTextDocuments.Enabled = oFactoryKey.hasbyName("com.sun.star.text.TextDocument") DialogModel.cmdGoOn.DefaultButton = True DialogConvert.GetControl("optWholeDir").SetFocus() DialogConvert.Execute() |