home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / mui / dev / gui / muib_modulec.lha / muib_generator / MUIDemo.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-10  |  21.4 KB  |  757 lines
  1. #include <libraries/mui.h>
  2. #include <proto/muimaster.h>
  3. #include <clib/exec_protos.h>
  4. #include <exec/memory.h>
  5.  
  6. #ifndef MAKE_ID
  7. #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  8. #endif
  9.  
  10. #ifdef __DCC
  11. #define __inline
  12. #endif
  13.  
  14. /*    ExTended KeyButton ( or Eric Totel KeyButton :-) )    */
  15. /*    to use with localization features             */
  16.  
  17. static APTR __inline ETKeyButton(char *text)
  18. {
  19.         return (KeyButton(&text[3], text[1]));
  20. }
  21.  
  22. /* Global variables */
  23. APTR App, WI_main, TX_text1, LV_float1, BT_group, BT_frames, BT_backfill;
  24. APTR BT_notify, BT_listview, BT_cycle, BT_image, BT_string, BT_quit;
  25. APTR WI_groups, LV_float2, GA_vert1, GA_vert2, GA_vert3, GA_horiz1;
  26. APTR GA_horiz2, GA_horiz3, GA_array1, GA_array2, GA_array3, GA_array4;
  27. APTR GA_array5, GA_array6, GA_array7, GA_array8, GA_array9, BT_25kg;
  28. APTR BT_50kg, BT_75kg, BT_100kg, TX_label_1, TX_label_2, TX_label_3;
  29. APTR TX_label_4, TX_label_5, WI_frames, LV_float3, TX_button, TX_imagebutton;
  30. APTR TX_text, TX_string, TX_readlist, TX_inputlist, TX_prop, TX_group;
  31. APTR WI_notify, LV_float4, GA_connect1, PR_label_0, PR_label_1, SL_label_0;
  32. APTR SL_label_1, SL_label_2, GA_label_16, PR_label_2, PR_label_3, GA_label_17;
  33. APTR WI_listviews, LV_float5, LV_label_5, LV_label_6, WI_string, LV_label_7;
  34. APTR LV_label_8, STR_label_0, WI_images, LV_label_9, IM_label_0, IM_label_1;
  35. APTR IM_label_2, IM_label_3, IM_label_4, IM_label_5, IM_label_6, IM_label_7;
  36. APTR IM_label_8, IM_label_9, IM_label_35;
  37. char *STR_TX_text1, *STR_LV_float1, *STR_LV_float2, *STR_TX_label_1;
  38. char *STR_TX_label_2, *STR_TX_label_3, *STR_TX_label_4, *STR_TX_label_5;
  39. char *STR_LV_float3, *STR_TX_button, *STR_TX_imagebutton, *STR_TX_text;
  40. char *STR_TX_string, *STR_TX_readlist, *STR_TX_inputlist, *STR_TX_prop;
  41. char *STR_TX_group, *STR_LV_float4, *STR_LV_float5, *STR_LV_label_7;
  42. char *STR_LV_label_9;
  43.  
  44. BOOL CreateApp( void )
  45. {
  46.     BOOL Result = TRUE;
  47.  
  48.     STR_TX_text1 = "\033c\0338MUI - MagicUserInterface\nwritten 1993 by Stefan Stuntz";
  49.     STR_LV_float1 = NULL;
  50.     STR_LV_float2 = NULL;
  51.     STR_TX_label_1 = "fixed";
  52.     STR_TX_label_2 = "\033cfree";
  53.     STR_TX_label_3 = "fixed";
  54.     STR_TX_label_4 = "\033cfree";
  55.     STR_TX_label_5 = "fixed";
  56.     STR_LV_float3 = NULL;
  57.     STR_TX_button = "\033cButton";
  58.     STR_TX_imagebutton = "\033cImageButton";
  59.     STR_TX_text = "\033cText";
  60.     STR_TX_string = "\033cString";
  61.     STR_TX_readlist = "\033cReadList";
  62.     STR_TX_inputlist = "\033cInputList";
  63.     STR_TX_prop = "\033cProp Gadget";
  64.     STR_TX_group = "\033cGroup";
  65.     STR_LV_float4 = NULL;
  66.     STR_LV_float5 = NULL;
  67.     STR_LV_label_7 = NULL;
  68.     STR_LV_label_9 = NULL;
  69.  
  70.     App = ApplicationObject,
  71.         MUIA_Application_Author, "Stefan Stuntz",
  72.         MUIA_Application_Base, "MUIDEMO",
  73.         MUIA_Application_Title, "MUIDemo",
  74.         MUIA_Application_Version, "$VER: MUI-Demo 1.0 (xx.xx.xx)",
  75.         MUIA_Application_Copyright, "Stefan Stuntz",
  76.         MUIA_Application_Description, "Just a demo !!!",
  77.         SubWindow, WI_main = WindowObject,
  78.             MUIA_Window_Title, "MUI-Demo",
  79.             MUIA_Window_ID, MAKE_ID( '0','W','I','N' ),
  80.             WindowContents, GroupObject,
  81.                 Child, TX_text1 = TextObject,
  82.                     MUIA_Background, 133,
  83.                     MUIA_Text_Contents, STR_TX_text1,
  84.                     MUIA_Text_SetMax, 0,
  85.                     MUIA_Text_SetMin, 1,
  86.                     MUIA_Frame, 9,
  87.                 End,
  88.                 Child, LV_float1 = ListviewObject,
  89.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  90.                     MUIA_Listview_List, FloattextObject,
  91.                         MUIA_Floattext_Text, STR_LV_float1,
  92.                         ReadListFrame,
  93.                         MUIA_Listview_DoubleClick, TRUE,
  94.                     End,
  95.                 End,
  96.                 Child, GroupObject,
  97.                     GroupFrameT( "Available Demos" ),
  98.                     MUIA_Group_Columns, 3,
  99.                     MUIA_Group_SameWidth, TRUE,
  100.                     Child, BT_group = KeyButton( "Groups",'g' ),
  101.                     Child, BT_frames = KeyButton( "Frames",'f' ),
  102.                     Child, BT_backfill = KeyButton( "Backfill",'b' ),
  103.                     Child, BT_notify = KeyButton( "Notify",'n' ),
  104.                     Child, BT_listview = KeyButton( "Listviews",'l' ),
  105.                     Child, BT_cycle = KeyButton( "Cycle",'c' ),
  106.                     Child, BT_image = KeyButton( "Images",'i' ),
  107.                     Child, BT_string = KeyButton( "Strings",'s' ),
  108.                     Child, BT_quit = KeyButton( "Quit",'q' ),
  109.                 End,
  110.             End,
  111.         End,
  112.         SubWindow, WI_groups = WindowObject,
  113.             MUIA_Window_Title, "Groups",
  114.             MUIA_Window_ID, MAKE_ID( '1','W','I','N' ),
  115.             WindowContents, GroupObject,
  116.                 Child, LV_float2 = ListviewObject,
  117.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  118.                     MUIA_Listview_List, FloattextObject,
  119.                         MUIA_Floattext_Text, STR_LV_float2,
  120.                         ReadListFrame,
  121.                         MUIA_Listview_DoubleClick, TRUE,
  122.                     End,
  123.                 End,
  124.                 Child, GroupObject,
  125.                     GroupFrameT( "Group Types" ),
  126.                     MUIA_Group_Horiz, TRUE,
  127.                     Child, GroupObject,
  128.                         GroupFrameT( "Horizontal" ),
  129.                         MUIA_Group_Horiz, TRUE,
  130.                         Child, GA_vert1 = GaugeObject,
  131.                             GaugeFrame,
  132.                             MUIA_FixWidth, 15,
  133.                             MUIA_Gauge_Horiz, FALSE,
  134.                             MUIA_Gauge_Max, 100,
  135.                         End,
  136.                         Child, GA_vert2 = GaugeObject,
  137.                             GaugeFrame,
  138.                             MUIA_FixWidth, 15,
  139.                             MUIA_Gauge_Horiz, FALSE,
  140.                             MUIA_Gauge_Max, 100,
  141.                         End,
  142.                         Child, GA_vert3 = GaugeObject,
  143.                             GaugeFrame,
  144.                             MUIA_FixWidth, 15,
  145.                             MUIA_Gauge_Horiz, FALSE,
  146.                             MUIA_Gauge_Max, 100,
  147.                         End,
  148.                     End,
  149.                     Child, GroupObject,
  150.                         GroupFrameT( "Vertical" ),
  151.                         Child, GA_horiz1 = GaugeObject,
  152.                             GaugeFrame,
  153.                             MUIA_FixHeight, 10,
  154.                             MUIA_Gauge_Horiz, TRUE,
  155.                             MUIA_Gauge_Max, 100,
  156.                         End,
  157.                         Child, GA_horiz2 = GaugeObject,
  158.                             GaugeFrame,
  159.                             MUIA_FixHeight, 10,
  160.                             MUIA_Gauge_Horiz, TRUE,
  161.                             MUIA_Gauge_Max, 100,
  162.                         End,
  163.                         Child, GA_horiz3 = GaugeObject,
  164.                             GaugeFrame,
  165.                             MUIA_FixHeight, 10,
  166.                             MUIA_Gauge_Horiz, TRUE,
  167.                             MUIA_Gauge_Max, 100,
  168.                         End,
  169.                     End,
  170.                     Child, GroupObject,
  171.                         GroupFrameT( "Array" ),
  172.                         MUIA_Group_Columns, 3,
  173.                         Child, GA_array1 = GaugeObject,
  174.                             GaugeFrame,
  175.                             MUIA_FixWidth, 15,
  176.                             MUIA_FixHeight, 10,
  177.                             MUIA_Gauge_Horiz, TRUE,
  178.                             MUIA_Gauge_Max, 100,
  179.                         End,
  180.                         Child, GA_array2 = GaugeObject,
  181.                             GaugeFrame,
  182.                             MUIA_FixWidth, 15,
  183.                             MUIA_FixHeight, 10,
  184.                             MUIA_Gauge_Horiz, TRUE,
  185.                             MUIA_Gauge_Max, 100,
  186.                         End,
  187.                         Child, GA_array3 = GaugeObject,
  188.                             GaugeFrame,
  189.                             MUIA_FixWidth, 15,
  190.                             MUIA_FixHeight, 10,
  191.                             MUIA_Gauge_Horiz, TRUE,
  192.                             MUIA_Gauge_Max, 100,
  193.                         End,
  194.                         Child, GA_array4 = GaugeObject,
  195.                             GaugeFrame,
  196.                             MUIA_FixWidth, 15,
  197.                             MUIA_FixHeight, 10,
  198.                             MUIA_Gauge_Horiz, TRUE,
  199.                             MUIA_Gauge_Max, 100,
  200.                         End,
  201.                         Child, GA_array5 = GaugeObject,
  202.                             GaugeFrame,
  203.                             MUIA_FixWidth, 15,
  204.                             MUIA_FixHeight, 10,
  205.                             MUIA_Gauge_Horiz, TRUE,
  206.                             MUIA_Gauge_Max, 100,
  207.                         End,
  208.                         Child, GA_array6 = GaugeObject,
  209.                             GaugeFrame,
  210.                             MUIA_FixHeight, 10,
  211.                             MUIA_Gauge_Horiz, TRUE,
  212.                             MUIA_Gauge_Max, 100,
  213.                         End,
  214.                         Child, GA_array7 = GaugeObject,
  215.                             GaugeFrame,
  216.                             MUIA_FixWidth, 15,
  217.                             MUIA_FixHeight, 10,
  218.                             MUIA_Gauge_Horiz, TRUE,
  219.                             MUIA_Gauge_Max, 100,
  220.                         End,
  221.                         Child, GA_array8 = GaugeObject,
  222.                             GaugeFrame,
  223.                             MUIA_FixWidth, 15,
  224.                             MUIA_FixHeight, 10,
  225.                             MUIA_Gauge_Horiz, TRUE,
  226.                             MUIA_Gauge_Max, 100,
  227.                         End,
  228.                         Child, GA_array9 = GaugeObject,
  229.                             GaugeFrame,
  230.                             MUIA_FixHeight, 10,
  231.                             MUIA_Gauge_Horiz, TRUE,
  232.                             MUIA_Gauge_Max, 100,
  233.                         End,
  234.                     End,
  235.                 End,
  236.                 Child, GroupObject,
  237.                     GroupFrameT( "Different Weights" ),
  238.                     MUIA_Group_Horiz, TRUE,
  239.                     Child, BT_25kg = TextObject,
  240.                         ButtonFrame,
  241.                         MUIA_Text_Contents, "25 kg",
  242.                         MUIA_Text_PreParse, "\033c",
  243.                         MUIA_InputMode, 1,
  244.                         MUIA_Background, 2,
  245.                         MUIA_Weight, 25,
  246.                     End,
  247.                     Child, BT_50kg = TextObject,
  248.                         ButtonFrame,
  249.                         MUIA_Text_Contents, "50 kg",
  250.                         MUIA_Text_PreParse, "\033c",
  251.                         MUIA_InputMode, 1,
  252.                         MUIA_Background, 2,
  253.                         MUIA_Weight, 50,
  254.                     End,
  255.                     Child, BT_75kg = SimpleButton( "75 kg" ),
  256.                     Child, BT_100kg = SimpleButton( "100 kg" ),
  257.                 End,
  258.                 Child, GroupObject,
  259.                     GroupFrameT( "Fixed & Variable Sizes" ),
  260.                     MUIA_Group_Horiz, TRUE,
  261.                     Child, TX_label_1 = TextObject,
  262.                         MUIA_Background, 128,
  263.                         MUIA_Text_Contents, STR_TX_label_1,
  264.                         MUIA_Text_SetMax, 1,
  265.                         MUIA_Text_SetMin, 1,
  266.                         MUIA_Frame, 5,
  267.                     End,
  268.                     Child, TX_label_2 = TextObject,
  269.                         MUIA_Background, 128,
  270.                         MUIA_Text_Contents, STR_TX_label_2,
  271.                         MUIA_Text_SetMax, 0,
  272.                         MUIA_Text_SetMin, 1,
  273.                         MUIA_Frame, 5,
  274.                     End,
  275.                     Child, TX_label_3 = TextObject,
  276.                         MUIA_Background, 128,
  277.                         MUIA_Text_Contents, STR_TX_label_3,
  278.                         MUIA_Text_SetMax, 1,
  279.                         MUIA_Text_SetMin, 1,
  280.                         MUIA_Frame, 5,
  281.                     End,
  282.                     Child, TX_label_4 = TextObject,
  283.                         MUIA_Background, 128,
  284.                         MUIA_Text_Contents, STR_TX_label_4,
  285.                         MUIA_Text_SetMax, 0,
  286.                         MUIA_Text_SetMin, 1,
  287.                         MUIA_Frame, 5,
  288.                     End,
  289.                     Child, TX_label_5 = TextObject,
  290.                         MUIA_Background, 128,
  291.                         MUIA_Text_Contents, STR_TX_label_5,
  292.                         MUIA_Text_SetMax, 1,
  293.                         MUIA_Text_SetMin, 1,
  294.                         MUIA_Frame, 5,
  295.                     End,
  296.                 End,
  297.             End,
  298.         End,
  299.         SubWindow, WI_frames = WindowObject,
  300.             MUIA_Window_Title, "Frames",
  301.             MUIA_Window_ID, MAKE_ID( '2','W','I','N' ),
  302.             WindowContents, GroupObject,
  303.                 Child, LV_float3 = ListviewObject,
  304.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  305.                     MUIA_Listview_List, FloattextObject,
  306.                         MUIA_Floattext_Text, STR_LV_float3,
  307.                         ReadListFrame,
  308.                         MUIA_Listview_DoubleClick, TRUE,
  309.                     End,
  310.                 End,
  311.                 Child, GroupObject,
  312.                     MUIA_Group_Columns, 2,
  313.                     Child, TX_button = TextObject,
  314.                         MUIA_Background, 128,
  315.                         MUIA_Text_Contents, STR_TX_button,
  316.                         MUIA_Text_SetMax, 0,
  317.                         MUIA_Text_SetMin, 1,
  318.                         MUIA_Frame, 1,
  319.                     End,
  320.                     Child, TX_imagebutton = TextObject,
  321.                         MUIA_Background, 128,
  322.                         MUIA_Text_Contents, STR_TX_imagebutton,
  323.                         MUIA_Text_SetMax, 0,
  324.                         MUIA_Text_SetMin, 1,
  325.                         MUIA_Frame, 2,
  326.                     End,
  327.                     Child, TX_text = TextObject,
  328.                         MUIA_Background, 128,
  329.                         MUIA_Text_Contents, STR_TX_text,
  330.                         MUIA_Text_SetMax, 0,
  331.                         MUIA_Text_SetMin, 1,
  332.                         MUIA_Frame, 3,
  333.                     End,
  334.                     Child, TX_string = TextObject,
  335.                         MUIA_Background, 128,
  336.                         MUIA_Text_Contents, STR_TX_string,
  337.                         MUIA_Text_SetMax, 0,
  338.                         MUIA_Text_SetMin, 1,
  339.                         MUIA_Frame, 4,
  340.                     End,
  341.                     Child, TX_readlist = TextObject,
  342.                         MUIA_Background, 128,
  343.                         MUIA_Text_Contents, STR_TX_readlist,
  344.                         MUIA_Text_SetMax, 0,
  345.                         MUIA_Text_SetMin, 1,
  346.                         MUIA_Frame, 5,
  347.                     End,
  348.                     Child, TX_inputlist = TextObject,
  349.                         MUIA_Background, 128,
  350.                         MUIA_Text_Contents, STR_TX_inputlist,
  351.                         MUIA_Text_SetMax, 0,
  352.                         MUIA_Text_SetMin, 1,
  353.                         MUIA_Frame, 6,
  354.                     End,
  355.                     Child, TX_prop = TextObject,
  356.                         MUIA_Background, 128,
  357.                         MUIA_Text_Contents, STR_TX_prop,
  358.                         MUIA_Text_SetMax, 0,
  359.                         MUIA_Text_SetMin, 1,
  360.                         MUIA_Frame, 7,
  361.                     End,
  362.                     Child, TX_group = TextObject,
  363.                         MUIA_Background, 128,
  364.                         MUIA_Text_Contents, STR_TX_group,
  365.                         MUIA_Text_SetMax, 0,
  366.                         MUIA_Text_SetMin, 1,
  367.                         MUIA_Frame, 9,
  368.                     End,
  369.                 End,
  370.             End,
  371.         End,
  372.         SubWindow, WI_notify = WindowObject,
  373.             MUIA_Window_Title, "Notifying",
  374.             MUIA_Window_ID, MAKE_ID( '3','W','I','N' ),
  375.             WindowContents, GroupObject,
  376.                 Child, LV_float4 = ListviewObject,
  377.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  378.                     MUIA_Listview_List, FloattextObject,
  379.                         MUIA_Floattext_Text, STR_LV_float4,
  380.                         ReadListFrame,
  381.                         MUIA_Listview_DoubleClick, TRUE,
  382.                     End,
  383.                 End,
  384.                 Child, GroupObject,
  385.                     GroupFrameT( "Connections" ),
  386.                     MUIA_Group_Horiz, TRUE,
  387.                     Child, GroupObject,
  388.                         MUIA_Group_Horiz, TRUE,
  389.                         Child, GA_connect1 = GaugeObject,
  390.                             GaugeFrame,
  391.                             MUIA_FixWidth, 15,
  392.                             MUIA_Gauge_Horiz, FALSE,
  393.                             MUIA_Gauge_Max, 100,
  394.                         End,
  395.                         Child, PR_label_0 = PropObject,
  396.                             PropFrame,
  397.                             MUIA_Prop_Entries, 100,
  398.                             MUIA_Prop_First, 0,
  399.                             MUIA_Prop_Horiz, FALSE,
  400.                             MUIA_Prop_Visible, 10,
  401.                             MUIA_FixWidth, 8,
  402.                         End,
  403.                         Child, PR_label_1 = PropObject,
  404.                             PropFrame,
  405.                             MUIA_Prop_Entries, 100,
  406.                             MUIA_Prop_First, 0,
  407.                             MUIA_Prop_Horiz, FALSE,
  408.                             MUIA_Prop_Visible, 10,
  409.                             MUIA_FixWidth, 8,
  410.                         End,
  411.                     End,
  412.                     Child, GroupObject,
  413.                         Child, HVSpace,
  414.                         Child, SL_label_0 = SliderObject,
  415.                             MUIA_Slider_Min, 0,
  416.                             MUIA_Slider_Max, 100,
  417.                             MUIA_Slider_Quiet, TRUE,
  418.                             MUIA_Slider_Level, 0,
  419.                             MUIA_Slider_Reverse, FALSE,
  420.                         End,
  421.                         Child, GroupObject,
  422.                             MUIA_Group_Horiz, TRUE,
  423.                             Child, SL_label_1 = SliderObject,
  424.                                 MUIA_Slider_Min, 0,
  425.                                 MUIA_Slider_Max, 100,
  426.                                 MUIA_Slider_Quiet, TRUE,
  427.                                 MUIA_Slider_Level, 0,
  428.                                 MUIA_Slider_Reverse, FALSE,
  429.                             End,
  430.                             Child, SL_label_2 = SliderObject,
  431.                                 MUIA_Slider_Min, 0,
  432.                                 MUIA_Slider_Max, 100,
  433.                                 MUIA_Slider_Quiet, TRUE,
  434.                                 MUIA_Slider_Level, 0,
  435.                                 MUIA_Slider_Reverse, FALSE,
  436.                             End,
  437.                         End,
  438.                         Child, HVSpace,
  439.                         Child, GA_label_16 = GaugeObject,
  440.                             GaugeFrame,
  441.                             MUIA_FixHeight, 10,
  442.                             MUIA_Gauge_Horiz, TRUE,
  443.                             MUIA_Gauge_Max, 100,
  444.                         End,
  445.                         Child, ScaleObject,
  446.                             MUIA_Scale_Horiz, 1,
  447.                         End,
  448.                         Child, HVSpace,
  449.                     End,
  450.                     Child, GroupObject,
  451.                         MUIA_Group_Horiz, TRUE,
  452.                         Child, PR_label_2 = PropObject,
  453.                             PropFrame,
  454.                             MUIA_Prop_Entries, 100,
  455.                             MUIA_Prop_First, 0,
  456.                             MUIA_Prop_Horiz, FALSE,
  457.                             MUIA_Prop_Visible, 10,
  458.                             MUIA_FixWidth, 8,
  459.                         End,
  460.                         Child, PR_label_3 = PropObject,
  461.                             PropFrame,
  462.                             MUIA_Prop_Entries, 100,
  463.                             MUIA_Prop_First, 0,
  464.                             MUIA_Prop_Horiz, FALSE,
  465.                             MUIA_Prop_Visible, 10,
  466.                             MUIA_FixWidth, 8,
  467.                         End,
  468.                         Child, GA_label_17 = GaugeObject,
  469.                             GaugeFrame,
  470.                             MUIA_FixWidth, 15,
  471.                             MUIA_Gauge_Horiz, FALSE,
  472.                             MUIA_Gauge_Max, 100,
  473.                         End,
  474.                     End,
  475.                 End,
  476.             End,
  477.         End,
  478.         SubWindow, WI_listviews = WindowObject,
  479.             MUIA_Window_Title, "ListViews",
  480.             MUIA_Window_ID, MAKE_ID( '4','W','I','N' ),
  481.             WindowContents, GroupObject,
  482.                 Child, LV_float5 = ListviewObject,
  483.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  484.                     MUIA_Listview_List, FloattextObject,
  485.                         MUIA_Floattext_Text, STR_LV_float5,
  486.                         ReadListFrame,
  487.                         MUIA_Listview_DoubleClick, TRUE,
  488.                     End,
  489.                 End,
  490.                 Child, GroupObject,
  491.                     GroupFrameT( "Dir & Volume List" ),
  492.                     MUIA_Group_Horiz, TRUE,
  493.                     Child, LV_label_5 = ListviewObject,
  494.                         MUIA_Listview_List, DirlistObject,
  495.                             InputListFrame,
  496.                             MUIA_Dirlist_Directory, "progdir:",
  497.                             MUIA_Dirlist_DrawersOnly, FALSE,
  498.                             MUIA_Dirlist_FilesOnly, FALSE,
  499.                             MUIA_Dirlist_FilterDrawers, FALSE,
  500.                             MUIA_Dirlist_MultiSelDirs, FALSE,
  501.                             MUIA_Dirlist_RejectIcons, FALSE,
  502.                             MUIA_Dirlist_SortDirs, MUIV_Dirlist_SortDirs_First,
  503.                             MUIA_Dirlist_SortHighLow, FALSE,
  504.                             MUIA_Dirlist_SortType, 0,
  505.                         End,
  506.                     End,
  507.                     Child, LV_label_6 = ListviewObject,
  508.                         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  509.                         MUIA_Listview_List, VolumelistObject,
  510.                             InputListFrame,
  511.                             MUIA_Listview_DoubleClick, TRUE,
  512.                         End,
  513.                     End,
  514.                 End,
  515.             End,
  516.         End,
  517.         SubWindow, WI_string = WindowObject,
  518.             MUIA_Window_Title, "String",
  519.             MUIA_Window_ID, MAKE_ID( '5','W','I','N' ),
  520.             WindowContents, GroupObject,
  521.                 Child, LV_label_7 = ListviewObject,
  522.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  523.                     MUIA_Listview_List, FloattextObject,
  524.                         MUIA_Floattext_Text, STR_LV_label_7,
  525.                         ReadListFrame,
  526.                         MUIA_Listview_DoubleClick, TRUE,
  527.                     End,
  528.                 End,
  529.                 Child, LV_label_8 = ListviewObject,
  530.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  531.                     MUIA_Listview_List, ListObject,
  532.                         InputListFrame,
  533.                         MUIA_Listview_DoubleClick, TRUE,
  534.                     End,
  535.                 End,
  536.                 Child, STR_label_0 = StringObject,
  537.                     StringFrame,
  538.                     MUIA_String_MaxLen, 80,
  539.                     MUIA_String_Format, 0,
  540.                 End,
  541.             End,
  542.         End,
  543.         SubWindow, WI_images = WindowObject,
  544.             MUIA_Window_Title, "Images",
  545.             MUIA_Window_ID, MAKE_ID( '6','W','I','N' ),
  546.             WindowContents, GroupObject,
  547.                 Child, LV_label_9 = ListviewObject,
  548.                     MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  549.                     MUIA_Listview_List, FloattextObject,
  550.                         MUIA_Floattext_Text, STR_LV_label_9,
  551.                         ReadListFrame,
  552.                         MUIA_Listview_DoubleClick, TRUE,
  553.                     End,
  554.                 End,
  555.                 Child, GroupObject,
  556.                     MUIA_Group_Horiz, TRUE,
  557.                     MUIA_Group_SameHeight, TRUE,
  558.                     Child, GroupObject,
  559.                         GroupFrameT( "Some Images" ),
  560.                         MUIA_Group_Columns, 2,
  561.                         Child, Label( "ArrowUp:" ),
  562.                         Child, IM_label_0 = ImageObject,
  563.                             MUIA_Image_Spec, 11,
  564.                             MUIA_Image_FreeVert, TRUE,
  565.                             MUIA_Image_FreeHoriz, TRUE,
  566.                             MUIA_FixHeight, 10,
  567.                             MUIA_FixWidth, 8,
  568.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  569.                         End,
  570.                         Child, Label( "ArrowDown" ),
  571.                         Child, IM_label_1 = ImageObject,
  572.                             MUIA_Image_Spec, 12,
  573.                             MUIA_Image_FreeVert, TRUE,
  574.                             MUIA_Image_FreeHoriz, TRUE,
  575.                             MUIA_FixHeight, 10,
  576.                             MUIA_FixWidth, 8,
  577.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  578.                         End,
  579.                         Child, Label( "ArrowLeft:" ),
  580.                         Child, IM_label_2 = ImageObject,
  581.                             MUIA_Image_Spec, 14,
  582.                             MUIA_Image_FreeVert, TRUE,
  583.                             MUIA_Image_FreeHoriz, TRUE,
  584.                             MUIA_FixHeight, 10,
  585.                             MUIA_FixWidth, 8,
  586.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  587.                         End,
  588.                         Child, Label( "ArrowRight:" ),
  589.                         Child, IM_label_3 = ImageObject,
  590.                             MUIA_Image_Spec, 13,
  591.                             MUIA_Image_FreeVert, TRUE,
  592.                             MUIA_Image_FreeHoriz, TRUE,
  593.                             MUIA_FixHeight, 10,
  594.                             MUIA_FixWidth, 8,
  595.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  596.                         End,
  597.                         Child, Label( "RadioButton" ),
  598.                         Child, IM_label_4 = ImageObject,
  599.                             MUIA_Image_Spec, 16,
  600.                             MUIA_Image_FreeVert, TRUE,
  601.                             MUIA_Image_FreeHoriz, TRUE,
  602.                             MUIA_FixHeight, 10,
  603.                             MUIA_FixWidth, 8,
  604.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  605.                         End,
  606.                         Child, Label( "File:" ),
  607.                         Child, IM_label_5 = ImageObject,
  608.                             MUIA_Image_Spec, 19,
  609.                             MUIA_Image_FreeVert, TRUE,
  610.                             MUIA_Image_FreeHoriz, TRUE,
  611.                             MUIA_FixHeight, 10,
  612.                             MUIA_FixWidth, 8,
  613.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  614.                         End,
  615.                         Child, Label( "HardDisk:" ),
  616.                         Child, IM_label_6 = ImageObject,
  617.                             MUIA_Image_Spec, 23,
  618.                             MUIA_Image_FreeVert, TRUE,
  619.                             MUIA_Image_FreeHoriz, TRUE,
  620.                             MUIA_FixHeight, 10,
  621.                             MUIA_FixWidth, 8,
  622.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  623.                         End,
  624.                         Child, Label( "Disk" ),
  625.                         Child, IM_label_7 = ImageObject,
  626.                             MUIA_Image_Spec, 24,
  627.                             MUIA_Image_FreeVert, TRUE,
  628.                             MUIA_Image_FreeHoriz, TRUE,
  629.                             MUIA_FixHeight, 10,
  630.                             MUIA_FixWidth, 8,
  631.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  632.                         End,
  633.                         Child, Label( "Chip:" ),
  634.                         Child, IM_label_8 = ImageObject,
  635.                             MUIA_Image_Spec, 25,
  636.                             MUIA_Image_FreeVert, TRUE,
  637.                             MUIA_Image_FreeHoriz, TRUE,
  638.                             MUIA_FixHeight, 10,
  639.                             MUIA_FixWidth, 8,
  640.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  641.                         End,
  642.                         Child, Label( "Drawer:" ),
  643.                         Child, IM_label_9 = ImageObject,
  644.                             MUIA_Image_Spec, 22,
  645.                             MUIA_Image_FreeVert, TRUE,
  646.                             MUIA_Image_FreeHoriz, TRUE,
  647.                             MUIA_FixHeight, 10,
  648.                             MUIA_FixWidth, 8,
  649.                             MUIA_InputMode, MUIV_InputMode_RelVerify,
  650.                         End,
  651.                     End,
  652.                     Child, GroupObject,
  653.                         GroupFrameT( "Scale Engine" ),
  654.                         Child, HVSpace,
  655.                         Child, GroupObject,
  656.                             MUIA_Group_Horiz, TRUE,
  657.                             Child, ImageObject,
  658.                                 MUIA_Image_Spec, 16,
  659.                                 MUIA_Image_FreeVert, TRUE,
  660.                                 MUIA_Image_FreeHoriz, TRUE,
  661.                                 MUIA_FixHeight, 10,
  662.                                 MUIA_FixWidth, 8,
  663.                             End,
  664.                             Child, ImageObject,
  665.                                 MUIA_Image_Spec, 16,
  666.                                 MUIA_Image_FreeVert, TRUE,
  667.                                 MUIA_Image_FreeHoriz, TRUE,
  668.                                 MUIA_FixHeight, 14,
  669.                                 MUIA_FixWidth, 12,
  670.                             End,
  671.                             Child, ImageObject,
  672.                                 MUIA_Image_Spec, 16,
  673.                                 MUIA_Image_FreeVert, TRUE,
  674.                                 MUIA_Image_FreeHoriz, TRUE,
  675.                                 MUIA_FixHeight, 18,
  676.                                 MUIA_FixWidth, 22,
  677.                             End,
  678.                             Child, ImageObject,
  679.                                 MUIA_Image_Spec, 16,
  680.                                 MUIA_Image_FreeVert, TRUE,
  681.                                 MUIA_Image_FreeHoriz, TRUE,
  682.                                 MUIA_FixHeight, 20,
  683.                                 MUIA_FixWidth, 26,
  684.                             End,
  685.                             Child, ImageObject,
  686.                                 MUIA_Image_Spec, 16,
  687.                                 MUIA_Image_FreeVert, TRUE,
  688.                                 MUIA_Image_FreeHoriz, TRUE,
  689.                                 MUIA_FixHeight, 22,
  690.                                 MUIA_FixWidth, 34,
  691.                             End,
  692.                         End,
  693.                         Child, HVSpace,
  694.                         Child, GroupObject,
  695.                             MUIA_Group_Horiz, TRUE,
  696.                             Child, ImageObject,
  697.                                 MUIA_Image_Spec, 19,
  698.                                 MUIA_Image_FreeVert, TRUE,
  699.                                 MUIA_Image_FreeHoriz, TRUE,
  700.                                 MUIA_FixHeight, 10,
  701.                                 MUIA_FixWidth, 8,
  702.                             End,
  703.                             Child, ImageObject,
  704.                                 MUIA_Image_Spec, 19,
  705.                                 MUIA_Image_FreeVert, TRUE,
  706.                                 MUIA_Image_FreeHoriz, TRUE,
  707.                                 MUIA_FixHeight, 12,
  708.                                 MUIA_FixWidth, 12,
  709.                             End,
  710.                             Child, IM_label_35 = ImageObject,
  711.                                 MUIA_Image_Spec, 19,
  712.                                 MUIA_Image_FreeVert, TRUE,
  713.                                 MUIA_Image_FreeHoriz, TRUE,
  714.                                 MUIA_FixHeight, 14,
  715.                                 MUIA_FixWidth, 16,
  716.                             End,
  717.                             Child, ImageObject,
  718.                                 MUIA_Image_Spec, 19,
  719.                                 MUIA_Image_FreeVert, TRUE,
  720.                                 MUIA_Image_FreeHoriz, TRUE,
  721.                                 MUIA_FixHeight, 16,
  722.                                 MUIA_FixWidth, 20,
  723.                             End,
  724.                             Child, ImageObject,
  725.                                 MUIA_Image_Spec, 19,
  726.                                 MUIA_Image_FreeVert, TRUE,
  727.                                 MUIA_Image_FreeHoriz, TRUE,
  728.                                 MUIA_FixHeight, 18,
  729.                                 MUIA_FixWidth, 24,
  730.                             End,
  731.                             Child, ImageObject,
  732.                                 MUIA_Image_Spec, 19,
  733.                                 MUIA_Image_FreeVert, TRUE,
  734.                                 MUIA_Image_FreeHoriz, TRUE,
  735.                                 MUIA_FixHeight, 20,
  736.                                 MUIA_FixWidth, 28,
  737.                             End,
  738.                         End,
  739.                         Child, HVSpace,
  740.                     End,
  741.                 End,
  742.             End,
  743.         End,
  744.     End;
  745.  
  746.     if (!(App))
  747.     {
  748.         Result = FALSE;
  749.     }
  750.     return( Result );
  751. }
  752.  
  753. void DisposeApp( void )
  754. {
  755.     MUI_DisposeObject(App);
  756.     
  757. }