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}