parent
d103f37c48
commit
c2dca9b975
@ -0,0 +1,44 @@
|
||||
From 62bd29f398c11956983288ae6dd109147cc2c094 Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Caol=C3=A1n=20McNamara?= <caolanm@redhat.com>
|
||||
Date: Wed, 8 Feb 2012 12:38:10 +0000
|
||||
Subject: [PATCH] Resolves: fdo#43644 survive registered but unavailable
|
||||
binfilter
|
||||
|
||||
---
|
||||
wizards/source/importwizard/Main.xba | 13 ++++++++++++-
|
||||
1 files changed, 12 insertions(+), 1 deletions(-)
|
||||
|
||||
diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba
|
||||
index 8084fda..7385c6b 100644
|
||||
--- a/wizards/source/importwizard/Main.xba
|
||||
+++ b/wizards/source/importwizard/Main.xba
|
||||
@@ -44,7 +44,7 @@ Sub Main()
|
||||
ImportDialog.ImportPreview.BackGroundColor = RGB(0,60,126)
|
||||
ImportDialog.cmdGoOn.DefaultButton = True
|
||||
ImportDialogArea.GetControl("optMSDocuments").SetFocus()
|
||||
- oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" )
|
||||
+ oBinFilterComp = createBF_MigrateFilterIfPossible()
|
||||
ToggleCheckboxesWithBoolean(True)
|
||||
|
||||
RetValue = ImportDialogArea.Execute()
|
||||
@@ -186,6 +186,17 @@ Dim i as Integer
|
||||
End Sub
|
||||
|
||||
|
||||
+Function createBF_MigrateFilterIfPossible()
|
||||
+Dim oService
|
||||
+ On Error Goto RTError
|
||||
+ oService = createUnoService("com.sun.star.comp.office.BF_MigrateFilter")
|
||||
+ getBinFilterCompIfItExists = oService
|
||||
+ Exit Function
|
||||
+RTError:
|
||||
+ createBF_MigrateFilterIfPossible = Nothing
|
||||
+End Function
|
||||
+
|
||||
+
|
||||
Function CheckInstalledModule(Index as Integer) as Boolean
|
||||
Dim ModuleName as String
|
||||
Dim NameList() as String
|
||||
--
|
||||
1.7.7.6
|
||||
|
Loading…
Reference in new issue