Listing 1: Ein Reaction-Gadget definieren
	
struct Gadget *gb_ButtonGad;
#define GAD_ID_Quit 2

if((gb_ButtonGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,
    GA_ID,        GAD_ID_Quit,
    GA_RelVerify, TRUE,
    GA_Text,      "_Beenden",
    TAG_DONE)))