diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-11-05 12:18:55 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2016-11-05 12:18:55 +0100 |
| commit | c35fa61e25239a38079160f7c126ef6befa9584f (patch) | |
| tree | bd026ba3d78a400049cfd3a9550ac03ee989c998 /wizards | |
| parent | 18f5d68d685d3a75bab19a7442dfac86904bfc5d (diff) | |
Access2Base - Remove useless code in Root handling
Change-Id: I6f3a6efd858ac4e52b694cc0046c8f56a558c229
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 18 | ||||
| -rw-r--r-- | wizards/source/access2base/Root_.xba | 13 |
2 files changed, 0 insertions, 31 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 31e034048b14..ec3f729b94e1 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 cee811b7df70..5245b6689e88 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 ----------------------------------------------------------------------------------------------------------------------- |