wvw_drawlabel com wvwtools - desajuste ao exibir o texto...

[FARLEY RIBEIRO]

não estou conseguindo exibir o texto na window.. utilizo wvwtools 0.82d.
quando entra no loop mostra o texto CADASTRO e some. depois quando pressione enter no gets e cai novamente no primeiro get ele mostra o texto..
alguma dica por favor
grato
farley

Código: Selecionar todos

func dados

private oWindow, nChoice

owindow:=wndinit(03,01,20,79,"CLIENTES")

WVW_DrawLabel( owindow:nHandle, 06, 35, "CADASTRO", 6, 5, RGB(225,225,76), RGB(230,139,44), "Tahoma",,, 2 )

do while (.t.)
   mcor = substr("N/W,W/R,,,N/W+"+space(40),1,40)
   @ 10,02 say "Cor get:"
   @ 10,15 get mcor
   @ 11,02 say "Cor get:"
   @ 11,15 get mcor
   @ 12,02 say "Cor get:"
   @ 12,15 get mcor
   @ 13,02 say "Cor get:"
   @ 13,15 get mcor
   read
   if lastkey()=27
      exit
   endif
enddo

wndclose()

return .t.