GetSubClasses Function

Action

Returns the immediate descendants of the specified class. This feature is provided as a convenience to you, but it has not yet been thoroughly tested.

Syntax

ldWinSubClass = GetSubClasses (dWinClass)

Variable	Description
`ldWinSubClass`	The names of the descendent classes of `dWinClass` or NULL, if none. LIST OF DATACLASS.
`dWinClas`	The class whose descendant classes you want to identify. DATACLASS.

Example

[ ] //My declarations
[ ] window MainWin TestApplication
[-] window DialogBox xCheckBox
	[ ] 
[-] main()
	[ ] LIST OF WINDOW lw = {TestApplication, xCheckBox}
	[ ] WINDOW w
	[-] for each w in lw
		[ ] RelatedClasses(w)
	[ ] 
[-] testcase RelatedClasses(WINDOW w) appstate none
	[ ] ResPrintList ("Class is: {ClassOf(w)}, Subclasses are:", GetSubClasses(ClassOf(w)))
	[ ] 
	[ ] // Testcase returns for TestApplication and xCheckBox:
	[ ] // Class is: MainWin, Subclasses are: {VBMainForm, VBMDIForm}
	[ ] // Class is: DialogBox, Subclasses are: {MessageBoxClass, VBForm}