home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / Emperor_v4.0 / Emperor / Projects / AminetSearcher.c < prev    next >
Encoding:
C/C++ Source or Header  |  2001-05-05  |  149.2 KB  |  2,046 lines

  1. /* code was generated by Emperor */
  2.  
  3. #define CATCOMP_NUMBERS
  4. #define CATCOMP_STRINGS
  5. #define ALL_REACTION_CLASSES
  6. #define ALL_REACTION_MACROS
  7. #include <stdio.h>
  8. #include <stdlib.h>
  9. #include <string.h>
  10. #include <clib/alib_protos.h>
  11. #include <clib/asl_protos.h>
  12. #include <clib/dos_protos.h>
  13. #include <clib/exec_protos.h>
  14. #include <clib/gadtools_protos.h>
  15. #include <clib/graphics_protos.h>
  16. #include <clib/intuition_protos.h>
  17. #include <clib/locale_protos.h>
  18. #include <clib/utility_protos.h>
  19. #include <clib/wb_protos.h>
  20. #include <clib/colorwheel_protos.h>
  21. #include <clib/datebrowser_protos.h>
  22. #include <clib/resource_protos.h>
  23. #include <clib/texteditor_protos.h>
  24. #include <gadgets/colorwheel.h>
  25. #include <gadgets/datebrowser.h>
  26. #include <gadgets/gradientslider.h>
  27. #include <gadgets/tapedeck.h>
  28. #include <gadgets/texteditor.h>
  29. #include <proto/texteditor.h>
  30. #include <reaction/reaction.h>
  31. #include <intuition/icclass.h>
  32. #include <intuition/imageclass.h>
  33. #include <intuition/gadgetclass.h>
  34. #include <workbench/startup.h>
  35. #include <wbstartup.h>
  36.  
  37. #define TapeDeckObject   NewObject(NULL, "tapedeck.gadget"
  38. #define TextEditorObject NewObject(TEXTEDITOR_GetClass(), NULL
  39.  
  40. #define LOCALE_WINDOW_TITLE1 GetCatalogStr(Catalog, 0, "AminetSearcher Version 1.4")
  41. #define LOCALE_SCREEN_TITLE1 GetCatalogStr(Catalog, 1, "AminetSearcher Version 1.4   created by Emperor")
  42. #define LOCALE_ICONIFIED_TITLE1 GetCatalogStr(Catalog, 2, "Iconified Program")
  43. #define LOCALE_PATTERN1 GetCatalogStr(Catalog, 3, "Pattern #1")
  44. #define LOCALE_PATTERN2 GetCatalogStr(Catalog, 4, "Pattern #2")
  45. #define LOCALE_PATTERN3 GetCatalogStr(Catalog, 5, "Pattern #3")
  46. #define LOCALE_PATTERN4 GetCatalogStr(Catalog, 6, "Pattern #4")
  47. #define LOCALE_PATTERN5 GetCatalogStr(Catalog, 7, "Pattern #5")
  48. #define LOCALE_ALLCDS GetCatalogStr(Catalog, 8, "all CDs")
  49. #define LOCALE_ONECD GetCatalogStr(Catalog, 9, "one CD")
  50. #define LOCALE_REQUEST_INFO_TITLE GetCatalogStr(Catalog, 10, "Program information")
  51. #define LOCALE_REQUEST_INFO_BODY GetCatalogStr(Catalog, 11, " AminetSearcher was written by Matthias Gietzelt \n AminetSearcher was created with Emperor")
  52. #define LOCALE_REQUEST_INFO_GADGET GetCatalogStr(Catalog, 12, "Okay")
  53. #define LOCALE_REQUEST_QUIT_TITLE GetCatalogStr(Catalog, 13, "Program request")
  54. #define LOCALE_REQUEST_QUIT_BODY GetCatalogStr(Catalog, 14, " Do you really want to quit this program ?")
  55. #define LOCALE_REQUEST_QUIT_GADGET GetCatalogStr(Catalog, 15, "Okay|No")
  56. #define LOCALE_REQUEST_ERROR1_TITLE GetCatalogStr(Catalog, 16, "Program error")
  57. #define LOCALE_REQUEST_ERROR1_BODY GetCatalogStr(Catalog, 17, "An error has been occured: Can't get Aminet-Index !")
  58. #define LOCALE_REQUEST_ERROR1_GADGET GetCatalogStr(Catalog, 18, "Okay")
  59. #define LOCALE_REQUEST_EXTRACT_TITLE GetCatalogStr(Catalog, 19, "AminetSearcher request")
  60. #define LOCALE_REQUEST_EXTRACT_BODY GetCatalogStr(Catalog, 20, " What do you want to do ? ")
  61. #define LOCALE_REQUEST_EXTRACT_GADGET GetCatalogStr(Catalog, 21, "Readme|Extract|Break")
  62. #define LOCALE_REQUEST_NOPATT_TITLE GetCatalogStr(Catalog, 22, "AminetSearcher request")
  63. #define LOCALE_REQUEST_NOPATT_BODY GetCatalogStr(Catalog, 23, " You must set a search-pattern ! ")
  64. #define LOCALE_REQUEST_NOPATT_GADGET GetCatalogStr(Catalog, 24, "Okay")
  65. #define LOCALE_PROJECT GetCatalogStr(Catalog, 25, "Project")
  66. #define LOCALE_MENU_PREFS GetCatalogStr(Catalog, 26, "Prefs")
  67. #define LOCALE_MENU_INFO GetCatalogStr(Catalog, 27, "Info")
  68. #define LOCALE_MENU_QUIT GetCatalogStr(Catalog, 28, "Quit")
  69. #define LOCALE_MENU_EXTRA GetCatalogStr(Catalog, 29, "Extra")
  70. #define LOCALE_MENU_SELECTALL GetCatalogStr(Catalog, 30, "Select all")
  71. #define LOCALE_SELECTNONE GetCatalogStr(Catalog, 31, "Select none")
  72. #define LOCALE_SCAN_IN_LHA GetCatalogStr(Catalog, 32, "scan in LhA")
  73. #define LOCALE_SEARCH GetCatalogStr(Catalog, 33, "Search")
  74. #define LOCALE_BREAK GetCatalogStr(Catalog, 34, "Break")
  75. #define LOCALE_SINGLE_CDs GetCatalogStr(Catalog, 35, "Single CDs")
  76. #define GADHELP_STRING1 GetCatalogStr(Catalog, 36, "Input searchpattern #1")
  77. #define GADHELP_STRING2 GetCatalogStr(Catalog, 37, "Input searchpattern #2")
  78. #define GADHELP_STRING3 GetCatalogStr(Catalog, 38, "Input searchpattern #3")
  79. #define GADHELP_STRING4 GetCatalogStr(Catalog, 39, "Input searchpattern #4")
  80. #define GADHELP_STRING5 GetCatalogStr(Catalog, 40, "Input searchpattern #5")
  81. #define GADHELP_CHECK1 GetCatalogStr(Catalog, 41, "When searching through LhA-files, check directory: biz")
  82. #define GADHELP_CHECK2 GetCatalogStr(Catalog, 42, "When searching through LhA-files, check directory: comm")
  83. #define GADHELP_CHECK3 GetCatalogStr(Catalog, 43, "When searching through LhA-files, check directory: demo")
  84. #define GADHELP_CHECK4 GetCatalogStr(Catalog, 44, "When searching through LhA-files, check directory: dev")
  85. #define GADHELP_CHECK5 GetCatalogStr(Catalog, 45, "When searching through LhA-files, check directory: disk")
  86. #define GADHELP_CHECK6 GetCatalogStr(Catalog, 46, "When searching through LhA-files, check directory: docs")
  87. #define GADHELP_CHECK7 GetCatalogStr(Catalog, 47, "When searching through LhA-files, check directory: game")
  88. #define GADHELP_CHECK8 GetCatalogStr(Catalog, 48, "When searching through LhA-files, check directory: gfx")
  89. #define GADHELP_CHECK9 GetCatalogStr(Catalog, 49, "When searching through LhA-files, check directory: hard")
  90. #define GADHELP_CHECK10 GetCatalogStr(Catalog, 50, "When searching through LhA-files, check directory: misc")
  91. #define GADHELP_CHECK11 GetCatalogStr(Catalog, 51, "When searching through LhA-files, check directory: mods")
  92. #define GADHELP_CHECK12 GetCatalogStr(Catalog, 52, "When searching through LhA-files, check directory: mus")
  93. #define GADHELP_CHECK13 GetCatalogStr(Catalog, 53, "When searching through LhA-files, check directory: pix")
  94. #define GADHELP_CHECK14 GetCatalogStr(Catalog, 54, "When searching through LhA-files, check directory: text")
  95. #define GADHELP_CHECK15 GetCatalogStr(Catalog, 55, "When searching through LhA-files, check directory: util")
  96. #define GADHELP_CHECK16 GetCatalogStr(Catalog, 56, "Search trough LhA-files after given patterns")
  97. #define GADHELP_CHECK17 GetCatalogStr(Catalog, 57, "Aminetset or single Aminets")
  98. #define GADHELP_CHOOSER GetCatalogStr(Catalog, 58, "Choose searching through all or just one Aminet")
  99. #define GADHELP_BUTTON1 GetCatalogStr(Catalog, 59, "Start searching")
  100. #define GADHELP_BUTTON2 GetCatalogStr(Catalog, 60, "Break searching")
  101. #define GADHELP_LISTBROWSER GetCatalogStr(Catalog, 61, "List of founded files")
  102. #define GADHELP_FUELGAUGE1 GetCatalogStr(Catalog, 62, "Percent indicator #1 of searchposition")
  103. #define GADHELP_FUELGAUGE2 GetCatalogStr(Catalog, 63, "Percent indicator #2 of searchposition")
  104. #define GADHELP_STRING6 GetCatalogStr(Catalog, 64, "GadgetHelp and statusoutput-gadget")
  105. #define Layout1 Gadget1[1]
  106. #define Layout2 Gadget1[2]
  107. #define Layout3 Gadget1[3]
  108. #define String1 Gadget1[4]
  109. #define Label1 Gadget1[5]
  110. #define String2 Gadget1[6]
  111. #define Label2 Gadget1[7]
  112. #define String3 Gadget1[8]
  113. #define Label3 Gadget1[9]
  114. #define String4 Gadget1[10]
  115. #define Label4 Gadget1[11]
  116. #define String5 Gadget1[12]
  117. #define Label5 Gadget1[13]
  118. #define Layout4 Gadget1[14]
  119. #define Layout5 Gadget1[15]
  120. #define Checkbox1 Gadget1[16]
  121. #define Checkbox2 Gadget1[17]
  122. #define Checkbox3 Gadget1[18]
  123. #define Checkbox4 Gadget1[19]
  124. #define Checkbox5 Gadget1[20]
  125. #define Layout6 Gadget1[21]
  126. #define Checkbox6 Gadget1[22]
  127. #define Checkbox7 Gadget1[23]
  128. #define Checkbox8 Gadget1[24]
  129. #define Checkbox9 Gadget1[25]
  130. #define Checkbox10 Gadget1[26]
  131. #define Layout7 Gadget1[27]
  132. #define Checkbox11 Gadget1[28]
  133. #define Checkbox12 Gadget1[29]
  134. #define Checkbox13 Gadget1[30]
  135. #define Checkbox14 Gadget1[31]
  136. #define Checkbox15 Gadget1[32]
  137. #define Layout8 Gadget1[33]
  138. #define Checkbox16 Gadget1[34]
  139. #define Checkbox17 Gadget1[35]
  140. #define Space1 Gadget1[36]
  141. #define Chooser1 Gadget1[37]
  142. #define Button1 Gadget1[38]
  143. #define Button2 Gadget1[39]
  144. #define Listbrowser1 Gadget1[40]
  145. #define Fuelgauge1 Gadget1[41]
  146. #define Fuelgauge2 Gadget1[42]
  147. #define String6 Gadget1[43]
  148. #define Menu_Project 65504
  149. #define Menu_Info 63488
  150. #define Menu_Quit 63552
  151. #define Menu_Extra 65505
  152. #define Menu_Select_All 63489
  153. #define Menu_Select_None 63521
  154. BYTE Emperor_Gadgetkind1[] = { 0, 12, 12, 12, 20, 26, 20, 26, 20, 26, 20, 26, 20, 26, 12, 12, 1, 1, 1, 1, 1, 12, 1, 1, 1, 1, 1, 12, 1, 1, 1, 1, 1, 12, 1, 1, 18, 2, 0, 0, 13, 6, 6, 20, -1 };
  155.  
  156. LONG Inforequest1(void);
  157. LONG Quitrequest1(void);
  158. LONG Errorrequest1(void);
  159. LONG Extractrequest1(void);
  160. LONG Nopatternrequest1(void);
  161. void String1_GadgetUp_Event(void);
  162. void String2_GadgetUp_Event(void);
  163. void String3_GadgetUp_Event(void);
  164. void String4_GadgetUp_Event(void);
  165. void String5_GadgetUp_Event(void);
  166. void Checkbox16_GadgetUp_Event(void);
  167. void Checkbox17_GadgetUp_Event(void);
  168. void Chooser1_GadgetUp_Event(void);
  169. void Button1_GadgetUp_Event(void);
  170. void Listbrowser1_GadgetUp_Event(void);
  171. void Menu_Info_MenuPick_Event(void);
  172. void Menu_Quit_MenuPick_Event(void);
  173. void Menu_Select_All_MenuPick_Event(void);
  174. void Menu_Select_None_MenuPick_Event(void);
  175. void Window1_CloseWindow_Event(void);
  176. BOOL Emperor_InitProgram(void);
  177. void Emperor_QuitProgram(void);
  178. void Emperor_CloseWindow_Window1(void);
  179. void Emperor_IconifyWindow_Window1(void);
  180. struct Window *Emperor_OpenWindow_Window1(void);
  181. struct Window *Emperor_UniconifyWindow_Window1(void);
  182. BOOL Emperor_GetMenuItemAttr(UWORD, UWORD);
  183. void Emperor_SetMenuItemAttr(UWORD, UWORD, BOOL);
  184. STRPTR Emperor_GetGadgetAttr(struct Gadget *);
  185. void Emperor_SetGadgetAttr(struct Gadget *, STRPTR);
  186. STRPTR Emperor_GetGadgetAttrComplex(struct Gadget *, ULONG);
  187. void Emperor_SetGadgetAttrComplex(struct Gadget *, ULONG, STRPTR);
  188. BOOL Emperor_GetGadgetDisabledAttr(struct Gadget *);
  189. void Emperor_SetGadgetDisabledAttr(struct Gadget *, BOOL);
  190. BOOL Emperor_GetGadgetReadOnlyAttr(struct Gadget *);
  191. void Emperor_SetGadgetReadOnlyAttr(struct Gadget *, BOOL);
  192. void Emperor_ActivateGadget(struct Gadget *);
  193. void Emperor_RethinkLayout(struct Gadget *);
  194. void Emperor_RefreshGList(struct Gadget *, WORD);
  195. void Emperor_ChangeWindowPosition(struct Window *, WORD, WORD);
  196. void Emperor_ChangeWindowSize(struct Window *, WORD, WORD);
  197. void Emperor_SetWindowBusyPointer(struct Window *, BOOL);
  198. void Emperor_SetWindowTitle(struct Window *, STRPTR);
  199. void Emperor_SetScreenTitle(struct Window *, STRPTR);
  200. void Emperor_AllocChooserNode(struct List *, char **, WORD *);
  201. void Emperor_AllocClicktabNode(struct List *, char **, WORD *);
  202. void Emperor_AllocListbrowserNode(struct List *, char **, WORD *);
  203. void Emperor_AllocRadiobuttonNode(struct List *, char **, WORD *);
  204. void Emperor_AllocListbrowserGadToolsNode(struct List *, char **);
  205. ULONG stringlength(STRPTR buffer);
  206. LONG stringtoint(STRPTR);
  207. DOUBLE stringtofloat(STRPTR);
  208. STRPTR inttostring(LONG);
  209.  
  210. struct Library *IntuitionBase = NULL;
  211. struct Library *LocaleBase = NULL;
  212. struct Library *GadToolsBase = NULL;
  213. struct Library *ASLBase = NULL;
  214. struct Library *DOSLibBase = NULL;
  215. struct Library *ResourceBase = NULL;
  216. struct Library *WindowBase = NULL;
  217. struct Library *RequesterBase = NULL;
  218. struct Library *ButtonBase = NULL;
  219. struct Library *CheckBoxBase = NULL;
  220. struct Library *ChooserBase = NULL;
  221. struct Library *ClickTabBase = NULL;
  222. struct Library *ColorWheelBase = NULL;
  223. struct Library *DateBrowserBase = NULL;
  224. struct Library *FuelGaugeBase = NULL;
  225. struct Library *GetFileBase = NULL;
  226. struct Library *GetFontBase = NULL;
  227. struct Library *GetScreenModeBase = NULL;
  228. struct Library *GradientSliderBase = NULL;
  229. struct Library *IntegerBase = NULL;
  230. struct Library *LayoutBase = NULL;
  231. struct Library *ListBrowserBase = NULL;
  232. struct Library *PaletteBase = NULL;
  233. struct Library *RadioButtonBase = NULL;
  234. struct Library *ScrollerBase = NULL;
  235. struct Library *SliderBase = NULL;
  236. struct Library *SpaceBase = NULL;
  237. struct Library *SpeedBarBase = NULL;
  238. struct Library *StringBase = NULL;
  239. struct Library *TapeDeckBase = NULL;
  240. struct Library *TextEditorBase = NULL;
  241. struct Library *BevelBase = NULL;
  242. struct Library *BitMapBase = NULL;
  243. struct Library *GlyphBase = NULL;
  244. struct Library *LabelBase = NULL;
  245. struct List Chooser_Chooserarray;
  246. struct List Clicktab_Chooserarray;
  247. struct List Listbrowser_Chooserarray;
  248. struct List Radiobutton_Chooserarray;
  249. struct List Listbrowser_GadTools_Chooserarray;
  250. struct List Chooser_founded_files_list;
  251. struct List Clicktab_founded_files_list;
  252. struct List Listbrowser_founded_files_list;
  253. struct List Radiobutton_founded_files_list;
  254. struct List Listbrowser_GadTools_founded_files_list;
  255.  
  256. struct ColumnInfo ListbrowserColumnInfo[] =
  257. {
  258.     { 100, "String", 0 },
  259.     { 100, "File", 0 },
  260.     { 100, "Dir", 0 },
  261.     { 100, "Length", 0 },
  262.     { 100, "Short", 0 },
  263.     { -1, (STRPTR)~0, -1 }
  264. };
  265.  
  266. struct NewMenu NewMenu[] =
  267. {
  268.     { NM_TITLE, 0, 0, 0, 0, 0 },
  269.     { NM_ITEM, 0, "I", 0, 0, 0 },
  270.     { NM_ITEM, NM_BARLABEL, 0, 0, 0, 0 },
  271.     { NM_ITEM, 0, "Q", 0, 0, 0 },
  272.     { NM_TITLE, 0, 0, 0, 0, 0 },
  273.     { NM_ITEM, 0, "A", 0, 0, 0 },
  274.     { NM_ITEM, 0, "N", 0, 0, 0 },
  275.     { NM_END, 0, 0, 0, 0, 0 }
  276. };
  277.  
  278. struct TextAttr XEN1 =
  279. {
  280.     "XEN.font",
  281.     8,
  282.     0,
  283.     FPF_DISKFONT
  284. };
  285.  
  286. void *vinfo = NULL;
  287. BOOL os35 = TRUE;
  288. BOOL terminated = FALSE;
  289. ULONG WindowSignals1 = 0L;
  290. Object *WindowObject1 = NULL;
  291. struct Catalog *Catalog = NULL;
  292. struct Gadget *Gadget1[44];
  293. struct Menu *Menu = NULL;
  294. struct MsgPort *AppPort = NULL;
  295. struct MsgPort *MsgPort = NULL;
  296. struct Screen *Screen1 = NULL;
  297. struct Window *Window1 = NULL;
  298.  
  299. const char VERSION[] = "$VER: AminetSearcher 1.4 (16-Feb-2001)";
  300. const char AUTHOR[] = "Matthias Gietzelt";
  301.  
  302. /* global variables declarations */
  303.  
  304. BOOL in_lha = FALSE;
  305. BOOL all_or_one_cd = FALSE;
  306. BOOL single = FALSE;
  307. LONG winbuff = 0;
  308. LONG entryzahl = 0;
  309. LONG filezahl = 0;
  310. LONG Seconds = 0;
  311. LONG Micros = 0;
  312. char *Chooserarrayraw[] = { "one CD", "all CDs", NULL };
  313. WORD Chooserarrayattr[] = { 0, 0, 0, 0, 0, 0, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NULL };
  314. char *founded_files_listraw[] = { NULL };
  315. WORD founded_files_listattr[] = { NULL };
  316.  
  317. void main(void)
  318. {
  319.     BYTE Emperor_Exception = 0;
  320.     ULONG Emperor_Input, Emperor_Code;
  321.     char Emperor_ExceptionString[300];
  322.     struct EasyStruct EmperorRequest_InitializationErrorRequest;
  323.     struct IntuiMessage *IntuiMessage = NULL;
  324.     struct Gadget *GadgetMessage = NULL;
  325.  
  326.     Emperor_Input = 0L;
  327.     Emperor_Code = 0L;
  328.     if(!Emperor_InitProgram())
  329.     {
  330.         Screen1 = LockPubScreen(NULL);
  331.         if(Screen1)
  332.         {
  333.             vinfo = GetVisualInfo(Screen1, TAG_DONE);
  334.             if(vinfo)
  335.             {
  336.                 NewMenu[0].nm_Label = LOCALE_PROJECT;
  337.                 NewMenu[1].nm_Label = LOCALE_MENU_INFO;
  338.                 NewMenu[2].nm_Label = NM_BARLABEL;
  339.                 NewMenu[3].nm_Label = LOCALE_MENU_QUIT;
  340.                 NewMenu[4].nm_Label = LOCALE_MENU_EXTRA;
  341.                 NewMenu[5].nm_Label = LOCALE_MENU_SELECTALL;
  342.                 NewMenu[6].nm_Label = LOCALE_SELECTNONE;
  343.                 Menu = CreateMenus(NewMenu, GTMN_FullMenu, TRUE, TAG_DONE);
  344.                 if(Menu)
  345.                 {
  346.                     LayoutMenus(Menu, vinfo, GTMN_FrontPen, 0, TAG_DONE);
  347.                     strcpy(Chooserarrayraw[0], LOCALE_ONECD);
  348.                     strcpy(Chooserarrayraw[1], LOCALE_ALLCDS);
  349.                     if(os35) Emperor_AllocChooserNode(&Chooser_Chooserarray, Chooserarrayraw, Chooserarrayattr);
  350.                     if(os35) Emperor_AllocClicktabNode(&Clicktab_Chooserarray, Chooserarrayraw, Chooserarrayattr);
  351.                     if(os35) Emperor_AllocListbrowserNode(&Listbrowser_Chooserarray, Chooserarrayraw, Chooserarrayattr);
  352.                     if(os35) Emperor_AllocRadiobuttonNode(&Radiobutton_Chooserarray, Chooserarrayraw, Chooserarrayattr);
  353.                     Emperor_AllocListbrowserGadToolsNode(&Listbrowser_GadTools_Chooserarray, Chooserarrayraw);
  354.                     if(os35) Emperor_AllocChooserNode(&Chooser_founded_files_list, founded_files_listraw, founded_files_listattr);
  355.                     if(os35) Emperor_AllocClicktabNode(&Clicktab_founded_files_list, founded_files_listraw, founded_files_listattr);
  356.                     if(os35) Emperor_AllocListbrowserNode(&Listbrowser_founded_files_list, founded_files_listraw, founded_files_listattr);
  357.                     if(os35) Emperor_AllocRadiobuttonNode(&Radiobutton_founded_files_list, founded_files_listraw, founded_files_listattr);
  358.                     Emperor_AllocListbrowserGadToolsNode(&Listbrowser_GadTools_founded_files_list, founded_files_listraw);
  359.                     AppPort = CreateMsgPort();
  360.                     if(AppPort)
  361.                     {
  362.                         MsgPort = CreatePort("AminetSearcher_Port", 0);
  363.                         if(MsgPort)
  364.                         {
  365.                             if(os35)
  366.                             {
  367.                                 WindowObject1 = (Object *) WindowObject,
  368.                                                 WA_Left, 0,
  369.                                                 WA_Top, 17,
  370.                                                 WA_Width, 400,
  371.                                                 WA_Height, 300,
  372.                                                 WA_SizeGadget, TRUE,
  373.                                                 WA_DragBar, TRUE,
  374.                                                 WA_DepthGadget, TRUE,
  375.                                                 WA_CloseGadget, TRUE,
  376.                                                 WA_Activate, TRUE,
  377.                                                 WA_AutoAdjust, TRUE,
  378.                                                 WA_IDCMP, IDCMP_GADGETDOWN | IDCMP_GADGETUP | IDCMP_GADGETHELP | IDCMP_MENUPICK | IDCMP_MENUHELP | IDCMP_CLOSEWINDOW | IDCMP_ACTIVEWINDOW | IDCMP_INACTIVEWINDOW | IDCMP_RAWKEY | IDCMP_VANILLAKEY | IDCMP_MOUSEBUTTONS | IDCMP_MOUSEMOVE | IDCMP_NEWSIZE | IDCMP_CHANGEWINDOW | IDCMP_SIZEVERIFY | IDCMP_REFRESHWINDOW | IDCMP_INTUITICKS,
  379.                                                 WA_MinWidth, -1,
  380.                                                 WA_MinHeight, -1,
  381.                                                 WA_MaxWidth, -1,
  382.                                                 WA_MaxHeight, -1,
  383.                                                 WA_Title, LOCALE_WINDOW_TITLE1,
  384.                                                 WA_ScreenTitle, LOCALE_SCREEN_TITLE1,
  385.                                                 WA_PubScreen, Screen1,
  386.                                                 WINDOW_GadgetHelp, TRUE,
  387.                                                 WINDOW_IconifyGadget, FALSE,
  388.                                                 WINDOW_IconTitle, LOCALE_ICONIFIED_TITLE1,
  389.                                                 WINDOW_AppPort, AppPort,
  390.                                                 WINDOW_ParentGroup, (Object *) Gadget1[0] = (Object *) VGroupObject,
  391.                                                                         LAYOUT_SpaceOuter, TRUE,
  392.                                                                         LAYOUT_DeferLayout, TRUE,
  393.                                                                         LAYOUT_AddChild, (Object *) Gadget1[1] = (Object *) LayoutObject,
  394.                                                                                          GA_ID, 0,
  395.                                                                                          GA_RelVerify, TRUE,
  396.                                                                                          GA_GadgetHelp, TRUE,
  397.                                                                                          GA_UserData, "",
  398.                                                                                          LAYOUT_Label, "",
  399.                                                                                          LAYOUT_Orientation, 1,
  400.                                                                                          LAYOUT_HorizAlignment, LALIGN_LEFT,
  401.                                                                                          LAYOUT_VertAlignment, LALIGN_TOP,
  402.                                                                                          LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  403.                                                                                          LAYOUT_BevelState, IDS_NORMAL,
  404.                                                                                          LAYOUT_BevelStyle, 4,
  405.                                                                                          LAYOUT_AddChild, (Object *) Gadget1[2] = (Object *) LayoutObject,
  406.                                                                                                           GA_ID, 1,
  407.                                                                                                           GA_RelVerify, TRUE,
  408.                                                                                                           GA_GadgetHelp, TRUE,
  409.                                                                                                           GA_UserData, "",
  410.                                                                                                           LAYOUT_Label, "",
  411.                                                                                                           LAYOUT_Orientation, 0,
  412.                                                                                                           LAYOUT_HorizAlignment, LALIGN_LEFT,
  413.                                                                                                           LAYOUT_VertAlignment, LALIGN_TOP,
  414.                                                                                                           LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  415.                                                                                                           LAYOUT_BevelState, IDS_NORMAL,
  416.                                                                                                           LAYOUT_BevelStyle, 4,
  417.                                                                                                           LAYOUT_AddChild, (Object *) Gadget1[3] = (Object *) LayoutObject,
  418.                                                                                                                            GA_ID, 2,
  419.                                                                                                                            GA_RelVerify, TRUE,
  420.                                                                                                                            GA_GadgetHelp, TRUE,
  421.                                                                                                                            GA_UserData, "",
  422.                                                                                                                            LAYOUT_Label, "",
  423.                                                                                                                            LAYOUT_Orientation, 1,
  424.                                                                                                                            LAYOUT_HorizAlignment, LALIGN_LEFT,
  425.                                                                                                                            LAYOUT_VertAlignment, LALIGN_TOP,
  426.                                                                                                                            LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  427.                                                                                                                            LAYOUT_BevelState, IDS_NORMAL,
  428.                                                                                                                            LAYOUT_BevelStyle, 4,
  429.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[4] = (Object *) StringObject,
  430.                                                                                                                                             GA_ID, 3,
  431.                                                                                                                                             GA_RelVerify, TRUE,
  432.                                                                                                                                             GA_GadgetHelp, TRUE,
  433.                                                                                                                                             GA_TabCycle, TRUE,
  434.                                                                                                                                             GA_UserData, GADHELP_STRING1,
  435.                                                                                                                                             STRINGA_TextVal, "",
  436.                                                                                                                                             STRINGA_MaxChars, 30,
  437.                                                                                                                                             STRINGA_Justification, GACT_STRINGLEFT,
  438.                                                                                                                                             STRINGA_MinVisible, 10,
  439.                                                                                                                            End,
  440.                                                                                                                            CHILD_Label, (Object *) Gadget1[5] = (Object *) LabelObject,
  441.                                                                                                                                             LABEL_Justification, 0,
  442.                                                                                                                                             LABEL_Text, LOCALE_PATTERN1,
  443.                                                                                                                            End,
  444.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[6] = (Object *) StringObject,
  445.                                                                                                                                             GA_ID, 5,
  446.                                                                                                                                             GA_RelVerify, TRUE,
  447.                                                                                                                                             GA_GadgetHelp, TRUE,
  448.                                                                                                                                             GA_TabCycle, TRUE,
  449.                                                                                                                                             GA_UserData, GADHELP_STRING2,
  450.                                                                                                                                             STRINGA_TextVal, "",
  451.                                                                                                                                             STRINGA_MaxChars, 30,
  452.                                                                                                                                             STRINGA_Justification, GACT_STRINGLEFT,
  453.                                                                                                                                             STRINGA_MinVisible, 10,
  454.                                                                                                                            End,
  455.                                                                                                                            CHILD_Label, (Object *) Gadget1[7] = (Object *) LabelObject,
  456.                                                                                                                                             LABEL_Justification, 0,
  457.                                                                                                                                             LABEL_Text, LOCALE_PATTERN2,
  458.                                                                                                                            End,
  459.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[8] = (Object *) StringObject,
  460.                                                                                                                                             GA_ID, 7,
  461.                                                                                                                                             GA_RelVerify, TRUE,
  462.                                                                                                                                             GA_GadgetHelp, TRUE,
  463.                                                                                                                                             GA_TabCycle, TRUE,
  464.                                                                                                                                             GA_UserData, GADHELP_STRING3,
  465.                                                                                                                                             STRINGA_TextVal, "",
  466.                                                                                                                                             STRINGA_MaxChars, 30,
  467.                                                                                                                                             STRINGA_Justification, GACT_STRINGLEFT,
  468.                                                                                                                                             STRINGA_MinVisible, 10,
  469.                                                                                                                            End,
  470.                                                                                                                            CHILD_Label, (Object *) Gadget1[9] = (Object *) LabelObject,
  471.                                                                                                                                             LABEL_Justification, 0,
  472.                                                                                                                                             LABEL_Text, LOCALE_PATTERN3,
  473.                                                                                                                            End,
  474.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[10] = (Object *) StringObject,
  475.                                                                                                                                             GA_ID, 9,
  476.                                                                                                                                             GA_RelVerify, TRUE,
  477.                                                                                                                                             GA_GadgetHelp, TRUE,
  478.                                                                                                                                             GA_TabCycle, TRUE,
  479.                                                                                                                                             GA_UserData, GADHELP_STRING4,
  480.                                                                                                                                             STRINGA_TextVal, "",
  481.                                                                                                                                             STRINGA_MaxChars, 30,
  482.                                                                                                                                             STRINGA_Justification, GACT_STRINGLEFT,
  483.                                                                                                                                             STRINGA_MinVisible, 10,
  484.                                                                                                                            End,
  485.                                                                                                                            CHILD_Label, (Object *) Gadget1[11] = (Object *) LabelObject,
  486.                                                                                                                                             LABEL_Justification, 0,
  487.                                                                                                                                             LABEL_Text, LOCALE_PATTERN4,
  488.                                                                                                                            End,
  489.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[12] = (Object *) StringObject,
  490.                                                                                                                                             GA_ID, 11,
  491.                                                                                                                                             GA_RelVerify, TRUE,
  492.                                                                                                                                             GA_GadgetHelp, TRUE,
  493.                                                                                                                                             GA_TabCycle, TRUE,
  494.                                                                                                                                             GA_UserData, GADHELP_STRING5,
  495.                                                                                                                                             STRINGA_TextVal, "",
  496.                                                                                                                                             STRINGA_MaxChars, 30,
  497.                                                                                                                                             STRINGA_Justification, GACT_STRINGLEFT,
  498.                                                                                                                                             STRINGA_MinVisible, 10,
  499.                                                                                                                            End,
  500.                                                                                                                            CHILD_Label, (Object *) Gadget1[13] = (Object *) LabelObject,
  501.                                                                                                                                             LABEL_Justification, 0,
  502.                                                                                                                                             LABEL_Text, LOCALE_PATTERN5,
  503.                                                                                                                            End,
  504.                                                                                                           End,
  505.                                                                                                           LAYOUT_AddChild, (Object *) Gadget1[14] = (Object *) LayoutObject,
  506.                                                                                                                            GA_ID, 13,
  507.                                                                                                                            GA_UserData, "",
  508.                                                                                                                            LAYOUT_Label, "",
  509.                                                                                                                            LAYOUT_Orientation, 0,
  510.                                                                                                                            LAYOUT_HorizAlignment, LALIGN_LEFT,
  511.                                                                                                                            LAYOUT_VertAlignment, LALIGN_TOP,
  512.                                                                                                                            LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  513.                                                                                                                            LAYOUT_BevelState, IDS_NORMAL,
  514.                                                                                                                            LAYOUT_BevelStyle, 4,
  515.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[15] = (Object *) LayoutObject,
  516.                                                                                                                                             GA_ID, 14,
  517.                                                                                                                                             GA_UserData, "",
  518.                                                                                                                                             LAYOUT_Label, "",
  519.                                                                                                                                             LAYOUT_Orientation, 1,
  520.                                                                                                                                             LAYOUT_HorizAlignment, LALIGN_LEFT,
  521.                                                                                                                                             LAYOUT_VertAlignment, LALIGN_TOP,
  522.                                                                                                                                             LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  523.                                                                                                                                             LAYOUT_BevelState, IDS_NORMAL,
  524.                                                                                                                                             LAYOUT_BevelStyle, 4,
  525.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[16] = (Object *) CheckBoxObject,
  526.                                                                                                                                                              GA_ID, 15,
  527.                                                                                                                                                              GA_RelVerify, TRUE,
  528.                                                                                                                                                              GA_GadgetHelp, TRUE,
  529.                                                                                                                                                              GA_Disabled, TRUE,
  530.                                                                                                                                                              GA_UserData, GADHELP_CHECK1,
  531.                                                                                                                                                              GA_Text, "biz",
  532.                                                                                                                                                              CHECKBOX_TextPen, 1,
  533.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  534.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  535.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  536.                                                                                                                                             End,
  537.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[17] = (Object *) CheckBoxObject,
  538.                                                                                                                                                              GA_ID, 16,
  539.                                                                                                                                                              GA_RelVerify, TRUE,
  540.                                                                                                                                                              GA_GadgetHelp, TRUE,
  541.                                                                                                                                                              GA_Disabled, TRUE,
  542.                                                                                                                                                              GA_UserData, GADHELP_CHECK2,
  543.                                                                                                                                                              GA_Text, "comm",
  544.                                                                                                                                                              CHECKBOX_TextPen, 1,
  545.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  546.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  547.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  548.                                                                                                                                             End,
  549.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[18] = (Object *) CheckBoxObject,
  550.                                                                                                                                                              GA_ID, 17,
  551.                                                                                                                                                              GA_RelVerify, TRUE,
  552.                                                                                                                                                              GA_GadgetHelp, TRUE,
  553.                                                                                                                                                              GA_Disabled, TRUE,
  554.                                                                                                                                                              GA_UserData, GADHELP_CHECK3,
  555.                                                                                                                                                              GA_Text, "demo",
  556.                                                                                                                                                              CHECKBOX_TextPen, 1,
  557.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  558.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  559.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  560.                                                                                                                                             End,
  561.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[19] = (Object *) CheckBoxObject,
  562.                                                                                                                                                              GA_ID, 18,
  563.                                                                                                                                                              GA_RelVerify, TRUE,
  564.                                                                                                                                                              GA_GadgetHelp, TRUE,
  565.                                                                                                                                                              GA_Disabled, TRUE,
  566.                                                                                                                                                              GA_UserData, GADHELP_CHECK4,
  567.                                                                                                                                                              GA_Text, "dev",
  568.                                                                                                                                                              CHECKBOX_TextPen, 1,
  569.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  570.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  571.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  572.                                                                                                                                             End,
  573.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[20] = (Object *) CheckBoxObject,
  574.                                                                                                                                                              GA_ID, 19,
  575.                                                                                                                                                              GA_RelVerify, TRUE,
  576.                                                                                                                                                              GA_GadgetHelp, TRUE,
  577.                                                                                                                                                              GA_Disabled, TRUE,
  578.                                                                                                                                                              GA_UserData, GADHELP_CHECK5,
  579.                                                                                                                                                              GA_Text, "disk",
  580.                                                                                                                                                              CHECKBOX_TextPen, 1,
  581.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  582.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  583.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  584.                                                                                                                                             End,
  585.                                                                                                                            End,
  586.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[21] = (Object *) LayoutObject,
  587.                                                                                                                                             GA_ID, 20,
  588.                                                                                                                                             GA_UserData, "",
  589.                                                                                                                                             LAYOUT_Label, "",
  590.                                                                                                                                             LAYOUT_Orientation, 1,
  591.                                                                                                                                             LAYOUT_HorizAlignment, LALIGN_LEFT,
  592.                                                                                                                                             LAYOUT_VertAlignment, LALIGN_TOP,
  593.                                                                                                                                             LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  594.                                                                                                                                             LAYOUT_BevelState, IDS_NORMAL,
  595.                                                                                                                                             LAYOUT_BevelStyle, 4,
  596.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[22] = (Object *) CheckBoxObject,
  597.                                                                                                                                                              GA_ID, 21,
  598.                                                                                                                                                              GA_RelVerify, TRUE,
  599.                                                                                                                                                              GA_GadgetHelp, TRUE,
  600.                                                                                                                                                              GA_Disabled, TRUE,
  601.                                                                                                                                                              GA_UserData, GADHELP_CHECK6,
  602.                                                                                                                                                              GA_Text, "docs",
  603.                                                                                                                                                              CHECKBOX_TextPen, 1,
  604.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  605.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  606.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  607.                                                                                                                                             End,
  608.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[23] = (Object *) CheckBoxObject,
  609.                                                                                                                                                              GA_ID, 22,
  610.                                                                                                                                                              GA_RelVerify, TRUE,
  611.                                                                                                                                                              GA_GadgetHelp, TRUE,
  612.                                                                                                                                                              GA_Disabled, TRUE,
  613.                                                                                                                                                              GA_UserData, GADHELP_CHECK7,
  614.                                                                                                                                                              GA_Text, "game",
  615.                                                                                                                                                              CHECKBOX_TextPen, 1,
  616.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  617.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  618.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  619.                                                                                                                                             End,
  620.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[24] = (Object *) CheckBoxObject,
  621.                                                                                                                                                              GA_ID, 23,
  622.                                                                                                                                                              GA_RelVerify, TRUE,
  623.                                                                                                                                                              GA_GadgetHelp, TRUE,
  624.                                                                                                                                                              GA_Disabled, TRUE,
  625.                                                                                                                                                              GA_UserData, GADHELP_CHECK8,
  626.                                                                                                                                                              GA_Text, "gfx",
  627.                                                                                                                                                              CHECKBOX_TextPen, 1,
  628.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  629.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  630.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  631.                                                                                                                                             End,
  632.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[25] = (Object *) CheckBoxObject,
  633.                                                                                                                                                              GA_ID, 24,
  634.                                                                                                                                                              GA_RelVerify, TRUE,
  635.                                                                                                                                                              GA_GadgetHelp, TRUE,
  636.                                                                                                                                                              GA_Disabled, TRUE,
  637.                                                                                                                                                              GA_UserData, GADHELP_CHECK9,
  638.                                                                                                                                                              GA_Text, "hard",
  639.                                                                                                                                                              CHECKBOX_TextPen, 1,
  640.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  641.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  642.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  643.                                                                                                                                             End,
  644.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[26] = (Object *) CheckBoxObject,
  645.                                                                                                                                                              GA_ID, 25,
  646.                                                                                                                                                              GA_RelVerify, TRUE,
  647.                                                                                                                                                              GA_GadgetHelp, TRUE,
  648.                                                                                                                                                              GA_Disabled, TRUE,
  649.                                                                                                                                                              GA_UserData, GADHELP_CHECK10,
  650.                                                                                                                                                              GA_Text, "misc",
  651.                                                                                                                                                              CHECKBOX_TextPen, 1,
  652.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  653.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  654.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  655.                                                                                                                                             End,
  656.                                                                                                                            End,
  657.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[27] = (Object *) LayoutObject,
  658.                                                                                                                                             GA_ID, 26,
  659.                                                                                                                                             GA_UserData, "",
  660.                                                                                                                                             LAYOUT_Label, "",
  661.                                                                                                                                             LAYOUT_Orientation, 1,
  662.                                                                                                                                             LAYOUT_HorizAlignment, LALIGN_LEFT,
  663.                                                                                                                                             LAYOUT_VertAlignment, LALIGN_TOP,
  664.                                                                                                                                             LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  665.                                                                                                                                             LAYOUT_BevelState, IDS_NORMAL,
  666.                                                                                                                                             LAYOUT_BevelStyle, 4,
  667.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[28] = (Object *) CheckBoxObject,
  668.                                                                                                                                                              GA_ID, 27,
  669.                                                                                                                                                              GA_RelVerify, TRUE,
  670.                                                                                                                                                              GA_GadgetHelp, TRUE,
  671.                                                                                                                                                              GA_Disabled, TRUE,
  672.                                                                                                                                                              GA_UserData, GADHELP_CHECK11,
  673.                                                                                                                                                              GA_Text, "mods",
  674.                                                                                                                                                              CHECKBOX_TextPen, 1,
  675.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  676.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  677.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  678.                                                                                                                                             End,
  679.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[29] = (Object *) CheckBoxObject,
  680.                                                                                                                                                              GA_ID, 28,
  681.                                                                                                                                                              GA_RelVerify, TRUE,
  682.                                                                                                                                                              GA_GadgetHelp, TRUE,
  683.                                                                                                                                                              GA_Disabled, TRUE,
  684.                                                                                                                                                              GA_UserData, GADHELP_CHECK12,
  685.                                                                                                                                                              GA_Text, "mus",
  686.                                                                                                                                                              CHECKBOX_TextPen, 1,
  687.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  688.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  689.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  690.                                                                                                                                             End,
  691.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[30] = (Object *) CheckBoxObject,
  692.                                                                                                                                                              GA_ID, 29,
  693.                                                                                                                                                              GA_RelVerify, TRUE,
  694.                                                                                                                                                              GA_GadgetHelp, TRUE,
  695.                                                                                                                                                              GA_Disabled, TRUE,
  696.                                                                                                                                                              GA_UserData, GADHELP_CHECK13,
  697.                                                                                                                                                              GA_Text, "_pix",
  698.                                                                                                                                                              CHECKBOX_TextPen, 1,
  699.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  700.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  701.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  702.                                                                                                                                             End,
  703.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[31] = (Object *) CheckBoxObject,
  704.                                                                                                                                                              GA_ID, 30,
  705.                                                                                                                                                              GA_RelVerify, TRUE,
  706.                                                                                                                                                              GA_GadgetHelp, TRUE,
  707.                                                                                                                                                              GA_Disabled, TRUE,
  708.                                                                                                                                                              GA_UserData, GADHELP_CHECK14,
  709.                                                                                                                                                              GA_Text, "text",
  710.                                                                                                                                                              CHECKBOX_TextPen, 1,
  711.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  712.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  713.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  714.                                                                                                                                             End,
  715.                                                                                                                                             LAYOUT_AddChild, (Object *) Gadget1[32] = (Object *) CheckBoxObject,
  716.                                                                                                                                                              GA_ID, 31,
  717.                                                                                                                                                              GA_RelVerify, TRUE,
  718.                                                                                                                                                              GA_GadgetHelp, TRUE,
  719.                                                                                                                                                              GA_Disabled, TRUE,
  720.                                                                                                                                                              GA_UserData, GADHELP_CHECK15,
  721.                                                                                                                                                              GA_Text, "util",
  722.                                                                                                                                                              CHECKBOX_TextPen, 1,
  723.                                                                                                                                                              CHECKBOX_FillTextPen, 1,
  724.                                                                                                                                                              CHECKBOX_BackgroundPen, 0,
  725.                                                                                                                                                              CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  726.                                                                                                                                             End,
  727.                                                                                                                            End,
  728.                                                                                                           End,
  729.                                                                                                           LAYOUT_AddChild, (Object *) Gadget1[33] = (Object *) LayoutObject,
  730.                                                                                                                            GA_ID, 32,
  731.                                                                                                                            GA_UserData, "",
  732.                                                                                                                            LAYOUT_Label, "",
  733.                                                                                                                            LAYOUT_Orientation, 1,
  734.                                                                                                                            LAYOUT_HorizAlignment, LALIGN_LEFT,
  735.                                                                                                                            LAYOUT_VertAlignment, LALIGN_TOP,
  736.                                                                                                                            LAYOUT_LabelPlace, BVJ_TOP_LEFT,
  737.                                                                                                                            LAYOUT_BevelState, IDS_NORMAL,
  738.                                                                                                                            LAYOUT_BevelStyle, 4,
  739.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[34] = (Object *) CheckBoxObject,
  740.                                                                                                                                             GA_ID, 33,
  741.                                                                                                                                             GA_RelVerify, TRUE,
  742.                                                                                                                                             GA_GadgetHelp, TRUE,
  743.                                                                                                                                             GA_UserData, GADHELP_CHECK16,
  744.                                                                                                                                             GA_Text, LOCALE_SCAN_IN_LHA,
  745.                                                                                                                                             CHECKBOX_TextPen, 1,
  746.                                                                                                                                             CHECKBOX_FillTextPen, 1,
  747.                                                                                                                                             CHECKBOX_BackgroundPen, 0,
  748.                                                                                                                                             CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  749.                                                                                                                            End,
  750.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[35] = (Object *) CheckBoxObject,
  751.                                                                                                                                             GA_ID, 34,
  752.                                                                                                                                             GA_RelVerify, TRUE,
  753.                                                                                                                                             GA_GadgetHelp, TRUE,
  754.                                                                                                                                             GA_Disabled, TRUE,
  755.                                                                                                                                             GA_UserData, GADHELP_CHECK17,
  756.                                                                                                                                             GA_Text, LOCALE_SINGLE_CDs,
  757.                                                                                                                                             CHECKBOX_TextPen, 1,
  758.                                                                                                                                             CHECKBOX_FillTextPen, 1,
  759.                                                                                                                                             CHECKBOX_BackgroundPen, 0,
  760.                                                                                                                                             CHECKBOX_TextPlace, PLACETEXT_RIGHT,
  761.                                                                                                                            End,
  762.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[36] = (Object *) SpaceObject,
  763.                                                                                                                                             GA_ID, 35,
  764.                                                                                                                                             GA_RelVerify, TRUE,
  765.                                                                                                                                             GA_GadgetHelp, TRUE,
  766.                                                                                                                                             GA_UserData, "",
  767.                                                                                                                            End,
  768.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[37] = (Object *) ChooserObject,
  769.                                                                                                                                             GA_ID, 36,
  770.                                                                                                                                             GA_RelVerify, TRUE,
  771.                                                                                                                                             GA_GadgetHelp, TRUE,
  772.                                                                                                                                             GA_UserData, GADHELP_CHOOSER,
  773.                                                                                                                                             CHOOSER_Title, "",
  774.                                                                                                                                             CHOOSER_AutoFit, TRUE,
  775.                                                                                                                                             CHOOSER_PopUp, TRUE,
  776.                                                                                                                                             CHOOSER_MaxLabels, 10,
  777.                                                                                                                                             CHOOSER_Offset, 0,
  778.                                                                                                                                             CHOOSER_Selected, -1,
  779.                                                                                                                                             CHOOSER_Labels, (ULONG) &Chooser_Chooserarray,
  780.                                                                                                                            End,
  781.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[38] = (Object *) ButtonObject,
  782.                                                                                                                                             GA_ID, 37,
  783.                                                                                                                                             GA_RelVerify, TRUE,
  784.                                                                                                                                             GA_GadgetHelp, TRUE,
  785.                                                                                                                                             GA_UserData, GADHELP_BUTTON1,
  786.                                                                                                                                             GA_Text, LOCALE_SEARCH,
  787.                                                                                                                                             BUTTON_Justification, 1,
  788.                                                                                                                            End,
  789.                                                                                                                            LAYOUT_AddChild, (Object *) Gadget1[39] = (Object *) ButtonObject,
  790.                                                                                                                                             GA_ID, 38,
  791.                                                                                                                                             GA_RelVerify, TRUE,
  792.                                                                                                                                             GA_GadgetHelp, TRUE,
  793.                                                                                                                                             GA_Disabled, TRUE,
  794.                                                                                                                                             GA_UserData, GADHELP_BUTTON2,
  795.                                                                                                                                             GA_Text, LOCALE_BREAK,
  796.                                                                                                                                             BUTTON_Justification, 1,
  797.                                                                                                                            End,
  798.                                                                                                           End,
  799.                                                                                          End,
  800.                                                                                          CHILD_MaxHeight, 35,
  801.                                                                                          LAYOUT_AddChild, (Object *) Gadget1[40] = (Object *) ListBrowserObject,
  802.                                                                                                           GA_ID, 39,
  803.                                                                                                           GA_RelVerify, TRUE,
  804.                                                                                                           GA_GadgetHelp, TRUE,
  805.                                                                                                           GA_UserData, GADHELP_LISTBROWSER,
  806.                                                                                                           GA_TextAttr, &XEN1,
  807.                                                                                                           LISTBROWSER_Labels, (ULONG) &Listbrowser_founded_files_list,
  808.                                                                                                           LISTBROWSER_ColumnInfo, (ULONG) &ListbrowserColumnInfo,
  809.                                                                                                           LISTBROWSER_AutoFit, TRUE,
  810.                                                                                                           LISTBROWSER_ColumnTitles, TRUE,
  811.                                                                                                           LISTBROWSER_ShowSelected, TRUE,
  812.                                                                                                           LISTBROWSER_VerticalProp, TRUE,
  813.                                                                                                           LISTBROWSER_HorizontalProp, TRUE,
  814.                                                                                                           LISTBROWSER_VertSeparators, TRUE,
  815.                                                                                          End,
  816.                                                                                          LAYOUT_AddChild, (Object *) Gadget1[41] = (Object *) FuelGaugeObject,
  817.                                                                                                           GA_ID, 40,
  818.                                                                                                           GA_RelVerify, TRUE,
  819.                                                                                                           GA_GadgetHelp, TRUE,
  820.                                                                                                           GA_UserData, GADHELP_FUELGAUGE1,
  821.                                                                                                           FUELGAUGE_Min, 0,
  822.                                                                                                           FUELGAUGE_Ticks, 9,
  823.                                                                                                           FUELGAUGE_Max, 100,
  824.                                                                                                           FUELGAUGE_TickSize, 5,
  825.                                                                                                           FUELGAUGE_ShortTicks, 8,
  826.                                                                                                           FUELGAUGE_Percent, TRUE,
  827.                                                                                                           FUELGAUGE_Justification, 0,
  828.                                                                                                           FUELGAUGE_Orientation, 0,
  829.                                                                                          End,
  830.                                                                                          CHILD_MaxHeight, 35,
  831.                                                                                          LAYOUT_AddChild, (Object *) Gadget1[42] = (Object *) FuelGaugeObject,
  832.                                                                                                           GA_ID, 41,
  833.                                                                                                           GA_RelVerify, TRUE,
  834.                                                                                                           GA_GadgetHelp, TRUE,
  835.                                                                                                           GA_UserData, GADHELP_FUELGAUGE2,
  836.                                                                                                           FUELGAUGE_Min, 0,
  837.                                                                                                           FUELGAUGE_Ticks, 9,
  838.                                                                                                           FUELGAUGE_Max, 100,
  839.                                                                                                           FUELGAUGE_TickSize, 5,
  840.                                                                                                           FUELGAUGE_ShortTicks, 8,
  841.                                                                                                           FUELGAUGE_Percent, TRUE,
  842.                                                                                                           FUELGAUGE_Justification, 0,
  843.                                                                                                           FUELGAUGE_Orientation, 0,
  844.                                                                                          End,
  845.                                                                                          CHILD_MaxHeight, 35,
  846.                                                                                          LAYOUT_AddChild, (Object *) Gadget1[43] = (Object *) StringObject,
  847.                                                                                                           GA_ID, 42,
  848.                                                                                                           GA_RelVerify, TRUE,
  849.                                                                                                           GA_GadgetHelp, TRUE,
  850.                                                                                                           GA_TabCycle, TRUE,
  851.                                                                                                           GA_ReadOnly, TRUE,
  852.                                                                                                           GA_UserData, GADHELP_STRING6,
  853.                                                                                                           STRINGA_TextVal, "Status: ok",
  854.                                                                                                           STRINGA_MaxChars, 100,
  855.                                                                                                           STRINGA_Justification, GACT_STRINGLEFT,
  856.                                                                                          End,
  857.                                                                         End,
  858.                                                 EndGroup,
  859.                                 EndWindow;
  860.                             }
  861.  
  862.                             SetProgramName("AminetSearcher");
  863.                             Emperor_OpenWindow_Window1();
  864.                             while(!terminated)
  865.                             {
  866.                                 Wait(WindowSignals1 | WindowSignals1);
  867.                                 while((Emperor_Input = RA_HandleInput(WindowObject1, &Emperor_Code)) != WMHI_LASTMSG)
  868.                                 {
  869.                                     switch(Emperor_Input & WMHI_CLASSMASK)
  870.                                     {
  871.                                         case WMHI_GADGETUP:
  872.                                             switch(Emperor_Input & WMHI_GADGETMASK)
  873.                                             {
  874.                                                 case 3: String1_GadgetUp_Event(); break;
  875.                                                 case 5: String2_GadgetUp_Event(); break;
  876.                                                 case 7: String3_GadgetUp_Event(); break;
  877.                                                 case 9: String4_GadgetUp_Event(); break;
  878.                                                 case 11: String5_GadgetUp_Event(); break;
  879.                                                 case 33: Checkbox16_GadgetUp_Event(); break;
  880.                                                 case 34: Checkbox17_GadgetUp_Event(); break;
  881.                                                 case 36: Chooser1_GadgetUp_Event(); break;
  882.                                                 case 37: Button1_GadgetUp_Event(); break;
  883.                                                 case 39: Listbrowser1_GadgetUp_Event(); break;
  884.                                                 default: break;
  885.                                             }
  886.                                             break;
  887.                                         case WMHI_GADGETHELP:
  888.                                             if(((Emperor_Input & WMHI_GADGETMASK) < 43) && (Emperor_Gadgetkind1[(Emperor_Input & WMHI_GADGETMASK) + 1] != -1) && (Emperor_Gadgetkind1[(Emperor_Input & WMHI_GADGETMASK) + 1] < 23)) Emperor_SetGadgetAttr(String6, (STRPTR) Gadget1[(Emperor_Input & WMHI_GADGETMASK) + 1]->UserData);
  889.                                             switch(Emperor_Input & WMHI_GADGETMASK)
  890.                                             {
  891.                                                 default: break;
  892.                                             }
  893.                                             break;
  894.                                         case WMHI_MENUPICK:
  895.                                             switch(Emperor_Input & WMHI_MENUMASK)
  896.                                             {
  897.                                                 case Menu_Info: Menu_Info_MenuPick_Event(); break;
  898.                                                 case Menu_Quit: Menu_Quit_MenuPick_Event(); break;
  899.                                                 case Menu_Select_All: Menu_Select_All_MenuPick_Event(); break;
  900.                                                 case Menu_Select_None: Menu_Select_None_MenuPick_Event(); break;
  901.                                                 default: break;
  902.                                             }
  903.                                             break;
  904.                                         case WMHI_MENUHELP:
  905.                                             switch(Emperor_Input & WMHI_MENUMASK)
  906.                                             {
  907.                                                 default: break;
  908.                                             }
  909.                                             break;
  910.                                         case WMHI_CLOSEWINDOW:
  911.                                             Window1_CloseWindow_Event();
  912.                                             break;
  913.                                         case WMHI_ICONIFY:
  914.                                             break;
  915.                                         case WMHI_UNICONIFY:
  916.                                             break;
  917.                                         case WMHI_ACTIVE:
  918.                                             break;
  919.                                         case WMHI_INACTIVE:
  920.                                             break;
  921.                                         case WMHI_RAWKEY:
  922.                                             break;
  923.                                         case WMHI_VANILLAKEY:
  924.                                             break;
  925.                                         case WMHI_MOUSEBUTTONS:
  926.                                             break;
  927.                                         case WMHI_MOUSEMOVE:
  928.                                             break;
  929.                                         case WMHI_NEWSIZE:
  930.                                             break;
  931.                                         case WMHI_CHANGEWINDOW:
  932.                                             break;
  933.                                         case WMHI_DISPOSEDWINDOW:
  934.                                             break;
  935.                                         case WMHI_INTUITICK:
  936.                                             break;
  937.                                     }
  938.                                 }
  939.                             }
  940.                         }
  941.                         else Emperor_Exception = 4;
  942.                     }
  943.                     else Emperor_Exception = 4;
  944.                 }
  945.                 else Emperor_Exception = 3;
  946.             }
  947.             else Emperor_Exception = 2;
  948.         }
  949.         else Emperor_Exception = 1;
  950.     }
  951.     if(Emperor_Exception)
  952.     {
  953.         strcpy(Emperor_ExceptionString, "Error during initialization:\n\n");
  954.         switch(Emperor_Exception)
  955.         {
  956.             case 1: strcat(Emperor_ExceptionString, "Can't lock your public-screen."); break;
  957.             case 2: strcat(Emperor_ExceptionString, "Can't get visualinfo of your public-screen."); break;
  958.             case 3: strcat(Emperor_ExceptionString, "Can't create menu."); break;
  959.             case 4: strcat(Emperor_ExceptionString, "Can't create message-port."); break;
  960.         }
  961.         strcat(Emperor_ExceptionString, "\n\nMaybe there isn't enough memory !");
  962.         EmperorRequest_InitializationErrorRequest.es_StructSize = sizeof(struct EasyStruct);
  963.         EmperorRequest_InitializationErrorRequest.es_Flags = 0L;
  964.         EmperorRequest_InitializationErrorRequest.es_Title = (UBYTE *) "Program error";
  965.         EmperorRequest_InitializationErrorRequest.es_TextFormat = (UBYTE *) Emperor_ExceptionString;
  966.         EmperorRequest_InitializationErrorRequest.es_GadgetFormat = (UBYTE *) "Okay";
  967.         EasyRequest(Window1, &EmperorRequest_InitializationErrorRequest, NULL, NULL);
  968.     }
  969.     Emperor_QuitProgram();
  970. }
  971.  
  972. void wbmain(struct WBStartup *Emperor_ArgMsg)
  973. {
  974.     main();
  975. }
  976.  
  977.  
  978. LONG Inforequest1(void)
  979. {
  980.     struct EasyStruct EmperorRequest_Inforequest1;
  981.  
  982.     EmperorRequest_Inforequest1.es_StructSize = sizeof(struct EasyStruct);
  983.     EmperorRequest_Inforequest1.es_Flags = 0L;
  984.     EmperorRequest_Inforequest1.es_Title = (UBYTE *) LOCALE_REQUEST_INFO_TITLE;
  985.     EmperorRequest_Inforequest1.es_TextFormat = (UBYTE *) LOCALE_REQUEST_INFO_BODY;
  986.     EmperorRequest_Inforequest1.es_GadgetFormat = (UBYTE *) LOCALE_REQUEST_INFO_GADGET;
  987.     return(EasyRequest(Window1, &EmperorRequest_Inforequest1, NULL, NULL));
  988. }
  989.  
  990. LONG Quitrequest1(void)
  991. {
  992.     struct EasyStruct EmperorRequest_Quitrequest1;
  993.  
  994.     EmperorRequest_Quitrequest1.es_StructSize = sizeof(struct EasyStruct);
  995.     EmperorRequest_Quitrequest1.es_Flags = 0L;
  996.     EmperorRequest_Quitrequest1.es_Title = (UBYTE *) LOCALE_REQUEST_QUIT_TITLE;
  997.     EmperorRequest_Quitrequest1.es_TextFormat = (UBYTE *) LOCALE_REQUEST_QUIT_BODY;
  998.     EmperorRequest_Quitrequest1.es_GadgetFormat = (UBYTE *) LOCALE_REQUEST_QUIT_GADGET;
  999.     return(EasyRequest(Window1, &EmperorRequest_Quitrequest1, NULL, NULL));
  1000. }
  1001.  
  1002. LONG Errorrequest1(void)
  1003. {
  1004.     struct EasyStruct EmperorRequest_Errorrequest1;
  1005.  
  1006.     EmperorRequest_Errorrequest1.es_StructSize = sizeof(struct EasyStruct);
  1007.     EmperorRequest_Errorrequest1.es_Flags = 0L;
  1008.     EmperorRequest_Errorrequest1.es_Title = (UBYTE *) LOCALE_REQUEST_ERROR1_TITLE;
  1009.     EmperorRequest_Errorrequest1.es_TextFormat = (UBYTE *) LOCALE_REQUEST_ERROR1_BODY;
  1010.     EmperorRequest_Errorrequest1.es_GadgetFormat = (UBYTE *) LOCALE_REQUEST_ERROR1_GADGET;
  1011.     return(EasyRequest(Window1, &EmperorRequest_Errorrequest1, NULL, NULL));
  1012. }
  1013.  
  1014. LONG Extractrequest1(void)
  1015. {
  1016.     struct EasyStruct EmperorRequest_Extractrequest1;
  1017.  
  1018.     EmperorRequest_Extractrequest1.es_StructSize = sizeof(struct EasyStruct);
  1019.     EmperorRequest_Extractrequest1.es_Flags = 0L;
  1020.     EmperorRequest_Extractrequest1.es_Title = (UBYTE *) LOCALE_REQUEST_EXTRACT_TITLE;
  1021.     EmperorRequest_Extractrequest1.es_TextFormat = (UBYTE *) LOCALE_REQUEST_EXTRACT_BODY;
  1022.     EmperorRequest_Extractrequest1.es_GadgetFormat = (UBYTE *) LOCALE_REQUEST_EXTRACT_GADGET;
  1023.     return(EasyRequest(Window1, &EmperorRequest_Extractrequest1, NULL, NULL));
  1024. }
  1025.  
  1026. LONG Nopatternrequest1(void)
  1027. {
  1028.     struct EasyStruct EmperorRequest_Nopatternrequest1;
  1029.  
  1030.     EmperorRequest_Nopatternrequest1.es_StructSize = sizeof(struct EasyStruct);
  1031.     EmperorRequest_Nopatternrequest1.es_Flags = 0L;
  1032.     EmperorRequest_Nopatternrequest1.es_Title = (UBYTE *) LOCALE_REQUEST_NOPATT_TITLE;
  1033.     EmperorRequest_Nopatternrequest1.es_TextFormat = (UBYTE *) LOCALE_REQUEST_NOPATT_BODY;
  1034.     EmperorRequest_Nopatternrequest1.es_GadgetFormat = (UBYTE *) LOCALE_REQUEST_NOPATT_GADGET;
  1035.     return(EasyRequest(Window1, &EmperorRequest_Nopatternrequest1, NULL, NULL));
  1036. }
  1037.  
  1038. BOOL Emperor_InitProgram(void)
  1039. {
  1040.     UWORD Emperor_InitVar = 0;
  1041.     char Emperor_OccuredError[50], Emperor_ExceptionString[300];
  1042.     struct EasyStruct EmperorRequest_InitializationErrorRequest;
  1043.  
  1044.     IntuitionBase = OpenLibrary("intuition.library", 39L);
  1045.     if(!IntuitionBase)
  1046.     {
  1047.         Emperor_InitVar = 1;
  1048.         strcpy(Emperor_OccuredError, "intuition.library");
  1049.     }
  1050.     LocaleBase = OpenLibrary("locale.library", 39L);
  1051.     if(!LocaleBase)
  1052.     {
  1053.         Emperor_InitVar = 1;
  1054.         strcpy(Emperor_OccuredError, "locale.library");
  1055.     }
  1056.     GadToolsBase = OpenLibrary("gadtools.library", 39L);
  1057.     if(!GadToolsBase)
  1058.     {
  1059.         Emperor_InitVar = 1;
  1060.         strcpy(Emperor_OccuredError, "gadtools.library");
  1061.     }
  1062.     ASLBase = OpenLibrary("asl.library", 39L);
  1063.     if(!ASLBase)
  1064.     {
  1065.         Emperor_InitVar = 1;
  1066.         strcpy(Emperor_OccuredError, "asl.library");
  1067.     }
  1068.     DOSLibBase = OpenLibrary("dos.library", 39L);
  1069.     if(!DOSLibBase)
  1070.     {
  1071.         Emperor_InitVar = 1;
  1072.         strcpy(Emperor_OccuredError, "dos.library");
  1073.     }
  1074.     ResourceBase = OpenLibrary("resource.library", 44L);
  1075.     if(!ResourceBase)
  1076.     {
  1077.         os35 = FALSE;
  1078.         strcpy(Emperor_OccuredError, "resource.library");
  1079.     }
  1080.     WindowBase = OpenLibrary("window.class", 44L);
  1081.     if(!WindowBase)
  1082.     {
  1083.         os35 = FALSE;
  1084.         strcpy(Emperor_OccuredError, "window.class");
  1085.     }
  1086.     RequesterBase = OpenLibrary("requester.class", 42L);
  1087.     if(!RequesterBase)
  1088.     {
  1089.         os35 = FALSE;
  1090.         strcpy(Emperor_OccuredError, "requester.class");
  1091.     }
  1092.     ButtonBase = OpenLibrary("gadgets/button.gadget", 44L);
  1093.     if(!ButtonBase)
  1094.     {
  1095.         os35 = FALSE;
  1096.         strcpy(Emperor_OccuredError, "gadgets/button.gadget");
  1097.     }
  1098.     CheckBoxBase = OpenLibrary("gadgets/checkbox.gadget", 44L);
  1099.     if(!CheckBoxBase)
  1100.     {
  1101.         os35 = FALSE;
  1102.         strcpy(Emperor_OccuredError, "gadgets/checkbox.gadget");
  1103.     }
  1104.     ChooserBase = OpenLibrary("gadgets/chooser.gadget", 44L);
  1105.     if(!ChooserBase)
  1106.     {
  1107.         os35 = FALSE;
  1108.         strcpy(Emperor_OccuredError, "gadgets/chooser.gadget");
  1109.     }
  1110.     ClickTabBase = OpenLibrary("gadgets/clicktab.gadget", 44L);
  1111.     if(!ClickTabBase)
  1112.     {
  1113.         os35 = FALSE;
  1114.         strcpy(Emperor_OccuredError, "gadgets/clicktab.gadget");
  1115.     }
  1116.     ColorWheelBase = OpenLibrary("gadgets/colorwheel.gadget", 44L);
  1117.     if(!ColorWheelBase)
  1118.     {
  1119.         os35 = FALSE;
  1120.         strcpy(Emperor_OccuredError, "gadgets/colorwheel.gadget");
  1121.     }
  1122.     DateBrowserBase = OpenLibrary("gadgets/datebrowser.gadget", 44L);
  1123.     if(!DateBrowserBase)
  1124.     {
  1125.         os35 = FALSE;
  1126.         strcpy(Emperor_OccuredError, "gadgets/datebrowser.gadget");
  1127.     }
  1128.     FuelGaugeBase = OpenLibrary("gadgets/fuelgauge.gadget", 44L);
  1129.     if(!FuelGaugeBase)
  1130.     {
  1131.         os35 = FALSE;
  1132.         strcpy(Emperor_OccuredError, "gadgets/fuelgauge.gadget");
  1133.     }
  1134.     GetFileBase = OpenLibrary("gadgets/getfile.gadget", 44L);
  1135.     if(!GetFileBase)
  1136.     {
  1137.         os35 = FALSE;
  1138.         strcpy(Emperor_OccuredError, "gadgets/getfile.gadget");
  1139.     }
  1140.     GetFontBase = OpenLibrary("gadgets/getfont.gadget", 44L);
  1141.     if(!GetFontBase)
  1142.     {
  1143.         os35 = FALSE;
  1144.         strcpy(Emperor_OccuredError, "gadgets/getfont.gadget");
  1145.     }
  1146.     GetScreenModeBase = OpenLibrary("gadgets/getscreenmode.gadget", 44L);
  1147.     if(!GetScreenModeBase)
  1148.     {
  1149.         os35 = FALSE;
  1150.         strcpy(Emperor_OccuredError, "gadgets/getscreenmode.gadget");
  1151.     }
  1152.     GradientSliderBase = OpenLibrary("gadgets/gradientslider.gadget", 44L);
  1153.     if(!GradientSliderBase)
  1154.     {
  1155.         os35 = FALSE;
  1156.         strcpy(Emperor_OccuredError, "gadgets/gradientslider.gadget");
  1157.     }
  1158.     IntegerBase = OpenLibrary("gadgets/integer.gadget", 44L);
  1159.     if(!IntegerBase)
  1160.     {
  1161.         os35 = FALSE;
  1162.         strcpy(Emperor_OccuredError, "gadgets/integer.gadget");
  1163.     }
  1164.     LayoutBase = OpenLibrary("gadgets/layout.gadget", 44L);
  1165.     if(!LayoutBase)
  1166.     {
  1167.         os35 = FALSE;
  1168.         strcpy(Emperor_OccuredError, "gadgets/layout.gadget");
  1169.     }
  1170.     ListBrowserBase = OpenLibrary("gadgets/listbrowser.gadget", 44L);
  1171.     if(!ListBrowserBase)
  1172.     {
  1173.         os35 = FALSE;
  1174.         strcpy(Emperor_OccuredError, "gadgets/listbrowser.gadget");
  1175.     }
  1176.     PaletteBase = OpenLibrary("gadgets/palette.gadget", 44L);
  1177.     if(!PaletteBase)
  1178.     {
  1179.         os35 = FALSE;
  1180.         strcpy(Emperor_OccuredError, "gadgets/palette.gadget");
  1181.     }
  1182.     RadioButtonBase = OpenLibrary("gadgets/radiobutton.gadget", 44L);
  1183.     if(!RadioButtonBase)
  1184.     {
  1185.         os35 = FALSE;
  1186.         strcpy(Emperor_OccuredError, "gadgets/radiobutton.gadget");
  1187.     }
  1188.     ScrollerBase = OpenLibrary("gadgets/scroller.gadget", 44L);
  1189.     if(!ScrollerBase)
  1190.     {
  1191.         os35 = FALSE;
  1192.         strcpy(Emperor_OccuredError, "gadgets/scroller.gadget");
  1193.     }
  1194.     SliderBase = OpenLibrary("gadgets/slider.gadget", 44L);
  1195.     if(!SliderBase)
  1196.     {
  1197.         os35 = FALSE;
  1198.         strcpy(Emperor_OccuredError, "gadgets/slider.gadget");
  1199.     }
  1200.     SpaceBase = OpenLibrary("gadgets/space.gadget", 44L);
  1201.     if(!SpaceBase)
  1202.     {
  1203.         os35 = FALSE;
  1204.         strcpy(Emperor_OccuredError, "gadgets/space.gadget");
  1205.     }
  1206.     SpeedBarBase = OpenLibrary("gadgets/speedbar.gadget", 44L);
  1207.     if(!SpeedBarBase)
  1208.     {
  1209.         os35 = FALSE;
  1210.         strcpy(Emperor_OccuredError, "gadgets/speedbar.gadget");
  1211.     }
  1212.     StringBase = OpenLibrary("gadgets/string.gadget", 44L);
  1213.     if(!StringBase)
  1214.     {
  1215.         os35 = FALSE;
  1216.         strcpy(Emperor_OccuredError, "gadgets/string.gadget");
  1217.     }
  1218.     TapeDeckBase = OpenLibrary("gadgets/tapedeck.gadget", 40L);
  1219.     if(!TapeDeckBase)
  1220.     {
  1221.         os35 = FALSE;
  1222.         strcpy(Emperor_OccuredError, "gadgets/tapedeck.gadget");
  1223.     }
  1224.     TextEditorBase = OpenLibrary("gadgets/texteditor.gadget", 15L);
  1225.     if(!TextEditorBase)
  1226.     {
  1227.         os35 = FALSE;
  1228.         strcpy(Emperor_OccuredError, "gadgets/texteditor.gadget");
  1229.     }
  1230.     BevelBase = OpenLibrary("images/bevel.image", 44L);
  1231.     if(!BevelBase)
  1232.     {
  1233.         os35 = FALSE;
  1234.         strcpy(Emperor_OccuredError, "images/bevel.image");
  1235.     }
  1236.     BitMapBase = OpenLibrary("images/bitmap.image", 44L);
  1237.     if(!BitMapBase)
  1238.     {
  1239.         os35 = FALSE;
  1240.         strcpy(Emperor_OccuredError, "images/bitmap.image");
  1241.     }
  1242.     GlyphBase = OpenLibrary("images/glyph.image", 44L);
  1243.     if(!GlyphBase)
  1244.     {
  1245.         os35 = FALSE;
  1246.         strcpy(Emperor_OccuredError, "images/glyph.image");
  1247.     }
  1248.     LabelBase = OpenLibrary("images/label.image", 44L);
  1249.     if(!LabelBase)
  1250.     {
  1251.         os35 = FALSE;
  1252.         strcpy(Emperor_OccuredError, "images/label.image");
  1253.     }
  1254.     Catalog = OpenCatalogA(NULL, "AminetSearcher.catalog", NULL);
  1255.     if(Emperor_InitVar)
  1256.     {
  1257.         strcpy(Emperor_ExceptionString, "Error during initialization:\n\n");
  1258.         if(Emperor_InitVar == 1)
  1259.         {
  1260.             strcat(Emperor_ExceptionString, "Can't open Amiga-library\n\"");
  1261.             strcat(Emperor_ExceptionString, Emperor_OccuredError);
  1262.             strcat(Emperor_ExceptionString, "\"\n\nProbably you haven't got a\ncorrect installed AmigaOS system !");
  1263.         }
  1264.         EmperorRequest_InitializationErrorRequest.es_StructSize = sizeof(struct EasyStruct);
  1265.         EmperorRequest_InitializationErrorRequest.es_Flags = 0L;
  1266.         EmperorRequest_InitializationErrorRequest.es_Title = (UBYTE *) "Program error";
  1267.         EmperorRequest_InitializationErrorRequest.es_TextFormat = (UBYTE *) Emperor_ExceptionString;
  1268.         EmperorRequest_InitializationErrorRequest.es_GadgetFormat = (UBYTE *) "Okay";
  1269.         EasyRequest(Window1, &EmperorRequest_InitializationErrorRequest, NULL, NULL);
  1270.     }
  1271.     return(Emperor_InitVar);
  1272. }
  1273.  
  1274. void Emperor_QuitProgram(void)
  1275. {
  1276.     Emperor_CloseWindow_Window1();
  1277.     if(WindowObject1) DisposeObject(WindowObject1);
  1278.     if(AppPort) DeleteMsgPort(AppPort);
  1279.     if(MsgPort) DeletePort(MsgPort);
  1280.     if(Menu) FreeMenus(Menu);
  1281.     if(vinfo) FreeVisualInfo(vinfo);
  1282.     if(Screen1) UnlockPubScreen(NULL, Screen1);
  1283.     if(Catalog) CloseCatalog(Catalog);
  1284.     if(LabelBase) CloseLibrary(LabelBase);
  1285.     if(GlyphBase) CloseLibrary(GlyphBase);
  1286.     if(BitMapBase) CloseLibrary(BitMapBase);
  1287.     if(BevelBase) CloseLibrary(BevelBase);
  1288.     if(TextEditorBase) CloseLibrary(TextEditorBase);
  1289.     if(TapeDeckBase) CloseLibrary(TapeDeckBase);
  1290.     if(StringBase) CloseLibrary(StringBase);
  1291.     if(SpeedBarBase) CloseLibrary(SpeedBarBase);
  1292.     if(SpaceBase) CloseLibrary(SpaceBase);
  1293.     if(SliderBase) CloseLibrary(SliderBase);
  1294.     if(ScrollerBase) CloseLibrary(ScrollerBase);
  1295.     if(RadioButtonBase) CloseLibrary(RadioButtonBase);
  1296.     if(PaletteBase) CloseLibrary(PaletteBase);
  1297.     if(ListBrowserBase) CloseLibrary(ListBrowserBase);
  1298.     if(LayoutBase) CloseLibrary(LayoutBase);
  1299.     if(IntegerBase) CloseLibrary(IntegerBase);
  1300.     if(GradientSliderBase) CloseLibrary(GradientSliderBase);
  1301.     if(GetScreenModeBase) CloseLibrary(GetScreenModeBase);
  1302.     if(GetFontBase) CloseLibrary(GetFontBase);
  1303.     if(GetFileBase) CloseLibrary(GetFileBase);
  1304.     if(FuelGaugeBase) CloseLibrary(FuelGaugeBase);
  1305.     if(DateBrowserBase) CloseLibrary(DateBrowserBase);
  1306.     if(ColorWheelBase) CloseLibrary(ColorWheelBase);
  1307.     if(ClickTabBase) CloseLibrary(ClickTabBase);
  1308.     if(ChooserBase) CloseLibrary(ChooserBase);
  1309.     if(CheckBoxBase) CloseLibrary(CheckBoxBase);
  1310.     if(ButtonBase) CloseLibrary(ButtonBase);
  1311.     if(RequesterBase) CloseLibrary(RequesterBase);
  1312.     if(WindowBase) CloseLibrary(WindowBase);
  1313.     if(ResourceBase) CloseLibrary(ResourceBase);
  1314.     if(DOSLibBase) CloseLibrary(DOSLibBase);
  1315.     if(ASLBase) CloseLibrary(ASLBase);
  1316.     if(GadToolsBase) CloseLibrary(GadToolsBase);
  1317.     if(LocaleBase) CloseLibrary(LocaleBase);
  1318.     if(IntuitionBase) CloseLibrary(IntuitionBase);
  1319.     exit(0);
  1320. }
  1321.  
  1322. void Emperor_CloseWindow_Window1(void)
  1323. {
  1324.     if(os35)
  1325.     {
  1326.         if(Menu) ClearMenuStrip(Window1);
  1327.         DoMethod(WindowObject1, WM_CLOSE, NULL);
  1328.         Window1 = NULL;
  1329.         WindowSignals1 = 0L;
  1330.     }
  1331. }
  1332.  
  1333. void Emperor_IconifyWindow_Window1(void)
  1334. {
  1335.     if(os35)
  1336.     {
  1337.         if(Menu) ClearMenuStrip(Window1);
  1338.         DoMethod(WindowObject1, WM_ICONIFY, NULL);
  1339.     }
  1340. }
  1341.  
  1342. struct Window *Emperor_OpenWindow_Window1(void)
  1343. {
  1344.     if(os35)
  1345.     {
  1346.         Window1 = RA_OpenWindow(WindowObject1);
  1347.         GetAttr(WINDOW_SigMask, WindowObject1, &WindowSignals1);
  1348.         SetMenuStrip(Window1, Menu);
  1349.     }
  1350.     return(Window1);
  1351. }
  1352.  
  1353. struct Window *Emperor_UniconifyWindow_Window1(void)
  1354. {
  1355.     return(Emperor_OpenWindow_Window1());
  1356. }
  1357.  
  1358. BOOL Emperor_GetMenuItemAttr(UWORD Emperor_MenuObject, UWORD Emperor_MenuFlagMask)
  1359. {
  1360.     struct MenuItem *Emperor_MenuItem = NULL;
  1361.  
  1362.     Emperor_MenuItem = ItemAddress(Menu, Emperor_MenuObject);
  1363.     if(Emperor_MenuItem->Flags & Emperor_MenuFlagMask) return(TRUE);
  1364.     else return(FALSE);
  1365. }
  1366.  
  1367. void Emperor_SetMenuItemAttr(UWORD Emperor_MenuObject, UWORD Emperor_MenuFlagMask, BOOL Emperor_SetReset)
  1368. {
  1369.     struct MenuItem *Emperor_MenuItem = NULL;
  1370.  
  1371.     Emperor_MenuItem = ItemAddress(Menu, Emperor_MenuObject);
  1372.     if(Emperor_SetReset) Emperor_MenuItem->Flags += Emperor_MenuFlagMask;
  1373.     else Emperor_MenuItem->Flags -= Emperor_MenuFlagMask;
  1374. }
  1375.  
  1376. STRPTR Emperor_GetGadgetAttr(struct Gadget *Emperor_GadgetName)
  1377. {
  1378.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1379.     STRPTR Emperor_GadgetAttrReturn = "";
  1380.  
  1381.     Emperor_GadgetAttrBuffer = 0L;
  1382.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 1023;Emperor_GadgetCounter++)
  1383.     {
  1384.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1385.         {
  1386.             switch(Emperor_Gadgetkind1[Emperor_GadgetCounter])
  1387.             {
  1388.                 case 0:
  1389.                     GetAttr(GA_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1390.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1391.                     break;
  1392.                 case 1:
  1393.                     GetAttr(GA_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1394.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1395.                     break;
  1396.                 case 2:
  1397.                     GetAttr(CHOOSER_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1398.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1399.                     break;
  1400.                 case 3:
  1401.                     GetAttr(CLICKTAB_Current, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1402.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1403.                     break;
  1404.                 case 6:
  1405.                     GetAttr(FUELGAUGE_Level, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1406.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1407.                     break;
  1408.                 case 10:
  1409.                     GetAttr(GRAD_CurVal, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1410.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1411.                     break;
  1412.                 case 11:
  1413.                     GetAttr(INTEGER_Number, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1414.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1415.                     break;
  1416.                 case 13:
  1417.                     GetAttr(LISTBROWSER_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1418.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1419.                     break;
  1420.                 case 14:
  1421.                     GetAttr(PALETTE_Colour, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1422.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1423.                     break;
  1424.                 case 15:
  1425.                     GetAttr(RADIOBUTTON_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1426.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1427.                     break;
  1428.                 case 16:
  1429.                     GetAttr(SCROLLER_Top, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1430.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1431.                     break;
  1432.                 case 17:
  1433.                     GetAttr(SLIDER_Level, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1434.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1435.                     break;
  1436.                 case 19:
  1437.                     GetAttr(SPEEDBAR_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1438.                     strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1439.                     break;
  1440.                 case 20:
  1441.                     GetAttr(STRINGA_TextVal, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1442.                     strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1443.                     break;
  1444.                 case 22:
  1445.                     GetAttr(GA_TEXTEDITOR_Contents, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1446.                     strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1447.                     break;
  1448.             }
  1449.             break;
  1450.         }
  1451.     }
  1452.     return(Emperor_GadgetAttrReturn);
  1453. }
  1454.  
  1455. void Emperor_SetGadgetAttr(struct Gadget *Emperor_GadgetName, STRPTR Emperor_GadgetValue)
  1456. {
  1457.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1458.     struct Window *Emperor_Whichwindow = NULL;
  1459.  
  1460.     Emperor_GadgetAttrBuffer = 0L;
  1461.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 1023;Emperor_GadgetCounter++)
  1462.     {
  1463.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1464.         {
  1465.             Emperor_Whichwindow = Window1;
  1466.             switch(Emperor_Gadgetkind1[Emperor_GadgetCounter])
  1467.             {
  1468.                 case 0:
  1469.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1470.                     break;
  1471.                 case 1:
  1472.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1473.                     break;
  1474.                 case 2:
  1475.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1476.                     break;
  1477.                 case 3:
  1478.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CLICKTAB_Current, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1479.                     break;
  1480.                 case 6:
  1481.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, FUELGAUGE_Level, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1482.                     break;
  1483.                 case 10:
  1484.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, INTEGER_Number, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1485.                     break;
  1486.                 case 11:
  1487.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GRAD_CurVal, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1488.                     break;
  1489.                 case 13:
  1490.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1491.                     break;
  1492.                 case 14:
  1493.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, PALETTE_Colour, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1494.                     break;
  1495.                 case 15:
  1496.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, RADIOBUTTON_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1497.                     break;
  1498.                 case 16:
  1499.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, SCROLLER_Top, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1500.                     break;
  1501.                 case 17:
  1502.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, SLIDER_Level, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1503.                     break;
  1504.                 case 19:
  1505.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, SPEEDBAR_Selected, Emperor_GadgetValue, TAG_DONE);
  1506.                     break;
  1507.                 case 20:
  1508.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, STRINGA_TextVal, Emperor_GadgetValue, TAG_DONE);
  1509.                     break;
  1510.                 case 22:
  1511.                     Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_TEXTEDITOR_Contents, Emperor_GadgetValue, TAG_DONE);
  1512.                     break;
  1513.             }
  1514.             if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1);
  1515.             break;
  1516.         }
  1517.     }
  1518. }
  1519.  
  1520. STRPTR Emperor_GetGadgetAttrComplex(struct Gadget *Emperor_GadgetName, ULONG Emperor_GadgetFlagMask)
  1521. {
  1522.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1523.     STRPTR Emperor_GadgetAttrReturn = "";
  1524.  
  1525.     Emperor_GadgetAttrBuffer = 0L;
  1526.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 1023;Emperor_GadgetCounter++)
  1527.     {
  1528.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1529.         {
  1530.             GetAttr(Emperor_GadgetFlagMask, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1531.             switch(Emperor_Gadgetkind1[Emperor_GadgetCounter])
  1532.             {
  1533.                 case 0:
  1534.                     if(Emperor_GadgetFlagMask == GA_Text) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1535.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1536.                     break;
  1537.                 case 1:
  1538.                     if(Emperor_GadgetFlagMask == GA_Text) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1539.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1540.                     break;
  1541.                 case 2:
  1542.                     if(Emperor_GadgetFlagMask == CHOOSER_Title) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1543.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1544.                     break;
  1545.                 case 3: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1546.                 case 4:
  1547.                     if(Emperor_GadgetFlagMask == WHEEL_Abbrv) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1548.                     else
  1549.                     {
  1550.                         if((Emperor_GadgetFlagMask == WHEEL_Red) || (Emperor_GadgetFlagMask == WHEEL_Green) || (Emperor_GadgetFlagMask == WHEEL_Blue) || (Emperor_GadgetFlagMask == WHEEL_Hue) || (Emperor_GadgetFlagMask == WHEEL_Saturation) || (Emperor_GadgetFlagMask == WHEEL_Brightness)) strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer >> 24));
  1551.                         else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1552.                     }
  1553.                     break;
  1554.                 case 5:
  1555.                     if(Emperor_GadgetFlagMask == DATEBROWSER_DayTitles) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1556.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1557.                     break;
  1558.                 case 6:
  1559.                     if(Emperor_GadgetFlagMask == GA_Text) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1560.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1561.                     break;
  1562.                 case 7:
  1563.                     if((Emperor_GadgetFlagMask == GETFILE_TitleText) || (Emperor_GadgetFlagMask == GETFILE_File) || (Emperor_GadgetFlagMask == GETFILE_Drawer) || (Emperor_GadgetFlagMask == GETFILE_FullFile) || (Emperor_GadgetFlagMask == GETFILE_Pattern) || (Emperor_GadgetFlagMask == GETFILE_AcceptPattern) || (Emperor_GadgetFlagMask == GETFILE_RejectPattern)) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1564.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1565.                     break;
  1566.                 case 8:
  1567.                     if(Emperor_GadgetFlagMask == GETFONT_TitleText) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1568.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1569.                     break;
  1570.                 case 9:
  1571.                     if(Emperor_GadgetFlagMask == GETSCREENMODE_TitleText) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1572.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1573.                     break;
  1574.                 case 10: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1575.                 case 11: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1576.                 case 13: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1577.                 case 14: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1578.                 case 15: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1579.                 case 16: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1580.                 case 17: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1581.                 case 18: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1582.                 case 19: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1583.                 case 20:
  1584.                     if((Emperor_GadgetFlagMask == STRINGA_TextVal) || (Emperor_GadgetFlagMask == STRINGA_Buffer) || (Emperor_GadgetFlagMask == STRINGA_UndoBuffer) || (Emperor_GadgetFlagMask == STRINGA_WorkBuffer)) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1585.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1586.                     break;
  1587.                 case 21: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break;
  1588.                 case 22:
  1589.                     if(Emperor_GadgetFlagMask == GA_TEXTEDITOR_Contents) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer);
  1590.                     else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer));
  1591.                     break;
  1592.             }
  1593.             break;
  1594.         }
  1595.     }
  1596.     return(Emperor_GadgetAttrReturn);
  1597. }
  1598.  
  1599. void Emperor_SetGadgetAttrComplex(struct Gadget *Emperor_GadgetName, ULONG Emperor_GadgetFlagMask, STRPTR Emperor_GadgetValue)
  1600. {
  1601.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1602.     struct Window *Emperor_Whichwindow = NULL;
  1603.  
  1604.     Emperor_GadgetAttrBuffer = 0L;
  1605.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1606.     {
  1607.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1608.         {
  1609.             Emperor_Whichwindow = Window1;
  1610.             switch(Emperor_Gadgetkind1[Emperor_GadgetCounter])
  1611.             {
  1612.                 case 0:
  1613.                     if(Emperor_GadgetFlagMask == GA_Text) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Text, Emperor_GadgetValue, TAG_DONE);
  1614.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1615.                     break;
  1616.                 case 1:
  1617.                     if(Emperor_GadgetFlagMask == GA_Text) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Text, Emperor_GadgetValue, TAG_DONE);
  1618.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1619.                     break;
  1620.                 case 2:
  1621.                     if(Emperor_GadgetFlagMask == CHOOSER_Title) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Title, Emperor_GadgetValue, TAG_DONE);
  1622.                     else
  1623.                     {
  1624.                         if(Emperor_GadgetFlagMask == CHOOSER_Labels)
  1625.                         {
  1626.                             SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Labels, (ULONG) ~0, TAG_DONE);
  1627.                             if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Labels, Emperor_GadgetValue, TAG_DONE);
  1628.                             Emperor_GadgetAttrBuffer = 1;
  1629.                         }
  1630.                         else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1631.                     }
  1632.                     break;
  1633.                 case 3:
  1634.                     if(Emperor_GadgetFlagMask == CLICKTAB_Labels)
  1635.                     {
  1636.                         SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CLICKTAB_Labels, (ULONG) ~0, TAG_DONE);
  1637.                         if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CLICKTAB_Labels, Emperor_GadgetValue, TAG_DONE);
  1638.                         Emperor_GadgetAttrBuffer = 1;
  1639.                     }
  1640.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1641.                     break;
  1642.                 case 4:
  1643.                     if(Emperor_GadgetFlagMask == WHEEL_Abbrv) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, WHEEL_Abbrv, Emperor_GadgetValue, TAG_DONE);
  1644.                     else
  1645.                     {
  1646.                         if((Emperor_GadgetFlagMask == WHEEL_Red) || (Emperor_GadgetFlagMask == WHEEL_Green) || (Emperor_GadgetFlagMask == WHEEL_Blue) || (Emperor_GadgetFlagMask == WHEEL_Hue) || (Emperor_GadgetFlagMask == WHEEL_Saturation) || (Emperor_GadgetFlagMask == WHEEL_Brightness)) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue) << 24, TAG_DONE);
  1647.                         else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1648.                     }
  1649.                     break;
  1650.                 case 5:
  1651.                     if(Emperor_GadgetFlagMask == DATEBROWSER_DayTitles) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, DATEBROWSER_DayTitles, Emperor_GadgetValue, TAG_DONE);
  1652.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1653.                     break;
  1654.                 case 6:
  1655.                     if(Emperor_GadgetFlagMask == GA_Text) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Text, Emperor_GadgetValue, TAG_DONE);
  1656.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1657.                     break;
  1658.                 case 7:
  1659.                     if((Emperor_GadgetFlagMask == GETFILE_TitleText) || (Emperor_GadgetFlagMask == GETFILE_File) || (Emperor_GadgetFlagMask == GETFILE_Drawer) || (Emperor_GadgetFlagMask == GETFILE_FullFile) || (Emperor_GadgetFlagMask == GETFILE_Pattern) || (Emperor_GadgetFlagMask == GETFILE_AcceptPattern) || (Emperor_GadgetFlagMask == GETFILE_RejectPattern)) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, Emperor_GadgetValue, TAG_DONE);
  1660.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1661.                     break;
  1662.                 case 8:
  1663.                     if(Emperor_GadgetFlagMask == GETFONT_TitleText) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GETFONT_TitleText, Emperor_GadgetValue, TAG_DONE);
  1664.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1665.                     break;
  1666.                 case 9:
  1667.                     if(Emperor_GadgetFlagMask == GETSCREENMODE_TitleText) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GETSCREENMODE_TitleText, Emperor_GadgetValue, TAG_DONE);
  1668.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1669.                     break;
  1670.                 case 10: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1671.                 case 11: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1672.                 case 13:
  1673.                     if(Emperor_GadgetFlagMask == LISTBROWSER_Labels)
  1674.                     {
  1675.                         SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_Labels, (ULONG) ~0, TAG_DONE);
  1676.                         if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_Labels, Emperor_GadgetValue, TAG_DONE);
  1677.                         Emperor_GadgetAttrBuffer = 1;
  1678.                     }
  1679.                     else
  1680.                     {
  1681.                         if(Emperor_GadgetFlagMask == LISTBROWSER_ColumnInfo)
  1682.                         {
  1683.                             SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_ColumnInfo, (ULONG) ~0, TAG_DONE);
  1684.                             if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_ColumnInfo, Emperor_GadgetValue, TAG_DONE);
  1685.                             Emperor_GadgetAttrBuffer = 1;
  1686.                         }
  1687.                         else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1688.                     }
  1689.                     break;
  1690.                 case 14: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1691.                 case 15:
  1692.                     if(Emperor_GadgetFlagMask == RADIOBUTTON_Labels)
  1693.                     {
  1694.                         SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, RADIOBUTTON_Labels, (ULONG) ~0, TAG_DONE);
  1695.                         if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, RADIOBUTTON_Labels, Emperor_GadgetValue, TAG_DONE);
  1696.                         Emperor_GadgetAttrBuffer = 1;
  1697.                     }
  1698.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1699.                     break;
  1700.                 case 16: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1701.                 case 17: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1702.                 case 18: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1703.                 case 19: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1704.                 case 20:
  1705.                     if((Emperor_GadgetFlagMask == STRINGA_TextVal) || (Emperor_GadgetFlagMask == STRINGA_Buffer) || (Emperor_GadgetFlagMask == STRINGA_UndoBuffer) || (Emperor_GadgetFlagMask == STRINGA_WorkBuffer)) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, Emperor_GadgetValue, TAG_DONE);
  1706.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1707.                     break;
  1708.                 case 21: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break;
  1709.                 case 22:
  1710.                     if(Emperor_GadgetFlagMask == GA_TEXTEDITOR_Contents) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_TEXTEDITOR_Contents, Emperor_GadgetValue, TAG_DONE);
  1711.                     else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE);
  1712.                     break;
  1713.             }
  1714.             if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1);
  1715.             break;
  1716.         }
  1717.     }
  1718. }
  1719.  
  1720. BOOL Emperor_GetGadgetDisabledAttr(struct Gadget *Emperor_GadgetName)
  1721. {
  1722.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1723.     BOOL Emperor_GadgetAttrReturn;
  1724.  
  1725.     Emperor_GadgetAttrBuffer = 0L;
  1726.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1727.     {
  1728.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1729.         {
  1730.             GetAttr(GA_Disabled, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1731.             break;
  1732.         }
  1733.     }
  1734.     Emperor_GadgetAttrReturn = Emperor_GadgetAttrBuffer;
  1735.     return(Emperor_GadgetAttrReturn);
  1736. }
  1737.  
  1738. void Emperor_SetGadgetDisabledAttr(struct Gadget *Emperor_GadgetName, BOOL Emperor_GadgetValue)
  1739. {
  1740.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1741.     struct Window *Emperor_Whichwindow = NULL;
  1742.  
  1743.     Emperor_GadgetAttrBuffer = 0L;
  1744.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1745.     {
  1746.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1747.         {
  1748.             Emperor_Whichwindow = Window1;
  1749.             Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Disabled, Emperor_GadgetValue, TAG_DONE);
  1750.             if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1);
  1751.             break;
  1752.         }
  1753.     }
  1754. }
  1755.  
  1756. BOOL Emperor_GetGadgetAttrReadOnly(struct Gadget *Emperor_GadgetName)
  1757. {
  1758.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1759.     BOOL Emperor_GadgetAttrReturn;
  1760.  
  1761.     Emperor_GadgetAttrBuffer = 0L;
  1762.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1763.     {
  1764.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1765.         {
  1766.             GetAttr(GA_ReadOnly, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer);
  1767.             break;
  1768.         }
  1769.     }
  1770.     Emperor_GadgetAttrReturn = Emperor_GadgetAttrBuffer;
  1771.     return(Emperor_GadgetAttrReturn);
  1772. }
  1773.  
  1774. void Emperor_SetGadgetReadOnlyAttr(struct Gadget *Emperor_GadgetName, BOOL Emperor_GadgetValue)
  1775. {
  1776.     LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter;
  1777.     struct Window *Emperor_Whichwindow = NULL;
  1778.  
  1779.     Emperor_GadgetAttrBuffer = 0L;
  1780.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1781.     {
  1782.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1783.         {
  1784.             Emperor_Whichwindow = Window1;
  1785.             Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_ReadOnly, Emperor_GadgetValue, TAG_DONE);
  1786.             if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1);
  1787.             break;
  1788.         }
  1789.     }
  1790. }
  1791.  
  1792. void Emperor_ActivateGadget(struct Gadget *Emperor_GadgetName)
  1793. {
  1794.     LONG Emperor_GadgetCounter;
  1795.     struct Window *Emperor_Whichwindow = NULL;
  1796.  
  1797.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1798.     {
  1799.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1800.         {
  1801.             Emperor_Whichwindow = Window1;
  1802.             break;
  1803.         }
  1804.     }
  1805.     ActivateGadget(Emperor_GadgetName, Emperor_Whichwindow, NULL);
  1806. }
  1807.  
  1808. void Emperor_RethinkLayout(struct Gadget *Emperor_GadgetName)
  1809. {
  1810.     LONG Emperor_GadgetCounter;
  1811.     struct Window *Emperor_Whichwindow = NULL;
  1812.  
  1813.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1814.     {
  1815.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1816.         {
  1817.             Emperor_Whichwindow = Window1;
  1818.             break;
  1819.         }
  1820.     }
  1821.     RethinkLayout(Emperor_GadgetName, Emperor_Whichwindow, NULL, TRUE);
  1822. }
  1823.  
  1824. void Emperor_RefreshGList(struct Gadget *Emperor_GadgetName, WORD Emperor_NumberRefresh)
  1825. {
  1826.     LONG Emperor_GadgetCounter;
  1827.     struct Window *Emperor_Whichwindow = NULL;
  1828.  
  1829.     for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++)
  1830.     {
  1831.         if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName)
  1832.         {
  1833.             Emperor_Whichwindow = Window1;
  1834.             break;
  1835.         }
  1836.     }
  1837.     RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_NumberRefresh);
  1838. }
  1839.  
  1840. void Emperor_ChangeWindowPosition(struct Window *Emperor_ApplicationWindow, WORD Emperor_Left, WORD Emperor_Top)
  1841. {
  1842.     WORD Emperor_Width, Emperor_Height;
  1843.  
  1844.     Emperor_Width = Emperor_ApplicationWindow->Width;
  1845.     Emperor_Height = Emperor_ApplicationWindow->Height;
  1846.     ChangeWindowBox(Emperor_ApplicationWindow, Emperor_Left, Emperor_Top, Emperor_Width, Emperor_Height);
  1847. }
  1848.  
  1849. void Emperor_ChangeWindowSize(struct Window *Emperor_ApplicationWindow, WORD Emperor_Width, WORD Emperor_Height)
  1850. {
  1851.     WORD Emperor_Left, Emperor_Top;
  1852.  
  1853.     Emperor_Left = Emperor_ApplicationWindow->LeftEdge;
  1854.     Emperor_Top = Emperor_ApplicationWindow->TopEdge;
  1855.     ChangeWindowBox(Emperor_ApplicationWindow, Emperor_Left, Emperor_Top, Emperor_Width, Emperor_Height);
  1856. }
  1857.  
  1858. void Emperor_SetWindowBusyPointer(struct Window *Emperor_ApplicationWindow, BOOL Emperor_SetReset)
  1859. {
  1860.     if(Emperor_SetReset) SetWindowPointer(Emperor_ApplicationWindow, WA_BusyPointer, TRUE, WA_PointerDelay, TRUE, TAG_DONE);
  1861.     else SetWindowPointer(Emperor_ApplicationWindow, TAG_DONE);
  1862. }
  1863.  
  1864. void Emperor_SetWindowTitle(struct Window *Emperor_ApplicationWindow, STRPTR Emperor_Title)
  1865. {
  1866.     SetWindowTitles(Emperor_ApplicationWindow, (UBYTE *) Emperor_Title, ((UBYTE *) ~0));
  1867. }
  1868.  
  1869. void Emperor_SetScreenTitle(struct Window *Emperor_ApplicationWindow, STRPTR Emperor_Title)
  1870. {
  1871.     SetWindowTitles(Emperor_ApplicationWindow, ((UBYTE *) ~0), (UBYTE *) Emperor_Title);
  1872. }
  1873.  
  1874. void Emperor_AllocChooserNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes)
  1875. {
  1876.     WORD Emperor_Counter1 = 0;
  1877.     struct Node *Emperor_Node;
  1878.  
  1879.     if(os35)
  1880.     {
  1881.         NewList(Emperor_List);
  1882.         while(*Emperor_Labels)
  1883.         {
  1884.             Emperor_Node = AllocChooserNode(CNA_Text, *Emperor_Labels, CNA_Disabled, Emperor_Attributes[Emperor_Counter1], CNA_ReadOnly, Emperor_Attributes[Emperor_Counter1 + 1], TAG_DONE);
  1885.             AddTail(Emperor_List, Emperor_Node);
  1886.             Emperor_Labels++;
  1887.             Emperor_Counter1 += 12;
  1888.         }
  1889.     }
  1890. }
  1891.  
  1892. void Emperor_AllocClicktabNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes)
  1893. {
  1894.     WORD Emperor_Counter1 = 0, Emperor_Counter2 = 0;
  1895.     struct Node *Emperor_Node;
  1896.  
  1897.     if(os35)
  1898.     {
  1899.         NewList(Emperor_List);
  1900.         while(*Emperor_Labels)
  1901.         {
  1902.             Emperor_Node = AllocClickTabNode(TNA_Text, *Emperor_Labels, TNA_Disabled, Emperor_Attributes[Emperor_Counter1], TNA_Number, Emperor_Counter2, TAG_DONE);
  1903.             AddTail(Emperor_List, Emperor_Node);
  1904.             Emperor_Labels++;
  1905.             Emperor_Counter1 += 12;
  1906.             Emperor_Counter2++;
  1907.         }
  1908.     }
  1909. }
  1910.  
  1911. void Emperor_AllocListbrowserNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes)
  1912. {
  1913.     WORD Emperor_Counter1 = 0, Emperor_Counter2 = 0;
  1914.     struct Node *Emperor_Node;
  1915.  
  1916.     if(os35)
  1917.     {
  1918.         NewList(Emperor_List);
  1919.         while(*Emperor_Labels)
  1920.         {
  1921.             Emperor_Counter2 = 0;
  1922.             if(Emperor_Attributes[Emperor_Counter1 + 1]) Emperor_Counter2 += 1;
  1923.             if(Emperor_Attributes[Emperor_Counter1 + 2]) Emperor_Counter2 += 4;
  1924.             if(Emperor_Attributes[Emperor_Counter1 + 3]) Emperor_Counter2 += 8;
  1925.             if(Emperor_Attributes[Emperor_Counter1 + 4]) Emperor_Counter2 += 16;
  1926.             Emperor_Node = AllocListBrowserNode(1, LBNCA_Text, *Emperor_Labels, LBNCA_CopyText, TRUE, LBNA_Generation, Emperor_Attributes[Emperor_Counter1 + 10], LBNA_Column, Emperor_Attributes[Emperor_Counter1 + 11], LBNA_Flags, Emperor_Counter2, LBNA_Selected, Emperor_Attributes[Emperor_Counter1 + 5], LBNA_CheckBox, Emperor_Attributes[Emperor_Counter1 + 6], LBNA_Checked, Emperor_Attributes[Emperor_Counter1 + 7], TAG_DONE);
  1927.             AddTail(Emperor_List, Emperor_Node);
  1928.             Emperor_Labels++;
  1929.             Emperor_Counter1 += 12;
  1930.         }
  1931.     }
  1932. }
  1933.  
  1934. void Emperor_AllocListbrowserGadToolsNode(struct List *Emperor_List, char **Emperor_Labels)
  1935. {
  1936.     struct Node *Emperor_Node;
  1937.     struct Remember *Emperor_RememberKey;
  1938.  
  1939.     NewList(Emperor_List);
  1940.     while(*Emperor_Labels)
  1941.     {
  1942.         Emperor_Node = (struct Node *) AllocRemember(&Emperor_RememberKey, sizeof(struct Node), MEMF_CLEAR);
  1943.         Emperor_Node->ln_Name = *Emperor_Labels;
  1944.         AddTail(Emperor_List, Emperor_Node);
  1945.         Emperor_Labels++;
  1946.     }
  1947. }
  1948.  
  1949. void Emperor_AllocRadiobuttonNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes)
  1950. {
  1951.     struct Node *Emperor_Node;
  1952.  
  1953.     if(os35)
  1954.     {
  1955.         NewList(Emperor_List);
  1956.         while(*Emperor_Labels)
  1957.         {
  1958.             Emperor_Node = AllocRadioButtonNode(1, RBNA_Labels, *Emperor_Labels, TAG_DONE);
  1959.             AddTail(Emperor_List, Emperor_Node);
  1960.             Emperor_Labels++;
  1961.         }
  1962.     }
  1963. }
  1964.  
  1965. ULONG stringlength(STRPTR Emperor_StringBuffer)
  1966. {
  1967.     ULONG Emperor_Counter = 0;
  1968.  
  1969.     while(Emperor_StringBuffer[Emperor_Counter] != NULL) Emperor_Counter++;
  1970.     return(Emperor_Counter);
  1971. }
  1972.  
  1973. LONG stringtoint(STRPTR Emperor_StringBuffer)
  1974. {
  1975.     return(atol(Emperor_StringBuffer));
  1976. }
  1977.  
  1978. DOUBLE stringtofloat(STRPTR Emperor_StringBuffer)
  1979. {
  1980.     return(atof(Emperor_StringBuffer));
  1981. }
  1982.  
  1983. STRPTR inttostring(LONG Emperor_NumberBuffer1)
  1984. {
  1985.     LONG Emperor_NumberBuffer2;
  1986.     BYTE Emperor_NumberLength = 0;
  1987.     BYTE Emperor_Counter = 0;
  1988.     char *Emperor_ReturnBuffer = "abcdefghij";
  1989.  
  1990.     strcpy(Emperor_ReturnBuffer, "");
  1991.     Emperor_ReturnBuffer[0] = NULL;
  1992.     if(Emperor_NumberBuffer1 < 0)
  1993.     {
  1994.         strcpy(Emperor_ReturnBuffer, "-");
  1995.         Emperor_NumberBuffer1 = -Emperor_NumberBuffer1;
  1996.     }
  1997.     if(Emperor_NumberBuffer1 > 0) Emperor_NumberLength = 1;
  1998.     if(Emperor_NumberBuffer1/10 > 0) Emperor_NumberLength = 2;
  1999.     if(Emperor_NumberBuffer1/100 > 0) Emperor_NumberLength = 3;
  2000.     if(Emperor_NumberBuffer1/1000 > 0) Emperor_NumberLength = 4;
  2001.     if(Emperor_NumberBuffer1/10000 > 0) Emperor_NumberLength = 5;
  2002.     if(Emperor_NumberBuffer1/100000 > 0) Emperor_NumberLength = 6;
  2003.     if(Emperor_NumberBuffer1/1000000 > 0) Emperor_NumberLength = 7;
  2004.     if(Emperor_NumberBuffer1/10000000 > 0) Emperor_NumberLength = 8;
  2005.     if(Emperor_NumberBuffer1/100000000 > 0) Emperor_NumberLength = 9;
  2006.     if(Emperor_NumberBuffer1 == 0)  strcpy(Emperor_ReturnBuffer, "0");
  2007.     else
  2008.     {
  2009.         Emperor_Counter = Emperor_NumberLength;
  2010.         for(;Emperor_Counter > 0;Emperor_Counter--)
  2011.         {
  2012.             if(Emperor_Counter == 9) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/100000000;
  2013.             if(Emperor_Counter == 8) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/10000000;
  2014.             if(Emperor_Counter == 7) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/1000000;
  2015.             if(Emperor_Counter == 6) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/100000;
  2016.             if(Emperor_Counter == 5) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/10000;
  2017.             if(Emperor_Counter == 4) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/1000;
  2018.             if(Emperor_Counter == 3) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/100;
  2019.             if(Emperor_Counter == 2) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/10;
  2020.             if(Emperor_Counter == 1) Emperor_NumberBuffer2 = Emperor_NumberBuffer1;
  2021.             if(Emperor_NumberBuffer2 == 0) strcat(Emperor_ReturnBuffer, "0");
  2022.             if(Emperor_NumberBuffer2 == 1) strcat(Emperor_ReturnBuffer, "1");
  2023.             if(Emperor_NumberBuffer2 == 2) strcat(Emperor_ReturnBuffer, "2");
  2024.             if(Emperor_NumberBuffer2 == 3) strcat(Emperor_ReturnBuffer, "3");
  2025.             if(Emperor_NumberBuffer2 == 4) strcat(Emperor_ReturnBuffer, "4");
  2026.             if(Emperor_NumberBuffer2 == 5) strcat(Emperor_ReturnBuffer, "5");
  2027.             if(Emperor_NumberBuffer2 == 6) strcat(Emperor_ReturnBuffer, "6");
  2028.             if(Emperor_NumberBuffer2 == 7) strcat(Emperor_ReturnBuffer, "7");
  2029.             if(Emperor_NumberBuffer2 == 8) strcat(Emperor_ReturnBuffer, "8");
  2030.             if(Emperor_NumberBuffer2 == 9) strcat(Emperor_ReturnBuffer, "9");
  2031.             if(Emperor_Counter == 9) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*100000000;
  2032.             if(Emperor_Counter == 8) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*10000000;
  2033.             if(Emperor_Counter == 7) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*1000000;
  2034.             if(Emperor_Counter == 6) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*100000;
  2035.             if(Emperor_Counter == 5) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*10000;
  2036.             if(Emperor_Counter == 4) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*1000;
  2037.             if(Emperor_Counter == 3) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*100;
  2038.             if(Emperor_Counter == 2) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*10;
  2039.             if(Emperor_Counter == 1) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2;
  2040.         }
  2041.     }
  2042.     return(Emperor_ReturnBuffer);
  2043. }
  2044.  
  2045. #include <AminetSearcher.h>
  2046.