I tested the code in that KBQ and it generates a GPF. The problem goes like that:

There's no need for user defined classes or any complicated situation like the one in the example. The GPF is generated if Visible is set to .t. (even if it was .t. before) for a label that has both AutoSize and WordWrap set to .t.

So, if you never change the Visible property of such label... everything is safe.

Am I right?

Vlad

> PUBLIC x
> x=CREATEOBJECT("Form")
> x.AddObject("mylabel","test")
> x.Visible=.t.
>
> DEFINE CLASS test AS label
> AutoSize = .T.
> WordWrap = .T.
>
>
> PROCEDURE Init
> LOCAL lcTest,lcname
> lcname=THIS.NAME+"A" && Get a unique name
> THIS.PARENT.ADDOBJECT(lcname,'label')
> lcTest=lcname
>
> WITH THIS.PARENT.&lcTest
> .AUTOSIZE=THIS.AUTOSIZE
> .WORDWRAP=THIS.WORDWRAP && Comment this line for success.
> .VISIBLE=.T.
> ENDWITH
> ENDPROC
> ENDDEFINE