home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d130 / qman.lha / QMan / qman_menus.include < prev    next >
Text File  |  1988-03-13  |  4KB  |  165 lines
  1.  
  2. /*- - - - - - - - - - - - - - - - - - - - - */
  3. /*      File:   qman_menus.include          */
  4. /*                                          */
  5. /*      Sets up data structures required    */
  6. /*      for subsequent use with call to     */ 
  7. /*      Intuition routine SetMenuStrip.     */
  8. /*- - - - - - - - - - - - - - - - - - - - - */
  9.  
  10. void SetUpMandelMenus()
  11.  
  12. {
  13.  
  14. /*  Link the menus together:  */
  15. qman.NextMenu  = &resolution;
  16. resolution.NextMenu  = &color;
  17. color.NextMenu = &zoom;
  18. zoom.NextMenu  = NULL;
  19.  
  20. qman.LeftEdge       =   0;
  21. qman.Width          = 120;
  22. resolution.LeftEdge = 150;
  23. resolution.Width    = 120;
  24. color.LeftEdge      = 300;
  25. color.Width         = 140;
  26. zoom.LeftEdge       = 450;
  27. zoom.Width          = 120;
  28.  
  29. qman.Flags          = MENUENABLED | MIDRAWN;
  30. resolution.Flags    = MENUENABLED | MIDRAWN;
  31. color.Flags         = MENUENABLED | MIDRAWN;
  32. zoom.Flags          = MENUENABLED | MIDRAWN;
  33.  
  34. qman.MenuName       = "Qman\0";
  35. resolution.MenuName = "Resolution\0";
  36. color.MenuName      = "Color\0";
  37. zoom.MenuName       = "Zoom\0"; 
  38.  
  39. qman.FirstItem       = &restart;
  40. resolution.FirstItem = &interlace;
  41. color.FirstItem      = &blend;
  42. zoom.FirstItem       = &select;
  43.  
  44. restart.NextItem   = &skew;
  45. skew.NextItem      = &quit;
  46. quit.NextItem      = NULL;
  47. interlace.NextItem = &smooth;
  48. smooth.NextItem    = NULL;
  49. blend.NextItem     = &random;
  50. random.NextItem    = &cycle;
  51. cycle.NextItem     = &next;
  52. next.NextItem      = NULL;
  53. select.NextItem    = NULL;
  54.  
  55. restart.LeftEdge   =   0;
  56. restart.TopEdge    =   0;
  57. restart.Width      = 120;
  58. restart.Height     =   9;
  59. skew.LeftEdge      =   0;
  60. skew.TopEdge       =   9;
  61. skew.Width         = 120;
  62. skew.Height        =   9;
  63. quit.LeftEdge      =   0;
  64. quit.TopEdge       =  18;
  65. quit.Width         = 120;
  66. quit.Height        =   9;
  67.  
  68. interlace.LeftEdge =   0;
  69. interlace.TopEdge  =   0;
  70. interlace.Width    = 120;
  71. interlace.Height   =   9;
  72. smooth.LeftEdge    =   0;
  73. smooth.TopEdge     =   9;
  74. smooth.Width       = 120;
  75. smooth.Height      =   9;
  76.  
  77. blend.LeftEdge   =   0;
  78. blend.TopEdge    =   0;
  79. blend.Width      = 140;
  80. blend.Height     =   9;
  81.  
  82. random.LeftEdge  =   0;
  83. random.TopEdge   =   9;
  84. random.Width     = 140;
  85. random.Height    =   9;
  86.  
  87. cycle.LeftEdge   =   0;
  88. cycle.TopEdge    =  18;
  89. cycle.Width      = 140;
  90. cycle.Height     =   9;
  91.  
  92. next.LeftEdge    =   0;
  93. next.TopEdge     =  27;
  94. next.Width       = 140;
  95. next.Height      =   9;
  96.  
  97. select.LeftEdge  =   0;
  98. select.TopEdge   =   0;
  99. select.Width     = 120;
  100. select.Height    =   9;
  101.  
  102. default_flags = ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP;
  103.   
  104. if ( kflag == 1 )
  105.   skew.Flags = default_flags | CHECKIT | CHECKED ;
  106. else
  107.   skew.Flags = default_flags | CHECKIT ;
  108.  
  109. if ( ilace == 1 )
  110.   interlace.Flags = default_flags | CHECKIT | CHECKED ;
  111. else
  112.   interlace.Flags = default_flags | CHECKIT ;
  113.  
  114. if ( smooth_flag == 1 )
  115.   smooth.Flags    = default_flags | CHECKIT | CHECKED ;
  116. else
  117.   smooth.Flags    = default_flags | CHECKIT ;
  118.  
  119. restart.Flags   = default_flags ;
  120. quit.Flags      = default_flags ;
  121. blend.Flags     = default_flags | CHECKIT | CHECKED;
  122. random.Flags    = default_flags | CHECKIT ;
  123. cycle.Flags     = default_flags | CHECKIT | CHECKED;
  124. next.Flags      = default_flags ;
  125. select.Flags    = default_flags ;
  126.  
  127. blend.MutualExclude   = 0x0002;   
  128. random.MutualExclude  = 0x0001;
  129. cycle.MutualExclude   = 0x0000;   /* no exclusion; can be used with 1 or 2 */
  130.  
  131. restart.ItemFill   = (APTR) &restart_text;
  132. skew.ItemFill      = (APTR) &skew_text;
  133. quit.ItemFill      = (APTR) &quit_text;
  134. interlace.ItemFill = (APTR) &interlace_text;
  135. smooth.ItemFill    = (APTR) &smooth_text;
  136. blend.ItemFill     = (APTR) &blend_text;
  137. random.ItemFill    = (APTR) &random_text;
  138. cycle.ItemFill     = (APTR) &cycle_text;
  139. next.ItemFill      = (APTR) &next_text;
  140. select.ItemFill    = (APTR) &select_text;
  141.  
  142. restart_text.IText   = "   restart\0";
  143. skew_text.IText      = "   skew\0";
  144. quit_text.IText      = "   quit\0";
  145. interlace_text.IText = "   ilace\0";
  146. smooth_text.IText    = "   smooth\0";
  147. blend_text.IText     = "   blend\0";
  148. random_text.IText    = "   random\0";
  149. cycle_text.IText     = "   cycle\0";
  150. next_text.IText      = "   next\0";
  151. select_text.IText    = "select\0";
  152.  
  153. restart.Command   = 's';
  154. skew.Command      = 'k';
  155. quit.Command      = 'q';
  156. interlace.Command = 'i';
  157. smooth.Command    = 'm';
  158. blend.Command     = 'b';
  159. random.Command    = 'r';
  160. cycle.Command     = 'c';
  161. next.Command      = 'n';
  162. select.Command    = 'z';
  163.  
  164. }
  165.