From 8d0d88e5ae5e29501bf991ff8721461989585911 Mon Sep 17 00:00:00 2001 From: Tom Verbeek Date: Mon, 30 Jul 2001 13:38:58 +0000 Subject: #89981# did changes for modified registry entries --- wizards/source/euro/AutoPilotRun.xba | 2 +- wizards/source/euro/Common.xba | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'wizards') diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 4c9298f0d755..8e5ac4b3cdf5 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -332,7 +332,7 @@ Sub CallFilePicker() Dim oFilters() as Object oMasterKey = GetRegistryKeyContent("org.openoffice.Office.TypeDetection/") - oFilters() = oMasterKey.Filters + oFilters() = oMasterKey.Types If DialogModel.chkTextDocuments.State = 1 Then Dim FilterNames(21,1) as String diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba index 16443d3690f5..c291da0cf319 100644 --- a/wizards/source/euro/Common.xba +++ b/wizards/source/euro/Common.xba @@ -113,7 +113,7 @@ Dim AddToList as Boolean End Sub -Function Numberformat( oFormats as Object, aFormatStr as String, oLocale) +Function Numberformat( oFormats as Object, aFormatStr as String, oLocale as Object) Dim nRetkey nRetKey = oFormats.queryKey( aFormatStr, oLocale, True ) If nRetKey = -1 Then -- cgit v1.2.3