Rex,
aselobj( laJunk, 1 )
loClass = laJunk[1]
will give you a reference to the current outermost object in the class/form designer.
>All,
>
>I use a builder to create composite classes.
>
>The code is as follows:
>
>FUNCTION SubClass
>LPARAMETER tcBaseClass,tcBaseClassLibrary,tcNewClass,tcNewClassLibrary
>
>CREATE CLASS ;
> (tcNewClass) ;
>OF ;
> (tcNewClassLibrary) ;
>AS ;
> (tcBaseClass) ;
>FROM ;
> (tcBaseClassLibrary) ;
>NOWAIT
>
>loObject = .NULL.
>FOR EACH loForm IN _SCREEN.FORMS
> IF UPPER(loForm.CAPTION) # UPPER(tcNewClass)
> LOOP
> ENDIF
> loObject = loForm.CONTROLS[1]
> EXIT
>ENDFOR
>RETURN loObject
>
>I use the loObject reference to change properties and then use
>
>ACTIVATE WINDOW "Class Designer"
>KEYBOARD "{Ctrl+W}"
>
>to close the class designer.
>
>If I create one object, all is well. If I create two objects, neigher Class Designers close.
>
>Is there another way to create an object and store it in a VCX file?
>Is there another way to reference the created object?
>Is there another way to save the class and close the Class Designer?
>
>TIA
>
>Rex