grub2: bring back build of aros-side grub2 tools
[AROS.git] / test / Zune / mui4test.c
blob2d208d0475a66a87b9c179f747f80ae55f159af9
1 /*
2 Copyright © 1995-2014, The AROS Development Team. All rights reserved.
3 $Id$
4 */
6 /*
7 Test for MUI4 features
8 */
10 #include <exec/types.h>
11 #include <stdlib.h>
12 #include <stdio.h>
13 #include <string.h>
15 #include <proto/alib.h>
16 #include <proto/exec.h>
17 #include <proto/dos.h>
18 #include <proto/intuition.h>
19 #include <proto/muimaster.h>
20 #include <libraries/mui.h>
22 Object *app;
23 Object *wnd;
24 Object *flttext;
25 Object *btappend;
27 /* ######################################################################## */
29 void init_gui()
31 app = ApplicationObject,
32 MUIA_Application_Title, "MUI4 Test",
33 SubWindow, wnd = WindowObject,
34 MUIA_Window_Title, "Floattext Test",
35 MUIA_Window_ID, MAKE_ID('M','4','T','E'),
36 WindowContents, VGroup,
37 Child, flttext = FloattextObject,
38 MUIA_Floattext_Text, "Hello",
39 End,
40 Child, HGroup,
41 Child, btappend = SimpleButton("Append"),
42 End,
43 End,
44 End,
45 End;
47 if (app)
49 DoMethod(wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
50 (IPTR)app, 2,
51 MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
53 /* Test for MUIM_Floattext_Append */
54 DoMethod(btappend, MUIM_Notify, MUIA_Pressed, FALSE,
55 (IPTR)flttext, 2,
56 MUIM_Floattext_Append, " World!");
58 set(wnd, MUIA_Window_Open, TRUE);
62 void deinit_gui()
64 set(wnd, MUIA_Window_Open, FALSE);
65 MUI_DisposeObject(app);
68 int main(void)
70 init_gui();
71 DoMethod(app, MUIM_Application_Execute);
72 deinit_gui();
74 return 0;