What is the bug?

CREATE CURSOR bugwhile (Ff i,Xx I)
APPEND blank

* BUG 1
x=CREATEOBJECT("CONTROL")
X.ADDPROPERTY("Y",CREATEOBJECT("EMPTY"))
ADDPROPERTY(X.Y,"Z")
x.y.z = .T.

REPLACE FF WITH 1 WHILE (x.Y.Z )

SELECT bugwhile
browse




>>Fabio,
>>
>>I basically disagree with your bug assesment, The help file lists this as the correct ordering of the command clauses:
>>
>>

>>REPLACE FieldName1 WITH eExpression1 [ADDITIVE]
>>   [, FieldName2 WITH eExpression2 [ADDITIVE]] ... [Scope]
>>   [FOR lExpression1] [WHILE lExpression2] [IN nWorkArea | cTableAlias]
>>

>>
>>These all work without error.
>>
>>

>>REPLACE FF WITH 1 WHILE .T.
>>REPLACE FF WITH 1 WHILE .NULL.
>>REPLACE FF WITH 1 WHILE .F.
>>

>>
>
>You expand the vision.
>
>

>CREATE CURSOR bugwhile (ff i,XX I)
>* BUG 1
>x=CREATEOBJECT("CONTROL")
>X.ADDPROPERTY("Y",CREATEOBJECT("EMPTY"))
>ADDPROPERTY(X.Y,"Z")
>WITH m.x
>	REPLACE FF WITH 1 WHILE (.Y.Z)
>ENDWITH
>