Calcula ancho de un objeto BBjInputE

rem "[LARGO_BBJINPUTE.src] DETERMINA ANCHO DE UN BBjInputE
rem "MundoBBx
rem
INPUT "Ingrese largo del Texto: ",lar:(99)
X0=UNT; OPEN (X0)"X0"
win!=BBjAPI().getSysGui().addWindow(BBjAPI().getSysGui().getAvailableContext(),10,10,500,100,$00000000$,$00000000$)
campo!=win!.addInputE(100,10,10,100,20,$0000$)
win!.setFont(campo!.getFont())
campo!.setText(fill(lar,"O"))
print (X0)'measure'(fill(lar,"O"))
lartxt=dec(ctrl(X0,0,11))
campo!.setSize(lartxt,campo!.getHeight())
print "Ancho calculado : ",lartxt
input 'focus',"(Enter) para continuar... ",*
stop