Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9447 → Rev 9448

/programs/develop/cedit/SRC/Clipboard.ob07
19,7 → 19,7
 
MODULE Clipboard;
 
IMPORT SYSTEM, K := KOSAPI, E := Encodings, Lines;
IMPORT SYSTEM, KOSAPI, E := Encodings, Lines, K := KolibriOS;
 
CONST
TTEXT = 0;
35,7 → 35,7
 
PROCEDURE free (ptr: INTEGER);
BEGIN
ptr := K.free(ptr)
ptr := KOSAPI.free(ptr)
END free;
 
 
52,7 → 52,7
BEGIN
cnt := bufSize(buffer) DIV 2;
size := cnt + 12;
a := K.malloc(size);
a := KOSAPI.malloc(size);
ASSERT(a # 0);
SYSTEM.PUT32(a + 4, TTEXT);
SYSTEM.PUT32(a + 8, 1);
70,8 → 70,8
DEC(cnt)
END;
SYSTEM.PUT32(a, size);
K.sysfunc2(54, 3);
K.sysfunc4(54, 2, size, a)
K.CBDelSlot;
K.CBWrite(size, a)
END put;
 
 
80,7 → 80,7
res: tBuffer;
BEGIN
NEW(res);
res.dataPtr := K.malloc(bufSize*SYSTEM.SIZE(WCHAR) + 4096);
res.dataPtr := KOSAPI.malloc(bufSize*SYSTEM.SIZE(WCHAR) + 4096);
ASSERT(res.dataPtr # 0);
res.pos := res.dataPtr
RETURN res
139,9 → 139,9
res: BOOLEAN;
BEGIN
res := FALSE;
n := K.sysfunc2(54, 0);
n := K.CBCount();
IF n > 0 THEN
ptr := K.sysfunc3(54, 1, n - 1);
ptr := K.CBRead(n - 1);
SYSTEM.GET32(ptr, size);
SYSTEM.GET32(ptr + 4, typ);
SYSTEM.GET(ptr + 8, x);
159,7 → 159,7
ptr := 0;
cnt := 0;
IF available() THEN
ptr := K.sysfunc3(54, 1, K.sysfunc2(54, 0) - 1);
ptr := K.CBRead(K.CBCount() - 1);
SYSTEM.GET32(ptr, cnt);
DEC(cnt, 12);
INC(ptr, 12)