home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 229.lha / Calc_v1.01 / sources / CalcGadgets.def < prev    next >
Text File  |  1989-04-04  |  806b  |  62 lines
  1. DEFINITION MODULE CalcGadgets;
  2.  
  3.  
  4. FROM Intuition IMPORT IntuiMessage, GadgetPtr;
  5.  
  6.  
  7. TYPE
  8.   Base  = (BINA,OCTA,DECI,HEXA);
  9.  
  10. TYPE
  11.   GadgetType = (B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF,
  12.  
  13.         LeftParen,    (* "("    *)
  14.         RightParen,    (* ")"    *)
  15.  
  16.         SignInvert,    (* +/-    *)
  17.         Equal,
  18.         Plus,
  19.         Minus,
  20.         Times,
  21.         Divide,
  22.  
  23.         Bin,
  24.         Oct,
  25.         Dec,
  26.         Hex,
  27.  
  28.         Sto,
  29.         Rcl,
  30.  
  31.         ShiftLeft,    (* «SH    *)
  32.         ShiftRight,
  33.         RotateLeft,    (* «RO    *)
  34.         RotateRight,
  35.         AShiftLeft,    (* «AS    *)
  36.         AShiftRight,
  37.  
  38.         Not,
  39.         And,
  40.         Or,
  41.         Xor,
  42.  
  43.         ClearAll,    (* CA    *)
  44.         ClearEntry);    (* CE    *)
  45.  
  46.  
  47. VAR
  48.   base       : Base;
  49.   resetValue : BOOLEAN;
  50.  
  51.  
  52. PROCEDURE InitGadgetStuff(): BOOLEAN;
  53.  
  54. PROCEDURE HandleGadget(VAR intui:IntuiMessage; gadget:GadgetPtr): INTEGER;
  55.  
  56. PROCEDURE FakeGadget(gadget:GadgetType): INTEGER;
  57.  
  58. PROCEDURE GhostUnused();
  59.  
  60.  
  61. END CalcGadgets.
  62.