--By Han_BFY
Setup form !!fsjtest size 10 4
!this.formtitle = ''
member .item is array
button .btn1 'TEST PICK' callback |!this.pick()|
path d
textpane .txt1 |List of element| width 30 height 10
exit
define method .pick()
unenhance all
!this.item.clear()
!packet = object EDGPACKET()
!packet.elementPick(|Pick Element
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