... ... 3) por ultimo modificar METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TGet local nLo, nHi, cText IF ::lDrag ... ... ELSE cText := ALLTRIM(::GetText()) If Left( cText, 1 ) == "(" ::nPos = 2 ::SetPos( ::nPos ) ELSEIF Empty(cText) .OR. (Valtype( ::Value ) = "D" .AND. (cText == "/ /" .OR. cText ...