home *** CD-ROM | disk | FTP | other *** search
- /* libraries we'll need to open */
-
- struct GfxBase *GfxBase = NULL;
- struct IntuitionBase *IntuitionBase = NULL;
- struct Library *GadToolsBase = NULL;
- struct Library *AslBase = NULL;
- struct Library *DiskfontBase = NULL;
- struct FontRequester *FontRequester = NULL;
- struct FileRequester *FileRequester = NULL;
-
- BOOL FirstReq = TRUE;
- UBYTE framebuff[256] = {0};
-
- struct Screen *screen = NULL;
- struct Window *window = NULL;
- struct Gadget *sketchlist = NULL; /* sketchpad gadgets */
- struct Gadget *glist = NULL; /* Gadget list pointer */
- struct List list; /* we need this for the ListView Gadget */
- struct List tit_list;
- struct Remember *rmem = NULL; /* Intuition memory allocation for List */
- void *vi = NULL; /* VisualInfo pointer */
- struct TagItem FontTags[]= {
- ASL_FuncFlags, FONF_STYLES | FONF_DOMSGFUNC ,
- TAG_DONE
- };
-
- struct Gadget *zt,*zl,*zh,*zw;
-
- struct TextAttr topaz80 = {
- "topaz.font", 8, 0, 0
- };
-
- struct TextAttr menucta = {
- "topaz.font", 8, 0, 0
- };
-
- char textbuffer[20]; /* for displaying Gadget event information */
-
- char VERSTAG[]="\0$VER: AIB 1.0";
-
- char *titles[] = {
- "AIB Main Menu","WINDOW Menu","GADGET Menu","MENU Menu","PROJECT Menu",
- "ABOUT...","QUIT...","WA_Flags submenu","WA_IDCMP submenu",
- "GADGET PARAMETERS submenu: CREATE","GADGET PARAMETERS submenu: EDIT",NULL
- };
-
- char *testlabels[] = {
- "BUTTON_KIND","CHECKBOX_KIND","CYCLE_KIND","INTEGER_KIND","LISTVIEW_KIND",
- "MX_KIND","NUMBER_KIND","PALETTE_KIND","SCROLLER_KIND","SLIDER_KIND",
- "STRING_KIND","TEXT_KIND",NULL
- };
-
- char *kind_labels[] = {
- "BUTTON_KIND","CHECKBOX_KIND","CYCLE_KIND","INTEGER_KIND","LISTVIEW_KIND",
- "MX_KIND","NUMBER_KIND","PALETTE_KIND","SCROLLER_KIND","SLIDER_KIND",
- "STRING_KIND","TEXT_KIND",NULL
- };
- char kinds[] = {
- BUTTON_KIND,CHECKBOX_KIND,CYCLE_KIND,INTEGER_KIND,LISTVIEW_KIND,MX_KIND,
- NUMBER_KIND,PALETTE_KIND,SCROLLER_KIND,SLIDER_KIND,STRING_KIND,TEXT_KIND,NULL
- };
-
- /* globals */
- struct Gadget *curr_font = NULL;
- struct Gadget *font_size = NULL;
-
- /* menu stuff */
- struct Gadget *menu_font = NULL;
- struct Gadget *menu_size = NULL;
- struct Gadget *tl,*il,*sl,*ta,*td,*ts,*ia,*id,*is,*sa,*sd,*ss;
- struct Gadget *sstring,*tstring,*istring;
- struct Gadget *dis,*bar,*select,*stype,*chec,*tog,*func,*fche,*nfont,*key;
- struct Gadget *g1chfont,*g1left,*g1widt,*g1gadg,*g1text,*g1id,*g1flag,*g1user,
- *g1top,*g1place,*g1high,*g1height,*g1type,*gadisa,*g1nfont,*gtunder;
-
- char MyFont[80]="topaz.font";
- char *MFlags[] = {"Normal","Toggle","MX",NULL};
- char *LevelPlaces[] = {"LEFT","RIGHT","ABOVE","BELOW",NULL};
- char *LabelPlaces[] = {"LEFT","RIGHT","ABOVE","BELOW","IN",NULL};
- char *PGALabels[] = {"HORIZ","VERT",NULL};
- UWORD MFontSize = 8;
- UWORD GFontSize = 8;
-
- struct New_Wind their;
- struct Their_Window theirs ={
- NULL, /* window pointer */
- CLOSEWINDOW | VANILLAKEY | REFRESHWINDOW | /* flags */
- SLIDERIDCMP | STRINGIDCMP | BUTTONIDCMP |
- CHECKBOXIDCMP | MXIDCMP | MENUPICK | LISTVIEWIDCMP,
-
- 0,0,0,0, /* l,t,w,h */
- "SKETCHPAD", /* title */
- 170,50,-1,-1, /* min w,h max w,h */
- 170,80, /* inner w,h */
- 0, /* rpt */
- 0,0,50,50, /* zl,zt,zw,zh */
- TRUE, /* size */
- TRUE, /* drag */
- TRUE, /* depth */
- TRUE, /* close */
- FALSE, /* back */
- FALSE, /* report */
- FALSE, /* nocare */
- FALSE, /* bord */
- FALSE, /* act */
- FALSE, /* rmb */
- TRUE, /* simple */
- FALSE, /* smart */
- TRUE, /* sizer */
- FALSE, /* sizeb */
- FALSE, /* auto */
- FALSE, /* gimme */
- TRUE /* zoom */
- };
-
- /* menu structures */
-
- /* assume no "cancel" option */
-
- struct title_box *topt = NULL;
-
- char function_name[256] = "NULL";
- char select_type[3] = "";
- char name_type[256] = "";
-
- struct NewMenu *their_menu=NULL;
- struct Menu *menu=NULL;
- struct TextAttr *menuta;
- struct TextFont *CustomMenuFont=NULL;
- struct title_box *newtop = NULL;
-
- /* gad thingies */
- struct maingad *topgad = NULL;
- struct maingad *currgad = NULL;