Listing 7: BubbleHelp ein- bzw. ausschalten.

  struct Gadget *gb_CheckboxGad;
  #define GAD_ID_Help 1

  if((gb_CheckboxGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,
      GA_ID,          GAD_ID_Help,
      GA_RelVerify,   TRUE,
      GA_Text,        "Bubble_Help aktiv",
      TAG_DONE)))


  WINDOW_ParentGroup,
    LAYOUT_AddChild,     gb_CheckboxGad,