Fox does only load A2 Interface when windowing system is available (otherwise it would block)

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6938 8c9fc860-2736-0410-a75d-ab315db34111

source/Fox.Tool

@@ -10,6 +10,11 @@ Compiler.Compile --noInterfaceCheck
 	SystemTools.Timer start ~
 
 	Compiler.Compile -p=Win32G *)
+(* 
+	SystemTools.DoCommands
+	SystemTools.Timer start ~
+
+	Compiler.Compile -p=Linux32G *)
 
 	BitSets.Mod ObjectFile.Mod GenericLinker.Mod StaticLinker.Mod
 	FoxBasic.Mod  FoxProgTools.Mod  FoxScanner.Mod FoxCSharpScanner.Mod FoxSyntaxTree.Mod FoxGlobal.Mod
@@ -34,7 +39,7 @@ Compiler.Compile --noInterfaceCheck
 	ActiveCellsRunner.mod 
 
 	FoxProfiler.Mod
-	FoxTextCompiler.Mod FoxA2Interface.Mod FoxTest.Mod
+	FoxTextCompiler.Mod FoxA2Interface.Mod Versioning.Mod TestSuite.Mod FoxTest.Mod
 	
 	PersistentObjects.Mod FoxInterpreterSymbols.Mod FoxInterpreter.Mod
 	InterpreterShell.Mod WMInterpreterShell.Mod 

source/FoxBasic.Mod

@@ -2,7 +2,7 @@ MODULE FoxBasic;   (**  AUTHOR "fof"; PURPOSE "Oberon Compiler: basic helpers: s
 (* (c) fof ETH Zürich, 2009 *)
 
 
-IMPORT KernelLog, StringPool, Strings, Streams, Diagnostics, Files, SYSTEM, ObjectFile, D:= Debugging;
+IMPORT KernelLog, StringPool, Strings, Streams, Diagnostics, Files, SYSTEM, ObjectFile, Modules, D:= Debugging;
 
 CONST
 	(* error numbers *)
@@ -2076,7 +2076,9 @@ VAR
 	VAR install: PROCEDURE;
 	BEGIN
 		getDebugWriter := NIL; getWriter := NIL;
-		GETPROCEDURE("FoxA2Interface","Install",install);
+		IF Modules.ModuleByName("WindowManager") # NIL THEN
+			GETPROCEDURE("FoxA2Interface","Install",install);
+		END;
 		IF install # NIL THEN install END;
 	END InitWindowWriter;