Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9186 → Rev 9187

/programs/develop/cedit/SRC/KolibriOS.ob07
359,4 → 359,14
END GetSystemColors;
 
 
PROCEDURE getKBState* (VAR shift, ctrl: BOOLEAN);
VAR
kbState: SET;
BEGIN
kbState := GetControlKeys();
shift := {0, 1} * kbState # {};
ctrl := {2, 3} * kbState # {};
END getKBState;
 
 
END KolibriOS.