diff options
Diffstat (limited to 'wizards/source/access2base/Root_.xba')
-rw-r--r-- | wizards/source/access2base/Root_.xba | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba index dfb9c075f0ca..73f743278a57 100644 --- a/wizards/source/access2base/Root_.xba +++ b/wizards/source/access2base/Root_.xba @@ -42,7 +42,7 @@ Private StatusBar As Object 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 -Private PythonVars() As Variant ' Array of objects created in Python scripts +Private PythonCache() As Variant ' Array of objects created in Python scripts REM ----------------------------------------------------------------------------------------------------------------------- REM --- CONSTRUCTORS / DESTRUCTORS --- @@ -78,7 +78,7 @@ Private Sub Class_Initialize() CurrentDoc = Array() ReDim CurrentDoc(0 To 0) Set CurrentDoc(0) = Nothing - PythonVars = Array() + PythonCache = Array() End Sub ' Constructor REM ----------------------------------------------------------------------------------------------------------------------- @@ -101,13 +101,13 @@ REM ---------------------------------------------------------------------------- REM ----------------------------------------------------------------------------------------------------------------------- Public Function AddPython(ByRef pvObject As Variant) As Long -' Store the object as a new entry in PythonVars and return its entry number +' Store the object as a new entry in PythonCache and return its entry number Dim lVars As Long, vObject As Variant - lVars = UBound(PythonVars) + 1 - ReDim Preserve PythonVars(0 To lVars) - PythonVars(lVars) = pvObject + lVars = UBound(PythonCache) + 1 + ReDim Preserve PythonCache(0 To lVars) + PythonCache(lVars) = pvObject AddPython = lVars |