WebSVN – Kolibri OS – Diff – /programs/develop/cedit/SRC/KolibriOS.ob07

     KOSAPI.sysfunc3(18, 18, tid)
 END ExitID;
+PROCEDURE CreateThread* (proc: INTEGER; stack: ARRAY OF INTEGER): INTEGER;
+VAR
+	tid: INTEGER;
+BEGIN
+    tid := KOSAPI.sysfunc4(51, 1, proc, SYSTEM.ADR(stack[LEN(stack) - 2]));
+    IF tid = -1 THEN
+    	tid := 0
-PROCEDURE CreateThread* (proc: INTEGER; stack: ARRAY OF INTEGER): INTEGER;
+    END
-    RETURN KOSAPI.sysfunc4(51, 1, proc, SYSTEM.ADR(stack[LEN(stack) - 2]))
+    RETURN tid
 END CreateThread;
 BEGIN
     KOSAPI.sysfunc4(60, 1, SYSTEM.ADR(buffer[0]), LEN(buffer)*SYSTEM.SIZE(INTEGER))
 END SetIPC;
-PROCEDURE SendIPC* (tid, msg: INTEGER);
+PROCEDURE SendIPC* (tid: INTEGER; msg: ARRAY OF INTEGER);
 BEGIN
-	KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg), SYSTEM.SIZE(INTEGER))
-END SendIPC;
-PROCEDURE PutPixel* (x, y, color: INTEGER);
-BEGIN
-    KOSAPI.sysfunc4(1, x, y, color)
+	KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg[0]), SYSTEM.SIZE(INTEGER)*LEN(msg))
-END PutPixel;
+END SendIPC;
 PROCEDURE GetSystemColors*;
     x := mouseX - winX - cliX;
     y := mouseY - winY - cliY
 END mouse;
+PROCEDURE SetCaption* (text: ARRAY OF CHAR);
+BEGIN
+	KOSAPI.sysfunc4(71, 2, SYSTEM.ADR(text[0]), 0)
+END SetCaption;

Subversion Repositories Kolibri OS