deltaIOState.dcl 725 Bytes
Newer Older
Ronny Wichers Schreur's avatar
Ronny Wichers Schreur committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
definition module deltaIOState;

//	Global operations on the IOState.
// version 0.8.3

import deltaEventIO, deltaIOSystem;

from StdFile import class FileEnv, :: Files;
instance FileEnv (IOState s);

/*
::	SetGlobalCursor !CursorShape !(IOState s) -> IOState s;
<<	Set the shape of the cursor globally. This shape overrules the local cursor
	shapes of windows. >>

::	ResetCursor !(IOState s) -> IOState s;
<<	Undoes the effect of SetGlobalCursor. >>
*/

ObscureCursor	:: !(IOState s) -> IOState s;
/* Has no effect on X Windows / Open Look systems */

SetDoubleDownDistance	:: !Int !(IOState s) -> IOState s;
/* Has no effect on X Windows / Open Look systems (?) */

from cursorInternal import SetGlobalCursor,ResetCursor;