From 0a4c4818f5e5441322c330afd732e9dd0288d95f Mon Sep 17 00:00:00 2001 From: Kurt Zenker Date: Wed, 19 May 2004 12:23:09 +0000 Subject: INTEGRATION: CWS qwizards1 (1.42.32); FILE MERGED 2004/04/05 14:20:30 bc 1.42.32.3: #111604# Registrypath of Typedetection modified before saving 2003/08/19 15:00:32 bc 1.42.32.2: #110436# bdebug set to false 2003/08/19 14:58:47 bc 1.42.32.1: #110436# maxtextlength of memocontrols now set to 0 --- wizards/source/formwizard/FormWizard.xba | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'wizards') diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index 9b863d02fb91..e718613d66e2 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -348,8 +348,8 @@ Dim sTargetPath as String Dim TypeNames(0,2) as String Dim oMasterKey as Object Dim oTypes() as Object - oMasterKey = GetRegistryKeyContent("org.openoffice.Office.TypeDetection/") - oTypes() = oMasterKey.Filters + oMasterKey = GetRegistryKeyContent("org.openoffice.TypeDetection.Types/") + oTypes() = oMasterKey.Types TypeNames(0,0) = GetFilterName("StarOffice XML (Writer)") TypeNames(0,1) = "*.sxw" TypeNames(0,2) = "" @@ -360,6 +360,7 @@ Dim oTypes() as Object End Sub + Sub EmptyFieldsListboxes() Dim NullList() as String ToggleListboxControls(DialogModel, False) -- cgit v1.2.3