include "draw.m";   #for Draw->Pointer
include "devpointer.m";
ptr:= load Devpointer Devpointer->PATH;
Devpointer: module
{
  PATH:    con "/dis/lib/devpointer.dis";
   Size:   con 1+3*12;	# 'm' plus 3 12-byte decimal integers
   init:   fn(file: string, posn: 
                chan of ref Draw->Pointer): int;
  bytes2ptr: fn(buf: array of byte)    : ref Draw->Pointer;
  ptr2bytes: fn(ptr: ref Draw->Pointer): array of byte;
};

bytes2ptr (buf)

ptr2bytes (ptr)

Files

See Also

pointer - state of a pointer device such as a mouse in Chapter 11

draw - graphics device in Chapter 2