Check Subclass_It File #9619.

>I want to subclass entire class library. I know I can use Create Class Command to do for each class in the class library. I wonder whether the following coding is a workable solution or not:
>
>copy file original.* to newsubclass.*
>use newsubclass.vcx
>delete for !empty(parent)
>replace class with objname for val(reserved2) > 0
>replace classloc with 'original.vcx' for empty(classloc) and val(reserved2) > 0
>replace reserved2 with '1' for val(reserved2) > 1
>use
>
>
>Thank you for any suggestion.
>
>
>Peter