src/mac/cdef/extcdef.c

   1 #include "extcdef.h"
   2
   3 /*************************************************************************
   4
   5         main
   6
   7 *************************************************************************/
   8
   9 pascal SInt32 main(SInt16 varCode , ControlHandle theControl , ControlDefProcMessage message, SInt32 param )
  10 {
  11         long    returnValue = 0L;
  12         char    state = HGetState((Handle)theControl);
  13
  14         if ( message != initCntl )
  15         {
  16                 ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;
  17                 if ( info )
  18                 {
  19                         returnValue =   info->defProc( info->procID, theControl, message, param) ;
  20                 }
  21         }
  22         else
  23         {
  24                  (**theControl).contrlRfCon = NULL ;
  25         }
  26         HSetState((Handle)theControl,state);
  27
  28         return(returnValue);                            /* tell them what happened */
  29 }