Browse Source

Rebuilt release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7219 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 years ago
parent
commit
d8c9dd9749

BIN
WinAos/A2.exe


BIN
WinAos/oberon.exe


BIN
WinAos/obg/Display.GofW


BIN
WinAos/obg/FoxA2Interface.GofW


+ 1 - 0
WinAos/obg/FoxA2Interface.SymW

@@ -9,6 +9,7 @@ TYPE
 
 
 		PROCEDURE ^  & InitA2Writer(w: Streams.Writer); 
 		PROCEDURE ^  & InitA2Writer(w: Streams.Writer); 
 		PROCEDURE ^ SetFontStyle*(style: SET); 
 		PROCEDURE ^ SetFontStyle*(style: SET); 
+		PROCEDURE ^ SetColor; 
 		PROCEDURE ^ SetStyle; 
 		PROCEDURE ^ SetStyle; 
 		PROCEDURE ^ BeginAlert*; 
 		PROCEDURE ^ BeginAlert*; 
 		PROCEDURE ^ EndAlert*; 
 		PROCEDURE ^ EndAlert*; 

BIN
WinAos/obg/FoxArrayBase.GofW


+ 1 - 1
WinAos/obg/FoxArrayBase.SymW

@@ -1076,7 +1076,7 @@ VAR
 	OPERATOR ^ "*"-(CONST left, right: ARRAY [?] OF SHORTINT): ARRAY [?] OF SHORTINT; 
 	OPERATOR ^ "*"-(CONST left, right: ARRAY [?] OF SHORTINT): ARRAY [?] OF SHORTINT; 
 	PROCEDURE ^ Overlap(src1, src2: ADDRESS): BOOLEAN; 
 	PROCEDURE ^ Overlap(src1, src2: ADDRESS): BOOLEAN; 
 	PROCEDURE ^ AllocateTransposed(VAR dest: ADDRESS; src: ADDRESS; elementsize: SIZE): ANY; 
 	PROCEDURE ^ AllocateTransposed(VAR dest: ADDRESS; src: ADDRESS; elementsize: SIZE): ANY; 
-	PROCEDURE ^ Transpose*(dest, left: ADDRESS; Size: SIZE); 
+	PROCEDURE ^ Transpose*(dest: ADDRESS; left: ADDRESS; Size: SIZE); 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF SHORTINT): ARRAY [*, *] OF SHORTINT; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF SHORTINT): ARRAY [*, *] OF SHORTINT; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF INTEGER): ARRAY [*, *] OF INTEGER; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF INTEGER): ARRAY [*, *] OF INTEGER; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF LONGINT): ARRAY [*, *] OF LONGINT; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF LONGINT): ARRAY [*, *] OF LONGINT; 

BIN
WinAos/obg/FoxPrintout.GofW


BIN
WinAos/obg/FoxTest.GofW


BIN
WinAos/obg/Heaps.GofW


BIN
WinAos/obg/Locks.GofW


BIN
WinAos/obg/Machine.GofW


BIN
WinAos/obg/ObjectFile.GofW


BIN
WinAos/obg/Objects.GofW


+ 1 - 0
WinAos/obg/Objects.SymW

@@ -148,6 +148,7 @@ VAR
 	isWow64: BOOLEAN; 
 	isWow64: BOOLEAN; 
 	GetProcedureName*: PROCEDURE (pc: ADDRESS; VAR n: ARRAY OF CHAR; VAR spc: ADDRESS); 
 	GetProcedureName*: PROCEDURE (pc: ADDRESS; VAR n: ARRAY OF CHAR; VAR spc: ADDRESS); 
 	lpContext: Kernel32.Wow64Context; 
 	lpContext: Kernel32.Wow64Context; 
+	TraceProcessHook*: PROCEDURE (prcoess: Process; pc, bp: ADDRESS; stacklow, stackhigh: ADDRESS); 
 
 
 	PROCEDURE ^ SetPriority*(priority: LONGINT); 
 	PROCEDURE ^ SetPriority*(priority: LONGINT); 
 	PROCEDURE ^ LockedByCurrent*(obj: ANY): BOOLEAN; 
 	PROCEDURE ^ LockedByCurrent*(obj: ANY): BOOLEAN; 

BIN
WinAos/obg/StaticLinker.GofW


BIN
WinAos/obg/WMComponents.GofW


+ 3 - 0
WinAos/obg/WMComponents.SymW

@@ -87,6 +87,9 @@ TYPE
 		recursion*: Recursion; 
 		recursion*: Recursion; 
 	END; 
 	END; 
 
 
+	FindComponentMode* = POINTER TO RECORD 
+	END; 
+
 	Event* = RECORD 
 	Event* = RECORD 
 	END; 
 	END; 
 
 

BIN
WinAos/obg/WMGraphics.GofW


BIN
WinAos/obg/WMGraphicsSmooth.GofW


+ 1 - 1
WinAos/obg/WMGraphicsSmooth.SymW

@@ -1,5 +1,5 @@
 MODULE WMGraphicsSmooth;
 MODULE WMGraphicsSmooth;
-	IMPORT SYSTEM, Raster, Strings, WMGraphics, WMRectangles;
+	IMPORT SYSTEM, Raster, Strings, WMGraphics, WMRectangles, Reals;
 CONST 
 CONST 
 	CapButt* = 0; 
 	CapButt* = 0; 
 	CapRound* = 1; 
 	CapRound* = 1; 

BIN
WinAos/obg/WMInspector.GofW


BIN
WinAos/obg/WMNavigate.GofW


BIN
WinAos/obg/WMTextView.GofW


+ 1 - 0
WinAos/obg/WMTextView.SymW

@@ -330,6 +330,7 @@ TYPE
 		PROCEDURE ^ AutoStartDrag*; 
 		PROCEDURE ^ AutoStartDrag*; 
 		PROCEDURE ^ DragWasAccepted(sender, data: ANY); 
 		PROCEDURE ^ DragWasAccepted(sender, data: ANY); 
 		PROCEDURE ^ DragOver*(x, y: LONGINT; dragInfo: WMWindowManager.DragInfo); 
 		PROCEDURE ^ DragOver*(x, y: LONGINT; dragInfo: WMWindowManager.DragInfo); 
+		PROCEDURE ^ ConfirmDrag*(accept: BOOLEAN; dragInfo: WMWindowManager.DragInfo); 
 		PROCEDURE ^ DragDropped*(x, y: LONGINT; dragInfo: WMWindowManager.DragInfo); 
 		PROCEDURE ^ DragDropped*(x, y: LONGINT; dragInfo: WMWindowManager.DragInfo); 
 		PROCEDURE ^ CopySelection*; 
 		PROCEDURE ^ CopySelection*; 
 		PROCEDURE ^ DeleteSelection*; 
 		PROCEDURE ^ DeleteSelection*; 

BIN
WinAos/obg/WMV24Component.GofW