In your project, create a new scene, with a textObject "Text1".
Under Script Editor > OnOnline :
Dim MyScene As xpScene = Nothing
Dim MyFont As xpFont = Nothing
Dim MyXpBaseObject As xpBaseObject = Nothing
Dim MyXpTextObject As xpTextObject = Nothing
Dim MyDebugOutput As String = ""
Dim i, j as integer
Dim item as string
Dim MyList(0) As String
for i = 0 To Engine.SceneCount - 1
Engine.GetScene(i, MyScene)
For j = 0 To MyScene.ObjectCount - 1
MyScene.GetObject(j, MyXpBaseObject)
If MyXpBaseObject.TypeName = "Text" Then
MyXpTextObject = CType(MyXpBaseObject, xpTextObject)
MyList(MyList.Length - 1) = MyXpTextObject.CurrentFont.Name & " > " & MyScene.Name & " > " & MyXpBaseObject.Name
ReDim Preserve MyList(MyList.Length)
End If
Next
Next
ReDim Preserve MyList(UBound(MyList) - 1)
Array.Sort(MyList)
For Each item In MyList
MyDebugOutput += item.ToString & vbNewLine
Next
Self.GetObjectByName("Text1", MyXpTextObject)
MyXpTextObject.text = MyDebugOutput
Then, put it on air !
If you have many text object, you can animate this text object to scroll down (or use a smaller font)
#XPression