Hi Eric,
I've downloaded the latest FoxUnit version lately. I found a minor oddity when trying to launch FU from a Thor's toolbar button. This button-click makes FoxUnit run into an error (stack-level# 7) in fxuNewObject.prg on the following line
```
cDataPath = Justpath(Subs( Sys(16,0), Atc(':',Sys(16,0)) -1))
```
at startup. __cDataPath__ is set to __"C:\PROGRAM FILES (X86)\SOURCE"__ at that moment which is the path to Thor's button class library because __sys(16,0)__ yields: __"PROCEDURE THOR_TOOLBAR.BUTTON3.CLICK C:\PROGRAM FILES (X86)\SOURCE\THOR_RUN.VCT"__ on my machine.
The displayed error dialog reads:
_Microsoft Visual FoxPro
Debug Cancel Ignore Ignore All
Unable to open the FXUClassFactory.DBF table because
File 'c:\program files (x86)\source\fxuclassfactory.dbf' does not exist._
I've made a workaround. I patched Thor's launcher program for the FoxUnit application like so:
```
Procedure ToolCode
Lparameters lxParam1
Local lcCommand, lcText, lnWindowType, loxxxEditorWin
*\\ Do 'C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\Thor\Tools\Apps\FoxUnit\FoxUnit.APP'
*\\ decouple Thor's toolbar button click by cutting the calling chain:
_shell = "Do 'C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\Thor\Tools\Apps\FoxUnit\FoxUnit.APP'"
EndProc
```
This works fine for me but somehow it tells me that your Justpath(Subs( Sys(16,0), Atc(':',Sys(16,0)) -1))
line still isn't the perfect solution ;-)
Anyway, good work, keep rolling...
Best, Burkhard
I've downloaded the latest FoxUnit version lately. I found a minor oddity when trying to launch FU from a Thor's toolbar button. This button-click makes FoxUnit run into an error (stack-level# 7) in fxuNewObject.prg on the following line
```
cDataPath = Justpath(Subs( Sys(16,0), Atc(':',Sys(16,0)) -1))
```
at startup. __cDataPath__ is set to __"C:\PROGRAM FILES (X86)\SOURCE"__ at that moment which is the path to Thor's button class library because __sys(16,0)__ yields: __"PROCEDURE THOR_TOOLBAR.BUTTON3.CLICK C:\PROGRAM FILES (X86)\SOURCE\THOR_RUN.VCT"__ on my machine.
The displayed error dialog reads:
_Microsoft Visual FoxPro
Debug Cancel Ignore Ignore All
Unable to open the FXUClassFactory.DBF table because
File 'c:\program files (x86)\source\fxuclassfactory.dbf' does not exist._
I've made a workaround. I patched Thor's launcher program for the FoxUnit application like so:
```
Procedure ToolCode
Lparameters lxParam1
Local lcCommand, lcText, lnWindowType, loxxxEditorWin
*\\ Do 'C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\Thor\Tools\Apps\FoxUnit\FoxUnit.APP'
*\\ decouple Thor's toolbar button click by cutting the calling chain:
_shell = "Do 'C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\Thor\Tools\Apps\FoxUnit\FoxUnit.APP'"
EndProc
```
This works fine for me but somehow it tells me that your Justpath(Subs( Sys(16,0), Atc(':',Sys(16,0)) -1))
line still isn't the perfect solution ;-)
Anyway, good work, keep rolling...
Best, Burkhard