PUBLIC oform1
CLEAR
WITH NEWOBJECT("form1")
 .Show
 DOEVENTS
 .width = .width + 1
ENDWITH

DEFINE CLASS form1 AS form
	Caption    = "bug: a access to Width fire a Assign !"
	allowOutput = .f.

	ADD OBJECT txt1 as textbox WITH anchor=15

	PROCEDURE txt1.left_assign
		LPARAMETERS vNewVar
		? "Assigning Text1 Left."
		This.Left = vNewVar
	ENDPROC
		
	PROCEDURE txt1.Width_assign
		LPARAMETERS vNewVar
		? "Assigning Text1 Width."
		? "next print is a call into the left"
		=this.Left && i use the current left for overlap the vNewVar
		? "After read this Left."
		This.Width = vNewVar
	ENDPROC
ENDDEFINE