Definitions of module ColorPlane; (** OBERON PROCEDURES **) PROCEDURE Bar (x1:INTEGER;y1:INTEGER;x2:INTEGER;y2:INTEGER;mode:INTEGER); PROCEDURE Box (x1:INTEGER;y1:INTEGER;x2:INTEGER;y2:INTEGER;mode:INTEGER); PROCEDURE Clear (); PROCEDURE Close (); PROCEDURE CursorOff (); PROCEDURE CursorOn (); PROCEDURE Dot (x:INTEGER;y:INTEGER;mode:INTEGER); PROCEDURE EditStr (VAR aString:ARRAY OF CHAR;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE GetBackColor (VAR red:INTEGER;VAR green:INTEGER;VAR blue:INTEGER); PROCEDURE GetDot (x:INTEGER;y:INTEGER;VAR r:INTEGER;VAR g:INTEGER;VAR b:INTEGER); PROCEDURE GetForeColor (VAR red:INTEGER;VAR green:INTEGER;VAR blue:INTEGER); PROCEDURE GetMouse (VAR buttons:SET;VAR x:INTEGER;VAR y:INTEGER); PROCEDURE GotoXY (x:INTEGER;y:INTEGER); PROCEDURE IsCursorOn ():BOOLEAN; PROCEDURE KeyPressed ():BOOLEAN; PROCEDURE Line (x1:INTEGER;y1:INTEGER;x2:INTEGER;y2:INTEGER;mode:INTEGER); PROCEDURE Open (); PROCEDURE ReadKey ():CHAR; PROCEDURE ReadStr (VAR aString:ARRAY OF CHAR;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE SetBackColor (red:INTEGER;green:INTEGER;blue:INTEGER); PROCEDURE SetForeColor (red:INTEGER;green:INTEGER;blue:INTEGER); PROCEDURE SetScreenUpdate (x:BOOLEAN); PROCEDURE TextHeight ():INTEGER; PROCEDURE TextWidth (VAR txt:ARRAY OF CHAR):INTEGER; PROCEDURE WhereX ():INTEGER; PROCEDURE WhereY ():INTEGER; PROCEDURE WriteLn (); PROCEDURE WriteStr (txt:ARRAY OF CHAR); END ColorPlane.