Here is the release 2.0 !!

nlines  = ALINES(lCodeArray,_CLIPTEXT)
nSpaces = 0
_CLIPTEXT=""
FOR i = 2 to nLines  && start with 2 to avoid trouble with lCodeArray[i-1]
	IF "DEFINE" $ lCodeArray[i] AND ! "DEFINE CLASS" $ lCodeArray[i]
		*take the same number of tabs - chr(9) - of the prev line
		IF  nSpaces > 0
			lCodeArray[i]=REPLICATE(" ",nSpaces)+lCodeArray[i]
		ENDIF
	ENDIF
    nSpaces=LEN(lCodeArray[i])-len(ltrim(lCodeArray[i]))	    
	_CLIPTEXT=_CLIPTEXT+lCodeArray[i]+CHR(13)
ENDFOR

Here is the new bug reported by 2.938.282.110 users. :)

    ENDIF
    wform=THISFORM
    DEFINE POPUP shortcut shortcut IN WINDOW ambiente_dados  MARGIN FROM MROW(), MCOL()
    DEFINE BAR 1 OF shortcut PROMPT "\<Incluir nova tabela" FONT 'Arial', 7 STYLE "T"
    DEFINE BAR 2 OF shortcut PROMPT '\-'
IF  THIS.SELECTEDITEM.IMAGE = 2
DEFINE BAR 3 OF shortcut PROMPT "\<Eliminar este relacionamento " FONT 'Arial', 7 STYLE "T"

Today everything flies in the speed of the thought !! :))

Claudio