*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.20" SourceFile="lib_controles.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_shape AS shape 
 	*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: test_aa_access
		*m: test_aa_assign
		*p: test_aa
	*</DefinedPropArrayMethod>

	*<PropValue>
		Height = 17
		Name = "cl_shape"
		SpecialEffect = 0
		Style = 0
		test_aa = .F.
		Width = 50
	*</PropValue>
	
	PROCEDURE test_aa_access
		*To do: Modify this routine for the Access method
		RETURN THIS.test_aa
		
	ENDPROC

	PROCEDURE test_aa_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.test_aa = m.vNewVal
		
	ENDPROC

ENDDEFINE