[Gambas-user] List al the classes and symbols

[Martin]

Hi,
I want to list all the Gambas classes for all components.

Public Function AllClases() As Collection

   Dim cClass As New Collection
   Dim obj As Object = ? ' what object would be here?
   Dim MyClass As Class = Object.Class(obj)
   Dim sSymbol As String

   For Each sSymbol In MyClass.Symbols
       Print MyClass.Name & ": " & sSymbol
   Next

   Return cClass

End

Best regards.
Martin