>this is a old bug,
>but with the new Anchor property this bug is very destructive.

I'm not sure why you say this behavior is more destructive for Anchors. The following code shows Width.Assign being called only once, as expected.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
DOEVENTS
oForm1.Width = oForm1.Width + 10

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.Width_assign
		LPARAMETERS vNewVar
		? "Assigning Text1 Width."
		This.Width = vNewVar
	ENDPROC
ENDDEFINE