>Hi everybody,
>
>I'm writing a very simple program to update one of the property in all class library programmatically. Once I activate the class designer window, I can not close it. Here is my code, how can I fix it? Or may be this could be written more elegantly?
>
>

>*  Program...........: UPDATEPROPERTY.PRG
>*  Author............: Nadya Nosonovsky
>*  Project...........: Visual Collections
>*  Created...........: 11/07/2005  11:43:24
>*  Copyright.........: (c) Jzanus, 2005
>*) Description.......:
>*  Calling Samples...:
>*  Parameter List....:
>*  Major change list.:
>
>LPARAMETERS tcLibrary, tcProperty, tuValue
>
>IF EMPTY(tcLibrary)
>   tcLibrary = GETFILE('vcx')
>ENDIF
>
>IF EMPTY(tcProperty)
>   tcProperty = "StatusBarText"
>ENDIF
>
>IF EMPTY(tuValue)
>	tuValue = [" "]
>ENDIF
>
>LOCAL laClasses[1], arrObj[1]
>LOCAL lnClasses, lnI, loObject
>
>lnClasses =AVCXCLASSES(laClasses, m.tcLibrary)	
>
>FOR lnI =1 TO lnClasses
>   MODIFY CLASS (laClasses[m.lnI,1]) OF (m.tcLibrary) nowait
>   =ASELOBJ(arrObj,1)
>   loObject = arrObj[1]
>
>	IF VARTYPE(m.loObject) = "O"
>		IF PEMSTATUS(m.loObject,m.tcProperty,5)		
>		   m.loObject.WriteExpression(m.tcProperty, m.tuValue)
>*		   STORE m.tuValue TO (m.loObject + "." + m.tcProperty)
>		endif
>	ENDIF
>	ACTIVATE WINDOW "Class Designer"
>	KEYBOARD '{CTRL+W}'
> NEXT

>
>Thanks in advance.

FOR lnI =1 TO AVCXCLASSES(laClasses, m.tcLibrary)	
   MODIFY CLASS (laClasses[m.lnI,1]) OF (m.tcLibrary) NOWAIT
   IF ASELOBJ(arrObj,1)>0 AND PEMSTATUS(arrObj[1],m.tcProperty,5)
		arrObj[1].WriteExpression(m.tcProperty, m.tuValue)	&& attention this set a expression, not a value
*		arrObj[1].AddProperty(m.tcProperty, m.tuValue)          && this set a Properies compatible value
	ENDIF
	ACTIVATE WINDOW (WONTOP())
	KEYBOARD '{CTRL+W}' PLAIN
 NEXT