struct FStatistics { long bites; long words; long lines; }; /* * Pictures for the up and down arrows */ static USHORT arrows[2][GHEIGHT] = { {0xFE7F, 0xFC3F, 0xF81F, 0xF00F, /* Up */ 0xFC3F, 0xFC3F, 0xFC3F, 0xFC3F, 0xFC3F}, {0xFC3F, 0xFC3F, 0xFC3F, 0xFC3F, /* Down */ 0xFC3F, 0xF00F, 0xF81F, 0xFC3F, 0xFE7F} } ; /* * Now, the Image structures that use the arrows */ static struct Image Arrow_Image[2] = { {0, 0, GWIDTH, GHEIGHT, 1, arrows[UP_GADGET], 1, 0, /* Up */ /*(struct Image *)*/ NULL}, {0, 0, GWIDTH, GHEIGHT, 1, arrows[DOWN_GADGET], 1, 0, /* Down */ /*(struct Image *)*/ NULL} }; /* * Now, my Gadget structures */ static struct PropInfo prop; static struct Image prop_img; static struct Gadget Scroll_Gadget = { /*(struct Gadget *)*/ NULL, /* End of Gadgets */ 0,11+GHEIGHT, /* Left, Top */ GWIDTH, -(19 + GHEIGHT), GRELHEIGHT | GADGHCOMP | GADGDISABLED, RELVERIFY, /* Messages when released */ PROPGADGET, (APTR) &prop_img, (APTR) NULL, /* No rendering image, using HCOMP */ /*(struct IntuiText *)*/ NULL, 0L, /* No mutex */ (APTR) &prop, SCROLL_GADGET, /* Yes, this is the scroll gadget */ (APTR) NULL /* And nothing of mine */ }; static struct Gadget Up_Gadget = { &Scroll_Gadget, /* next gadget is scroll */ 0,11, /* Left, Top */ GWIDTH, GHEIGHT, GADGIMAGE | GADGDISABLED | GADGHCOMP, RELVERIFY, /* Messages when released */ BOOLGADGET, /* These be boolean gadgets */ (APTR) &(Arrow_Image[UP_GADGET]), (APTR) NULL, /* No rendering image, using HCOMP */ /*(struct IntuiText *)*/ NULL, 0L, /* No mutex */ (APTR) NULL, /* Nothing special */ UP_GADGET, /* Yes, this is the up gadget */ (APTR) NULL /* And nothing of mine */ }; static struct Gadget Down_Gadget = { &Up_Gadget, /* Next gadget is Up_Gadget */ 0, 1 - GHEIGHT, /* Left, Top */ GWIDTH, GHEIGHT, GRELBOTTOM | GADGIMAGE | /* Standard bottom border gadget */ GADGDISABLED | GADGHCOMP, RELVERIFY | BOTTOMBORDER, /* Messages when released */ BOOLGADGET, /* These be boolean gadgets */ (APTR) &(Arrow_Image[DOWN_GADGET]), (APTR) NULL, /* No rendering image, using HCOMP */ /*(struct IntuiText *)*/ NULL, 0L, /* No mutex */ (APTR) NULL, /* Nothing special */ DOWN_GADGET, /* Yes, this is the down gadget */ (APTR) NULL /* And nothing of mine */ };