Bringing ChocolateCaste-0.7 into the main branch.
[AROS-Contrib.git] / bgui / test / test13.c
blob234961d7fdfc6517f17440ebc142732b07d1b37c
1 /*
2 ** test9.c
3 **
4 ** Bug No. 58 test code provided by Anton Rolls
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>
12 #include <stdio.h>
15 Object *WO_Window, *PG_TestProp;
16 struct Window *win;
18 #define ID_TEST_PROP 1
20 struct Library *BGUIBase;
21 struct IntuitionBase * IntuitionBase;
23 void GimmeQuickDisplayWindow(void)
25 // Create window object.
26 WO_Window = WindowObject,
27 //WINDOW_Title, "TestProp",
28 //WINDOW_AutoAspect, TRUE,
29 //WINDOW_AutoKeyLabel, TRUE,
30 WINDOW_MasterGroup,
31 HGroupObject, //NormalOffset, NormalSpacing,
33 StartMember, // top,total,visible
34 PG_TestProp = HorizScroller("Hello", 50,100,1, ID_TEST_PROP), //FixMinHeight,
35 EndMember,
37 EndObject,
38 EndObject;
41 int main(void)
43 IPTR sigmask;
44 BOOL quit = FALSE;
46 if (NULL == (IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0)))
48 printf("Could not open Intuition.library!\n");
49 return -1;
53 if((BGUIBase=OpenLibrary(BGUINAME,0L))) {
54 GimmeQuickDisplayWindow();
55 if(WO_Window)
57 win = WindowOpen(WO_Window);
58 GetAttr(WINDOW_SigMask, WO_Window, &sigmask);
60 while(!quit) {
61 Wait(sigmask);
63 if(sigmask & sigmask ) {
64 ULONG rc;
66 while((rc = HandleEvent(WO_Window)) != WMHI_NOMORE) {
67 switch(rc) {
68 case WMHI_CLOSEWINDOW:
69 quit = TRUE;
70 break;
76 DisposeObject(WO_Window);
79 CloseLibrary(BGUIBase);
82 CloseLibrary((struct Library *)IntuitionBase);
84 return 0;