DEFINITION MODULE CalcGadgets;

(* 
   Create gadgets for calculator.


   Created: Duncan Prindle,  September 1, 1986

   Modified: Perhaps

*)

FROM CalcFunctions IMPORT ErrorType;

FROM Intuition     IMPORT GadgetPtr, BorderPtr, WindowPtr;


TYPE
     ErrorFunction = PROCEDURE () : ErrorType;
     CalcButtonPtr = POINTER TO CalcButton;
     CalcButton = RECORD
        CalcKey : ErrorFunction;
     END;



PROCEDURE InitBorder ( VAR b : ARRAY OF BorderPtr );
PROCEDURE InitGadgets( VAR g : ARRAY OF GadgetPtr;
                       VAR b : ARRAY OF BorderPtr );
PROCEDURE DEG  (): ErrorType;
PROCEDURE STO  (): ErrorType;
PROCEDURE RCL  (): ErrorType;
PROCEDURE GOLD (): ErrorType;
PROCEDURE InitWindow ( VAR wp : WindowPtr; g : GadgetPtr);


END CalcGadgets.