Xailer & OZ Software

Hola a todos,
Tengo una aplicación que consta de varios módulos y dependiendo del módulo seleccionado se cargan distintas opciones en el menú de la ventana principal de la aplicación.
Actualmente para cada menú tengo algo similar a esto:
WITH OBJECT ::oMenu1
:aItems := {}
:refresh()
WITH OBJECT :AddItem( "&Archivo" )
WITH OBJECT :AddMenu()
WITH OBJECT :AddItem( "Abrir" )
END
END
END
:SetMenu()
END
Pero por alguna razón cuando cierro y abro otros módulos aparece el nuevo menú pero se acumulan vací­os los menús anteriores y luego de abrir varios módulos la barra de menú empieza a crecer dándole un aspecto no muy agradable.
Intente borrar los menús con la opción DeleteMenu() pero no me funciono. Así­ como destruir el menú y crear uno nuevo pero no lo carga.
Si alguien ha hecho algo parecido o tiene una idea de como evitar lo anterior se lo agradecerí­a enormemente.
Gracias .

Adjunto una imagen de como se ve el problema...
Si alguien tiene una idea, le agradezco.


Attached files

Jorge,
en vez de esto:
> :aItems := {}
utiliza esto:
WHILE Len( :aItems ) > 0
:Delete( 1 )
ENDDO
esto sirve para eliminar todos los elementos de ese menú.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Muchas Gracias José.
Funciona Perfecto