DEFINITION MODULE CalcGadgets;


FROM Intuition IMPORT IntuiMessage, GadgetPtr;


TYPE
  Base  = (BINA,OCTA,DECI,HEXA);

TYPE
  GadgetType = (B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF,

		LeftParen,	(* "("	*)
		RightParen,	(* ")"	*)

		SignInvert,	(* +/-	*)
		Equal,
		Plus,
		Minus,
		Times,
		Divide,

		Bin,
		Oct,
		Dec,
		Hex,

		Sto,
		Rcl,

		ShiftLeft,	(* «SH	*)
		ShiftRight,
		RotateLeft,	(* «RO	*)
		RotateRight,
		AShiftLeft,	(* «AS	*)
		AShiftRight,

		Not,
		And,
		Or,
		Xor,

		ClearAll,	(* CA	*)
		ClearEntry);	(* CE	*)


VAR
  base       : Base;
  resetValue : BOOLEAN;


PROCEDURE InitGadgetStuff(): BOOLEAN;

PROCEDURE HandleGadget(VAR intui:IntuiMessage; gadget:GadgetPtr): INTEGER;

PROCEDURE FakeGadget(gadget:GadgetType): INTEGER;

PROCEDURE GhostUnused();


END CalcGadgets.