Client definition EDITORWIN is not found

[francisco prieto]

Instale la ultima version desde GitHub ayer.
Realice los pasos de instalacion colocando la app en la raiz de VFP9
Al ingresar a VFP no aparece asi que en la ventana de comandos pongo Do Thor.app
Ejecuto Launcher en Thor
Hago clic en All Thor Tools
Hago clic en Run at Startup?
Presiono Run Tool

y ahi aparece el mensaje Client definition EDITORWIN is not found con los botones Cancel, Suspend, Ignore y Help

Si coloco suspend aparece esto en la ventana de Debug

Lparameters lcPRGName, lcThorAPP, lnPCount, lxP1, lxP2, lxP3, lxP4, lxP5
Local lcClass, lcClassLib, lcClassName, lcFileName, loEditorWin, loObject
lcClassName = Alltrim (Substr (lcPRGName, 1 + Len ('Class=')))
Do Case
    Case Lower (lcClassName) = 'contextmenu'
        Return Newobject ('contextmenu', 'thor_menu.vcx', lcThorAPP, , , lxP1)
    Case Lower (lcClassName) = 'settings'
        Return Newobject ('thor_resource', 'thor_foxresource.vcx', lcThorAPP)
    Case Lower (lcClassName) = 'thorformsettings'
        Return Newobject ('thor_form_settings', 'thor_foxresource.vcx', lcThorAPP, lxP1)
    Case Lower (lcClassName) = 'formruntool'
        Return Newobject ('formruntool', 'thor_ui.vcx', lcThorAPP, Addbs(JustPath(lcThorAPP)))
    Case Lower (lcClassName) = 'optionrenderengine'
        lcFileName = Execscript (_Screen.cThorDispatcher, 'Full Path=Thor_Proc_DynamicForm.prg')
        Return Newobject ('Thor_Proc_DynamicFormRenderEngine', lcFileName)
    Case Lower (lcClassName) = 'dynamicformdesktop'
        lcFileName = Execscript (_Screen.cThorDispatcher, 'Full Path=Thor_Proc_DynamicForm.prg')
        Return Newobject ('Thor_DynamicFormDeskTop', lcFileName)
    Case Lower (lcClassName) = 'dynamicform'
        lcFileName = Execscript (_Screen.cThorDispatcher, 'Full Path=Thor_Proc_DynamicForm.prg')
        Return Newobject ('Thor_DynamicForm', lcFileName)
    Case Lower (lcClassName) = 'findexe'
        Return Newobject ('FindEXE', 'thor_utils.vcx', lcThorAPP)

    Otherwise
        lcClass       = Getwordnum (lcClassName, 1)
        lcClassLib = Getwordnum (lcClassName, Getwordcount (lcClassName))
        lcFileName = Execscript (_Screen.cThorDispatcher, 'Full Path=' + lcClassLib)
        Do Case
            Case lnPCount < 2
                loObject   = Newobject (lcClass, lcFileName)
            Case lnPCount = 2
                loObject   = Newobject (lcClass, lcFileName, '', lxP1)
            Case lnPCount = 3
                loObject   = Newobject (lcClass, lcFileName, '', lxP1, lxP2)
            Case lnPCount = 4
                loObject   = Newobject (lcClass, lcFileName, '', lxP1, lxP2, lxP3)
            Case lnPCount = 5
                loObject   = Newobject (lcClass, lcFileName, '', lxP1, lxP2, lxP3, lxP4)
            Case lnPCount = 6
                loObject   = Newobject (lcClass, lcFileName, '', lxP1, lxP2, lxP3, lxP4, lxP5)
            Otherwise
        Endcase
        Return loObject
EndCase

Y se detiene en la linea 31

               loObject   = Newobject (lcClass, lcFileName)

Imagino que me falta una clase o que esta mal instalado.

Espero que alguien pueda ayudarme

[francisco prieto]

Si trato de depurar llego hasta aca en el metodo createcontextmenu

loEditorWin=Execscript(_Screen.cThorDispatcher, 'class= editorwin from pemeditor')