* set talk OFF * set echo OFF * set exclusive OFF gltestvar1 = .t. gctestvar1 = 'Test Variable' gntestvar1 = 1 * =MESSAGEBOX('gltestvar1='+IIF(gltestvar1,'T','F'),0+48+4096) =MESSAGEBOX('gctestvar1='+gctestvar1,0+48+4096) =MESSAGEBOX('gntestvar1='+ALLTRIM(STR(gntestvar1)),0+48+4096) returnWith The following code the compiler tell you something is wrong. The compiler is smarter inside classes.
DEFINE CLASS SomeClass PROCEDURE SetTest set talk OFF set echo OFF set exclusive OFF gltestvar1 = .t. gctestvar1 = 'Test Variable' gntestvar1 = 1 =MESSAGEBOX('gltestvar1='+IIF(gltestvar1,'T','F'),0+48+4096) =MESSAGEBOX('gctestvar1='+gctestvar1,0+48+4096) =MESSAGEBOX('gntestvar1='+ALLTRIM(STR(gntestvar1)),0+48+4096) return ENDDEFINE>Putting all of the stuff in one directory appears to work (more or less). When I run your sample, it appears to work. However, I tried our main.prg for our app and the output in the exe is empty. I then decided to try a more basic approach and tried this .prg:
>set talk OFF >set echo OFF >set exclusive OFF >gltestvar1 = .t. >gctestvar1 = 'Test Variable' >gntestvar1 = 1 > >=MESSAGEBOX('gltestvar1='+IIF(gltestvar1,'T','F'),0+48+4096) >=MESSAGEBOX('gctestvar1='+gctestvar1,0+48+4096) >=MESSAGEBOX('gntestvar1='+ALLTRIM(STR(gntestvar1)),0+48+4096) > >return >>
>public sealed class TestModule >{ > // Methods > private TestModule() > { > this.InternalInitialize(); > } > > public override object InternalInitialize() > { > object obj2; > return obj2; > } > > public static void Main() > { > int num = VFPVM.GlobalVM.EnterProcedure(); > VFPVM.GlobalVM.ExitProcedure(); > } >} >>