_VISUAL=atc("VISUAL",VERS())>0

wh=_WONTOP()

IF wh < 1
    RETURN .F.
ENDIF
DECLARE aa[25], PR[1]
PR=""
m.PrCount=0

=_EDGetEnv(wh,@aa)
m.PRGFILE=aa[1]
m.Kind=aa[25]
m.Size=aa[2]

If m.Kind < 1
    =msgbox("Invalid Edit Window","",48)
    Return .F.
EndIf

m.old=select()
SELECT 0

#IF not c_Message
    =Progress(0,"Обработка файла"+chr(13)+m.PRGFILE ,"Bear")
#ENDIF

ib=0
ID=0
_P=""
w=""
w2=""
w3=""

clsn=""
clsb=""
cmnt=.f.

prv=0

_CLIPTEXT=""

=_EdUndoOn(wh,.T.)        && Включили UNDO
m.CurPos=_EdGetPos(wh)    && Запомнили позицию
=_EdSetPos(wh,0)        && Прыг в начало
m.Start=0                && Позиция начала строки
m.End=0                    && Позиция конца строки

Define Class Bear2 as Session
    Version="v.200"
    Title='Bear 2' 
    FoxTools=""                && Файл FoxTools.FLL
    Keywords=""                && Файл FDKeyWrd            

    DetachFoxTools=.T.            && Отключать FoxTools после работы ?
    
    TabWidth=4                && Размер табуляции
    TabStop=40                && Строка где выравнивать комментарий
    
    FileName=""                && Имя причесываемого файла 
    OutFileName=""                && Для режима beautify                    
    
    WHandle=0                && Хэнл окна
    EdPosition=0                && Текущия позиция в редакторе
    
    ClipText=""
    
    LinesCount=0
    HeadersCount=0
    
    Source=""
    
    Dimension aString[1], aHeader[1]

    ...

    Procedure LoadStrings(lcFileName)
    With this
        If Empty(lcFileName)
            Local laFileInfo[25]
            .WHandle=_WOnTop()
            If .WHandle < 1
                Return .F.
            EndIf
            _EdGetEnv(.WHandle,@laFileInfo)
            If laFileInfo[ENV_KIND]<1
                MessageBox("Текущее окно не являтеся окном редактора FoxPro",16,.Title)
                Return .F.
            EndIf
            .ClipText=_CLIPTEXT
            .EdPosition=_EdGetPos(.WHandle)
            _EdSelect(.Whandle,0,laFileInfo[ENV_SIZE])
            _EdCopy(.WHandle)
            _EdSelect(.Whandle,laFileInfo[ENV_SELSTART],laFileInfo[ENV_SELEND])
            _EdStoPos(.Whandle,.EdPosition,.T.)
            .FileName=lsFileInfo[ENV_FILENAME]
            .TabWidth=laFileInfo[ENV_TABWIDTH]
            .LinesCount=ALines(.aString,_CLIPTEXT,.T.)
            _CLIPTEXT=.ClipText
        Else 
            If not File(lcFileName)
                Error 1,lcFileName
                Return .F.
            EndIf        
            .FileName=lcFileName
            .LinesCount=ALines(.aString,FileToStr(lcFileName),.T.)
        EndIf
EndWith

local i
for i=1 to 100
    wait nowait window "Hello!"
endfor