[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/Application.xba |   18 ------------------
 wizards/source/access2base/Root_.xba       |   13 -------------
 2 files changed, 31 deletions(-)

New commits:
commit c35fa61e25239a38079160f7c126ef6befa9584f
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sat Nov 5 12:18:55 2016 +0100

    Access2Base - Remove useless code in Root handling
    
    Change-Id: I6f3a6efd858ac4e52b694cc0046c8f56a558c229

diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba
index 31e0340..ec3f729 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -160,23 +160,6 @@ Global Const CTLPARENTISGRID	= "GRID"
 Global Const CTLPARENTISGROUP	= "OPTIONGROUP"
 
 REM -----------------------------------------------------------------------------------------------------------------------
-Type Root
-	ErrorHandler		As Boolean
-	MinimalTraceLevel	As Integer
-	TraceLogs()			As Variant
-	TraceLogCount		As Integer
-	TraceLogLast		As Integer
-	TraceLogMaxEntries	As Integer
-	CalledSub			As String
-	Introspection		As Object				'	com.sun.star.beans.Introspection	
-	VersionNumber		As String				'	Actual Access2Base version number
-	FindRecord			As Object
-	StatusBar			As Object
-	Dialogs				As Object				'	Collection
-	TempVars			As Object				'	Collection
-	CurrentDoc()		As Variant				'	Array of document containers - [0] = Base document, [1 ... N] = other documents
-End Type
-
 Type DocContainer
 	Document			As Object				'	com.sun.star.comp.dba.ODatabaseDocument	or SwXTextDocument or ScModelObj
 	Active				As Boolean
@@ -1483,7 +1466,6 @@ REM ----------------------------------------------------------------------------
 Public Sub _RootInit(Optional ByVal pbForce As Boolean)
 '	Initialize _A2B_ global variable. Reinit forced if pbForce = True
 
-Dim vRoot As Root, vCurrentDoc() As Variant
 	If IsMissing(pbForce) Then pbForce = False
 	If IsEmpty(_A2B_) Or pbForce Then _A2B_ = New Root_
 	
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba
index cee811b..5245b66 100644
--- a/wizards/source/access2base/Root_.xba
+++ b/wizards/source/access2base/Root_.xba
@@ -33,19 +33,6 @@ Private Dialogs				As Object				'	Collection
 Private TempVars			As Object				'	Collection
 Private CurrentDoc()		As Variant				'	Array of document containers - [0] = Base document, [1 ... N] = other documents
 
-Type DocContainer
-	Document			As Object				'	com.sun.star.comp.dba.ODatabaseDocument	or SwXTextDocument or ScModelObj
-	Active				As Boolean
-	DbConnect			As Integer				'	DBCONNECTxxx constants
-	URL					As String
-	DbContainers()		As Variant				'	One entry by (data-aware) form
-End Type
-
-Type DbContainer
-	FormName			As String				'	name of data-aware form
-	Database			As Object				'	Database type
-End Type
-
 REM -----------------------------------------------------------------------------------------------------------------------
 REM --- CONSTRUCTORS / DESTRUCTORS						        														---
 REM -----------------------------------------------------------------------------------------------------------------------