Setup form !!fsjpick size 10 4
!this.formtitle = 'pick on screen'
member .item is array
button .btn1 'PICK' callback |!this.pick()|
path d
textpane .txt1 |List of element| width 30 height 10
exit
define method .pick()
unenhance all
do
var !pick pick
handle(61,528)
break
endhandle
enhance $!pick[1] col red
$!pick[1]
!this.item.append(!!ce.spref.nam)
!this.txt1.val = !this.item
enddo
endmethod
