#88056# loading of Basic dialogs changed

1 files changed, 12 insertions, 6 deletions

diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba
index 874afe2dd678..ab85b7438e88 100644
--- a/wizards/source/tools/ModuleControls.xba
+++ b/wizards/source/tools/ModuleControls.xba
@@ -142,13 +142,19 @@ Dim oCell as Object
 End Function
 
 
-Function LoadDialog(Libname as String, DialogName as String)
+Function LoadDialog(Libname as String, DialogName as String, Optional oLibContainer)
 Dim oLib as Object
-Dim oDialog as Object
-	DialogLibraries.loadLibrary(Libname)
-	oLib = DialogLibraries.GetByName(Libname)
-	oDialog = CreateUnoDialog(oLib, DialogName)
-	LoadDialog() = oDialog
+Dim oLibDialog as Object
+Dim oRuntimeDialog as Object
+
+	If IsMissing( oLibContainer ) then
+		oLibContainer = DialogLibraries
+	End If
+	oLibContainer.LoadLibrary(Libname)
+	oLib = oLibContainer.GetByName(Libname)
+	oLibDialog = oLib.GetByName(DialogName)
+	oRuntimeDialog = CreateUnoDialog(oLibDialog)
+	LoadDialog() = oRuntimeDialog
 End Function