Объектно-ориентированное программирование на языке С++. Ноткин А.М. - 39 стр.

                                 40
      case‘q’: event.command = cmQuit;
      break;
      }
 //выделить второй параметр, перевести его в тип int и присвоить
полю A
  };
 else event.what= evNothing
};

int TMyApp::Execute()
{do{endState=0;
     GetEvent(event); //получить событие
     HandleEvent(event); //обработать событие
     if(event.what!=evNothing) //событие осталось не обработано
  while(!Valid());
  return endState;
}

void TInt::HandleEvent(TEvent& event)
 {
   if( event.what == evMessage)
     {
     switch( event.message.command )
        {
        case cmAdd:AddY(event.A);
             СlearEvent( event );
             break;
             …
        case cmQuit:EndExec();
     СlearEvent( event );
             break;
        };
      };
  }

int TInt::Valid();
{ if (EndState == 0) return 0;
  else return 1;
}

void TInt::ClearEvent(TEvent& event)