home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 350.lha / IRA / ira.h < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-04  |  5.2 KB  |  411 lines
  1.  
  2. UBYTE UNDOBUFFER[20];
  3.  
  4. UBYTE YearsGadSIBuff[20];
  5. struct StringInfo YearsGadSInfo = {
  6.     YearsGadSIBuff,
  7.     UNDOBUFFER,
  8.     0,
  9.     20,
  10.     0,
  11.     0,0,0,0,0,
  12.     0,
  13.     0,
  14.     NULL
  15. };
  16.  
  17. SHORT BorderVectors1[] = {
  18.     0,0,
  19.     89,0,
  20.     89,21,
  21.     0,21,
  22.     0,1
  23. };
  24. struct Border Border1 = {
  25.     -2,-7,
  26.     3,0,COMPLEMENT,
  27.     5,
  28.     BorderVectors1,
  29.     NULL
  30. };
  31.  
  32. struct Gadget YearsGad = {
  33.     NULL,
  34.     98,116,
  35.     86,20,
  36.     NULL,
  37.     RELVERIFY+STRINGRIGHT+LONGINT,
  38.     STRGADGET,
  39.     (APTR)&Border1,
  40.     NULL,
  41.     NULL,
  42.     NULL,
  43.     (APTR)&YearsGadSInfo,
  44.     NULL,
  45.     NULL
  46. };
  47.  
  48. UBYTE DepositGadSIBuff[20];
  49. struct StringInfo DepositGadSInfo = {
  50.     DepositGadSIBuff,
  51.     UNDOBUFFER,
  52.     0,
  53.     20,
  54.     0,
  55.     0,0,0,0,0,
  56.     0,
  57.     0,
  58.     NULL
  59. };
  60.  
  61. SHORT BorderVectors2[] = {
  62.     0,0,
  63.     89,0,
  64.     89,21,
  65.     0,21,
  66.     0,1
  67. };
  68. struct Border Border2 = {
  69.     -2,-7,
  70.     3,0,COMPLEMENT,
  71.     5,
  72.     BorderVectors2,
  73.     NULL
  74. };
  75.  
  76. struct Gadget DepositGad = {
  77.     &YearsGad,
  78.     98,86,
  79.     86,20,
  80.     NULL,
  81.     RELVERIFY+STRINGRIGHT,
  82.     STRGADGET,
  83.     (APTR)&Border2,
  84.     NULL,
  85.     NULL,
  86.     NULL,
  87.     (APTR)&DepositGadSInfo,
  88.     NULL,
  89.     NULL
  90. };
  91.  
  92. UBYTE InterestGadSIBuff[20];
  93. struct StringInfo InterestGadSInfo = {
  94.     InterestGadSIBuff,
  95.     UNDOBUFFER,
  96.     0,
  97.     20,
  98.     0,
  99.     0,0,0,0,0,
  100.     0,
  101.     0,
  102.     NULL
  103. };
  104.  
  105. SHORT BorderVectors3[] = {
  106.     0,0,
  107.     89,0,
  108.     89,21,
  109.     0,21,
  110.     0,1
  111. };
  112. struct Border Border3 = {
  113.     -2,-7,
  114.     3,0,COMPLEMENT,
  115.     5,
  116.     BorderVectors3,
  117.     NULL
  118. };
  119.  
  120. struct Gadget InterestGad = {
  121.     &DepositGad,
  122.     98,56,
  123.     86,20,
  124.     NULL,
  125.     RELVERIFY+STRINGRIGHT,
  126.     STRGADGET,
  127.     (APTR)&Border3,
  128.     NULL,
  129.     NULL,
  130.     NULL,
  131.     (APTR)&InterestGadSInfo,
  132.     NULL,
  133.     NULL
  134. };
  135.  
  136. SHORT BorderVectors4[] = {
  137.     0,0,
  138.     92,0,
  139.     92,18,
  140.     0,18,
  141.     0,0
  142. };
  143. struct Border Border4 = {
  144.     -2,-1,
  145.     2,0,JAM1,
  146.     5,
  147.     BorderVectors4,
  148.     NULL
  149. };
  150.  
  151. struct TextAttr TOPAZ80 = {
  152.     (STRPTR)"topaz.font",
  153.     TOPAZ_EIGHTY,0,0
  154. };
  155. struct IntuiText IText1 = {
  156.     1,0,JAM2,
  157.     9,5,
  158.     &TOPAZ80,
  159.     (UBYTE *)"Calculate",
  160.     NULL
  161. };
  162.  
  163. struct Gadget CalcGad = {
  164.     &InterestGad,
  165.     53,146,
  166.     89,17,
  167.     NULL,
  168.     RELVERIFY,
  169.     BOOLGADGET,
  170.     (APTR)&Border4,
  171.     NULL,
  172.     &IText1,
  173.     NULL,
  174.     NULL,
  175.     NULL,
  176.     NULL
  177. };
  178.  
  179. UBYTE BalanceGadSIBuff[20];
  180. struct StringInfo BalanceGadSInfo = {
  181.     BalanceGadSIBuff,
  182.     UNDOBUFFER,
  183.     0,
  184.     20,
  185.     0,
  186.     0,0,0,0,0,
  187.     0,
  188.     0,
  189.     NULL
  190. };
  191.  
  192. SHORT BorderVectors5[] = {
  193.     0,0,
  194.     89,0,
  195.     89,21,
  196.     0,21,
  197.     0,1
  198. };
  199. struct Border Border5 = {
  200.     -2,-7,
  201.     3,0,COMPLEMENT,
  202.     5,
  203.     BorderVectors5,
  204.     NULL
  205. };
  206.  
  207. struct Gadget BalanceGad = {
  208.     &CalcGad,
  209.     98,26,
  210.     86,20,
  211.     NULL,
  212.     RELVERIFY+STRINGRIGHT,
  213.     STRGADGET,
  214.     (APTR)&Border5,
  215.     NULL,
  216.     NULL,
  217.     NULL,
  218.     (APTR)&BalanceGadSInfo,
  219.     NULL,
  220.     NULL
  221. };
  222.  
  223. #define GadgetList1 BalanceGad
  224.  
  225. struct IntuiText IText2 = {
  226.     3,1,COMPLEMENT,
  227.     0,0,
  228.     NULL,
  229.     (UBYTE *)"Quit",
  230.     NULL
  231. };
  232.  
  233. struct MenuItem MenuItem6 = {
  234.     NULL,
  235.     0,45,
  236.     80,8,
  237.     ITEMTEXT+ITEMENABLED+HIGHCOMP,
  238.     0,
  239.     (APTR)&IText2,
  240.     NULL,
  241.     NULL,
  242.     NULL,
  243.     MENUNULL
  244. };
  245.  
  246. struct IntuiText IText3 = {
  247.     3,1,COMPLEMENT,
  248.     0,0,
  249.     NULL,
  250.     (UBYTE *)"About",
  251.     NULL
  252. };
  253.  
  254. struct MenuItem MenuItem5 = {
  255.     &MenuItem6,
  256.     0,36,
  257.     80,8,
  258.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
  259.     0,
  260.     (APTR)&IText3,
  261.     NULL,
  262.     'A',
  263.     NULL,
  264.     MENUNULL
  265. };
  266.  
  267. struct IntuiText IText4 = {
  268.     3,1,COMPLEMENT,
  269.     0,0,
  270.     NULL,
  271.     (UBYTE *)"Help",
  272.     NULL
  273. };
  274.  
  275. struct MenuItem MenuItem4 = {
  276.     &MenuItem5,
  277.     0,27,
  278.     80,8,
  279.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
  280.     0,
  281.     (APTR)&IText4,
  282.     NULL,
  283.     'H',
  284.     NULL,
  285.     MENUNULL
  286. };
  287.  
  288. struct IntuiText IText5 = {
  289.     3,1,COMPLEMENT,
  290.     0,0,
  291.     NULL,
  292.     (UBYTE *)"Print",
  293.     NULL
  294. };
  295.  
  296. struct MenuItem MenuItem3 = {
  297.     &MenuItem4,
  298.     0,18,
  299.     80,8,
  300.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
  301.     0,
  302.     (APTR)&IText5,
  303.     NULL,
  304.     'P',
  305.     NULL,
  306.     MENUNULL
  307. };
  308.  
  309. struct IntuiText IText6 = {
  310.     3,1,COMPLEMENT,
  311.     0,0,
  312.     NULL,
  313.     (UBYTE *)"Save",
  314.     NULL
  315. };
  316.  
  317. struct MenuItem MenuItem2 = {
  318.     &MenuItem3,
  319.     0,9,
  320.     80,8,
  321.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
  322.     0,
  323.     (APTR)&IText6,
  324.     NULL,
  325.     'S',
  326.     NULL,
  327.     MENUNULL
  328. };
  329.  
  330. struct IntuiText IText7 = {
  331.     3,1,COMPLEMENT,
  332.     0,0,
  333.     NULL,
  334.     (UBYTE *)"Load",
  335.     NULL
  336. };
  337.  
  338. struct MenuItem MenuItem1 = {
  339.     &MenuItem2,
  340.     0,0,
  341.     80,8,
  342.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,
  343.     0,
  344.     (APTR)&IText7,
  345.     NULL,
  346.     'L',
  347.     NULL,
  348.     MENUNULL
  349. };
  350.  
  351. struct Menu Menu1 = {
  352.     NULL,
  353.     0,0,
  354.     75,0,
  355.     MENUENABLED,
  356.     "Project",
  357.     &MenuItem1
  358. };
  359.  
  360. #define MenuList1 Menu1
  361.  
  362. struct IntuiText IText11 = {
  363.     3,0,JAM2,
  364.     16,117,
  365.     NULL,
  366.     (UBYTE *)"Years",
  367.     NULL
  368. };
  369.  
  370. struct IntuiText IText10 = {
  371.     3,0,JAM2,
  372.     16,88,
  373.     NULL,
  374.     (UBYTE *)"Deposit",
  375.     &IText11
  376. };
  377.  
  378. struct IntuiText IText9 = {
  379.     3,0,JAM2,
  380.     16,57,
  381.     NULL,
  382.     (UBYTE *)"Interest",
  383.     &IText10
  384. };
  385.  
  386. struct IntuiText IText8 = {
  387.     3,0,JAM2,
  388.     16,25,
  389.     NULL,
  390.     (UBYTE *)"Balance",
  391.     &IText9
  392. };
  393.  
  394. #define IntuiTextList1 IText8
  395.  
  396. struct NewWindow NewWindowStructure1 = {
  397.     71,19,
  398.     202,173,
  399.     0,1,
  400.     GADGETUP+MENUPICK+CLOSEWINDOW,
  401.     WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE,
  402.     &BalanceGad,
  403.     NULL,
  404.     (UBYTE *)"IRA Calculator",
  405.     NULL,
  406.     NULL,
  407.     5,5,
  408.     640,200,
  409.     WBENCHSCREEN
  410. };
  411.