forgotten commit. disabled until egl is adapted.
[AROS-Contrib.git] / bgui / test / test8.c
blobfc4d9cbf4493315fbbdfa346daa2ba696bf0a468
1 /*
2 ** test8.c
3 **
4 ** Bug No. 28 test code provided by Janne Jalkanen
5 */
7 #include <libraries/bgui.h>
8 #include <libraries/bgui_macros.h>
9 #include <proto/bgui.h>
10 #include <proto/exec.h>
11 #include <proto/intuition.h>
13 #include <stdio.h>
15 Object *Win, *ra;
16 struct Window *win;
18 #define GID_DW_HIDE 1
19 #define GID_DW_RIGHTPROP 2
20 #define GID_DW_BOTTOMPROP 3
22 struct Library *BGUIBase;
23 struct IntuitionBase * IntuitionBase;
25 void GimmeQuickDisplayWindow(void)
27 Win = WindowObject,
28 WINDOW_Title, "Test window",
29 WINDOW_ScreenTitle, "BGUI test",
30 WINDOW_Screen, NULL,
31 WINDOW_SmartRefresh, FALSE,
32 WINDOW_SizeRight, TRUE,
33 WINDOW_NoBufferRP, TRUE,
34 WINDOW_TBorderGroup,
35 HGroupObject, HOffset(0), VOffset(0), Spacing(0),
36 StartMember,
37 ButtonObject,
38 VIT_BuiltIn, BUILTIN_ARROW_UP,
39 BUTTON_EncloseImage, TRUE,
40 GA_ID, GID_DW_HIDE,
41 BorderFrame,
42 EndObject,
43 EndMember,
44 EndObject,
45 WINDOW_RBorderGroup,
46 VGroupObject,
47 StartMember,
48 PropObject,
49 PGA_Top, 0,
50 PGA_Total, 100,
51 PGA_Visible, 10,
52 PGA_Arrows, TRUE,
53 PGA_NewLook, TRUE,
54 // BorderFrame,
55 GA_ID, GID_DW_RIGHTPROP,
56 GA_RelVerify, TRUE,
57 EndObject,
58 EndMember,
59 EndObject,
60 WINDOW_BBorderGroup,
61 HGroupObject,
62 StartMember,
63 PropObject,
64 PGA_Top, 0,
65 PGA_Total, 100,
66 PGA_Visible, 10,
67 PGA_Arrows, TRUE,
68 PGA_Freedom, FREEHORIZ,
69 PGA_NewLook, TRUE,
70 GA_ID, GID_DW_BOTTOMPROP,
71 GA_RelVerify, TRUE,
72 BorderFrame,
73 EndObject,
74 EndMember,
75 EndObject,
76 WINDOW_MasterGroup,
77 VGroupObject,
78 StartMember,
79 AreaObject,
80 AREA_MinWidth,100,
81 AREA_MinHeight,100,
82 EndObject,
83 EndMember,
84 EndObject, /* Mastervgroup */
85 EndObject;
89 int main(int argc, char **argv)
91 IPTR sigmask;
92 BOOL quit = FALSE;
94 if (NULL == (IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0)))
96 printf("Could not open Intuition.library!\n");
97 return -1;
101 if((BGUIBase=OpenLibrary(BGUINAME,0L))) {
102 GimmeQuickDisplayWindow();
103 if(Win)
105 win = WindowOpen(Win);
106 GetAttr(WINDOW_SigMask, Win, &sigmask);
108 while(!quit) {
109 Wait(sigmask);
111 if(sigmask & sigmask ) {
112 ULONG rc;
114 while((rc = HandleEvent(Win)) != WMHI_NOMORE) {
115 switch(rc) {
116 case WMHI_CLOSEWINDOW:
117 quit = TRUE;
118 break;
124 DisposeObject(Win);
127 CloseLibrary(BGUIBase);
130 CloseLibrary((struct Library *)IntuitionBase);
132 return 0;