Power Builder - Obtener listado de controles de un dw, sobretodo textos

//para saber cuantas columnas hay en un dw

dw_1.Describe("DataWindow.Column.Count")

//y para los nombres de columnas

dw_1.Describe("#"+ string(ii) +".Name")

String ls_objs, ls_ctrl, ls_type

ls_objs  = dw_1.Describe('DataWindow.Objects') // Lista de objetos

ls_objs += '~t' // Adiciona un TAB al final para tomar hasta el último control

Do While Pos(ls_objs, '~t') > 0

	ls_ctrl = Left(ls_objs, Pos(ls_objs, '~t') - 1) // Nombre del control

	ls_type = dw_1.Describe(ls_ctrl+'.Type') // Tipo del control

	// Ejecuta una sentencia según el tipo de control

	Choose Case ls_type

		Case 'column'

		Case 'text'

		Case 'button'

		Case 'compute'

		Case Else

	End Choose

	ls_objs = Mid(ls_objs, LenA(ls_ctrl) + 2) // Actualiza lista de objetos

Loop