home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / amiga / midi / mstuffpr.zoo / MIDIstuff / src / RecPOW.c < prev   
Encoding:
C/C++ Source or Header  |  1990-08-16  |  3.3 KB  |  296 lines
  1.  
  2. SHORT BorderVectors1[] = {
  3.     0,0,
  4.     71,0,
  5.     71,17,
  6.     0,17,
  7.     0,0
  8. };
  9. struct Border Border1 = {
  10.     -2,-1,
  11.     3,0,JAM1,
  12.     5,
  13.     BorderVectors1,
  14.     NULL
  15. };
  16.  
  17. struct IntuiText IText1 = {
  18.     2,0,JAM2,
  19.     9,4,
  20.     NULL,
  21.     (UBYTE *)"Rewind",
  22.     NULL
  23. };
  24.  
  25. struct Gadget g_Rewind = {
  26.     NULL,
  27.     7,12,
  28.     68,16,
  29.     NULL,
  30.     RELVERIFY,
  31.     BOOLGADGET,
  32.     (APTR)&Border1,
  33.     NULL,
  34.     &IText1,
  35.     NULL,
  36.     NULL,
  37.     NULL,
  38.     NULL
  39. };
  40.  
  41. SHORT BorderVectors2[] = {
  42.     0,0,
  43.     71,0,
  44.     71,17,
  45.     0,17,
  46.     0,0
  47. };
  48. struct Border Border2 = {
  49.     -2,-1,
  50.     3,0,JAM1,
  51.     5,
  52.     BorderVectors2,
  53.     NULL
  54. };
  55.  
  56. struct IntuiText IText2 = {
  57.     2,0,JAM2,
  58.     8,4,
  59.     NULL,
  60.     (UBYTE *)"Record",
  61.     NULL
  62. };
  63.  
  64. struct Gadget g_Record = {
  65.     &g_Rewind,
  66.     81,12,
  67.     68,16,
  68.     NULL,
  69.     RELVERIFY+TOGGLESELECT,
  70.     BOOLGADGET,
  71.     (APTR)&Border2,
  72.     NULL,
  73.     &IText2,
  74.     NULL,
  75.     NULL,
  76.     NULL,
  77.     NULL
  78. };
  79.  
  80. #define GadgetList1 g_Record
  81.  
  82. struct IntuiText IText3 = {
  83.     3,1,COMPLEMENT,
  84.     0,0,
  85.     NULL,
  86.     (UBYTE *)"Toggle Thru",
  87.     NULL
  88. };
  89.  
  90. struct MenuItem MenuItem2 = {
  91.     NULL,
  92.     0,9,
  93.     128,8,
  94.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHBOX,
  95.     0,
  96.     (APTR)&IText3,
  97.     NULL,
  98.     '`',
  99.     NULL,
  100.     MENUNULL
  101. };
  102.  
  103. struct IntuiText IText4 = {
  104.     3,1,COMPLEMENT,
  105.     0,0,
  106.     NULL,
  107.     (UBYTE *)"Help",
  108.     NULL
  109. };
  110.  
  111. struct MenuItem MenuItem1 = {
  112.     &MenuItem2,
  113.     0,0,
  114.     128,8,
  115.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHBOX,
  116.     0,
  117.     (APTR)&IText4,
  118.     NULL,
  119.     '.',
  120.     NULL,
  121.     MENUNULL
  122. };
  123.  
  124. struct Menu Menu2 = {
  125.     NULL,
  126.     82,0,
  127.     57,0,
  128.     MENUENABLED,
  129.     "Tools",
  130.     &MenuItem1
  131. };
  132.  
  133. struct IntuiText IText5 = {
  134.     3,1,COMPLEMENT,
  135.     0,0,
  136.     NULL,
  137.     (UBYTE *)" are you sure? ",
  138.     NULL
  139. };
  140.  
  141. struct MenuItem SubItem1 = {
  142.     NULL,
  143.     33,3,
  144.     120,8,
  145.     ITEMTEXT+ITEMENABLED+HIGHBOX,
  146.     0,
  147.     (APTR)&IText5,
  148.     NULL,
  149.     NULL,
  150.     NULL,
  151.     MENUNULL
  152. };
  153.  
  154. struct IntuiText IText6 = {
  155.     3,1,COMPLEMENT,
  156.     0,0,
  157.     NULL,
  158.     (UBYTE *)"Quit",
  159.     NULL
  160. };
  161.  
  162. struct MenuItem MenuItem7 = {
  163.     NULL,
  164.     0,36,
  165.     104,8,
  166.     ITEMTEXT+ITEMENABLED+HIGHBOX,
  167.     0,
  168.     (APTR)&IText6,
  169.     NULL,
  170.     NULL,
  171.     &SubItem1,
  172.     MENUNULL
  173. };
  174.  
  175. struct IntuiText IText7 = {
  176.     3,1,COMPLEMENT,
  177.     0,0,
  178.     NULL,
  179.     (UBYTE *)"Write",
  180.     NULL
  181. };
  182.  
  183. struct MenuItem MenuItem6 = {
  184.     &MenuItem7,
  185.     0,27,
  186.     104,8,
  187.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHBOX,
  188.     0,
  189.     (APTR)&IText7,
  190.     NULL,
  191.     'w',
  192.     NULL,
  193.     MENUNULL
  194. };
  195.  
  196. struct IntuiText IText8 = {
  197.     3,1,COMPLEMENT,
  198.     0,0,
  199.     NULL,
  200.     (UBYTE *)"Save as ",
  201.     NULL
  202. };
  203.  
  204. struct MenuItem MenuItem5 = {
  205.     &MenuItem6,
  206.     0,18,
  207.     104,8,
  208.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHBOX,
  209.     0,
  210.     (APTR)&IText8,
  211.     NULL,
  212.     's',
  213.     NULL,
  214.     MENUNULL
  215. };
  216.  
  217. struct IntuiText IText9 = {
  218.     3,1,COMPLEMENT,
  219.     0,0,
  220.     NULL,
  221.     (UBYTE *)"Re-read",
  222.     NULL
  223. };
  224.  
  225. struct MenuItem MenuItem4 = {
  226.     &MenuItem5,
  227.     0,9,
  228.     104,8,
  229.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHBOX,
  230.     0,
  231.     (APTR)&IText9,
  232.     NULL,
  233.     'r',
  234.     NULL,
  235.     MENUNULL
  236. };
  237.  
  238. struct IntuiText IText10 = {
  239.     3,1,COMPLEMENT,
  240.     0,0,
  241.     NULL,
  242.     (UBYTE *)"Load",
  243.     NULL
  244. };
  245.  
  246. struct MenuItem MenuItem3 = {
  247.     &MenuItem4,
  248.     0,0,
  249.     104,8,
  250.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHBOX,
  251.     0,
  252.     (APTR)&IText10,
  253.     NULL,
  254.     'l',
  255.     NULL,
  256.     MENUNULL
  257. };
  258.  
  259. struct Menu Menu1 = {
  260.     &Menu2,
  261.     0,0,
  262.     75,0,
  263.     MENUENABLED,
  264.     "Project",
  265.     &MenuItem3
  266. };
  267.  
  268. #define MenuList1 Menu1
  269.  
  270. struct NewWindow NewWindowStructure1 = {
  271.     485,50,
  272.     155,31,
  273.     0,2,
  274.     GADGETUP+MENUPICK+CLOSEWINDOW,
  275.     WINDOWDRAG+WINDOWCLOSE+ACTIVATE,
  276.     &g_Record,
  277.     NULL,
  278.     (UBYTE *)" MIDI Recorder ",
  279.     NULL,
  280.     NULL,
  281.     5,5,
  282.     640,200,
  283.     WBENCHSCREEN
  284. };
  285.  
  286.  
  287. void HandleEvent(object)
  288. APTR object;
  289. {
  290.   if (object == (APTR)&g_Record) { Record(object); return; }
  291.   if (object == (APTR)&g_Rewind) { Rewind(object); return; }
  292. }
  293. #define HANDLEEVENT HandleEvent
  294.  
  295. /* end of PowerWindows source generation */
  296.