DEFINITION Graf; (* SJ *) (* aes module graf. Procedure mkstate is defined in Evnt. *) CONST (* mouse types *) ARROW* = 0; CURSOR* = 1; BEE* = 2; POINTHAND* = 3; FLATHAND* = 4; LIGHTCROSS* = 5; FATCROSS* = 6; FRAMEDCROSS* = 7; PROCEDURE Rubberbox* (X,Y,MinW,MinH : INTEGER; VAR EndW,EndH : INTEGER); PROCEDURE Dragbox* (W,H,Sx,Sy,Bx,By,Bw,Bh : INTEGER; VAR EndX,EndY : INTEGER); PROCEDURE Movebox* (W,H,Sx,Sy,Dx,Dy : INTEGER); PROCEDURE Growbox* (Sx,Sy,Sw,Sh,Ex,Ey,Ew,Eh : INTEGER); PROCEDURE Shrinkbox* (Sx,Sy,Sw,Sh,Ex,Ey,Ew,Eh : INTEGER); PROCEDURE Handle* (VAR Wchar,Hchar,Wbox,Hbox : INTEGER) : INTEGER; PROCEDURE ShowMouse* ; PROCEDURE HideMouse* ; PROCEDURE ChangeMouse* (Mtype : INTEGER); PROCEDURE SetMouse* (Faddr : LONGINT); END Graf.