text .txt1 width 25 is STRING
list .list1 width 35 height 20
button .but1 |Add List| call |!this.addList()|
define method .addList()
!myadd = $!this.txt1.val
!this.list1.add(!myadd)
endmethod
!value = $!this.txt1.val
If !value.objectType() EQ 'ARRAY' Then[INDENT]Do !valueMember values !value[/INDENT]
[INDENT=2]!this.list1.add(!valueMember.string())[/INDENT]
[INDENT]Enddo[/INDENT]
Else[INDENT] !this.list1.add(!value.string())[/INDENT]
Endif