Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9447 → Rev 9448

/programs/develop/cedit/SRC/KolibriOS.ob07
31,7 → 31,7
winColor*, textColor*, btnColor*, btnTextColor*,
toolbarColor*, scrollColor*, scrollBkColor*,
borderColor*, shadowColor*, (*darkColor,*) lightColor*,
caseColor*, disCaseColor*: INTEGER;
textToolbarColor*, disTextToolbarColor*: INTEGER;
 
 
PROCEDURE GetCommandLine* (): INTEGER;
62,9 → 62,9
END EndDraw;
 
 
PROCEDURE WaitForEvent* (): INTEGER;
RETURN KOSAPI.sysfunc1(10)
END WaitForEvent;
PROCEDURE EventTimeout* (t: INTEGER): INTEGER;
RETURN KOSAPI.sysfunc2(23, t)
END EventTimeout;
 
 
PROCEDURE ThreadInfo (offsa, offsb: INTEGER; VAR a, b: INTEGER);
319,11 → 319,6
END GetControlKeys;
 
 
PROCEDURE malloc* (size: INTEGER): INTEGER;
RETURN KOSAPI.malloc(size)
END malloc;
 
 
PROCEDURE SetIPC* (buffer: ARRAY OF INTEGER);
BEGIN
KOSAPI.sysfunc4(60, 1, SYSTEM.ADR(buffer[0]), LEN(buffer)*SYSTEM.SIZE(INTEGER))
355,8 → 350,8
 
toolbarColor := lightColor;(*0DFDFDFH;*)
shadowColor := borderColor;(*0808080H;*)
caseColor := 00000FFH;
disCaseColor := borderColor;(*0808080H*)
textToolbarColor := 00000FFH;
disTextToolbarColor := borderColor;(*0808080H*)
END GetSystemColors;
 
 
391,4 → 386,31
END SetCaption;
 
 
PROCEDURE CBCount* (): INTEGER;
RETURN KOSAPI.sysfunc2(54, 0)
END CBCount;
 
 
PROCEDURE CBRead* (slot: INTEGER): INTEGER;
RETURN KOSAPI.sysfunc3(54, 1, slot)
END CBRead;
 
 
PROCEDURE CBWrite* (size, ptr: INTEGER);
BEGIN
KOSAPI.sysfunc4(54, 2, size, ptr)
END CBWrite;
 
 
PROCEDURE CBDelSlot*;
BEGIN
KOSAPI.sysfunc2(54, 3)
END CBDelSlot;
 
 
PROCEDURE GetThreadSlot* (tid: INTEGER): INTEGER;
RETURN KOSAPI.sysfunc3(18, 21, tid)
END GetThreadSlot;
 
 
END KolibriOS.