home *** CD-ROM | disk | FTP | other *** search
- %_APPTYPE%::handleEvent(TEvent &event)
- {
- TApplication::handleEvent(event);
- if (event.what == evCommand)
- {
- switch (event.message.command)
- {
- @ASSIGN __SECTION 'CALLING'
- @FORCALLEDITEMS
- @IFEQUAL %_APPITEMTYPE% 'DLG'
- case %_PADR(_APPITEMCOMMAND,25,' ')% : Call%_DLGFUNC(_DLGNUM)%(); break;
- @ENDIF
- @IFEQUAL %_APPITEMTYPE% 'MTD'
- @NOCR case %_PADR(_APPITEMCOMMAND,25,' ')% :
- @SNIPPET %_APPITEMFILE%
- break;
- @ENDIF
- @ENDFOR
- @ASSIGN __SECTION 'MAIN'
- default : return;
- }
- clearEvent(event);
- }
- }
-