4 ** Bug No. 23 test code provided by Jilles Tjoelker.
7 #ifndef LIBRARIES_BGUI_H
8 #include <libraries/bgui.h>
11 #ifndef LIBRARIES_BGUI_MACROS_H
12 #include <libraries/bgui_macros.h>
16 #include <proto/bgui.h>
19 #include <proto/intuition.h>
20 #include <proto/exec.h>
24 struct Library
*BGUIBase
=NULL
;
25 struct IntuitionBase
* IntuitionBase
;
27 // In the E source, the font info objects had formatting.
28 // This is the "GUI" page.
35 // For BGUI 41.8: prevents BCLR #7,8
37 #define LISTV_Titles TAG_IGNORE
39 // Object *w0,*w1,*w2,*i1,*i2,*i3;
40 ULONG weights
[3]={15,200,300};
41 // The following are not in the E source:
42 STRPTR labels
[]={"Nothing (-)","ARexx (A)",NULL
};
43 ULONG umweights
[]={50,7,100};
45 #define InfoMed InfoObj
47 Object
*InitTest_6( void )
52 WINDOW_SmartRefresh
, TRUE
,
53 WINDOW_AutoAspect
, TRUE
,
55 VGroupObject
,NormalSpacing
,NormalOffset
,
57 StartMember,HGroupObject,NarrowSpacing,
59 StartMember
,InfoMed("Message list","bbb/11",0,1),FixMinHeight
,EndMember
,
60 StartMember
,ButtonObject
,VIT_BuiltIn
,BUILTIN_POPUP
,GA_ID
,ID_LFONT
,EndObject
,FixAspect(15,13),EndMember
,
62 EndObject,FixMinHeight,EndMember,
63 StartMember,HGroupObject,NarrowSpacing,
65 StartMember
,InfoMed("Message text","aaa/9",0,1),FixMinHeight
,EndMember
,
67 StartMember,ButtonObject,VIT_BuiltIn,BUILTIN_POPUP,GA_ID,ID_TFONT,EndObject,FixAspect(15,13),EndMember,
68 EndObject,FixMinHeight,EndMember,
76 int main(int argc
,char **argv
)
80 if (NULL
== (IntuitionBase
= (struct IntuitionBase
*)OpenLibrary("intuition.library",0)))
82 printf("Could not open Intuition.library!\n");
86 if((BGUIBase
=OpenLibrary(BGUINAME
,BGUIVERSION
)))
88 if((window
=InitTest_6())!=NULL
89 && WindowOpen(window
)!=NULL
)
93 if(GetAttr(WINDOW_SigMask
,window
,&signal
)
99 switch(HandleEvent(window
))
101 case WMHI_CLOSEWINDOW
:
110 DisposeObject(window
);
112 CloseLibrary(BGUIBase
);
114 CloseLibrary((struct Library
*)IntuitionBase
);