Listing 8: Das Fenster zeigen bzw. ausblenden.

if((gb_Win = RA_OpenWindow(gb_WindowObj)))
{
 ULONG winsig;
 IIntuition->GetAttr(WINDOW_SigMask,gb_WindowObj,&winsig);
 BOOL laufen = TRUE;
 while(laufen) {
  ULONG result, code, val;
  const ULONG sigs = IExec->Wait(winsig | SIGBREAKF_CTRL_C);
  while((result = RA_HandleInput(gb_WindowObj,&code)) != WMHI_LASTMSG) {
        switch(result & WMHI_CLASSMASK) {
         case WMHI_GADGETUP:
          switch(result & WMHI_GADGETMASK) {
           case GAD_ID_Help:
            IIntuition->GetAttr(CHECKBOX_Checked,gb_CheckboxGad,(ULONG*)&val);
             IIntuition->SetAttrs(gb_WindowObj, WINDOW_GadgetHelp, val,
             TAG_DONE);
            break;
           case GAD_ID_Quit:
            laufen = FALSE;
            break;
           }
         break;
        case WMHI_CLOSEWINDOW:
         laufen = FALSE;
         break;
        case WMHI_MENUPICK:
          switch(result & WMHI_MENUMASK) {
           case MENU_ID_Quit:
            laufen = FALSE;
            break;
           }
          break;
         }
      }

      if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;
   }
  RA_CloseWindow(gb_WindowObj);
  }