For each of the EXTRA! objects, this example shows how to return its parent object.
Sub Main()
Dim Sys As Object, AllSess As Object, Sess As Object
Dim MyScreen As Object, MyArea As Object
Dim TBars As Object, QPads As Object, MyTBar As Object, MyQPad As Object
Set Sys = CreateObject("EXTRA.System")
Set AllSess = Sys.Sessions
' Assumes an open session. Retrieve objects.
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
Set MyArea = MyScreen.Area(1, 1, 10, 10, , 3)
Set TBars = Sess.Toolbars
Set QPads = Sess.QuickPads
Set MyTBar = TBars(1)
Set MyQPad = QPads(1)
' The System object is its own parent.
MsgBox "System.Parent = " + Sys.Parent.Name
'The parent of a Sessions object is also the System object.
MsgBox "Sessions.Parent = " + AllSess.Parent.Name
' The parent of a Session object is a Sessions object,
' whose parent is ...
MsgBox Sess.Parent.Parent.Name
' The parent of a Screen object is a Session object,
' whose parent is ...
MsgBox MyScreen.Parent.Parent.Parent.Name
' The parent of a Toolbars object or QuickPads object
is also a
' Session, whose parent is ...
MsgBox TBars.Parent.Parent.Parent.Name
MsgBox QPads.Parent.Parent.Parent.Name
' The parent of an Area object is a Screen object,
' whose parent is ...
MsgBox MyArea.Parent.Parent.Parent.Parent.Name
' The parent of a Toolbar object is a Toolbars object,
' whose parent is ...
MsgBox MyTBar.Parent.Parent.Parent.Parent.Name
' The parent of a QuickPad object is a QuickPads object,
' whose parent is ...
MsgBox MyQPad.Parent.Parent.Parent.Parent.Name
End Sub