someform=CREATEOBJECT("someform")
someform.show
READ EVENTS
 
DEFINE CLASS someform as form

	PROCEDURE click
		=CREATEOBJECT("dockable")

	PROCEDURE lostFocus
		? "someform lostfocus"

	PROCEDURE gotFocus
		? "someform gotfocus"
			
	PROCEDURE unload
		CLEAR EVENTS
ENDDEFINE

DEFINE CLASS dockable as form
	dockable = 1
	
	PROCEDURE load
		&& this form is Active still before being built !
		? "Active form is",_screen.ActiveForm.Name, "    expected : Someform"
		&& this change the ActiveForm ! It shouldn't.
		this.dockable = 0
		? "Active form is", _screen.ActiveForm.Name
		RETURN .f.
		* and although the form is not built, someform has a cycle deactivate/activate
	ENDPROC
ENDDEFINE